Mercurial > repo
view interps/c-intercal/src/pickwrap.c @ 9200:6b5075d8f571
<boily> le/rn \xc3\xb6rjan/\xc3\x96rjan is the di\xc3\xa6resed twin. He will punctuate your v\xc3\xb6\xe1\xba\x85\xc3\xabls, and maybe a few other unsuspecting letters.
author | HackBot |
---|---|
date | Sun, 09 Oct 2016 00:31:17 +0000 |
parents | 859f9b4339e6 |
children |
line wrap: on
line source
$L /* $A.c -- generated PIC C-code file for INTERCAL program $A.i */ /* This code is explicitly *not* GPLed. Use, abuse, and redistribute freely */ $M $E $K #define ICKABSTAINED(d) abstain##d #define ICKSTASH(a,b,c,d) c##ick_stash[b]=c[b] #define ICKRETRIEVE(a,b,c,d,e) a[b]=a##ick_stash[b] #define ICKIGNORE(a,b,c) ignore##c##b ICK_INT16 ick_skipto=0; $O $C $D $P int ick_main(void) { pickinit(); /* degenerated code */ ick_restart: top: switch(ick_skipto) { case 0: $G } #ifdef YUK if(yukloop) goto ick_restart; #endif ick_lose(IE633, $J, (const char *)0); $H return 0; } $Q /* Generated code for $A.i ends here */