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


set counts 1
set args $argv 
APSParseArguments {counts}

set samplePattern [lreplace [exec caget S:P0FB:AcqControlGetWF] 0 1]

set pattern ""
for {set i 0} {$i <432 } {incr i} {
    if {[expr $i+$counts]<432} {
        lappend pattern [lindex $samplePattern [expr $i+$counts]]
    } else {
        lappend pattern [lindex $samplePattern [expr $i+$counts-432]]
    }
}
set tmpRoot /tmp/[APSTmpString]
if [catch {exec sddsmakedataset -pipe=out -col=Waveform,type=long -data=[join $pattern ,] \
             -par=WaveformPV,type=string -data=S:P0FB:AcqControlSetWF \
             | sddsprocess -pipe=in $tmpRoot.pattern -define=col,Index,i_row,type=long } result] {
    puts stderr "Error1: $result"
    exit 1
}
if [catch {exec sddswput $tmpRoot.pattern } result] {
    puts stderr "Error2: error loading pattern: $result"
    exit 1
}
file delete -force $tmpRoot.pattern
#exec caput -m S:P0FB:AcqControlSetWF "$patternString"

exit 0





