##########################################################################
# Copyright (c) 2011 Lawrence Berkeley National Laboratory, Accelerator
# Technology Group, Engineering Division
# This code is distributed subject to a Software License Agreement found
# in file LICENSE that is included with this distribution.
##########################################################################

#@writetimeout { disconnect; }
#replytimeout { disconnect; }
#readtimeout  { disconnect; }
#mismatch     { disconnect; }

ReplyTimeout = 600;
ReadTimeout = 100;
InTerminator = "\n";
OutTerminator = "\n";

getIDN {
    out "*IDN?";
    in "%\$1[^\r\n]";
    ExtraInput = Ignore;
}
cmd {
    out "\$1";
}

setArmCount {
    out "\$1 %d";
#    @init { out "\$1?"; in "%d"; }
}

getArmCount {
    out "\$1?";
    in "%d";
    ExtraInput = Ignore;
}

setD {
    out "\$1 %d";
    @init { out "\$1?"; in "%d"; }
}

getD {
    out "\$1?";
    in "%d";
    ExtraInput = Ignore;
}

setF {
    out "\$1 %f";
    @init { out "\$1?"; in "%f"; }
}
getF {
    out "\$1?";
    in "%f";
    ExtraInput = Ignore;
}

setRange {
    out "RANG 2E-%d";
    @init { out "RANG?"; in "%*[^E]E-%d"; }
}
getRange {
    out "RANG?";
    in "%*[^E]E-%d";
    ExtraInput = Ignore;
}

setArmSource {
    out "ARM:SOUR %{IMM|BUS|TIM|MAN|TLIN|NST|PST|BST}";
    @init { out "ARM:SOUR?"; in "%{IMM|BUS|TIM|MAN|TLIN|NST|PST|BST}"; }
}
getArmSource {
    out "ARM:SOUR?";
    in "%{IMM|BUS|TIM|MAN|TLIN|NST|PST|BST}";
    ExtraInput = Ignore;
}
setTriggerSource {
    out "TRIG:SOUR %{IMM|TLIN}";
    @init { out "TRIG:SOUR?"; in "%{IMM|TLIN}"; }
}
getTriggerSource {
    out "TRIG:SOUR?";
    in "%{IMM|TLIN}";
    ExtraInput = Ignore;
}
cancel {
    out "\030ABOR\r";
    in "%*s";
    ExtraInput = Ignore;
}

#
# Measure current
#
measureCurrent {
    ReplyTimeout = 800;
    out "READ?";
    in "%f";
    ExtraInput = Ignore;
    @init { out "FORM:ELEM READ;CONF:CURR:DC"; }
}
fetchBuffered {
    ReplyTimeout = 10000;
    Separator = ",";
    out "FETC?";
    in "%f";
    ExtraInput = Ignore;
}

#
# Source
#
#not on 6485
#setIlimit {
#    out "SOUR:VOLT:ILIM 2.5E-%d";
#    @init { out "SOUR:VOLT:ILIM?"; in "2.5%*[^E]E-%d"; }
#}
#getIlimit {
#    out "SOUR:VOLT:ILIM?";
#    in "2.5%*[^E]E-%d";
#    ExtraInput = Ignore;
#}
#setSourceRange {
#    out "SOUR:VOLT:RANGE %d";
#    @init { out "SOUR:VOLT:RANGE?"; in "%{1.000000E+01|5.000000E+01|5.000000E+02}"; }
#}
#getSourceRange {
#    out "SOUR:VOLT:RANGE?";
#    in "%{1.000000E+01|5.000000E+01|5.000000E+02}";
#    ExtraInput = Ignore;
#}