head	1.1;
access;
symbols
	tcllib-1-13:1.1
	tcllib-1-12:1.1
	tklib-0-5:1.1
	tcllib-1-11-1:1.1
	tcllib-1-11:1.1
	tcllib-1-10:1.1
	tcllib-1-9:1.1
	tcllib-1-8:1.1
	tcllib-1-7:1.1
	tcllib-1-6-1:1.1
	tcllib-1-6-branch:1.1.0.8
	tcllib-1-6:1.1
	tcllib-1-4-0:1.1
	tcllib-1-3-0:1.1
	DEVELOPMENT:1.1.0.6
	tcllib-1-2-0:1.1.0.4
	RELEASES:1.1.0.2;
locks; strict;
comment	@# @;


1.1
date	2001.11.03.03.45.58;	author dgp;	state Exp;
branches;
next	;


desc
@@


1.1
log
@
        * pkgIndex.tcl:
        * control.tcl: Addition of rswitch means bump 0.0 -> 0.1.

        * genIndex (new file):
        * index.tcl (deleted file): renamed index.tcl -> genIndex so
        it won't be mistakenly installed anymore.  Purpose of genIndex
        is to regenerate the tclIndex file.
        * tclIndex: Generated.
@
text
@# 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

@
