| Revision: | 3.1 |
| Committed: | Sat Feb 22 02:07:30 2003 UTC (22 years, 2 months ago) by greg |
| Content type: | application/x-csh |
| Branch: | MAIN |
| CVS Tags: | rad3R5, rad3R6, rad3R6P1 |
| Log Message: | Changes and check-in for 3.5 release Includes new source files and modifications not recorded for many years See ray/doc/notes/ReleaseNotes for notes between 3.1 and 3.5 release |
| # | Content |
|---|---|
| 1 | #!/bin/csh -f |
| 2 | # RCSid: $Id$ |
| 3 | # |
| 4 | # Edit information header in Radiance file |
| 5 | # |
| 6 | set plist=() |
| 7 | set ilist=() |
| 8 | foreach f ($*) |
| 9 | if (! -f $f:q) then |
| 10 | echo "${f}: no such file or directory" |
| 11 | continue |
| 12 | endif |
| 13 | if (! -w $f:q) then |
| 14 | echo "$f is read-only" |
| 15 | sleep 1 |
| 16 | continue |
| 17 | endif |
| 18 | set info="$f.info" |
| 19 | getinfo < $f:q > $info:q |
| 20 | set plist=($plist:q $f:q) |
| 21 | set ilist=($ilist:q $info:q) |
| 22 | end |
| 23 | vi $ilist:q |
| 24 | set i=1 |
| 25 | while ( $i <= $#plist ) |
| 26 | set f=$plist[$i]:q |
| 27 | set info=$ilist[$i]:q |
| 28 | getinfo < $f:q | cmp -s - $info:q |
| 29 | if ($status != 0) then |
| 30 | getinfo - < $f:q >> $info:q |
| 31 | mv $info:q $f:q |
| 32 | else |
| 33 | rm $info:q |
| 34 | endif |
| 35 | @ i++ |
| 36 | end |