##########################################################################

# 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 = 1200;

InTerminator = "\n";

OutTerminator = "\n";

getIDN {

    out "*IDN?";

    in "%\$1[^\r\n]";

    ExtraInput = Ignore;

}

cmd {

    out "\$1";

}

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 = 5000;

    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

#

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;

}