This file is indexed.

/usr/lib/gcl-2.6.12/gcl-tk/gcl.tcl is in gcl 2.6.12-47.

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
47
48
49
50
51
52
# some extensions for gcl
# of course these could be in lisp, but keeping them on the
# tk side of the pipe can cut down overhead. for large things
# like getting a file

proc TextLoadFile {w file} {
    set f [open $file]
    $w delete 1.0 end
    while {![eof $f]} {
	$w insert end [read $f 10000]
    }
    close $f
}

proc insertWithTags {w text args} {
    set start [$w index insert]
    $w insert insert $text
    foreach tag [$w tag names $start] {
	$w tag remove $tag $start insert
    }
    foreach i $args {
	$w tag add $i $start insert
    }
}
# in WINDOW if TAG is set at INDEX then return the range
# of indices for which tag is set including index.

proc get_tag_range {w tag index} {
  set i 1
  set index [$w index $index]
  set range ""
  set ok  0
#  puts stdout $index
  foreach v [$w tag names $index] { if {$v == $tag} {set ok 1}}
  while $ok {
    set range [$w tag nextrange $tag "$index -$i chars" "$index +1 char"]
     if {[llength $range ] >= 2} { break;}
     if {[$w compare "$index - $i chars" <= "0.0 + 1 chars" ]} { break;}
     set i [expr $i + 1]
      }
  return $range
}

proc MultipleTagAdd {win tag start l} {
  set prev -1
  foreach v $l { puts stdout $v 
                   if { "$prev" == "-1" } {
                   set prev $v 
                   } else {
                   $win tag add $tag "$start + $prev chars" "$start + $v chars"
		   set prev -1 	
}}}