Mercurial > repo
view interps/c-intercal/src/pickwrap.c @ 7497:50305567c88f
<hppavilion[1]> mkx esobible/1:4//And fungot pinged the sockets, and saw that they responded before they timed out, and e saw that it was good: and fungot divided the cloud from the hard drive.
author | HackBot |
---|---|
date | Tue, 19 Apr 2016 20:20:51 +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 */