comment format args # Send a comment to output devices
qcomment format args # Send comment to file and printer
prcmd command # Print the output of a command
savcmd command file # Save a command to a file
savmac macro_name file # Save a macro to a file
# Print a comment on the screen, printer and data file.
def comment '
printf("\n%s. $1.\n", date(), $2)
qcomment "$1" "$2"
'
# Print a comment on the printer and data file.
def qcomment '
if (PRINTER != ")
fprintf(PRINTER,"\n%s. $1.\n", date(), $2)
if (DATAFILE != ")
fprintf(DATAFILE, "#C %s. $1.\n", date(), $2)
'
# Have output of any command sent to the printer.
# Commands are all on one line to avoid outputting prompts.
def prcmd 'onp;offt;printf("\n%s\n","$*");ont;$*
offp'
# Have output of any command sent to a file.
def savcmd '
if ($# != 2) {
print "Usage: savcmd command filename"
exit
}
on("$2");offt;printf("\n%s\n","$1");ont;$1
close("$2")
'
# Save a macro definition to a file.
def savmac '
if ($# != 2) {
print "Usage: savmac macro_name filename"
exit
}
on("$2"); offt
prdef $1
ont; close("$2")
'