forked from epics_driver_modules/motorBase
mp49
45 lines
1.0 KiB
Plaintext
Executable File
45 lines
1.0 KiB
Plaintext
Executable File
####################################################
|
|
#
|
|
# Template for executing TCL script on an XPS.
|
|
# Uses parameters in model 3 XPS driver (XPSController).
|
|
#
|
|
# Matthew Pearson
|
|
# July 2013
|
|
#
|
|
# Macros:
|
|
# $(P) - PV name prefix
|
|
# $(R) - PV base record name
|
|
# $(PORT) - asyn port for the controller
|
|
# $(ADDR) - asyn address (normally 0)
|
|
# $(TIMEOUT) - asyn timeout
|
|
#
|
|
####################################################
|
|
|
|
# ///
|
|
# /// Name of the TCL script to execute
|
|
# ///
|
|
record(waveform, "$(P)$(R)TCLScript")
|
|
{
|
|
field(DESC, "Name of the TCL script")
|
|
field(PINI, "YES")
|
|
field(DTYP, "asynOctetWrite")
|
|
field(INP, "@asyn($(PORT),$(ADDR),$(TIMEOUT))XPS_TCL_SCRIPT")
|
|
field(FTVL, "CHAR")
|
|
field(NELM, "256")
|
|
info(autosaveFields, "VAL")
|
|
}
|
|
|
|
# ///
|
|
# /// Execute the TCL script (non blocking)
|
|
# ///
|
|
record(bo, "$(P)$(R)TCLScriptExecute")
|
|
{
|
|
field(DESC, "Execute TCL Script")
|
|
field(DTYP, "asynInt32")
|
|
field(OUT, "@asyn($(PORT),$(ADDR),$(TIMEOUT))XPS_TCL_SCRIPT_EXECUTE")
|
|
field(ZNAM, "TCL Execute")
|
|
field(ONAM, "TCL Execute")
|
|
}
|
|
|
|
|