home *** CD-ROM | disk | FTP | other *** search
/ Fish 'n' More 2 / fishmore-publicdomainlibraryvol.ii1991xetec.iso / dirs / tcl_447.lzh / TCL / tcl.lzh / tcl / tclprocs / startup.tcl < prev   
Text File  |  1990-05-03  |  484b  |  32 lines
  1.  
  2. print "welcome to tcl"
  3.  
  4. #rename source oldsource
  5.  
  6. set path {{} tcl:tclprocs/}
  7.  
  8. proc newsource {file} {
  9.     global path errorInfo
  10.  
  11.     foreach i $path {
  12.         echo trying $i
  13.         set result [catch {oldsource $i$file} result_text]
  14.         if {$result == 0} return
  15.         echo $result_text
  16.         if {[string compare [set result_text] "couldn't read"] != 0} {
  17.             error $result_text
  18.         }
  19.         echo yo
  20.     }
  21.     #error $result_text
  22.     error $errorInfo
  23. }
  24.  
  25. source tclprocs:decomp.tcl
  26.  
  27. source tclprocs:help.tcl
  28.  
  29. echo
  30.  
  31. # commandloop
  32.