-- File DJExtFlattenDefs.mesa
-- Written by Martin Newell/Dan Fitzpatrick, July 1981
-- Last updated: July 15, 1981 2:50 PM

DIRECTORY
DisjointTypes: FROM "DisjointTypes" USING [Symbol];

DJExtFlattenDefs: DEFINITIONS =
BEGIN
OPEN DisjointTypes;

Flatten: PUBLIC PROCEDURE [symbol: Symbol];

WriteLongDecimal: PUBLIC PROCEDURE [n:LONG UNSPECIFIED];

WriteCIFUnits: PUBLIC PROCEDURE [r:REAL];

DeleteFile: PUBLIC PROCEDURE [s:STRING];

END.