CMosBuriedContactsCommands.mesa (part of Chipndale)
Copyright © 1983, 1985 by Xerox Corporation. All rights reserved.
Created by: Christian Jacobi, June 24, 1983 5:03 pm
Last edited by: Christian Jacobi, October 17, 1986 2:09:42 pm PDT
DIRECTORY
CD,
CDOps,
CDAtomicObjects,
CDSequencer,
PopUpSelection,
TerminalIO,
CMos;
CMosBuriedContactsCommands:
CEDAR
PROGRAM
IMPORTS CDAtomicObjects, CDOps, CDSequencer, PopUpSelection, TerminalIO, CMos =
BEGIN
lambda: CD.Number = CMos.lambda;
CreateBurCon:
PROC [comm: CDSequencer.Command] =
BEGIN
ob: CD.Object;
kind: ATOM ← $bad;
TerminalIO.PutRope["Create buried contact\n"];
SELECT PopUpSelection.Request[
header: "burried contact",
choice: LIST["simple", "poly C", "diff I", "diff L"]
]
FROM
1 => kind ← $CBurContS;
2 => kind ← $CBurContPS;
3 => kind ← $CBurContDI;
4 => kind ← $CBurContDL;
5 => kind ← $cross;
6 => kind ← $difT;
ENDCASE => kind ← $bad;
ob ← CDAtomicObjects.CreateAtomicOb[kind, [1, 1], comm.design.technology];
IF ob=
NIL
THEN
TerminalIO.PutRope["not done\n"]
ELSE
[] ← CDOps.IncludeObjectI[design: comm.design, ob: ob, location: comm.pos]
END;
CDSequencer.ImplementCommand[$DrawNBurCon, CreateBurCon, CMos.cmos];
END.