orig/vinfo.csh
author Axel Jacobs <axel@jaloxa.eu>
Sat, 09 Apr 2011 17:55:16 +0100
changeset 0 0aa115157c9c
permissions -rw-r--r--
Added original CSH script from HEAD-20110409.

#!/bin/csh -f
# RCSid: $Id: vinfo.csh,v 3.2 2004/11/19 23:00:49 greg Exp $
#
# Edit information header in Radiance file
#
set plist=()
set ilist=()
foreach f ($*)
	if (! -f $f:q) then
		echo "${f}: no such file or directory"
		continue
	endif
	if (! -w $f:q) then
		echo "$f is read-only"
		sleep 1
		continue
	endif
	set info="$f.info"
	getinfo < $f:q > $info:q
	set plist=($plist:q $f:q)
	set ilist=($ilist:q $info:q)
end
vi $ilist:q
set i=1
while ( $i <= $#plist )
	set f=$plist[$i]:q
	set info=$ilist[$i]:q
	if ("`tail -1 $info:q`" != "") then
		echo "" >> $info:q
	endif
	getinfo < $f:q | cmp -s - $info:q
	if ($status != 0) then
		getinfo - < $f:q >> $info:q
		mv $info:q $f:q
	else
		rm $info:q
	endif
	@ i++
end