DIRECTORY FileSegment: TYPE USING [Pages, Span, nullPages, nullSpan, voidPages], SymbolPack: TYPE; SymbolTable: DEFINITIONS = { 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]; Missing: ERROR [handle: SymbolTable.Handle]; IllegalBase: ERROR [base: SymbolTable.Base]; Locked: ERROR [handle: SymbolTable.Handle, nLocks: NAT]; 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]; }. ž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 TYPEs ERRORs PROCs Êm˜Jšœ™Jšœ6™6Jšœ6™6˜šÏk ˜ Jšœ œœ/˜FJšœ œ˜—J˜Jšœ œ˜˜J˜Jšœ™šœœ˜!J˜+Jšœ-Ïc˜