DIRECTORYArpa USING [Address],ArpaConfig,ArpaName USING [SetArpanetRootServers],Ascii USING [Digit],FS USING [Error, StreamOpen],IO USING [Close, EndOf, EndOfStream, Error, GetChar, GetLineRope, GetTokenRope, IDProc, PeekChar, STREAM],MessageWindow USING [Append],Rope USING [Cat, Equal, ROPE],RopeList USING [Append];ArpaConfigImpl: CEDAR MONITORIMPORTS ArpaName, Ascii, FS, IO, MessageWindow, Rope, RopeListEXPORTS ArpaConfig =BEGIN OPEN ArpaConfig;ROPE: TYPE = Rope.ROPE;gvMSName: PUBLIC ROPE _ "ArpaGateway.ms";ourLocalAddress: PUBLIC Arpa.Address _ [13, 0, 12, 232];ourLocalName: PUBLIC Rope.ROPE _ "Xerox.COM";xeroxDomain: PUBLIC ROPE _ "Xerox.COM";rootServerAddresses: PUBLIC LIST OF Arpa.Address _NIL;  -- list of ARPA domain server addressesresolv: PUBLIC REF BOOL _ NEW[BOOL _ TRUE];  -- whether to do full recursive name resolutionspecialDomains: PUBLIC LIST OF Rope.ROPE;topLevelDomains: PUBLIC LIST OF Rope.ROPE;validDomains: PUBLIC LIST OF Rope.ROPE;uucpGateway: PUBLIC Rope.ROPE _ "seismo.css.gov";csnetGateway: PUBLIC Rope.ROPE _ "relay.cs.net";bitnetGateway: PUBLIC Rope.ROPE _ "WISCVM.WISC.EDU";configFileName: ROPE _ "ArpaConfig.data";ParseAddress: PROC [s: IO.STREAM] RETURNS [a: Arpa.Address] = {AToI: PROC [s: IO.STREAM] RETURNS [i: INT _ 0] = {WHILE ~IO.EndOf[s] AND Ascii.Digit[IO.PeekChar[s]] DOi _ i*10 + (s.GetChar[]-'0);ENDLOOP; };WHILE IO.PeekChar[s] = '  DO [] _ IO.GetChar[s]; ENDLOOP;IF IO.PeekChar[s] = '[ THEN [] _ IO.GetChar[s];FOR i: INT IN [0..3] DOSELECT i FROM0 => a.a _ AToI[s];1 => a.b _ AToI[s];2 => a.c _ AToI[s];3 => a.d _ AToI[s];ENDCASE;IF ~IO.EndOf[s] AND IO.PeekChar[s] = '. THEN [] _ IO.GetChar[s];ENDLOOP;IF ~IO.EndOf[s] AND IO.PeekChar[s] = '] THEN [] _ IO.GetChar[s]; };ReadConfigurationFile: PUBLIC PROC ~ {ENABLE {IO.EndOfStream => GO TO GiveUp;IO.Error => {MessageWindow.Append[message: Rope.Cat["Syntax error in ", configFileName], clearFirst: TRUE];GO TO GiveUp;};};f: IO.STREAM;t: Rope.ROPE;SkipWhite: PROC [s: IO.STREAM] ~ {WHILE s.PeekChar[] = '  OR s.PeekChar[] = '\t DO[] _ s.GetChar[];ENDLOOP;};ParseRopeList: PROC [s: IO.STREAM] RETURNS [list: LIST OF Rope.ROPE] = {DOSkipWhite[s];IF s.PeekChar = '\n THEN EXIT;list _ RopeList.Append[list, LIST[s.GetTokenRope[IO.IDProc].token]];ENDLOOP;};f _ FS.StreamOpen[configFileName ! FS.Error => {MessageWindow.Append[message: error.explanation, clearFirst: TRUE];GO TO GiveUp}];WHILE NOT f.EndOf[] DO[token: t] _ f.GetTokenRope[IO.IDProc];SkipWhite[f];IF f.PeekChar[] = ': THEN[] _ f.GetChar[];SELECT TRUE FROMt.Equal["ArpaAddress"] => ourLocalAddress _ ParseAddress[f];t.Equal["RootServerAddresses"] => {rootServerAddresses _ NIL;DOaddr: LIST OF Arpa.Address;SkipWhite[f];IF f.PeekChar = '\n THENEXIT;addr _ CONS[ParseAddress[f], NIL];IF rootServerAddresses = NIL THEN rootServerAddresses _ addrELSEFOR list: LIST OF Arpa.Address _ rootServerAddresses, list.rest UNTIL list = NIL DOIF list.rest = NIL THEN {list.rest _ addr; EXIT; };ENDLOOP;ENDLOOP;};t.Equal["GVMSName"] => [token: gvMSName] _ f.GetTokenRope[IO.IDProc];t.Equal["ArpaName"] => [token: ourLocalName] _ f.GetTokenRope[IO.IDProc];t.Equal["DomainName"] => [token: xeroxDomain] _ f.GetTokenRope[IO.IDProc];t.Equal["UUCPGateway"] => [token: uucpGateway] _ f.GetTokenRope[IO.IDProc];t.Equal["CSNETGateway"] => [token: csnetGateway] _ f.GetTokenRope[IO.IDProc];t.Equal["BitnetGateway"] => [token: bitnetGateway] _ f.GetTokenRope[IO.IDProc];t.Equal["SpecialDomains"] => {specialDomains _ ParseRopeList[f]};t.Equal["TopLevelDomains"] => {topLevelDomains _ ParseRopeList[f]};ENDCASE => NULL;[] _ f.GetLineRope[]; -- toss text to end of lineENDLOOP;IO.Close[f];EXITSGiveUp => NULL;};ReadConfigurationFile[];validDomains _ RopeList.Append[topLevelDomains, specialDomains];IF rootServerAddresses # NIL THEN ArpaName.SetArpanetRootServers[rootServerAddresses]; END.   р  Copyright (C) 1987 by Xerox Corporation. All rights reserved. The following program was created in 1983 but has not been published within the meaning of the copyright law, is furnished under license, and may not be used, copied and/or disclosed except in accordance with the terms of said license.ArpaConfigImpl.mesaJohn Larson, March 13, 1988 6:18:39 pm PSTRead Configuration FileLook for a configuration file and use it for some parameter values.Initialization code Э╩╓  Ц"cedar" styleШ Icode2ЪЬйЩйheadЪЬЩIcodeЩ*Ъ╧k	Ш	KЪЬЭЬШKЪЬШKЪЬ	ЭЬШ'KЪЬЭЬ	ШKЪЭЬЭЬШKЪЭЬЭЬZЭЬШjKЪЬЭЬ
ШKЪЬЭЬЭЬШKЪЬ	ЭЬ
ШЧЧЪ╧nЬЭЬЭШKЪЭЬЭЬЭЬШ>KЪЭЬШKЪЭЬЭЬШKЪЭЬЭЬЭЬШKЪЬ
ЭЬШ)KЪЬЭЬ!Ш8KЪЬЭЬЭЬШ-KЪЬЭЬЭЬШ'KЪ
ЬЭЬЭЬЭЬЭЬ╧c'Ш_KЪЬЭЬЭЬЭЬЭЬЭЬЭЬЯ/Ш\KЪ	ЬЭЬЭЬЭЬЭЬШ)KЪ	ЬЭЬЭЬЭЬЭЬШ*KЪ	ЬЭЬЭЬЭЬЭЬШ'KЪЬЭЬЭЬШ1KЪЬЭЬЭЬШ0KЪЬЭЬЭЬШ4KЪЬЭЬШ)ЧЩЪ
ЮЬЭЬЭЬЭЬЭЬШ?ЪЮЬЭЬЭЬЭЬЭЬЭЬ	Ш2Ъ	ЭЬЭЬ
ЭЬЭЬЭШ5KШKЪЭЬШЧЧKЪ
ЭЬЭЬЭЬЭЬЭЬШ9KЪЭЬЭЬЭЬЭЬШ/ЪЭЬЭЬЭЬЭШЪЭЬЭШKШKШKШKШKЪЭЬШЧKЪЭЬЭЬ
ЭЬЭЬЭЬЭЬШ@KЪЭЬШЧKЪЭЬЭЬ
ЭЬЭЬЭЬЭЬШCKШ ЧЪЮЬЭЬШ&KЩCЪЭЬШKЪЭЬЭЬЭЬШЪЭЬШKЪ╧rX╨krаШ^KЪЭЬЭЬШKШЧKШЧKЪЬЭЬЭЬШKЪЬЭЬШKШ ЪЮ	ЬЭЬЭЬЭЬШ"ЪЭЬЭЬЭШ0KШKЪЭЬШЧKШKШ ЧЪЮЬЭЬЭЬЭЬЭЬЭЬЭЬЭЬШHЪЭШKШKЪЭЬЭ	ЬШKЪЬЭЬЭЬШDKЪЭЬШЧKЪЬШKШ KШ KШ ЧKШ ЪЬЭЬЭЬШ0KЪаЬЭЬШCKЪЭЬЭЬ
ШЧЪЭЬЭЬЭШKЪЬЭЬ	Ш'KШЪЭЬЭШKШЧЪЭЬЭЬЭШKШ<Ш#KЪЬЭЬШЪЭШKЪЬЭЬЭЬШKШЪЭЬЭШKЪЭЬШЧKЪЬЭЬЭЬШ"KЪЭЬЭЬЭЬШ<ЪЭШЪЭЬЭЬЭЬ/ЭЬЭЬЭШSKЪЭЬЭЬЭЬЭЬШ3KЪЭЬШЧЧKЪЭЬШЧKШЧKЪЬ:ЭЬ	ШEKЪЬ>ЭЬ	ШIKЪЬ?ЭЬ	ШJKЪЬ@ЭЬ	ШKKЪЬBЭЬ	ШMKЪЬDЭЬ	ШOKЪЬAШAKЪЬCШCKЪЭЬЭЬШЧKЪЬЯШ1KЪЭЬШKШЧЪЭШKЪЬ
ЭЬШЧKШЧЧЩKШKШ@KЪЭЬЭЬЭЬ6ШWKЪЭЬШЧЧ ЕЧ    f    