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

#APSStandardSetup
set pv [lindex $argv 0]
set value [lrange $argv 1 end]

set curr [lindex [exec caget $pv] 1]

if [llength $value]>1 {
    set setval 2
    if [catch { eval exec caput ${pv}.values $value} result] {
        puts stderr "Error seting values to $pv.values: $result"
        exit 1
    }
    set value [expr $curr+1.0e-9]
    
} else {
    set setval 1
    if {$value==$curr} {
        set value [expr $curr + 1.0e-9]
    }
}
if [catch {exec caput $pv $value
    exec caput $pv.set $setval } result] {
    puts stderr "Error set $pv: $result"
    exit 1
}

exit 0
