DIRECTORYFSPseudoServers USING [PseudoServerList],IO USING [EndOfStream, GetTokenRope, IDProc, PutRope, RIS, RopeFromROS, ROS, STREAM],Rope USING [Compare, Equal, Fetch, Length, Match, ROPE, SkipTo, Substr];FSPseudoServersImpl: CEDAR MONITORIMPORTS IO, RopeEXPORTS FSPseudoServers= BEGIN OPEN FSPseudoServers;ROPE: TYPE = Rope.ROPE;STREAM: TYPE = IO.STREAM;pseudoServers: PseudoServerList _ NIL;GetPseudoServers: PUBLIC ENTRY PROC RETURNS [PseudoServerList] = {RETURN [pseudoServers];};SetPseudoServers: PUBLIC ENTRY PROC [list: PseudoServerList] = {pseudoServers _ list;};TranslateForWrite: PUBLIC PROC [server: ROPE] RETURNS [ROPE] = {FOR each: PseudoServerList _ pseudoServers, each.rest WHILE each # NIL DOIF Rope.Equal[each.first.server, server, FALSE] THEN RETURN [each.first.write];ENDLOOP;RETURN [server];};TranslateForRead: PUBLIC PROC [server: ROPE] RETURNS [LIST OF ROPE] = {FOR each: PseudoServerList _ pseudoServers, each.rest WHILE each # NIL DOIF Rope.Equal[each.first.server, server, FALSE] THEN RETURN [each.first.read];ENDLOOP;RETURN [LIST[server]];};AvoidRemoteCheck: PUBLIC PROC [server: ROPE] RETURNS [BOOL] = {FOR each: PseudoServerList _ pseudoServers, each.rest WHILE each # NIL DOIF Rope.Equal[each.first.server, server, FALSE] THEN RETURN [each.first.avoidCheck];ENDLOOP;RETURN [FALSE];};Lookup: PUBLIC ENTRY PROC [server: ROPE] RETURNS [PseudoServerList] = {ENABLE UNWIND => NULL;lag: PseudoServerList _ NIL;FOR each: PseudoServerList _ pseudoServers, each.rest WHILE each # NIL DOSELECT Rope.Compare[server, each.first.server, FALSE] FROMequal => RETURN [each];ENDCASE;lag _ each;ENDLOOP;RETURN [NIL];};DeletePseudoServer: PUBLIC ENTRY PROC [server: ROPE] RETURNS [PseudoServerList] = {ENABLE UNWIND => NULL;lag: PseudoServerList _ NIL;FOR each: PseudoServerList _ pseudoServers, each.rest WHILE each # NIL DOIF Rope.Equal[server, each.first.server, FALSE] THEN {IF lag = NIL THEN pseudoServers _ each.rest ELSE lag.rest _ each.rest;each.rest _ NIL;RETURN [each];};lag _ each;ENDLOOP;RETURN [NIL];};InsertPseudoServer: PUBLIC ENTRY PROC [new: PseudoServerList] = {ENABLE UNWIND => NULL;IF new # NIL THEN {lag: PseudoServerList _ NIL;server: ROPE _ new.first.server;FOR each: PseudoServerList _ pseudoServers, each.rest WHILE each # NIL DOSELECT Rope.Compare[server, each.first.server, FALSE] FROMless => {new.rest _ each;EXIT;};equal => {new.rest _ each.rest;EXIT;};ENDCASE;lag _ each;ENDLOOP;IF lag = NIL THEN pseudoServers _ new ELSE lag.rest _ new;};};RopeFromPseudoServer: PUBLIC PROC [list: PseudoServerList] RETURNS [ROPE _ NIL] = {IF list # NIL THEN {out: STREAM _ IO.ROS[];IO.PutRope[out, list.first.server];IF list.first.avoidCheck THEN IO.PutRope[out, " -r"];IO.PutRope[out, " "];IO.PutRope[out, list.first.write];FOR each: LIST OF ROPE _ list.first.read, each.rest WHILE each # NIL DOIO.PutRope[out, " "];IO.PutRope[out, each.first];ENDLOOP;RETURN [IO.RopeFromROS[out]];};};PseudoServerFromRope: PUBLIC PROC [rope: ROPE] RETURNS [error: ROPE _ NIL, new: PseudoServerList _ NIL] = {ris: STREAM _ IO.RIS[rope];readTail: LIST OF ROPE _ NIL;new _ LIST [[server: NIL, avoidCheck: FALSE, write: NIL, read: NIL]];DOtoken: ROPE _ IO.GetTokenRope[ris, IO.IDProc ! IO.EndOfStream => EXIT].token;IF Rope.Match["-*", token] THEN {IF Rope.Equal[token, "-r", FALSE] THEN new.first.avoidCheck _ TRUE;LOOP;};IF NOT LegalName[token] THEN RETURN ["illegal name", NIL];token _ StripBrackets[token];SELECT TRUE FROMnew.first.server = NIL => new.first.server _ token;new.first.write = NIL => new.first.write _ token;readTail = NIL => new.first.read _ readTail _ LIST[token];ENDCASE => readTail _ (readTail.rest _ LIST[token]);ENDLOOP;SELECT TRUE FROMnew.first.server = NIL => RETURN ["no server name", NIL];new.first.write = NIL => RETURN ["no write server", NIL];new.first.read = NIL => RETURN ["no read servers", NIL];ENDCASE;};StripBrackets: PROC [name: ROPE] RETURNS [ROPE] = {len: INT _ Rope.Length[name];pos1: INT _ Rope.SkipTo[name, 0, "["];pos2: INT _ Rope.SkipTo[name, 0, "]"];nlen: INT _ pos2-pos1-1;IF pos2 = len AND pos1 = len AND len > 0 THEN RETURN [name];IF nlen <= 0 THEN RETURN [NIL];RETURN [Rope.Substr[name, pos1+1, nlen]];};LegalName: PROC [rope: ROPE] RETURNS [BOOL] = {len: INT _ Rope.Length[rope];IF len = 0 THEN RETURN [FALSE];FOR i: INT IN [0..Rope.Length[rope]) DOSELECT Rope.Fetch[rope, i] FROMIN [41C..'z] => {};ENDCASE => RETURN [FALSE];ENDLOOP;RETURN [TRUE];};END.   ■  FSPseudoServersImpl.mesaCopyright c 1984, 1985 by Xerox Corporation.  All rights reserved.Russ Atkinson (RRA) October 24, 1985 3:06:35 pm PDTTranslates the server name into the server name specified for writing.  If no such translation is present, returns the original server name.Translates the server name into the server names specified for reading.  If no such translation is present, returns a list containing the original server name.Determines if the server name implies not checking for remote versions.  This is useful to reduce server traffic in cases where the files are known to be frozen.... returns the PseudoServerList for the given name (NIL if no such translation).... deletes the given pseudo server (if any) from the root PseudoServerList, and returns the deleted element from the list (NIL if no such element).... inserts the first item in the PseudoServerList into the root PseudoServerList.Insert into the new position in the listInsert into the new position in the list, splice out old entry... turns the first entry in the PseudoServerList into a rope parsable by PseudoServerFromRope.  If list = NIL, NIL is returned.... parses the given rope, returning an error message if there was an error, and error = NIL if there was no error. Э╩'  Ш codeЪЬЩKЪЬ
╧mЬ7ЩBKЩ3ЧШ Ъ╧k	Ш	KЪЬЮЬШ)KЪ
ЮЬЮЬ.ЮЬЮЬЮЬШUKЪЬЮЬ(ЮЬШHЧЧheadЪЬЮЬЮШ"KЪЮЬЮЬШKЪЮЬШKЪЬЮ
ЬШKШ KЪЮЬЮЬЮЬШKЪЮЬЮЬЮЬЮЬШKШ ЧЪЬ"ЮЬШ&KШ ЧЪ╧nЬЮЬЮ
ЬЮЬШBKЪЮЬШKШЧKШ ЪЯЬЮЬШ@KЪЬШKШЧKШ Ъ
ЯЬЮЬ
ЮЬЮЬЮЬШ@KЪЬМЩМЪЮЬ3ЮЬЮЬЮШIKЪЮЬ'ЮЬЮЬЮЬШOKЪЮЬШЧKЪЮЬ
ШKШЧKШ ЪЯЬЮЬ
ЮЬЮЬЮЬЮЬЮЬШGKЪЬЯЩЯЪЮЬ3ЮЬЮЬЮШIKЪЮЬ'ЮЬЮЬЮЬШNKЪЮЬШЧKЪЮЬЮЬ
ШKШKШ ЧЪ
ЯЬЮЬ
ЮЬЮЬЮЬШ?KЪЬбЩбЪЮЬ3ЮЬЮЬЮШIKЪЮЬ'ЮЬЮЬЮЬШTKЪЮЬШЧKЪЮЬЮЬШKШKШ ЧЪЯЬЮЬЮЬЮЬ
ЮЬЮЬШGKЪЬ5ЮЬЩQKЪЮЬЮЬЮЬШKЪЬЮЬШЪЮЬ3ЮЬЮЬЮШIЪЮЬ)ЮЬЮШ:KЪЬ	ЮЬШKЪЮЬШЧKЪЬШKЪЮЬШЧKЪЮЬЮЬШKШKЩ ЧЪЯЬЮЬЮЬЮЬ
ЮЬЮЬШSKЪЬ|ЮЬЩФKЪЮЬЮЬЮЬШKЪЬЮЬШЪЮЬ3ЮЬЮЬЮШIЪЮЬ'ЮЬЮЬШ6KЪЮЬЮЬЮЬЮЬШFKЪЬЮЬШKЪЮЬШKШЧKЪЬШKЪЮЬШЧKЪЮЬЮЬШKШKШ ЧЪЯЬЮЬЮЬЮЬШAKЪЬRЩRKЪЮЬЮЬЮЬШЪЮЬЮЬЮЬШKЪЬЮЬШKЪЬЮЬШ ЪЮЬ3ЮЬЮЬЮШIЪЮЬ)ЮЬЮШ:Ш	KЪЬ(Щ(KЪЬШKЪЮЬШKШЧШ
KЪЬ>Щ>KЪЬШKЪЮЬШKШЧKЪЮЬШЧKЪЬШKЪЮЬШЧKЪЮЬЮЬЮЬЮЬШ:KШЧKШKШ ЧЪЯЬЮЬЮЬЮЬЮЬЮЬШSKЪЬkЮЬЮЬЩАЪЮЬЮЬЮЬШKЪЬЮЬЮЬЮЬШKЪЮЬ!Ш#KЪЮЬЮЬЮЬШ5KЪЮЬШKЪЮЬ Ш"ЪЮЬЮЬЮЬЮЬЮЬЮЬЮШGKЪЮЬШKЪЮЬШKЪЮЬШЧKЪЮЬЮЬШKШЧKШKШ ЧЪЯЬЮЬЮЬЮЬЮЬ	ЮЬЮЬЮЬШkKЪЬYЮЬЩsKЪЬЮЬЮЬЮЬШKЪ	Ь
ЮЬЮЬЮЬЮЬШKЪЬЮЬЮЬЮЬ	ЮЬЮЬШEЪЮШKЪЬЮЬЮЬЮЬ
ЮЬЮЬШMЪЮЬЮЬШ!KЪЮЬЮЬЮЬЮЬШCKЪЮЬШKЪЬШЧKЪ
ЮЬЮЬЮЬЮЬЮЬШ:KЪЬШЪЮЬЮЬЮШKЪЬЮЬШ3KЪЬЮЬШ1KЪЬЮЬ ЮЬШ:KЪЮЬ ЮЬ	Ш4ЧKЪЮЬШЧЪЮЬЮЬЮШKЪЬЮЬЮЬЮЬШ9KЪЬЮЬЮЬЮЬШ9KЪЬЮЬЮЬЮЬШ8KЪЮЬШЧKШKШ ЧЪ
ЯЬЮЬЮЬЮЬЮЬШ3KЪЬЮЬШKЪЬЮЬШ&KЪЬЮЬШ&KЪЬЮЬШKЪ
ЮЬЮЬЮЬ	ЮЬЮЬШ<KЪЮЬЮЬЮЬЮЬШKЪЮЬ#Ш)KШKШ ЧЪ
Я	ЬЮЬЮЬЮЬЮЬШ/KЪЬЮЬШKЪЮЬ	ЮЬЮЬЮЬШЪЮЬЮЬЮЬЮШ'ЪЮЬЮШKЪЮЬШKЪЮЬЮЬЮЬШЧKЪЮЬШЧKЪЮЬЮЬШKШKШ ЧKЪЮЬШKШ Ч ЕЧ    ╪  ¤  