/usr/share/ick/pickwrap.c is in intercal 28:0.28-5.
This file is owned by root:root, with mode 0o644.
The actual contents of the file can be viewed below.
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 | $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, (char *)0);
$H
return 0;
}
$Q
/* Generated code for $A.i ends here */
|