DIRECTORY CMosB, CMosBObjects, CDAtomicObjects, CD; CMosBObjectsImpl: CEDAR PROGRAM IMPORTS CDAtomicObjects, CMosB EXPORTS CMosBObjects = BEGIN SDiff: PROC[l: CD.Layer] RETURNS [CD.Layer] = BEGIN SELECT l FROM CMosB.wpdif, CMosB.wndif, CMosB.pdif, CMosB.ndif => RETURN [l]; ENDCASE => RETURN [CMosB.wpdif] END; XDiff: PROC[l: CD.Layer] RETURNS [CD.Layer] = BEGIN SELECT l FROM CMosB.wpdif, CMosB.wndif, CMosB.pdif, CMosB.ndif, CMosB.nwellCont, CMosB.pwellCont => RETURN [l]; ENDCASE => RETURN [CMosB.wpdif] END; CreatePolyCon: PUBLIC PROC [] RETURNS [CD.Object] = BEGIN RETURN [CDAtomicObjects.CreateAtomicOb[$C2SimpleCon, [0, 0], CMosB.cmosB, CMosB.pol]]; END; CreateDifCon: PUBLIC PROC [difLayer: CD.Layer] RETURNS [CD.Object] = BEGIN RETURN [CDAtomicObjects.CreateAtomicOb[$C2SimpleCon, [0, 0], CMosB.cmosB, XDiff[difLayer]]]; END; CreateDifShortCon: PUBLIC PROC [difLayer: CD.Layer] RETURNS [CD.Object] = BEGIN RETURN [CDAtomicObjects.CreateAtomicOb[$C2DifShortCon, [0, 0], CMosB.cmosB, SDiff[difLayer]]]; END; CreateVia: PUBLIC PROC [] RETURNS [CD.Object] = BEGIN RETURN [CDAtomicObjects.CreateAtomicOb[$C2Via, [0, 0], CMosB.cmosB]]; END; CreateTransistor: PUBLIC PROC [size: CD.Position, difLayer: CD.Layer] RETURNS [CD.Object] = BEGIN RETURN [CDAtomicObjects.CreateAtomicOb[$C2Trans, size, CMosB.cmosB, XDiff[difLayer]]]; END; CreateAngleTransistor: PUBLIC PROC [size: CD.Position, difLayer: CD.Layer] RETURNS [CD.Object] = BEGIN RETURN [CDAtomicObjects.CreateAtomicOb[$C2LTrans, size, CMosB.cmosB, XDiff[difLayer]]]; END; CreateLargePolyCon: PUBLIC PROC [sz: CD.Position] RETURNS [CD.Object] = BEGIN RETURN [CDAtomicObjects.CreateAtomicOb[$C2LargeSimpleCon, sz, CMosB.cmosB, CMosB.pol]]; END; CreateLargeDifCon: PUBLIC PROC [sz: CD.Position, difLayer: CD.Layer] RETURNS [CD.Object] = BEGIN RETURN [CDAtomicObjects.CreateAtomicOb[$C2LargeSimpleCon, sz, CMosB.cmosB, XDiff[difLayer]]]; END; CreateLargeVia: PUBLIC PROC [sz: CD.Position] RETURNS [CD.Object] = BEGIN RETURN [CDAtomicObjects.CreateAtomicOb[$C2LargeVia, sz, CMosB.cmosB]]; END; END. ςCMosBObjectsImpl.mesa (part of ChipNDale) Copyright c 1983, 1985 by Xerox Corporation. All rights reserved. Created by Christian Jacobi, May 3, 1983 11:22 am Last edited by: Christian Jacobi, September 18, 1986 3:06:36 pm PDT Κ4˜šœ0™0Jšœ Οmœ7™BJšœ2™2Icode™C—J˜šΟk ˜ Jšœ˜Jšœ ž˜ J˜Jšžœ˜—J˜šΟnœžœž˜Jšžœ˜Jšžœ˜—Jšž˜J˜š Ÿœžœžœžœžœ ˜-Jšž˜šžœž˜ Jšœ4žœ˜?Jšžœžœ˜—Jšžœ˜—J˜š Ÿœžœžœžœžœ ˜-Jšž˜šžœž˜ JšœVžœ˜aJšžœžœ˜—Jšžœ˜—J˜š Ÿ œžœžœžœžœ ˜3Jšž˜JšžœP˜VJšžœ˜—J˜š Ÿ œž œ žœžœžœ ˜DJšž˜JšžœV˜\Jšžœ˜—J˜š Ÿœžœžœ žœžœžœ ˜IJšž˜JšžœX˜^Jšžœ˜—J˜šŸ œž œžœžœ ˜/Jšž˜Jšžœ?˜EJšžœ˜—J˜š Ÿœž œžœžœžœžœ ˜[Jšž˜JšžœP˜VJšžœ˜—J˜š Ÿœž œžœžœžœžœ ˜`Jšž˜JšžœQ˜WJšžœ˜—J˜š Ÿœž œžœ žœžœ ˜GKšž˜JšžœQ˜WKšžœ˜—K˜š Ÿœž œžœžœžœžœ ˜ZKšž˜JšžœW˜]Kšžœ˜—K˜š Ÿœž œžœ žœžœ ˜CKšž˜Jšžœ@˜FKšžœ˜—K˜Jšžœ˜J˜—…— <