| # | Line 20 | Line 20 | while ("$argv[1]" =~ -*) | |
|---|---|---|
| 20 | breaksw | |
| 21 | case -D: | |
| 22 | shift argv | |
| 23 | + | if (! -d $argv[1]:q ) then |
| 24 | + | echo "Directory $argv[1] does not exist" |
| 25 | + | exit 1 |
| 26 | + | endif |
| 27 | set outdir=$argv[1]:q/ | |
| 28 | breaksw | |
| 29 | case -h*: | |
| # | Line 104 | Line 108 | foreach inp ($argv:q) | |
| 108 | | ra_tiff $tfopts - $outp:q | |
| 109 | mv $vald/{,old}histo.dat | |
| 110 | end | |
| 111 | < | if ($?histof) cp -f $vald/oldhisto.dat $histof |
| 111 | > | if ($?histof) then |
| 112 | > | cp -f $vald/oldhisto.dat $histof |
| 113 | > | endif |
| 114 | rm -rf $vald | |
| – | Removed lines |
| + | Added lines |
| < | Changed lines |
| > | Changed lines |