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
|
#!/bin/sh
#--------------------------------*- Tcl -*------------------------------------#
# Maurice LeBrun
# Dec 21 2000
#-----------------------------------------------------------------------------#
# @> Tcl script to create a TclIndex file. Imports Itcl so it will pick up
# @> incr tcl class definitions, but only if they are fully qualified (i.e.
# @> itcl::class), due to a bug in the incr tcl autoloading extension.
#-----------------------------------------------------------------------------#
#\
exec tclsh "$0" ${1+"$@"}
# If itcl is configured in, -itcl flag will be present.
set HAVE_ITCL 0
if {$argc > 0} {
foreach arg $argv {
if {$arg == "-itcl"} {set HAVE_ITCL 1}
}
}
# Catch errors in case there are no tcl files, although this shouldn't happen
if { [catch {
if { $HAVE_ITCL && ![catch {package require Itcl}] } {
# Include all itcl, itk files.
auto_mkindex . *.tcl *.itcl *.itk *.ith *.itm
} else {
# Just include tcl files
auto_mkindex . *.tcl
}
} msg] } {
puts "An error occurred, generating the tclIndex file: $msg"
}
exit
|
