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

# User Rev Content
1 greg 3.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