#!/bin/sh  
# \
exec oagwish "$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)]
APSStandardSetup

set CVSRevisionAuthor "\$Revision: 1.3 $ \$Author: shang $"

after 2000
while {1} {
    if [catch {exec cavget -list=B:diag1:rms:A:region3,PTB:CM:measCurrentCM.VAL -repeat=number=10,pause=1,average -pend=10 -printErrors} valList] {
	puts stderr "Error in reading BTS/PTB charge: $valList"
	exit 1
    }
    set btsCharge [lindex $valList 0]
    set ptbCharge [lindex $valList 1]
    
    if {$ptbCharge < 0.3} {
	#no charge, skip this point remeausre again
	TogglePulsedMagnetEnables -location GuntoBoosterExt
	after 1000
	continue
    } else {
	break
    }
}
puts [expr $btsCharge/$ptbCharge]
exit 0
