Mercurial > repo
view interps/c-intercal/src/pickwrap.c @ 7759:b4341511eb47
<fizzie> ` echo -e \'#! /bin/bash\\ncmd="$1"\\nshift\\nf="$*"\\nif [ -z "$f" && "$f" == *\\\\ * ]; then f="${cmd#* }"; cmd="${cmd%% *}"; fi\\nif [ -z "$f" ]; then echo try: \\\\`f command filename; else "$cmd" "$(< "$f")"; fi\' > bin/f
author | HackBot |
---|---|
date | Wed, 04 May 2016 21:35:48 +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 */