#!/bin/sh
#--------------------------------*- Tcl -*------------------------------------#
# 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 tclsh "$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
if { [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
    }
} msg] } {
    puts "An error occurred, generating the tclIndex file: $msg"
}

exit
