#!/bin/csh -f 

set tclDir = /home/helios/oagData/SCR/templates
set snapDir = /home/helios/oagData/SCR/snapshots

if ("$3" == "") then
	echo "usage: makeSCRfilters <scriptname> <snapshotFilename> <name>"
	exit 1
	endif
set script = $1
pushd $snapDir
set snapshot = $2
set name = $3


switch ($name) 
        case Beamline:
                set field = beamline
                breaksw
        case Category:
                set field = category
                breaksw
        default:
                echo "bad name field for makeSCRfilters"
                exit 1
                breaksw
        endsw

setenv RPN_DEFNS /usr/local/oag/apps/src/appconfig/rpn/defns.rpn

if (! -e $snapshot) then
        mecho "setStatusText \042snapshot file $snapshot not found\042" >! $script
        chmod +x $script
        exit 
        endif
cat $tclDir/firstLine.tcl  >! $script
echo "set fieldString $field" >> $script
echo "set nameString $field" >> $script
cat $tclDir/makeSCRfilters.tcl.header >> $script

sddssort $snapshot -pipe=out -column=${name},incr -uniq \
| sddsprocess -pipe \
 -rpnexpr="0 sto i" -define=column,Index,"i 1 + sto i",type=long \
 -print=column,Tag,".$field.button.l%ld",Index \
 -print=column,Button,"checkbutton %s -text \042%s\042 -relief raised -variable filter$name(%s) -font fixed",Tag,$name,$name \
| tee $script.tmp \
| sdds2stream -pipe=in -noquotes -column=Button -delim="\n" >> $script
mecho "pack " >> $script
sdds2stream $script.tmp -column=Tag | tr '\012\015' '  ' >> $script
mecho " -side left\n" >> $script
mecho "pack .$field.button -side left\n" >> $script
mecho "pack .$field -side bottom\n" >> $script
 
chmod +x $script
