DIRECTORYCD,Rope USING [ROPE];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.Position _ [0, 0], -- final position of commandsPos: CD.Position _ [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];QuitCommand: PROC [message: Rope.ROPE];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,  July 8, 1985 4:24:50 pm PDTExecuting and queueing commands--doQueueAndMark: mark the design as changed--the queued executions are also forked--if design#NIL replaces comm.design--proc must be global --To transfer data to proc use: "comm: NEW[CommandRec _ [data: ..]]" --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--the design has been changed; it should be saved some time again...--write message and terminates execution of the command of this process--never returns--called from any process--checks if the current command on design has been aborted--IF Aborted[design] THEN SIGNAL TerminalIO.UserAbortÊ  ˜ šœ*™*Jšœ
Ïmœ7™BJšœ,™,Jšœ=™=J™ J™—J˜ šÏk	˜	Jšž˜Jšœžœžœ˜J˜ —JšÏnœžœžœ˜!Jšž˜J˜ Jšœ	žœžœ˜šœžœžœ˜Jšœžœžœ˜Jšœžœ
žœ˜Jšœžœ	žœ
˜Jšœžœ˜JšœžœÏc˜7Jšœžœ 8˜TJšœžœžœ
˜%Jšœžœžœ˜Jšœžœžœ A˜QJšœžœžœ "˜3Jš
œ	žœžœžœžœ ˜TJ˜—Jšœžœžœ
˜"šœžœ4˜EJšœ,™,Jšœ'™'—J˜ Jšœžœžœ#˜@J˜ J˜ š
Ÿœžœžœ
žœ
žœ3˜~Jšœ$™$Jšœ™JšœE™E—J˜ šŸœžœžœ
žœ	žœžœžœ#˜†Jšœ ™ Jšœ$™$—J˜ š
Ÿœžœžœžœžœ*˜xJšœ6™6JšœG™GJšœQ™QJšœ>™>Jšœ;™;—J˜ šŸœžœžœžœ˜8šžœžœžœ˜'Jšœ™——J˜ šŸœžœ
žœ	˜&JšœD™D—J˜ šŸœžœžœ˜'JšœG™GJšœ™J˜ —šŸœžœ
žœ	˜*Jšœ™—J˜ š
Ÿœžœ
žœ	žœžœ˜1Jšœ:™:—J˜ šŸœžœ
žœ
˜(Jš 5™5—J˜ Jšžœ˜— …—    ö  ©  