DIRECTORY FileSegment USING [Pages, Span, nullPages, nullSpan, voidPages], SymbolPack; 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]; }. βSymbolTable.mesa Copyright c 1985 by Xerox Corporation. All rights reserved. Satterthwaite on May 24, 1982 9:13 am Rovner on June 30, 1983 10:21 am Russ Atkinson (RRA) January 31, 1985 1:10:24 pm PST TYPEs ERRORs PROCs Κ|˜codešœ™Kšœ Οmœ1™