This file is indexed.

/usr/share/tcltk/tcl8.5/vtk/FindString.tcl is in tcl-vtk 5.8.0-5.

This file is owned by root:root, with mode 0o755.

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
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
#!/usr/bin/tclsh

# This script will find all files that include certain regular expression.
# If the files are not in the list provided, the script will return error.

set ProgName [ lindex [ split $argv0 "/" ] end ]

if { $argc < 2 } {
    puts "Usage: $ProgName <expr1> <expr2> \[ <file> ... \]"
    puts "\texpr1 - file list expression (vtk*.h)"
    puts "\texpr2 - search string expression (vtkSet.*Macro)"
    puts "\tfile  - files that should be ignore"

    puts ""
    puts "You provided:"
    foreach { a } $argv {
	puts "$a"
    }

    exit 1
}

# Parse command line arguments
set FileExpression [ lindex $argv 0 ]
set SearchMessage  [ lindex $argv 1 ]
set IgnoreFileListIn [ lrange $argv 2 end ]
set IgnoreFileList {}
foreach { file } $IgnoreFileListIn {
   set IgnoreFileList "$IgnoreFileList [ glob $file ]"
}
#puts "Searching for $SearchMessage in $FileExpression"
#puts "Ignore list: $IgnoreFileList"

# Find regular expression in the string
proc FindString { InFile SearchString } {
    if [ catch { open $InFile r } inchan ] {
	puts stderr "Cannot open $InFile"
	return 0
    }
    set res 0
    set lcount 1
    while { ! [eof $inchan] } {
	gets $inchan line
	if [ regexp $SearchString $line matches ] {
	    puts "$InFile: Found $SearchString on line $lcount"
	    puts "$line"
	    set res 1
	}
	set lcount [ expr $lcount + 1 ]
    }
    close $inchan
    return $res
}

# Get all files that match expression
set files ""
if [ catch { [ set files [ glob $FileExpression ] ] } result ] {
    regsub {\\\*} $FileExpression "*" FileExpression
    if [ catch { [ set files [ glob $FileExpression ] ] } nresult ] {
	#puts "Cannot expand the expression: \"$FileExpression\""
	#puts "Error: $nresult"
        #exit 1
    }
}

if { [ llength $files ] < 1 } {
    puts "Cannot find any files that match your file expression"
    exit 0
}

set count 0
foreach { a } $files {
   regsub -all {\\} $a {/} b 
   if { [ lsearch $IgnoreFileList $b ] >= 0 } {
	puts "Ignoring: $b"
    } else {
	set count [ expr $count + [ FindString $a $SearchMessage ] ]
    }
}

if { $count > 0 } {
    puts "" 
    puts "Found \"$SearchMessage\" $count times"
    exit 1
}

exit 0