#!/bin/csh -f
# SCCSid "$SunId$ LBL"
#
# Display one or more CIE XYZE pictures using ximage
#
set popt=""
if ( $?DISPLAY_PRIMARIES ) then
	set popt="-p $DISPLAY_PRIMARIES"
endif
set xiargs=""
set i=1
set firstarg=0
while ( $i <= $#argv && ! $firstarg )
	@ i1= $i + 1
	switch ( $argv[$i] )
	case -ge*:
	case -di*:
	case -g:
	case -c:
	case -e:
		if ( $i1 > $#argv ) goto notenough
		set xiargs=($xiargs $argv[$i] $argv[$i1])
		@ i1++
		breaksw
	case -d:
	case -b:
	case -m:
	case -f:
	case -s:
	case =*:
	case -o*:
		set xiargs=($xiargs $argv[$i])
		breaksw
	case -p:
		set popt="-p"
		while ( $i1 <= $i + 8 )
			if ( $i1 > $#argv ) goto notenough
			set popt="$popt $argv[$i1]"
			@ i1++
		end
		breaksw
	case -*:
		echo "Unknown option: $argv[$i]"
		exit 1
	default:
		set firstarg=$i
		breaksw
	endsw
	set i=$i1
end
set td=/usr/tmp/xyz$$
set ecode=1
onintr quit
mkdir $td
if ( ! $firstarg ) then
	ra_xyze -r -u $popt > $td/stdin
	if ( $status ) goto quit
else
	set i=$firstarg
	while ( $i <= $#argv )
		ra_xyze -r -u $popt $argv[$i] $td/$argv[$i]:t
		if ( $status ) goto quit
		@ i++
	end
endif
ximage $xiargs $td/*
set ecode=$status
quit:
	rm -rf $td
	exit $ecode
notenough:
	echo "Missing arguments for $argv[$i] option"
	exit 1