#!/usr/local/bin/tclsh
puts -nonewline "Making Tags File..."
flush stdout
set tags [open tags w]
foreach file [glob *.tcl] {
    set fid [open $file r]
    while 1 {
        set line [gets $fid]
        if [eof $fid] then break
        if [regexp {proc ([^ ]*) } $line m procname] {
            puts $tags [format {%s	%s	/^%s$/} $procname $file $line]
        }
    }
    close $fid
}
puts "Done"
puts -nonewline "Making tclindex for autoloading..."
flush stdout
auto_mkindex . *.tcl
puts "Done"
