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; 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. CMosBuriedContactsCommands.mesa (part of Chipndale) Copyright c 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 5 => kind _ $cross; 6 => kind _ $difT; Κr˜šœ4™4Jšœ Οmœ7™BJšœ4™4Icode™A—J˜šΟk ˜ Jšžœ˜J˜J˜J˜ J˜J˜ J˜J˜—šΟbœžœžœ˜*JšžœI˜P—Jšž˜J˜Jšœžœ˜ J˜šΟn œžœ˜0Jšž˜Jšœžœ˜Jšœžœ˜Jšœ.˜.šžœ˜Jšœ˜Jšœžœ(˜4J˜Jšž˜Jšœ˜Jšœ˜Jšœ˜Jšœ˜Jšœ™Jšœ™Jšžœ˜—JšœJ˜Jšžœžœž˜Jšœ ˜ —šž˜JšœJ˜J—Jšžœ˜J˜—JšœD˜DJšžœ˜J˜—…—”"