URL https://opencores.org/ocsvn/or1k/or1k/trunk

Subversion Repositories or1k

[/] [or1k/] [trunk/] [insight/] [expect/] [fixline1] - Blame information for rev 1765

Details | Compare with Previous | View Log


#!expect --
# Synopsis: fixline1 newpath < input > output
# Author: Don Libes
 
# Description: change first line of script to reflect new binary
# try to match any of the following first lines
#!expect ...
#!../expect ...
#!expectk ...
#!foo/bar/expectk ...
#
regsub "^#!(.*/)*(.*)" [gets stdin] "#!$argv/\\2" line1
puts -nonewline "$line1\n[read stdin]"

Line No.	Rev	Author	Line
1	578	markom	`#!expect --`
2			`# Synopsis: fixline1 newpath < input > output`
3			`# Author: Don Libes`
4
5			`# Description: change first line of script to reflect new binary`
6			`# try to match any of the following first lines`
7			`#!expect ...`
8			`#!../expect ...`
9			`#!expectk ...`
10			`#!foo/bar/expectk ...`
11			`#`
12			`regsub "^#!(./)(.*)" [gets stdin] "#!$argv/\\2" line1`
13			`puts -nonewline "$line1\n[read stdin]"`

Browse

Tools

Subversion Repositories or1k

[/] [or1k/] [trunk/] [insight/] [expect/] [fixline1] - Blame information for rev 1765