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

#Input: ../DataLogging/SRH2O.mon.template
#       ../DataLogging/SRH2O.mon.misc
#
#Output: ../DataLogging/SRH2O.mon

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 root SRH2O
set recordFile /home/helios/oagData/pvdata/iocRecNamesOAG.sdds

for {set sector 1} {$sector <= 40} {incr sector} {
    set ssector [format %02d $sector]
    exec sddsprocess ../DataLogging/SRH2O.mon.template ../DataLogging/${root}.sector.$sector \
      -reedit=column,ControlName,%/<sector>/$ssector/ \
      -reedit=column,ReadbackName,%/<sector>/$ssector/
    lappend fileList ../DataLogging/${root}.sector.$sector
}


if [catch {eval exec sddscombine $fileList ../DataLogging/SRH2O.mon.misc \
             -merge -pipe=out \
             | sddsprocess -pipe \
             -print=col,ControlType,pv \
             -edit=col,rec_name,ControlName,S?/./D | \
             sddssort -column=rec_name -pipe | \
             sddsxref -reuse -nowarnings -pipe $recordFile -match=rec_name | \
             sddsconvert -pipe -delete=col,rec_name -ascii -del=para,NumberCombined | \
             sddssort -pipe -column=ControlName -unique | \
             sddsprocess -pipe=in ../DataLogging/SRH2O.mon \
             -print=parameter,InstallLocation,/home/helios/oagData/monitoring/SRH2O/SRH2O.mon \
             -print=column,Provider,ca \
             -print=column,ExpectNumeric,y,type=character \
             -print=column,ExpectFieldType,scalar \
             -define=column,ExpectElements,1,type=long} result] {
    puts stderr "error: $result"
    exit
}

eval file delete $fileList


