SCLibGen.mesa
Copyright Ó 1986, 1987 by Xerox Corporation. All rights reserved.
Created by Christian Jacobi, June 2, 1986 3:48:19 pm PDT
Last Edited by: Christian Jacobi July 11, 1986 10:22:49 am PDT
Bertrand Serlet March 30, 1987 10:40:52 pm PST
DIRECTORY
CD, CDGenerate, Rope;
SCLibGen: CEDAR DEFINITIONS =
BEGIN
GeneratorProc: TYPE = CDGenerate.GeneratorProc;
ContactM2: PROC [pos1, pos2, pos3, pos4, pos5, pos6, pos7, pos8, pos9, pos10, pos11, pos12, pos13, pos14, pos15, pos16, pos17, pos18, pos19, pos20, pos21, pos22: INT ← -1];
Pins: PROC [cnt: INT ← 1, p1, p2, p3, p4, p5, p6, p7, p8, p9, p10, p11, p12, p13, p14, p15, p16, p17, p18, p19, p20, p21, p22: Rope.ROPE ← NIL];
MakeCont: PROC [row: INT, start: INT ← 0, n: INT ← 1, back: BOOL ← FALSE];
MakeVia: PROC [row: INT, start: INT𡤀, n: INT ← 1, back: BOOL ← FALSE];
HorizontalM: PROC [rowL, rowR: INT, h: INT, back: BOOL←FALSE, shortStart: BOOL←TRUE, shortEnd: BOOL←TRUE];
PassMetall: PROC [row: INT];
PassMs: PROC [r1, r2, r3, r4, r5, r6: INT ← -1];
VerticalM: PROC [row: INT, h1, h2: INT, front: BOOL←FALSE];
Setup:
PROC [design:
CD.Design, x1, x2, x3, x4, x5, x6, x7, x8, x9, x10, x11, x12, x13, x14, x15, x16, x17, x18, x19, x20, x21, x22: Rope.
ROPE←
NIL];
-- And sets P
SetN: PROC [];
PinOrder: PROC [r: Rope.ROPE←NIL];
Finish: PROC [name: Rope.ROPE←NIL] RETURNS [ob: CD.Object];
Reset: PROC [];
Register: PROC [name: Rope.ROPE, proc: CDGenerate.GeneratorProc];
--private
SeeMe: PROC [p: PROC[CD.Object]];
END.