/usr/bin/tixindex is in tix 8.4.3-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 | #!/bin/sh
# the next line restarts using tclsh \
exec tclsh "$0" "$@"
proc tixAutoMkIndex {dir args} {
global errorCode errorInfo
set oldDir [pwd]
cd $dir
set dir [pwd]
append index "# Tcl autoload index file, version 2.0\n"
append index "# This file is generated by the \"tixindex\" program,\n"
append index "# *NOT* by the \"auto_mkindex\" command,\n"
append index "# and sourced to set up indexing information for one or\n"
append index "# more commands. Typically each line is a command that\n"
append index "# sets an element in the auto_index array, where the\n"
append index "# element name is the name of a command and the value is\n"
append index "# a script that loads the command.\n\n"
foreach file [eval glob $args] {
set f ""
set error [catch {
set f [open $file]
while {[gets $f line] >= 0} {
if [regexp {^tixClass[ ]+([^ ]*)} $line match className] {
append index "set [list auto_index($className)]"
append index " \"source {\$dir/$file}\"\n"
append index "set [list auto_index($className:AutoLoad)]"
append index " \"source {\$dir/$file}\"\n"
set isClass($className) 1
}
if [regexp {^tixWidgetClass[ ]+([^ ]*)} $line match className] {
append index "set [list auto_index($className)]"
append index " \"source {\$dir/$file}\"\n"
append index "set [list auto_index($className:AutoLoad)]"
append index " \"source {\$dir/$file}\"\n"
set isClass($className) 1
}
if [regexp {^proc[ ]+([^ ]*)} $line match procName] {
set prefix [lindex [split $procName :] 0]
if {![info exists isClass($prefix)]} {
append index "set [list auto_index($procName)]"
append index " \"source {\$dir/$file}\"\n"
}
}
}
close $f
} msg]
if $error {
set code $errorCode
set info $errorInfo
catch {close $f}
cd $oldDir
error $msg $info $code
}
}
set f [open tclIndex w]
puts $f $index nonewline
close $f
cd $oldDir
}
if {$argv == {}} {
eval tixAutoMkIndex . *.tcl
} else {
eval tixAutoMkIndex . $argv
}
|