diff options
Diffstat (limited to 'tcllib/modules/control/genIndex')
| -rw-r--r-- | tcllib/modules/control/genIndex | 15 |
1 files changed, 15 insertions, 0 deletions
diff --git a/tcllib/modules/control/genIndex b/tcllib/modules/control/genIndex new file mode 100644 index 0000000..1d3c47b --- /dev/null +++ b/tcllib/modules/control/genIndex @@ -0,0 +1,15 @@ +# Utility program to generate tclIndex file + +package require Tcl 8.3 +set home [file join [pwd] [file dirname [info script]]] +cd $home +set files [glob -nocomplain *.tcl] +set idx [lsearch $files control.tcl] +set files [lreplace $files $idx $idx] +set idx [lsearch $files index.tcl] +set files [lreplace $files $idx $idx] +set idx [lsearch $files pkgIndex.tcl] +set files [lreplace $files $idx $idx] +eval [list auto_mkindex .] $files +#pkg_mkIndex -direct . control.tcl + |