<> <> <> <> DIRECTORY CD, CDBasics, CDCommands, CDOps, CDOrient, CDRects, CDSequencer, TerminalIO; CDBasicCommands: CEDAR PROGRAM IMPORTS CDCommands, CDOps, CDSequencer, TerminalIO, CDRects, CDBasics = BEGIN AddARect: PROC[design: CD.Design, r: CD.DesignRect, l: CD.Level] = BEGIN ob: CD.ObPtr; sz: CD.DesignPosition _ CDBasics.SizeOfRect[r]; orient: CD.Orientation _ CDOrient.original; IF sz.y> BEGIN InternalAddWire[comm: comm, firstOnly: FALSE] END; ContinueWire: PROC [comm: CDSequencer.Command] = BEGIN InternalAddWire[comm: comm, firstOnly: TRUE] END; InternalAddWire: PROC [comm: CDSequencer.Command, firstOnly: BOOL_FALSE] = <<--this procedure knows EXACTLY the algorithm used for showing>> <<--temporary wires in the cursor part>> BEGIN start: CD.DesignPosition _ comm.sPos; stop: CD.DesignPosition _ comm.pos; wireWidth: CD.DesignNumber _ comm.n; IF wireWidth=0 THEN {AddRect[comm]; RETURN}; TerminalIO.WriteRope["Add wire\n"]; IF --firstHorizontal-- comm.b THEN { IF stop.x<=start.x AND stop.x>=start.x-wireWidth AND (stop.ystart.y+wireWidth) THEN { --crazy vertical wire IF ABS[start.y-stop.y]> IF stop.y>=start.y AND stop.y<=start.y+wireWidth THEN { --horizontal wire stop.y _ start.y+wireWidth; AddARect[comm.design, CDBasics.ToRect[start, stop], comm.l] } ELSE { --L shaped (firsthorizontal) IF start.x<=stop.x THEN {stop.x _ stop.x+wireWidth} ELSE {t: CD.Number=stop.x; stop.x _ start.x; start.x _ t}; stop.y _ start.y+wireWidth; AddARect[comm.design, CDBasics.ToRect[start, stop], comm.l]; IF firstOnly THEN RETURN; start.x _ comm.pos.x; stop.y _ comm.pos.y; stop.x _ start.x+wireWidth; AddARect[comm.design, CDBasics.ToRect[start, stop], comm.l]; } } ELSE { -- NOT firstHorizontalVC -- IF stop.y<=start.y AND stop.y>=start.y-wireWidth AND (stop.xstart.x+wireWidth) THEN { --crazy horizontal wire IF ABS[stop.x-start.x]> IF stop.x>=start.x AND stop.x<=start.x+wireWidth THEN { --vertical wire stop.x _ start.x+wireWidth; AddARect[comm.design, CDBasics.ToRect[start, stop], comm.l] } ELSE { --L shaped (firstVertical) IF start.y<=stop.y THEN {stop.y _ stop.y+wireWidth} ELSE {t: CD.Number = stop.y; stop.y _ start.y; start.y _ t}; stop.x _ start.x+wireWidth; AddARect[comm.design, CDBasics.ToRect[start, stop], comm.l]; IF firstOnly THEN RETURN; start.y _ comm.pos.y; stop.y _ start.y+wireWidth; stop.x _ comm.pos.x; AddARect[comm.design, CDBasics.ToRect[start, stop], comm.l]; } } END; DeleteSelected: PROC [comm: CDSequencer.Command] = BEGIN TerminalIO.WriteRope["Delete selected "]; CDCommands.DeleteSelected[comm.design]; TerminalIO.WriteLn[]; END; DeletePointed: PROC [comm: CDSequencer.Command] = BEGIN TerminalIO.WriteRope["Delete pointed "]; CDCommands.DeletePointed[comm.design, comm.pos]; TerminalIO.WriteLn[]; END; Undelete: PROC [comm: CDSequencer.Command] = BEGIN TerminalIO.WriteRope["Undelete\n"]; CDCommands.Undelete[comm.design] END; AbortCommand: PROC [comm: CDSequencer.Command] = BEGIN TerminalIO.WriteRope["Try to abort current command\n"]; CDSequencer.AbortTheCommand[comm.design] END; CDSequencer.ImplementCommand[$AbortCommand, AbortCommand,, dontQueue]; CDSequencer.ImplementCommand[$DrawRect, AddRect]; CDSequencer.ImplementCommand[$DrawWire, AddWire]; CDSequencer.ImplementCommand[$ContinueWire, ContinueWire]; CDSequencer.ImplementCommand[$DeleteS, DeleteSelected]; CDSequencer.ImplementCommand[$DeleteP, DeletePointed]; CDSequencer.ImplementCommand[$Undel, Undelete]; END.