DIRECTORYAscii USING [Digit],FS USING [Error, StreamOpen],IO USING [Close, EndOf, EndOfStream, Error, GetChar, GetLineRope, GetTokenRope, IDProc, PeekChar, STREAM],IPDefs USING [Address],IPConfig,MessageWindow USING [Append],Rope USING [Cat, Equal, ROPE],RopeList USING [Append];IPConfigImpl: CEDAR PROGRAMIMPORTS Ascii, FS, IO, MessageWindow, Rope, RopeListEXPORTS IPConfig =BEGIN OPEN IPConfig;ROPE: TYPE = Rope.ROPE;impGatewayName: PUBLIC ROPE _ "Gandalf";specialGateways: PUBLIC LIST OF IPDefs.Address;   -- list of special BBN gatewaysourLocalAddress: PUBLIC IPDefs.Address _ [10, 1, 0, 32];ourLocalName: PUBLIC Rope.ROPE _ "Xerox.COM";rootServers: PUBLIC LIST OF Rope.ROPE;  -- list of ARPA domain serversrootServerAddresses: PUBLIC LIST OF IPDefs.Address;  -- list of ARPA domain server addresses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";mailnetGateway: PUBLIC Rope.ROPE _ "MIT-MULTICS.ARPA";configFileName: ROPE = "IPConfig.data";ParseAddress: PROC [s: IO.STREAM] RETURNS [a: IPDefs.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a[i] _ AToI[s];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: 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["LocalHost"] => ourLocalAddress _ ParseAddress[f];t.Equal["SpecialGateways"] => {specialGateways _ NIL;DOaddr: LIST OF IPDefs.Address;SkipWhite[f];IF f.PeekChar = '\n THENEXIT;addr _ CONS[ParseAddress[f], NIL];IF specialGateways = NIL THEN specialGateways _ addrELSEFOR list: LIST OF IPDefs.Address _ specialGateways, list.rest UNTIL list = NIL DOIF list.rest = NIL THEN {list.rest _ addr; EXIT; };ENDLOOP;ENDLOOP;};t.Equal["RootServerAddresses"] => {rootServerAddresses _ NIL;DOaddr: LIST OF IPDefs.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 IPDefs.Address _ rootServerAddresses, list.rest UNTIL list = NIL DOIF list.rest = NIL THEN {list.rest _ addr; EXIT; };ENDLOOP;ENDLOOP;};t.Equal["ImpGateway"] => [token: impGatewayName] _ f.GetTokenRope[IO.IDProc];t.Equal["LocalName"] => [token: ourLocalName] _ 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["MailnetGateway"] => [token: mailnetGateway] _ f.GetTokenRope[IO.IDProc];t.Equal["SpecialDomains"] => {specialDomains _ ParseRopeList[f]};t.Equal["TopLevelDomains"] => {topLevelDomains _ ParseRopeList[f]};t.Equal["RootServers"] => {rootServers _ 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];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.IPConfigImpl.mesaJohn Larson, July 12, 1987 3:47:47 pm PDTRead Configuration FileLook for a configuration file and use it for some parameter values.Initialization codeЭ╩V  Ц"cedar" styleШ Icode2ЪЬйЩйheadЪЬЩIcodeЩ)Ъ╧k	Ш	KЪЬЭЬ	ШKЪЭЬЭЬШKЪЭЬЭЬZЭЬШjKЪЬЭЬШKЪЬ	Ш	KЪЬЭЬ
ШKЪЬЭЬЭЬШKЪЬ	ЭЬ
ШЧЧЪ╧nЬЭЬЭШKЪЭЬЭЬЭЬШ4KЪЭЬШKЪЭЬЭЬ
ШKЪЭЬЭЬЭЬШKЪЬЭЬШ(KЪЬЭЬЭЬ╧cШQKЪЬЭЬ!Ш8KЪЬЭЬЭЬШ-KЪ
ЬЭЬЭЬЭЬЭЬЯШFKЪЬЭЬЭЬЭЬЯ'Ш\KЪ	ЬЭЬЭЬЭЬЭЬШ)KЪ	ЬЭЬЭЬЭЬЭЬШ*KЪ	ЬЭЬЭЬЭЬЭЬШ'KЪЬЭЬЭЬШ1KЪЬЭЬЭЬШ0KЪЬЭЬЭЬШ4KЪЬЭЬЭЬЭШ6KЪЬЭЬШ'ЧЩЪ
ЮЬЭЬЭЬЭЬЭЬШAЪЮЬЭЬЭЬЭЬЭЬЭЬ	Ш2Ъ	ЭЬЭЬ
ЭЬЭЬЭШ5KШKЪЭЬШЧЧKЪ
ЭЬЭЬЭЬЭЬЭЬШ9KЪЭЬЭЬЭЬЭЬШ/ЪЭЬЭЬЭЬЭШ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ЪЭЬЭЬЭЬШ4ЪЭШЪЭЬЭЬЭЬ-ЭЬЭЬЭШQKЪЭЬЭЬЭЬЭЬШ3KЪЭЬШЧЧKЪЭЬШЧKШЧШ#KЪЬЭЬШЪЭШKЪЬЭЬЭЬШKШЪЭЬЭШKЪЭЬШЧKЪЬЭЬЭЬШ"KЪЭЬЭЬЭЬШ<ЪЭШЪЭЬЭЬЭЬ1ЭЬЭЬЭШUKЪЭЬЭЬЭЬЭЬШ3KЪЭЬШЧЧKЪЭЬШЧKШЧKЪЬBЭЬ	ШMKЪЬ?ЭЬ	ШJKЪЬ@ЭЬ	ШKKЪЬBЭЬ	ШMKЪЬDЭЬ	ШOKЪЬFЭЬ	ШQKЪЬAШAKЪЬCШCKЪЬ;Ш;KЪЭЬЭЬШЧKЪЬЯШ1KЪЭЬШKШЧЪЭШKЪЬ
ЭЬШЧKШЧЧЩKШKШ@KЪЭЬШЧЧ ЕЧ    К  ╝  