1 #----------------------------------------------------------------------

     2 #

     3 #  StreamDevice protocol file for a reading/setting selected elements

     4 #  from a Varian XGS-600 pressure gauge controller

     5 #

     6 #  2013-01-10  J.Priller  original version

     7 #

     8 #----------------------------------------------------------------------

     9 

    10 Terminator = CR;

    11 

    12 # getUnits(address)

    13 getUnits {

    14   out "#\$113";

    15   in ">%d";

    16 }

    17 

    18 # getPressure(address,chan)

    19 getPressure {

    20   out "#\$102\$2";

    21   in ">%g";

    22 }

    23 

    24 # send a raw command

    25 sendRawCommand {

    26   out "%s";

    27 }

    28 

    29 # send a raw query (needs argument for PV to receive reply)

    30 sendRawQuery {

    31   ExtraInput = Ignore;

    32   out "%s";

    33   in  "%(\$1)40c";

    34 }

    35 

    36 

    37