file TableCommand.mesa
last edited by Satterthwaite, July 2, 1982 3:59 pm
Last Edited by: Maxwell, August 8, 1983 11:26 am
DIRECTORY
FileSegment: TYPE USING [Pages],
IO: TYPE USING [STREAM],
Rope: TYPE USING [ROPE],
TimeStamp: TYPE USING [Stamp];
TableCommand: DEFINITIONS = {
from ModuleMaker (utilities)
CreateBCDStream: PROC [
in: IO.STREAM,
modId, interfaceId: Rope.ROPE,
altoCode: BOOL ← FALSE]
RETURNS [output: IO.STREAM];
FinishBcdStream: PROC;
from ModuleMaker
MakeModule: PROC [inputFile, moduleId, interfaceId: Rope.ROPE, altocode: BOOL];
from StringCompactor
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];
from TableSymbols
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];
from TableControl
CreateTime: PROC [s: IO.STREAM] RETURNS [time: LONG INTEGER];
GenerateVersion: PROC RETURNS [version: TimeStamp.Stamp];
}.