ViewVC Help
View File | Revision Log | Show Annotations | Download File | Root Listing
root/radiance/ray/src/util/vinfo.csh
Revision: 3.1
Committed: Sat Feb 22 02:07:30 2003 UTC (21 years, 1 month 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

File Contents

# 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