home *** CD-ROM | disk | FTP | other *** search
/ InfoMagic Source Code 1993 July / THE_SOURCE_CODE_CD_ROM.iso / languages / tcl / expect / expect-4.7 / fixline1 < prev    next >
Encoding:
Text File  |  1993-04-12  |  530 b   |  26 lines
  1. #!expect -f
  2. # Synopsis: expect fixline1 newpath < input > output
  3. # Author: Don Libes
  4.  
  5. # Description: change first line of script to reflect new binary
  6.  
  7. set newpath [lindex $argv 1]
  8.  
  9. gets stdin buf
  10.  
  11. # try to match any of the following match
  12. #!expect ...
  13. #!../expect ...
  14. #!expectk ...
  15. #!foobar/expectk ...
  16. if 1==[regexp "^#!(.*/)*(.*)" $buf dummy1 dummy2 tail] {
  17.     puts stdout "#!$newpath/$tail"
  18. #    puts stdout "#!$new/ [lrange [split $buf " "] 1 end]"
  19. } else {
  20.     puts stdout $buf
  21. }
  22.  
  23. while {-1!=[gets stdin buf]} {
  24.     puts stdout $buf
  25. }
  26.