1# Utility program to generate tclIndex file
2
3package require Tcl 8.3
4set home [file join [pwd] [file dirname [info script]]]
5cd $home
6set files [glob -nocomplain *.tcl]
7set idx [lsearch $files control.tcl]
8set files [lreplace $files $idx $idx]
9set idx [lsearch $files index.tcl]
10set files [lreplace $files $idx $idx]
11set idx [lsearch $files pkgIndex.tcl]
12set files [lreplace $files $idx $idx]
13eval [list auto_mkindex .] $files
14#pkg_mkIndex -direct . control.tcl
15
16