This file is indexed.

/usr/share/ick-0.29/pickwrap.c is in intercal 29:0.29-3.

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, (const char *)0);

    $H

    return 0;
}
$Q

/* Generated code for $A.i ends here */