-- File: DisjointAllocDefs.mesa
-- Written by Martin Newell/Dan Fitzpatrick June 1981
-- Last edited: June 26, 1981  3:22 PM

DIRECTORY

DisjointTypes: FROM "DisjointTypes" USING [DisCell, Rectangle, Instance, Symbol, PIP, Geometry, PropID, PropList];

DisjointAllocDefs: DEFINITIONS =
BEGIN
OPEN DisjointTypes;

MakeSymbol: PUBLIC PROCEDURE [name: STRING, l,b,r,t: REAL] RETURNS[Symbol];

AllocateSymbol: PUBLIC PROCEDURE[] RETURNS[symb: Symbol];

GetSymbol: PUBLIC PROCEDURE[] RETURNS[symb: Symbol];

FreeSymbol: PUBLIC PROCEDURE[symb: Symbol];

FreeMarkedSymbols: PUBLIC PROCEDURE[id: PropID];

LookupSymbol: PUBLIC PROCEDURE [name: STRING] 
RETURNS[s: Symbol];

EnumerateSymbols: PUBLIC PROCEDURE[proc: PROC[s: Symbol]RETURNS[BOOLEAN]]
		RETURNS[BOOLEAN];
--BOOLEAN returns are both abort flags

InsertSymbolList: PUBLIC PROCEDURE[symb: Symbol];

MakeInstance: PUBLIC PROCEDURE[parent: Symbol, name: STRING, x,y: REAL]
		RETURNS[Instance];

AllocateInstance: PUBLIC PROCEDURE[] RETURNS[inst: Instance];

FreeInstance: PUBLIC PROCEDURE[inst: Instance];

MakeGeometry: PUBLIC PROCEDURE[parent: Symbol, layer: CARDINAL, l,b,r,t: REAL]
		RETURNS[Geometry];

AllocateGeometry: PUBLIC PROCEDURE[] RETURNS[g: Geometry];

FreeGeometry: PUBLIC PROCEDURE[g: Geometry];

AllocatePIP: PUBLIC PROCEDURE[] RETURNS[pip: PIP];

FreePIP: PUBLIC PROCEDURE[pip: PIP];

AllocateDisCell: PUBLIC PROCEDURE[] RETURNS[dc: DisCell];

FreeDisCell: PUBLIC PROCEDURE[dc: DisCell];

MakeRectangle: PUBLIC PROCEDURE[l,b,r,t: REAL]
		RETURNS[rec: DisjointTypes.Rectangle];

AllocateRectangle: PUBLIC PROCEDURE[] RETURNS[r: DisjointTypes.Rectangle];

FreeRectangle: PUBLIC PROCEDURE[r: DisjointTypes.Rectangle];

AllocateProp: PUBLIC PROCEDURE[] RETURNS[p: PropList];

FreeProp: PUBLIC PROCEDURE[p: PropList];

PrintAlloc: PUBLIC PROCEDURE;

END.
(1792)\252b18B43b10B67b14B45b9B45b10B35b17B33b12B56b16B118b16B35b12B82b16B47b12B37b12B89b16B44b12B34b11B41b7B31b15B44b11B33b14B76b17B59b13B49b12B44b8B34b10B