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