| 9 |
|
set origf="" |
| 10 |
|
set oblqf="" |
| 11 |
|
foreach f ($argv) |
| 12 |
< |
xform -e $f > $d/$f.orig |
| 13 |
< |
rad2mgf $d/$f.orig > $d/$f:r.orig.mgf |
| 14 |
< |
set origf=($origf $f:r.orig.mgf) |
| 15 |
< |
echo i $f:r.orig.mgf $oblqxf > $d/$f:r.oblq.mgf |
| 16 |
< |
set oblqf=($oblqf $f:r.oblq.mgf) |
| 12 |
> |
set fn="$f:t" |
| 13 |
> |
set fn="$fn:r" |
| 14 |
> |
xform $f:q > $d/$fn:q.orig |
| 15 |
> |
rad2mgf $d/$fn:q.orig > $d/$fn:q.orig.mgf |
| 16 |
> |
set origf=($origf:q $fn:q.orig.mgf) |
| 17 |
> |
echo i $fn:q.orig.mgf $oblqxf > $d/$fn:q.oblq.mgf |
| 18 |
> |
set oblqf=($oblqf:q $fn:q.oblq.mgf) |
| 19 |
|
end |
| 20 |
|
else |
| 21 |
|
set origf=stdin.orig.mgf |
| 22 |
|
set oblqf=stdin.oblq.mgf |
| 23 |
< |
xform -e > $d/stdin.orig |
| 23 |
> |
xform > $d/stdin.orig |
| 24 |
|
rad2mgf $d/stdin.orig > $d/stdin.orig.mgf |
| 25 |
|
echo i stdin.orig.mgf $oblqxf > $d/stdin.oblq.mgf |
| 26 |
|
endif |
