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

#Input: srBPM-RMS.mon.template
#Output: srBPM-RMS.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 srBPM-RMS

for {set sector 1} {$sector<41} {incr sector} {
    foreach letter "A B C" {
        foreach num "0 1 2 3 4 5 6" {
            exec sddsprocess ./../DataLogging/${root}.mon.template /tmp/${root}.${sector}${letter}${num} \
              -reedit=column,ControlName,%/<sector>/[format %02ld $sector]/%/<letter>/${letter}/%/<num>/${num}/ \
              -reedit=column,ReadbackName,%/<sector>/[format %02ld $sector]/%/<letter>/${letter}/%/<num>/${num}/
            lappend fileList /tmp/${root}.${sector}${letter}${num}
        }
    }
}

if [catch {eval exec sddscombine $fileList -pipe=out -merge | \
             sddssort -pipe -col=ControlName -numericHigh -unique | \
             sddsprocess -pipe=in /tmp/${root}.mon \
             -edit=column,SimpleControlName,ControlName,S?/./K} result] {
    puts stderr "error: $result"
    exit
}

eval file delete $fileList

puts "Comparing against master PV list"
exec sddsselect /tmp/${root}.mon /home/helios/oagData/pvdata/iocRecNamesOAG.sdds -pipe=out \
  -match=SimpleControlName=rec_name -nowarning -reuse | \
  sddsprocess -pipe \
  -print=parameter,InstallLocation,/home/helios/oagData/logging/${root}/${root}.mon | \
  sddsconvert -pipe=in ./../DataLogging/${root}.mon \
  -delete=column,SimpleControlName \
  -ascii \
  -delete=parameter,NumberCombined

file delete -force /tmp/${root}.mon


