[Indigo]<Cedar>BCDStuff>SymbolTable.mesa!1

file SymbolTable.mesa

last modified by Satterthwaite on May 24, 1982 9:13 am

last modified by Paul Rovner on June 30, 1983 10:21 am

DIRECTORY

FileSegment: TYPE USING [Pages, Span, nullPages, nullSpan, voidPages],

SymbolPack: TYPE;

SymbolTable: DEFINITIONS = {

TYPEs

Handle: TYPE = FileSegment.Pages;

nullHandle: Handle = FileSegment.nullPages;

voidHandle: Handle = FileSegment.voidPages; -- used as flag

anySpan: FileSegment.Span = FileSegment.nullSpan; -- wild card for Forget

Base: TYPE = POINTER TO FRAME[SymbolPack];

ERRORs

Missing: ERROR [handle: SymbolTable.Handle];

IllegalBase: ERROR [base: SymbolTable.Base];

Locked: ERROR [handle: SymbolTable.Handle, nLocks: NAT];

PROCs

Acquire: PROC [handle: SymbolTable.Handle] RETURNS [SymbolTable.Base];

Release: PROC [base: SymbolTable.Base];

Forget: PROC [handle: SymbolTable.Handle];

BaseToHandle: PROC [base: SymbolTable.Base] RETURNS [SymbolTable.Handle];

CacheSize: PROC RETURNS [pages: CARDINAL];

SetCacheSize: PROC [pages: CARDINAL];