#!/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 args $argv

set filename ""
set instrumentName 164.54.1.168
APSParseArguments {filename instrumentName}
set errorMessage "Usage: $argv0 -filename <outputFilename> -ring <PAR|SR>" 

if {[string length $filename ] == 0 } {
    puts stderr $errorMessage
    exit
}

#puts [exec date]
set PeerPort 1234 

if {[catch {socket $instrumentName $PeerPort} sid]} {
    puts "Error: Socket Could not be created: $sid"
    exit
}
fconfigure $sid -buffering line

set fid [open $filename "w+"]
foreach chan {1 2 3 4} {
 #   puts  ":CHAN${chan}:SET?"
    puts $sid ":CHAN${chan}:SET?"
    puts $sid "++read eoi"
    gets $sid response
    puts $fid $response
}

foreach comm {"TIM:SET?"  ":TRIG:SET?"} {
  #  puts $comm
    puts $sid $comm
    puts $sid "++read eoi"
    gets $sid response
    puts $fid $response
}
set commandList { ":ACQ:TYPE" ":WAV:SOUR" ":WAV:FORM"}
foreach comm $commandList {
    puts $sid "${comm}?"
    puts $sid "++read eoi"
    gets $sid response
    puts $fid "$comm $response"
}


close $fid
close $sid
exit








