home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
The Datafile PD-CD 4
/
DATAFILE_PDCD4.iso
/
languages
/
tcl
/
!tcldoc
/
makeindex
< prev
next >
Wrap
Text File
|
1996-01-17
|
607b
|
26 lines
# Tcl Documentation Indexer
puts "Making Tcl Documentation index"
proc fileaction { dir name}\
{ set x "$name -click \{ man \{$dir.$name\} \}"
}
proc menudir {dir}\
{ set res ""
set fl [glob $dir.* text]
puts "$dir => $fl"
foreach f $fl {lappend res [fileaction $dir $f]\n }
set dl [glob $dir.* directory]
foreach d $dl {lappend res "$d -sub \{ TclDoc [menudir $dir.$d]\}\n" }
set res
}
set ifile [open {<tclDoc$Dir>.index} w]
puts $ifile "set menudata \{ TclDoc \{Info -dbox progInfo\}"
puts $ifile [menudir {<tclDoc$Dir>.doc}]
puts $ifile "\{Quit -click exit\}\}"
close $ifile