DIRECTORYArpa USING [Address],ArpaName USING [NameToAddressList],ArpaTCP USING [AbortTCPStream, CreateTCPStream, Error, neverTimeout, Timeout, WaitForListenerOpen],BasicTime USING [Now],Commander USING [CommandProc, Register],CommandTool USING [ArgumentVector, Failed, Parse],Convert USING [RopeFromTime],FS USING [StreamOpen],IO USING [Close, EndOf, EndOfStream, Error, Flush, GetChar, PutF, PutChar, PutRope, rope, STREAM],Rope USING [ROPE];BuildNameTable: CEDAR PROGRAMIMPORTS ArpaName, ArpaTCP, BasicTime, Commander, CommandTool, Convert, FS, IO =BEGINnameServerSocket: INT = 145B;defaultNameServer: Rope.ROPE = "SRI-NIC.ARPA";defaultFileName: Rope.ROPE = "Hosts.txt";Version: Commander.CommandProc = {out: IO.STREAM _ cmd.out;server: IO.STREAM;nameServer: Rope.ROPE _ defaultNameServer;where: LIST OF Arpa.Address;out.PutF["Poking ARPA Name Server for current version.\n"];where _ ArpaName.NameToAddressList[nameServer].addrs;IF where = NIL THEN {out.PutF["Can't lookup IP Address for %G.\n", IO.rope[nameServer]];RETURN; };BEGINENABLE {ArpaTCP.Timeout => {out.PutRope["[TCP.Timeout.]\n"];GO TO GiveUp; };ArpaTCP.Error => {out.PutRope["[TCP.Error.]\n"];GO TO GiveUp; };IO.Error => {out.PutRope["[IO.Error.]\n"];GOTO GiveUp; };};server _ ArpaTCP.CreateTCPStream[[matchLocalPort: FALSE,localPort: 0,matchForeignAddr: TRUE,foreignAddress: where.first,matchForeignPort: TRUE,foreignPort: nameServerSocket,active: TRUE,timeout: 120000]];ArpaTCP.WaitForListenerOpen[server, ArpaTCP.neverTimeout];server.PutRope["VERSION\n\l"];server.Flush[];WHILE NOT server.EndOf[] DOc: CHAR _ server.GetChar[ ! IO.EndOfStream => EXIT];IF c # '\l THEN out.PutChar[c];ENDLOOP;server.Close[];EXITSGiveUp => IF server # NIL THEN ArpaTCP.AbortTCPStream[server];END;};HostName: Commander.CommandProc = {out: IO.STREAM _ cmd.out;argv: CommandTool.ArgumentVector = CommandTool.Parse[cmd !CommandTool.Failed => {out.PutRope[errorMsg]; GOTO CantParse}];name: Rope.ROPE;server: IO.STREAM;nameServer: Rope.ROPE _ defaultNameServer;where: LIST OF Arpa.Address;IF argv.argc > 1 THEN name _ argv[1] ELSE name _ "Xerox";out.PutF["Poking ARPA Name Server for info on %G.\n", [rope[name]] ];where _ ArpaName.NameToAddressList[nameServer].addrs;IF where = NIL THEN {out.PutF["Can't lookup IP Address for %G.\n", IO.rope[nameServer]];RETURN; };BEGINENABLE {ArpaTCP.Timeout => {out.PutRope["[TCP.Timeout.]\n"];GO TO GiveUp; };ArpaTCP.Error => {out.PutRope["[TCP.Error.]\n"];GO TO GiveUp; };IO.Error => {out.PutRope["[IO.Error.]\n"];GOTO GiveUp; };};server _ ArpaTCP.CreateTCPStream[[matchLocalPort: FALSE,localPort: 0,matchForeignAddr: TRUE,foreignAddress: where.first,matchForeignPort: TRUE,foreignPort: nameServerSocket,active: TRUE,timeout: 120000]];ArpaTCP.WaitForListenerOpen[server, ArpaTCP.neverTimeout];server.PutRope["HNAME "];server.PutRope[name];server.PutChar['\n]; server.PutChar['\l];	-- send the LF as wellserver.Flush[];WHILE NOT server.EndOf[] DOc: CHAR _ server.GetChar[ ! IO.EndOfStream => EXIT];IF c # '\l THEN out.PutChar[c];ENDLOOP;server.Close[];EXITSGiveUp => IF server # NIL THEN ArpaTCP.AbortTCPStream[server];END;EXITSCantParse => NULL;};FetchTable: Commander.CommandProc = {out: IO.STREAM _ cmd.out;argv: CommandTool.ArgumentVector = CommandTool.Parse[cmd !CommandTool.Failed => {out.PutRope[errorMsg]; GOTO CantParse}];fileName, nameServer: Rope.ROPE;file, server: IO.STREAM;where: LIST OF Arpa.Address;IF argv.argc > 1 THEN fileName _ argv[1] ELSE fileName _ defaultFileName;IF argv.argc > 2 THEN nameServer _ argv[2] ELSE nameServer _ defaultNameServer;out.PutF["Fetching new %G from %G.\n", [rope[fileName]], [rope[nameServer]] ];where _ ArpaName.NameToAddressList[nameServer].addrs;IF where = NIL THEN {out.PutF["Can't lookup IP Address for %G.\n", IO.rope[nameServer]];RETURN; };file _ FS.StreamOpen[fileName, create];BEGINENABLE {ArpaTCP.Timeout => {out.PutRope["[TCP.Timeout.]\n"];GO TO GiveUp; };ArpaTCP.Error => {out.PutRope["[TCP.Error.]\n"];GO TO GiveUp; };IO.Error => {out.PutRope["[IO.Error.]\n"];GOTO GiveUp; };};file.PutRope["FETCHED: "];file.PutRope[Convert.RopeFromTime[BasicTime.Now[]]];file.PutRope["\n"];server _ ArpaTCP.CreateTCPStream[[matchLocalPort: FALSE,localPort: 0,matchForeignAddr: TRUE,foreignAddress: where.first,matchForeignPort: TRUE,foreignPort: nameServerSocket,active: TRUE,timeout: 120000]];ArpaTCP.WaitForListenerOpen[server, ArpaTCP.neverTimeout];server.PutRope["VERSION\n\l"];server.Flush[];WHILE NOT server.EndOf[] DOc: CHAR _ server.GetChar[ ! IO.EndOfStream => EXIT];IF c # '\l THEN file.PutChar[c];ENDLOOP;server.Close[];server _ ArpaTCP.CreateTCPStream[[matchLocalPort: FALSE,localPort: 0,matchForeignAddr: TRUE,foreignAddress: where.first,matchForeignPort: TRUE,foreignPort: nameServerSocket,active: TRUE,timeout: 120000]];ArpaTCP.WaitForListenerOpen[server, ArpaTCP.neverTimeout];server.PutRope["ALL\n\l"];server.Flush[];WHILE NOT server.EndOf[] DOc: CHAR _ server.GetChar[ ! IO.EndOfStream => EXIT];IF c # '\l THEN file.PutChar[c];ENDLOOP;server.Close[];EXITSGiveUp =>BEGINIF server # NIL THEN ArpaTCP.AbortTCPStream[server];END;END;out.PutChar['\n];file.Close[];EXITS CantParse => NULL;};Commander.Register[key: "HostName", proc: HostName, doc: "Look up Host Name at NIC's NameServer"];Commander.Register[key: "NameTableVersion", proc: Version, doc: "Print out VERSION info from NIC's NameServer"];Commander.Register[key: "FetchNameTable", proc: FetchTable, doc: "Fetch Source for IP name table from NIC"];END.  к  BuildNameTable.mesaCopyright (C) 1983, 1984 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.Last Edited by: Nichols, August 31, 1983 4:07 pmLast Edited by: Taft, January 21, 1984 5:26:00 pm PSTLast Edited by: HGM, May 22, 1984 5:09:58 pm PDTDoug Terry, September 23, 1987 3:01:50 pm PDTHal Murray June 27, 1985 3:26:44 am PDTJohn Larson, November 28, 1987 5:29:46 pm PSTInclude version info in our copy of the file.Now, grab the data. Э╩╜  Ц"cedar" styleШ headЪЬЩIcode2ЪЬпЩпJЩ0JЩ5JЩ0IcodeЩ-MЩ'MЩ-JЩ Ъ╧k	Ш	LЪЬЭЬШLЪЬ	ЭЬШ#LЪЬЭЬVШcLЪЬ
ЭЬШLЪЬ
ЭЬШ(LЪЬЭЬ!Ш2LЪЬЭЬШLЪЭЬЭЬШLЪЭЬЭЬRЭЬШbLЪЬЭЬЭЬШLШ ЧЧЪ╧nЬЭЬЭШLЪЭЬ@ЭЬЭЬШOLЪЭШLЪЬЭЬШLЪЬЭЬШ.LЪЬЭЬШ)ЪЮЬШ"LЪЬЭЬЭЬШLЪЬЭЬЭЬШLЪЬЭЬШ*LЪЬЭЬЭЬШLШ;JЪЬ5Ш5ЪЭЬ	ЭЬЭЬШLЪЬ.ЭЬШCLЪЭЬШ
ЧЪЭШЪЭЬШЪЬШLЪЬ Ш LЪЭЬЭЬШЧЪЬШLЪЬШLЪЭЬЭЬШЧЪЭЬШLЪЬШLЪЭЬШЧLШЧЧЪЬ"Ш"LЪЬЭЬШLЪЬШLЪЬЭЬШLЪЬШLЪЬЭЬШLЪЬШLЪЬЭЬШLЪЬШЧLЪЬ:Ш:LЪЬШLШЪЭЬЭЬЭШLЪЬЭЬЭЬЭЬШ4LЪЭЬ	ЭЬШLЪЭЬШЧLЪЬШЪЭШLЪЬ
ЭЬ
ЭЬЭЬ Ш>ЧLЪЭЬШLШЧЪЮЬШ#LЪЬЭЬЭЬШШ:LЪЬ╧rЬЭЬШ?ЧLЪЬЭЬШLЪЬЭЬЭЬШLЪЬЭЬШ*LЪЬЭЬЭЬШLЪЭЬЭЬЭЬШ9LШEJЪЬ5Ш5ЪЭЬ	ЭЬЭЬШLЪЬ.ЭЬШCLЪЭЬШ
ЧЪЭШЪЭЬШЪЬШLЪЬ Ш LЪЭЬЭЬШЧЪЬШLЪЬШLЪЭЬЭЬШЧЪЭЬШLЪЬШLЪЭЬШЧLШЧЧЪЬ"Ш"LЪЬЭЬШLЪЬШLЪЬЭЬШLЪЬШLЪЬЭЬШLЪЬШLЪЬЭЬШLЪЬШЧLЪЬ:Ш:LЪЬШLЪЬШLЪЬ*╧cШ@LШЪЭЬЭЬЭШLЪЬЭЬЭЬЭЬШ4LЪЭЬ	ЭЬШLЪЭЬШЧLЪЬШЪЭШLЪЬ
ЭЬ
ЭЬЭЬ Ш>ЧLЪЭЬШЪЭШLЪЬЭЬШЧLШЧЪЮ
ЬШ%LЪЬЭЬЭЬШШ:LЪЬЯЬЭЬШ?ЧLЪЬЭЬШ LЪЬЭЬЭЬШLЪЬЭЬЭЬШLЪЭЬЭЬЭЬШILЪЭЬЭЬЭЬ ШOLЪЬNШNJЪЬ5Ш5ЪЭЬ	ЭЬЭЬШLЪЬ.ЭЬШCLЪЭЬШ
ЧLЪЬЭЬШ'ЪЭШЪЭЬШЪЬШLЪЬ Ш LЪЭЬЭЬШЧЪЬШLЪЬШLЪЭЬЭЬШЧЪЭЬШLЪЬШLЪЭЬШЧLШЧЧLЪЬШLЪЬ4Ш4LЪЬШLЪЬ-Щ-ЪЬ"Ш"LЪЬЭЬШLЪЬШLЪЬЭЬШLЪЬШLЪЬЭЬШLЪЬШLЪЬЭЬШLЪЬШЧLЪЬ:Ш:LЪЬШLШЪЭЬЭЬЭШLЪЬЭЬЭЬЭЬШ4LЪЭЬ	ЭЬШ LЪЭЬШЧLЪЬШLЪЬЩЪЬ"Ш"LЪЬЭЬШLЪЬШLЪЬЭЬШLЪЬШLЪЬЭЬШLЪЬШLЪЬЭЬШLЪЬШЧLЪЬ:Ш:LЪЬШLШЪЭЬЭЬЭШLЪЬЭЬЭЬЭЬШ4LЪЭЬ	ЭЬШ LЪЭЬШЧLЪЬШЪЭШЪЬ	Ш	LЪЭШLЪЭЬ
ЭЬЭЬ Ш4LЪЭЬШЧЧLЪЭЬШLЪЬШLЪЬШLЪЭЬЭЬШLШЧLЪЬbШbLЪЬpШpLЪЬlШlLЪЭЬШЧЧ ЕЧ    
   q  