#!/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)]
APSDebugPath

# $Log: not supported by cvs2svn $

# calculates the rf frequency matrix to correct the energy
# change of the ring.
set dataDir /home/helios/oagData/sr/lattices/default
set targetDir /home/helios/oagData/sr/rfOrbitControllaw/lattices/default/refMatrices

cd $targetDir
set dateStamp [clock format [clock seconds] -format %Y-%m%d]
set targetFile [APSNextGenerationedName -name h.$dateStamp.00 \
                  -separator . -newFile 1]

set rfFrequency 351e6

if [catch {exec sddsprocess $dataDir/aps.twi -pipe=out \
             -match=col,ElementName=*P4,ElementName=*P5,| \
             "-def=col,RFS:Hp8657RefFreqC,etax 1000 * alphac / $rfFrequency / chs" \
             | sddsconvert -pipe=in $targetFile \
             -dele=para,* \
             -retain=col,ElementName,RFS:Hp8657RefFreqC \
             -rename=col,ElementName=BPMName \
         } result] {
    puts stderr $result
    exit 1
}


if [catch {file delete h.default
    exec ln -s $targetFile h.default \
         } result] {
    puts stderr $result
    exit 1
}
