|
|
#!/bin/sh
|
|
|
# The madtclsh path is longer than 32 characters. So, we take advantage
|
|
|
# of the fact that a backslash continues a comment line in tcl \
|
|
|
exec /export/home/madrigal2000/bin/madtclsh "$0" ${1+"$@"}
|
|
|
|
|
|
catch [exec rm remake_file.out]
|
|
|
puts $argc
|
|
|
puts $argv
|
|
|
set linelast ""
|
|
|
set f [lindex $argv 0]
|
|
|
puts "processing $f"
|
|
|
set ffil [open ffil w+]
|
|
|
puts $ffil $f
|
|
|
close $ffil
|
|
|
exec cat ffil >> remake_file.out
|
|
|
catch [exec nag_apt -double -decs -group_common -po /export/home/madrigal2000/source/madf/polish.opt $f >> remake_file.out]
|
|
|
set fin [open $f r]
|
|
|
set fout [open temp1.f w]
|
|
|
puts $fout "C $Id: remake_file 3304 2011-01-17 15:25:59Z brideout $"
|
|
|
while {[gets $fin line] >= 0} {
|
|
|
if { [string length $line] > 0 && \
|
|
|
![string match "C*SPECIFICATIONS*" $line] && \
|
|
|
![string match "C*DECLARATIONS*" $line] && \
|
|
|
![string match "*%I*%" $line] && \
|
|
|
![string match "*%W%*" $line] && \
|
|
|
![string match "*%G%*" $line] && \
|
|
|
![string match "*PT*WARNING*" $line] && \
|
|
|
[string range $line 0 8] != "status,fd" && \
|
|
|
[string range $line 0 9] != "Processing" && \
|
|
|
[string range $line 0 5] != "\[ISTDT" } {
|
|
|
if {$line != $linelast || [string range $line 4 4] != "\*"} {
|
|
|
puts $fout $line
|
|
|
set linelast $line
|
|
|
}
|
|
|
}
|
|
|
}
|
|
|
close $fin
|
|
|
close $fout
|
|
|
|
|
|
# Extract include files and replace included declarations by
|
|
|
# INCLUDE statement
|
|
|
set fin [open temp1.f r]
|
|
|
set fout [open temp2.f w]
|
|
|
while {[gets $fin line] >= 0} {
|
|
|
set end 0
|
|
|
if { [string range $line 0 15] == {* $in$ begin} } {
|
|
|
set finclude [string range $line 17 [string length $line]]
|
|
|
puts " Extracting $finclude"
|
|
|
# set fout [open $finclude w]
|
|
|
# puts $fout "C $Id: remake_file 3304 2011-01-17 15:25:59Z brideout $"
|
|
|
while {[gets $fin line] != 0} {
|
|
|
if { [string range $line 0 13] == {* $in$ end} } {
|
|
|
# close $fout
|
|
|
set end 1
|
|
|
break
|
|
|
}
|
|
|
# puts $fout $line
|
|
|
}
|
|
|
puts $fout " INCLUDE '$finclude'"
|
|
|
}
|
|
|
if {$end == 0} {puts $fout $line}
|
|
|
}
|
|
|
close $fin
|
|
|
close $fout
|
|
|
catch [exec cp temp2.f $f]
|
|
|
|
|
|
|
