CDSequencer.mesa (A Chipndale module)
by Christian Jacobi June 29, 1983 2:34 pm
last edited by Christian Jacobi February 16, 1984 10:59 am
CDSequencer: CEDAR DEFINITIONS =
BEGIN
Command: TYPE = REF CommandRec;
CommandRec:
TYPE =
RECORD [
a: ATOM ← NIL,
design: CD.Design ← NIL,
l: CD.Level ← CD.combined,
n: CD.Number ← 0,
pos: CD.DesignPosition ← [0, 0], -- final position of command
sPos: CD.DesignPosition ← [0, 0], -- special position, start position, (exceptional: size)
orient: CD.Orientation ← CD.original,
ref: REF ← NIL,
b: BOOLEAN ← FALSE,
private: --PRIVATE-- REF CommandPrivate ← NIL
];
CommandProc: TYPE = PROC[Command];
QueueMethod: TYPE = {doQueueAndMark, doQueue, dontQueue, useDefault};
CommandPrivate: PRIVATE TYPE = RECORD [p: CommandProc, qm: QueueMethod];
ExecuteCommand:
PROC [comm: CDSequencer.Command, design:
CD.Design←
NIL, as:
ATOM←
NIL, queue: QueueMethod ← useDefault];
--if as#NIL replaces comm.a
--if design#NIL replaces comm.design
ImplementCommand:
PROC [a:
ATOM, p: CommandProc, technology:
CD.Technology←
NIL, queue: QueueMethod ← doQueueAndMark];
--If technology is NIL implement for all technologies.
--Reimplementing the same atom in a technology it already exists overwrites the command;
--If the same atom is specified for a particular technology and all technologies,
--the more specific implementation wins independent of order.
--There is a (finite, short) list of atoms you MUST NOT use.
--Don't fool with NIL CommandProc's if you don't know exactly how it works.
--(NIL CommandProc's serves too install the list of commands you MUST NOT use.)
AbortTheCommand: PROC [design: CD.Design];
Aborted: PROC [design: CD.Design] RETURNS [BOOL];
CheckAborted:
PROC [design:
CD.Design];
--IF Aborted[design] THEN SIGNAL TerminalIO.UserAbort
END.