DIRECTORYBcdDefs USING [VersionStamp],Rope USING [ROPE],VersionMap USING [Map, MapList, RestoreMapFromFile, VersionToName],VersionMapDefaults USING [];VersionMapDefaultsImpl: CEDAR MONITORIMPORTS VersionMapEXPORTS VersionMapDefaults= BEGIN OPEN Rope;WhichMapList: TYPE = ATOM;assumeImmutable: BOOL _ TRUE;root: EntryList _ NIL;EntryList: TYPE = LIST OF Entry;Entry: TYPE = RECORD [key: ATOM _ NIL, mapList: VersionMap.MapList _ NIL];FileNameFromVersion: PUBLIC PROC[which: ATOM, version: BcdDefs.VersionStamp] RETURNS [name: ROPE _ NIL] = {mapList: VersionMap.MapList _ GetMapList[which];IF mapList # NIL THENname _ VersionMap.VersionToName[mapList, version].name;};GetMapList: PUBLIC ENTRY PROC[which: ATOM] RETURNS [list: VersionMap.MapList _ NIL] = {ENABLE UNWIND => NULL;mapFileName: ROPE _ NIL;FOR eList: EntryList _ root, eList.rest WHILE eList # NIL DOIF eList.first.key = which THEN RETURN [eList.first.mapList];ENDLOOP;SELECT which FROM$Source => mapFileName _ "[]<>CedarSource.VersionMap";$Symbols => mapFileName _ "[]<>CedarSymbols.VersionMap";ENDCASE => RETURN;list _ LIST[VersionMap.RestoreMapFromFile[mapFileName, TRUE]];root _ CONS[Entry[which, list], root];};AddToMapList: PUBLIC ENTRY PROC [which: ATOM, map: VersionMap.Map] = {ENABLE UNWIND => NULL;mapList: VersionMap.MapList _ LIST[map];IF map = NIL THEN RETURN;FOR eList: EntryList _ root, eList.rest WHILE eList # NIL DOIF eList.first.key = which THEN {mapList.rest _ eList.first.mapList;eList.first.mapList _ mapList;RETURN};ENDLOOP;root _ CONS[Entry[which, mapList], root];};SetMapList: PUBLIC ENTRY PROC [which: ATOM, list: VersionMap.MapList _ NIL] = {ENABLE UNWIND => NULL;FOR eList: EntryList _ root, eList.rest WHILE eList # NIL DOIF eList.first.key = which THEN {eList.first.mapList _ list;RETURN};ENDLOOP;root _ CONS[Entry[which, list], root];};END.   Т  VersionMapDefaultsImpl.mesaRuss Atkinson, November 14, 1983 9:41 pmPaul Rovner, August 19, 1983 1:17 pmOperations on default version map lists.$Source => the source symbol version map list (initially from CedarSource.VersionMap)$Symbols => the source symbol version map list (initially from CedarSymbols.VersionMap)other => a user-defined version map variety (initially empty)... returns a name corresponding to the given version stamp in the indicated map list (does not check for multiple names, since that is the responsibility of the version map creator).... gets the current selected version map list.  If there is no such map, then NIL will be returned unless which = $Source or which = $Symbols, which will restore the official version maps from CedarSource.VersionMap or CedarSymbols.VersionMap respectively. ... adds a new map to the lookup list.  Use this proc for adding personal version maps.There is no mapList under this key, so add it.. sets the current version map for source files.  Since there can be a race between GetMapList and SetMapList, this operation should not be casually used!There is no mapList under this key, so add it Э╩А  Ш ЪЬЩJЪЬ(Щ(JЪЬ$Щ$ЧJЩ Ъ╧k	Ш	JЪЬЭЬШJЪЬЭЬЭЬШJЪЬЭЬ3ШCJЪЬЭЬШJШ ЧЪЬЭЬЭШ%JЪЭЬШJЪЭЬШJЪЬЭЬЭЬШJШ JЪЬ(Щ(JШ ЪЬЭЬЭЬШJЪЬUЩUJЪЬWЩWJЩ=ЧJШ JЪЬЭЬЭЬШJЪЬЭЬШJЪЬЭЬЭЬЭЬШ JЪЬЭЬЭЬЭЬЭЬ ЭЬШJJШ Ъ╧nЬЭЬЭШ JЪ	ЬЭЬ!ЭЬЭЬЭЬШKJЪЬ╖Щ╖JЪЬ0Ш0ЪЭЬЭЬЭШJЪЬ7Ш7ЧJЪЬШJШ ЧЪЮ
ЬЭЬЭЬЭШJЪЬЭЬЭЬЭЬШ:JЪЬВЩВJЪЭЬЭЬЭЬШJЪЬЭЬЭЬШЪЭЬ%ЭЬ	ЭЬЭШ<JЪЭЬЭЬЭЬШ=JЪЭЬШЧЪЭЬЭШJЪЬ6Ш6JЪЬ8Ш8JЪЭЬЭЬШЧJЪЬЭЬ,ЭЬШ>JЪЬЭЬШ&JШJШ ЧЪ
ЮЬЭЬЭЬЭЬ	ЭЬШFJЪЬWЩWJЪЭЬЭЬЭЬШJЪЬЭЬШ(JЪЭЬЭЬЭЬЭЬШЪЭЬ%ЭЬ	ЭЬЭШ<ЪЭЬЭЬШ!JЪЬ#Ш#JЪЬШJЪЭЬШЧJЪЭЬШЧJЪЬ-Щ-JЪЬЭЬШ)JШJШ ЧЪЮ
ЬЭЬЭЬЭЬ	ЭЬЭЬШOJЪЬЫЩЫJЪЭЬЭЬЭЬШЪЭЬ%ЭЬ	ЭЬЭШ<ЪЭЬЭЬШ!JЪЬШJЪЭЬШЧJЪЭЬШЧJЪЬ-Щ-JЪЬЭЬШ&JШJШ ЧJЪЭЬШJШ JШ ЧJШ Ч ЕЧ    l  ~  