# (find-fline "~/TCL/files") # (find-fline "~/TH/Makefile.th" "# For tests.") puts [pwd] puts [file dirname [info script]]/Files.tcl source [file dirname [info script]]/Files.tcl foreach {key list} $keys_and_dests { set FILES($key) $list } proc stripa {str} { string range $str 2 end } proc flink {anggfile} { L $anggfile $anggfile } proc flinkh {anggfile} { J [L $anggfile $anggfile] \ ([L $anggfile.html .html]) } htmlize {Edrx: angg files} { [LIST11 [concat [Map1 flinkh [lsort $FILES(anggt)]] \ [Map1 flink [lsort $FILES(anggnt)]]]] }