CDSequencer.mesa (A Chipndale module)
Copyright © 1983, 1984 by Xerox Corporation. All rights reserved.
by Christian Jacobi June 29, 1983 2:34 pm
last edited by Christian Jacobi February 16, 1984 10:59 am
DIRECTORY
CD;
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.