fix-makefile

流媒体传输协议的实现代码,非常有用.可以支持rtsp mms等流媒体传输协议

#!/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