spec - Local Sector 7 web page

# Send a bug report to the administrator.def bug ’print "The mail utility will be run for you. Describe your"print "problem to the administrator. When you are done, type ˆD."’{}local ss = unix(sprintf("%s -s \"Bug from %s\" %s", MAIL, USER, ADMIN))printf("Bug report %ssent to %s.", s? "not ":"", ADMIN)# Set something and comment if it has changed.def gpset ’if ($1 != $2) {comment "$2 reset from %g to %g" "$2,$1"$2 = $1}’Reading From Command Filesdo command_fileqdo command_filenewmac# Run a command file# Run a command file without echo# Reread standard command filesSince the do and qdo macros have nearly identical functionality, the commands forboth are placed in a single macro named _do . This macro implements special functions,such as letting a dot stand for the previous command file or searching for acommand file first in the current directory and then in a special command file directory.# "do" a command file.def do ’_do $* do’# Quietly "do" a command file.def qdo ’_do $* qdo’# Run a command file. If not in current directory, look for# file in DO_DIR. Save file name in DOFILE so "do ." works.def _do ’if ($# != 2 || ("$2" != "do" && "$2" != "qdo")) {print "Usage: do file"print " qdo file"exit}if ("$1" == "." && DOFILE == "") {print "No previous do file."exit}130 STANDARD MACRO GUIDE INTERIM WORK-IN-PROGRESS (8/16/01) NOT FOR GENERAL DISTRIBUTION