-- File: DisjointIODefs.mesa
-- Written by Martin Newell/Dan Fitzpatrick February 1981
-- Last edited: August 27, 1981 3:34 PM

DIRECTORY

DisjointTypes: FROM "DisjointTypes" USING [Symbol];

DisjointIODefs: DEFINITIONS =
BEGIN
OPEN DisjointTypes;

CIFInput: PUBLIC PROCEDURE[allSymbols: BOOLEAN, parent: Symbol];
-- Get layout from Magic database and make direct calls on Disjoint
-- allSymbols is true for ALL symbols, false for REFERENCED only
-- mainline will be hung on parent

CIFOutput: PUBLIC PROCEDURE [symbol: Symbol, callOnce: BOOLEAN, fileName: STRING];

WriteLongDecimal: PUBLIC PROCEDURE[n: LONG INTEGER];

WriteFloat: PUBLIC PROCEDURE[r: REAL];

PrintSymbols: PUBLIC PROCEDURE;

END.