
DIRECTORY
RCMap USING [Base, Index],
SymbolTable USING [Base],
Symbols USING[Type, MDIndex];
RCMapOps: DEFINITIONS = { 


RCMapTable: TYPE;
RCMT: TYPE = LONG POINTER TO RCMapTable;

OuterProc: TYPE = PROC [
stb: SymbolTable.Base, mdi: Symbols.MDIndex, inner: PROC [base: SymbolTable.Base]];

MapMap: TYPE = LONG POINTER TO MapMapObj;  -- built by Include
MapMapObj: TYPE = RECORD [SEQUENCE length: CARDINAL OF MapMapItem];
MapMapItem: TYPE = RECORD [old, new: RCMap.Index];


Create: PROC [zone: UNCOUNTED ZONE, outerProc: OuterProc м NIL, expansionOK: BOOL м FALSE] RETURNS [RCMT];

Destroy: PROC [rcmt: RCMT] RETURNS [RCMT];

GetSpan: PROC [rcmt: RCMT] RETURNS [base: RCMap.Base, size: CARD];

Acquire: PROC [rcmt: RCMT, stb: SymbolTable.Base, type: Symbols.Type] RETURNS [RCMap.Index];

Include: PROC [rcmt: RCMT, rcmb: RCMap.Base, size: CARD, zone: UNCOUNTED ZONEмNIL]
RETURNS [MapMap];

FindMapMapEntry: PROC [mapMap: MapMap, oldIndex: RCMap.Index]
RETURNS [RCMap.Index];

Enumerate: PROC [base: RCMap.Base, limit: CARD, proc: Visitor] RETURNS [stopped: BOOLEAN];
Visitor: TYPE = PROC [rcmx: RCMap.Index] RETURNS [stop: BOOL м FALSE];

}.


  ╠  
RCMapOps.mesa
Copyright ╙ 1985, 1986, 1987, 1988, 1991 by Xerox Corporation.  All rights reserved.
Russ Atkinson (RRA) July 25, 1988 9:38:08 pm PDT
Satterthwaite April 23, 1986 11:34:52 am PST
TYPEs
OPERATIONs
Create an RCMapTable object.
Note that access to this object is not monitored
Retrieve info about the RCMap.Base
Returns the RCMap.Index of the RCMap for the specified type.
Makes an entry if necessary.
Merges the specified RCMap.Base into the table object.
If zone # NIL, allocates and returns a MapMap 
Does a MapMap lookup: returns the index in the current RCMap.Base that corresponds to the specified index in the RCMap.Base that Include processed.
BEWARE: If you allow expansion of the RCMap Base, you must be careful about concurrent access to the existing Base. In current Cedar, for performance reasons (all accesses to the Base would have to be protected by a monitor), the Cedar runtime does not allow expansion (ERROR if RCMap Base overflows).
Э╩Д  Ц(cedarcode) styleХNewlineDelimiter
Щ codeЪЬЩKЪЬ
╧eЬIЩTJЩ0KЪ╧y,Щ,ЧШ Ъ╧k	Ш	KЪЬЯЬШKЪЬЯЬШKЪЬЯЬШЧЧIheadЪ╧nЬЯЬШKШ ЪЬЩKШ KЪЬЯЬШKЪ
ЯЬЯЬЯЬЯЬЯЬШ(KШ ЪЬЯЬЯЬ7ЯЬШlKШ ЧKЪ
ЬЯЬЯЬЯЬЯЬ╧cШ>KЪЬЯЬЯЬЯЬ	ЯЬЯЬШCKЪЬЯЬЯЬШ2KШ ЧЪЬ
Щ
KШ ЪаЬЯЬЯ	ЬЯЬЯЬЯЬЯЬЯЬЯЬШjKЪЬЩKЩ0KШ ЧKЪ
аЬЯЬЯЬЯЬЯЬШ*KШ Ъ
аЬЯЬЯЬЯЬЯЬШBKЪЬ"Щ"ЧKШ ЪаЬЯЬЯЬ,ЯЬШ\KЪЬ<Щ<KЪЬЩЧKШ ЪаЬЯЬЯЬЯЬЯ	ЬЯЬЯЬ
ШdKЪЬ6Щ6KЪЬ.Щ.ЧKШ ЪаЬЯЬ)ЯЬШTKЪЬУЩУЧKШ Ъ
а	ЬЯЬЯЬЯЬЯЬШZKЪЬ	ЯЬЯЬЯЬЯЬЯЬШFKШ ЧKЪЬШЧKШ KЪЬнЩнKШ KШ Ч ЕЧ    |  
╠  