home *** CD-ROM | disk | FTP | other *** search
/ The Datafile PD-CD 4 / DATAFILE_PDCD4.iso / languages / tcl / !tcldoc / makeindex < prev    next >
Encoding:
Text File  |  1996-01-17  |  607 b   |  26 lines
  1. # Tcl Documentation Indexer
  2.  
  3. puts "Making Tcl Documentation index"
  4.  
  5. proc fileaction { dir name}\
  6.  { set x "$name -click \{ man \{$dir.$name\} \}"
  7.  }
  8.  
  9. proc menudir {dir}\
  10.  { set res ""
  11.    set fl [glob $dir.* text]
  12.    puts "$dir => $fl"
  13.    foreach f $fl {lappend res [fileaction $dir $f]\n }
  14.    set dl [glob $dir.* directory]
  15.    foreach d $dl {lappend res "$d -sub \{ TclDoc [menudir $dir.$d]\}\n" }
  16.    set res
  17.  }
  18.  
  19. set ifile [open {<tclDoc$Dir>.index} w]
  20. puts $ifile "set menudata \{ TclDoc \{Info -dbox progInfo\}"
  21. puts $ifile [menudir {<tclDoc$Dir>.doc}]
  22. puts $ifile "\{Quit -click exit\}\}"
  23. close $ifile
  24.  
  25.  
  26.