fix-makefile

来自「Live media server used to transfer mpeg 」· 代码 · 共 27 行

#!/bin/sh
# the next line restarts using tclsh \
exec tclsh "$0" "$@"

set makefileName [lindex $argv 0]
set tmpfileName /tmp/rsftmp

set inFid [open $makefileName r]
set outFid [open $tmpfileName w]

while {![eof $inFid]} {
	set line [gets $inFid]
	if {[string match *\)\$* $line]} {
		set pos [string first \)\$ $line]
		set prefix [string range $line 0 $pos]
		incr pos
		set suffix [string range $line $pos end]
		set line $prefix\ $suffix
	}

	puts $outFid $line
}

close $inFid
close $outFid
file rename -force $tmpfileName $makefileName