home *** CD-ROM | disk | FTP | other *** search
/ Mac-Source 1994 July / Mac-Source_July_1994.iso / Other Langs / Tickle-4.0 (tcl) / scripts / io.tcl < prev    next >
Encoding:
Text File  |  1992-02-02  |  762 b   |  26 lines  |  [TEXT/$Tcl]
  1.  
  2. proc search_prefix { fname string } {
  3.     set fhandle [open "$fname" "r"]
  4.     for { set line 0 } { ! [eof $fhandle] } { set line [expr "$line + 1"] } {
  5.         gets $fhandle inline
  6.         if {
  7.                 [string compare [range $inline 0 [expr "[length $string chars] - 1"] chars] $string] == 0
  8.             } then {
  9.                 print "File $fname ; line $line # $inline\n";
  10.             }
  11.         }
  12.     close $fhandle
  13.     }
  14.  
  15. print "[search_prefix Fire:MPW:src:tickle:src:info.c #include]\n"
  16. print "[search_prefix Fire:MPW:src:tickle:src:info.c #define]\n"
  17. print "[search_prefix Fire:MPW:src:tickle:src:info.c #undef]\n"
  18.  
  19. print "[range ${inline} 0 1 chars]\n"
  20. set inline {#include <testing.h>}
  21. print "$inline\n"
  22.  
  23. print "[espace [listpick -p Select\ File: File\ One File\ Two File\ Three File\ Four]]\n"
  24. File\ Three
  25. File Three
  26.