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