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

puts "Not used"
exit
#
# input files:
# SRDCPS-HVD-100HzextraPVs.mon
#
# output file:
# SRDCPS-HVD-100Hz.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 correctorPVList {MeanAI MADAI}
set correctorNameList {Mean MAD}
set correctorUnitsList {A A}

set MTPVList $correctorPVList
set MTNameList $correctorNameList
set MTUnitsList {A A}

set dipolePVList {MeanAI MADAI}
set dipoleNameList {Mean MAD}
set dipoleUnitsList {A A}

set output(ColumnNames) "ControlName ReadbackName ReadbackUnits"

for {set sector 1} {$sector<41} {incr sector} {
    foreach side {A B} {
        foreach num {1 2 3 4} {
            foreach plane {H V} {
                set prefix S${sector}$side:${plane}$num
                foreach pv $correctorPVList name $correctorNameList units $correctorUnitsList {
                    lappend CNList $prefix:$pv
                    lappend NameList $prefix:$name
                    lappend UnitsList $units
                }
            }
        }
    }
}

for {set sector 1} {$sector<41} {incr sector} {
    foreach side {A B} {
        set prefix S${sector}$side:MT
        foreach pv $MTPVList name $MTNameList units $MTUnitsList {
            lappend CNList $prefix:$pv
            lappend NameList $prefix:$name
            lappend UnitsList $units
        }
    }
}

set output(Column.ControlName) [list $CNList]
set output(Column.ReadbackName) [list $NameList]
set output(Column.ReadbackUnits) [list $UnitsList]

if {[catch {sdds save /tmp/makeMonFile.out1 output} result]} {
    puts "error: $result"
    file delete -force /tmp/makeMonFile.out1
    exit
}

if {[catch {exec sddsprocess /tmp/makeMonFile.out1 -print=column,Provider,ca -print=column,ExpectNumeric,y,type=character -print=column,ExpectFieldType,scalar -define=column,ExpectElements,1,type=long -nowarn} results]} {
    puts "ERROR: $results"
    exit
}

if {[catch {exec sddscombine /tmp/makeMonFile.out1 ./DataLogging/SRDCPS-HVD-100HzextraPVs.mon \
              -pipe=out -overwrite -merge | \
              sddssort -pipe \
              -col=ControlName -nowarning -numericHigh | \
              sddsprocess -pipe=in /tmp/SRDCPS-HVD-100Hz.mon \
              -edit=column,SimpleControlName,ControlName,S?/./K} result]} {
    puts "error: $result"
    file delete -force /tmp/makeMonFile.out1
    exit
}

file delete -force /tmp/makeMonFile.out1

puts "Comparing against master PV list"
exec sddsselect /tmp/SRDCPS-HVD-100Hz.mon /home/helios/oagData/pvdata/iocRecNamesOAG.sdds -pipe=out -match=SimpleControlName=rec_name -nowarning -reuse | sddsconvert -pipe=in ./DataLogging/SRDCPS-HVD-100Hz.mon -delete=column,SimpleControlName

file delete -force /tmp/SRDCPS-HVD-100Hz.mon

sdds load ./DataLogging/SRDCPS-HVD-100Hz.mon data
set data(ParameterNames) "InstallLocation"
set data(Parameter.InstallLocation) [list /home/helios/oagData/monitoring/SRDCPS-HVD-100Hz/SRDCPS-HVD-100Hz.mon]
set data(Layout.DataMode.Mode) "ascii"
sdds save ./DataLogging/SRDCPS-HVD-100Hz.mon data

puts "use cppatch to install SRDCPS-HVD-100Hz.mon"


