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

# output files:
# FPGAbpmTriggers.loc

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 data(ColumnNames) "ControlName Tolerance"
set data(ParameterNames) "InstallLocation"
set data(ColumnInfo.ControlName) "type SDDS_STRING"
set data(ColumnInfo.Tolerance) "type SDDS_DOUBLE"

set data(Parameter.InstallLocation) [list $OAGGlobal(OAGDataDirectory)/logonchange/FPGAbpmTriggers/FPGAbpmTriggers.loc]

set sectors [exec sdds2stream -col=Sector /home/helios/oagData/sr/FPGAbpm/sectors.sdds]

foreach i $sectors {
    lappend cn S${i}A:motion:gtr:trigger
    lappend tol 0.0
    lappend cn S${i}A:turn:gtr:trigger
    lappend tol 0.0
    lappend cn S${i}B:motion:gtr:trigger
    lappend tol 0.0
    lappend cn S${i}B:turn:gtr:trigger
    lappend tol 0.0
    lappend cn S${i}A:TurnHistoryIsArmed
    lappend tol 0.0
    lappend cn S${i}A:SlowBeamHistoryIsArmed
    lappend tol 0.0
    lappend cn S${i}B:TurnHistoryIsArmed
    lappend tol 0.0
    lappend cn S${i}B:SlowBeamHistoryIsArmed
    lappend tol 0.0
}

set data(Column.ControlName) [list $cn]
set data(Column.Tolerance) [list $tol]

sdds save /tmp/FPGAbpmTriggers.loc data

if {[catch {exec sddsprocess /tmp/FPGAbpmTriggers.loc -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
}

puts "Comparing against master PV list"

exec sddsselect /tmp/FPGAbpmTriggers.loc /home/helios/oagData/pvdata/iocRecNamesOAG.sdds -pipe=out -match=ControlName=rec_name -nowarning -reuse | sddsconvert -pipe=in ./../DataLogging/FPGAbpmTriggers.loc

file delete -force /tmp/FPGAbpmTriggers.loc

puts "use cppatch to install FPGAbpmTriggers.loc"

