DIRECTORYPrincOps USING [ControlLink];DragomanRefTab: CEDAR DEFINITIONS = BEGIN  Ref: TYPE = REF RefTabRep;RefTabRep: PUBLIC TYPE = MONITORED RECORD [mod: CARDINAL, size: INT, data: REF Seq];Seq: TYPE = RECORD[nodes: SEQUENCE max: SeqIndex OF Node];SeqIndex: TYPE = CARDINAL[0..4000);Node: TYPE = REF NodeRep;NodeRep: TYPE = RECORD [key: Key, val: Val, next: Node];  Key: TYPE = RECORD [    link: PrincOps.ControlLink, fill: CARDINAL _ 0];  Val: TYPE = REF ValRec;ValRec: TYPE = RECORD [lCount: LONG CARDINAL, time: LONG CARDINAL];  Create: PROC [mod: SeqIndex _ 17] RETURNS [Ref];    -- creates new table with suggested hash size  GetSize: PROC [x: Ref] RETURNS [INT];    -- returns number of key-value pairs in table  Fetch: PROC [x: Ref, key: Key] RETURNS [found: BOOLEAN, val: Val];    -- looks up key in table, returns associated value (if any)    -- if found is TRUE, val is value associated with given key    -- if found is FALSE, val is NIL  Replace: PROC [x: Ref, key: Key, val: Val] RETURNS [BOOLEAN];    -- returns TRUE after overwriting old value for existing key-value pair    -- if no previous value for key, returns FALSE without inserting new pair    Store: PROC [x: Ref, key: Key, val: Val] RETURNS [BOOLEAN];    -- returns TRUE after inserting new pair    -- returns FALSE after overwriting old value for existing key-value pair  Insert: PROC [x: Ref, key: Key, val: Val] RETURNS [BOOLEAN];    -- returns TRUE after inserted new pair    -- if previous value existed for key, returns FALSE without changing value  Delete: PROC [x: Ref, key: Key] RETURNS [BOOLEAN];    -- deletes key-value pair associated with given key    -- returns TRUE if deletion actually occurred, FALSE if no such key  Pairs: PROC [x: Ref, action: EachPairAction] RETURNS [BOOLEAN];    -- enumerates pairs currently in symbol table in unspecified order    -- pairs inserted/deleted during enumeration may or may not be seen    -- applies action to each pair until action returns TRUE or no more pairs    -- returns TRUE if some action returns TRUE  EachPairAction: TYPE = PROC [key: Key, val: Val] RETURNS [quit: BOOLEAN];  END.   А  DragomanRefTab.MesaLast Edited by: Sweet, February 4, 1985 1:03:00 pm PSTBertrand Serlet July 27, 1985 10:53:43 pm PDT Э╩°  Ц"Mesa" styleШ procЪЬ╧cЩKЪЬ6Щ6IcodeЩ-ЧKШ Ъ╧k	Ш	KЪЬ	ЮЬШЧЪЬЮЬЮЬЮЬ	ЮЬЮЬШHЪЬЮЬЮЬЮ	ЬЮЬЮЬЮЬЮЬШTЪ	ЬЮЬЮЬЮЬЮЬШ:LЪЬ
ЮЬЮЬ
Ш#ЧLЪЬЮЬЮЬ	ШLЪЬ	ЮЬЮЬ"Ш8ЧЧЪЬ	ЮЬЮЬ)ЮЬЮЬЮЬШgKЪyЬЮЬЮЬ
ЮЬЮЬЮЬЮЬ╧nЬЮЬЮЬЭ.ЬЯЬЮЬ
ЮЬЮЬЭ.ЬЯЬЮЬЮЬ	ЮЬЭ<ЬЭ<ЬЭ!ЬЯЬЮЬЮЬЮЬЭHЬЭJЬЯЬЮЬЮЬЮЬЭ)ЬЭIЬЯЬЮЬЮЬЮЬЭ(ЬЭKЬЯЬЮЬЮЬЮЬЭ4ЬЭDЬЯЬЮЬ"ЮЬЮЬЭCЬЭDЬЭJЬЭ,ЬЯЬЮЬЮЬЮЬЮЬЮЬШЫЧЧ ЕЧ    ~  
Ў  