DIRECTORYCD;CDSequencer: CEDAR DEFINITIONS = BEGINCommand: TYPE = REF CommandRec;CommandRec: TYPE = RECORD [a: ATOM _ NIL,design: CD.Design _ NIL,l: CD.Layer _ 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,b: BOOLEAN _ FALSE,ref: REF _ NIL, --typically describes who issued the command (viewers data field)data: REF _ NIL, --reserved for command implementorfetched: --PRIVATE-- REF READONLY CommDescriptor _ NIL --private for CDSequencerImpl];CommandProc: TYPE = PROC[Command];QueueMethod: TYPE = {doQueueAndMark, doQueue, dontQueue, useDefault};CommDescriptor: TYPE = RECORD [p: CommandProc, qm: QueueMethod];ExecuteProc: PROC [comm: CDSequencer.Command _ NIL, design: CD.Design _ NIL, proc: CommandProc, queue: QueueMethod _ doQueue];ExecuteCommand: PROC [comm: CDSequencer.Command _ NIL, design: CD.Design _ NIL, command: ATOM _ NIL, queue: QueueMethod _ useDefault];ImplementCommand: PROC [a: ATOM, p: CommandProc, technology: CD.Technology_NIL, queue: QueueMethod _ doQueueAndMark];   FetchCommand: PROC [a: ATOM, technology: CD.Technology] RETURNS [REF READONLY CommDescriptor]; MarkChanged: PROC [design: CD.Design];AbortTheCommand: PROC [design: CD.Design];Aborted: PROC [design: CD.Design] RETURNS [BOOL];CheckAborted: PROC [design: CD.Design]; END.   :  CDSequencer.mesa      (A ChipNDale module)Copyright c 1983, 1985 by Xerox Corporation.  All rights reserved.by Christian Jacobi,  June 29, 1983 2:34 pm last edited by Christian Jacobi,  April 24, 1985 11:41:11 am PST--doQueueAndMark: mark the design as changed--the queued executions are also forked--if design#NIL replaces comm.design--if command#NIL replaces comm.a--if design#NIL replaces comm.design--If technology is NIL implement for all technologies.--Reimplementing the same atom in a technology 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 can NOT use.--NIL if not defined--IF Aborted[design] THEN SIGNAL TerminalIO.UserAbort Ê®  ˜ šœ*™*Jšœ
Ïmœ7™BJšœ,™,Jšœ@™@—J˜ šÏk	˜	Jšžœ˜J˜ —JšÏnœžœžœ˜!Jšž˜J˜ Jšœ	žœžœ˜šœžœžœ˜Jšœžœžœ˜Jšœžœ
žœ˜Jšœžœ	žœ
˜Jšœžœ˜JšœžœÏc˜=Jšœžœ 8˜ZJšœžœžœ
˜%Jšœžœžœ˜Jšœžœžœ A˜QJšœžœžœ "˜3Jš
œ	žœžœžœžœ ˜TJ˜—Jšœžœžœ
˜"šœžœ4˜EJšœ,™,Jšœ'™'—J˜ Jšœžœžœ#˜@J˜ J˜ š
Ÿœžœžœ
žœ
žœ3˜~Jšœ$™$—J˜ šŸœžœžœ
žœ	žœžœžœ#˜†Jšœ ™ Jšœ$™$—J˜ š
Ÿœžœžœžœžœ*˜xJšœ6™6JšœG™GJšœQ™QJšœ>™>Jšœ;™;—J˜ šŸœžœžœžœ˜8šžœžœžœ˜'Jšœ™——J˜ JšŸœžœ
žœ	˜&J˜ JšŸœžœ
žœ	˜*Jš
Ÿœžœ
žœ	žœžœ˜1J˜ šŸœžœ
žœ
˜(Jš 5™5—J˜ Jšžœ˜— …—    Ä  ¬  