TableCommand.mesa
Copyright © 1985 by Xerox Corporation. All rights reserved.
Ed Satterthwaite, July 2, 1982 3:59 pm
John Maxwell, August 8, 1983 11:26 am
Doug Wyatt, March 21, 1984 10:24:33 am PST
Russ Atkinson (RRA) March 19, 1985 9:56:05 am PST
DIRECTORY
FileSegment USING [Pages],
IO USING [STREAM],
Rope USING [ROPE],
TimeStamp 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];
}.