#!/bin/sh  
# \
exec oagtclsh "$0" "$@"

set auto_path [linsert $auto_path 0  /usr/local/oag/apps/lib/$env(HOST_ARCH)]
set auto_path [linsert $auto_path 0 /usr/local/oag/lib_patch/$env(HOST_ARCH)]
APSStandardSetup

set startDateList [APSOffsetDateInfo -today 1 -offset -1] 
set endDateList [APSOffsetDateInfo -today 1 -offset 0] 

set fileList [APSFindFilesBetweenDates -tailsOnly 0 \
    -rootname ChargeFast- \
    -directory /home/helios/oagData/monitoring/Charge \
    -startDateList $startDateList -endDateList $endDateList ]

set startTime [exec timeconvert -breakdown=year=[lindex $startDateList 0],julianDay=[lindex $startDateList 1],hour=0]
set endTime [clock seconds]

set tmpRoot /tmp/[APSTmpString]
APSAddToTempFileList $tmpRoot.in $tmpRoot.out
APSAddToTempFileList $tmpRoot.in1 $tmpRoot.in2 $tmpRoot.in3 $tmpRoot.in4

if [catch {eval exec sddscombine $fileList -pipe=out -merge \
             | sddsinterp -pipe \
             -equispaced=60,$startTime,$endTime -column=Time,S35DCCT,SRActualMode \
             | sddsprocess -pipe=in $tmpRoot.in -clip=0,1440,invert \
             -define=column,Index,i_row,type=short} result] {
    puts stderr "$result"
}


# User mode
exec sddsprocess $tmpRoot.in $tmpRoot.in1 \
    "-define=column,Waveform,S35DCCT SRActualMode 4 == pop pop ? 1 : 0 $ *" -print=parameter,WaveformPV,S:UserOpsCurrent 

# Non-user mode
exec sddsprocess $tmpRoot.in $tmpRoot.in2 \
    "-define=column,Waveform,S35DCCT SRActualMode 4 == pop pop ? 0 : 1 $ *" -print=parameter,WaveformPV,S:OtherCurrent

# Time data, offset for difference between UNIX and EPICS epochs
set offset [expr [exec timeconvert -breakdown=year=1990,julian=1,hour=0]-[exec timeconvert -breakdown=year=1970,julian=1,hour=0]]
exec sddsprocess $tmpRoot.in $tmpRoot.in3 \
    "-redefine=column,Waveform,Time $offset -" -reprint=parameter,WaveformPV,S:SRdateCP 

exec sddscombine $tmpRoot.in1 $tmpRoot.in2 $tmpRoot.in3 $tmpRoot.in4 -overwrite
exec sddswput $tmpRoot.in4

exec sddswget -pvnames=S:UserOpsCurrent $tmpRoot.out
exec sddsplot -column=Index,Waveform -title=@WaveformPV  $tmpRoot.in1 $tmpRoot.in2 $tmpRoot.out -graph=line,vary



  
