<> <> <> <> <> <> DIRECTORY FileSegment USING [Pages], IO USING [STREAM], Rope USING [ROPE], TimeStamp USING [Stamp]; TableCommand: DEFINITIONS = { <> CreateBCDStream: PROC [ in: IO.STREAM, modId, interfaceId: Rope.ROPE, altoCode: BOOL _ FALSE] RETURNS [output: IO.STREAM]; FinishBcdStream: PROC; <> MakeModule: PROC [inputFile, moduleId, interfaceId: Rope.ROPE, altocode: BOOL]; <> CompileStrings: PROC [ inputFile: Rope.ROPE, -- the source file interfaceId: Rope.ROPE, -- exported interface or "SELF" formatId: Rope.ROPE, -- ASCII record declaration moduleId: Rope.ROPE, -- output file compact, altoCode: BOOL] RETURNS [nChars, nStrings: CARDINAL]; <> FindInterface: PROC [id: Rope.ROPE, file: Rope.ROPE _ NIL] RETURNS [version: TimeStamp.Stamp, pages: FileSegment.Pages]; FindItem: PROC [symbols: FileSegment.Pages, item: Rope.ROPE] RETURNS [size, entry: CARDINAL]; BadInterface: ERROR [id: Rope.ROPE]; <> CreateTime: PROC [s: IO.STREAM] RETURNS [time: LONG INTEGER]; GenerateVersion: PROC RETURNS [version: TimeStamp.Stamp]; }.