DIRECTORY CD, CDOps, CDAtomicObjects, CDSequencer, TerminalIO, CMos; CMosBuriedContactsCommands: CEDAR PROGRAM IMPORTS CDAtomicObjects, CDOps, CDSequencer, TerminalIO, CMos = BEGIN lambda: CD.Number = CMos.lambda; CreateBurCon: PROC [comm: CDSequencer.Command] = BEGIN ob: CD.Object; kind: ATOM _ $bad; TerminalIO.WriteRope["Create buried contact\n"]; SELECT TerminalIO.RequestSelection[ label: "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.WriteRope["not done\n"] ELSE CDOps.IncludeObjectI[design: comm.design, ob: ob, location: comm.pos, orientation: 0] END; ImplCommands: PROC [] = BEGIN CDSequencer.ImplementCommand[$DrawNBurCon, CreateBurCon, CMos.cmos]; END; ImplCommands[]; END. CMosBuriedContactsCommands.mesa (part of Chipndale) Copyright c 1983, 1985 by Xerox Corporation. All rights reserved. by Christian Jacobi, June 24, 1983 5:03 pm last edited Christian Jacobi, March 19, 1986 12:13:04 pm PST 5 => kind _ $cross; 6 => kind _ $difT; Ê’˜šœ4™4Jšœ Ïmœ7™BJšœ+™+Jšœ<™<—J˜šÏk ˜ Jšžœ˜J˜J˜J˜ J˜ J˜J˜—šÏbœžœžœ˜*Jšžœ9˜@—Jšž˜J˜Jšœžœ˜ J˜šÏn œžœ˜0Jšž˜Jšœžœ˜Jšœžœ˜Jšœ0˜0šžœ˜#Jšœ˜Jšœžœ(˜4J˜Jšž˜Jšœ˜Jšœ˜Jšœ˜Jšœ˜Jšœ™Jšœ™Jšžœ˜—JšœJ˜Jšžœžœž˜Jšœ"˜"—šž˜JšœU˜U—Jšžœ˜J˜—š  œžœ˜Jšž˜JšœD˜DJšžœ˜J˜—J˜Jšžœ˜J˜—…—¼\