#!/bin/sh
#--------------------------------*- Tcl -*------------------------------------#
# $Id: mktclIndex,v 1.5 2002/11/28 04:03:08 mlebrun Exp $
# 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 /usr/local/bin/tclsh8.4 "$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
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
    }
}

exit