-- RTSymbolsPrivate.mesa
-- Last Modified By Paul Rovner On December 21, 1982 2:42 pm
DIRECTORY
BcdDefs USING[VersionStamp],
BcdOps USING[BcdBase],
Rope USING[ROPE],
RTSymbolDefs USING[SymbolTableHandle, nullHandle],
RTTypesBasicPrivate USING[SymbolTableIndex];
RTSymbolsPrivate: DEFINITIONS
= BEGIN OPEN Rope, RTSymbolDefs;
AcquireSTHFromSTX: PROC[stx: RTTypesBasicPrivate.SymbolTableIndex]
RETURNS[sth: SymbolTableHandle ← nullHandle,
moduleName: ROPE ← NIL];
GetSTHForModule: PROC[stamp: BcdDefs.VersionStamp,
fileName: ROPE, -- maybe NIL
moduleName: ROPE -- maybe NIL
]
RETURNS[sth: SymbolTableHandle ← nullHandle];
AcquireBCDFromVersion: PROC[versionStamp: BcdDefs.VersionStamp,
shortFileNameHint: ROPE ← NIL]
RETURNS[bcd: BcdOps.BcdBase];
ReleaseBCD: PROC[bcd: BcdOps.BcdBase];
END.