DIRECTORYArpa USING [Address, Net, netMasks, nullAddress],ArpaExtras USING [AddressAnd, broadcastAddress, MaskNot],ArpaTranslation USING [GetNet, GetSubnetMask],CommDriver USING [GetNetworkChain, Network];ArpaImpl: CEDAR PROGRAMIMPORTS ArpaExtras, ArpaTranslation, CommDriverEXPORTS Arpa, ArpaExtras~ {Address: TYPE ~ Arpa.Address;Class: TYPE ~ Arpa.Net;broadcastAddress: Address ~ ArpaExtras.broadcastAddress;nullAddress: Address ~ Arpa.nullAddress;NetClassInner: PROC [address: Address] RETURNS [Class] ~ INLINE {RETURN[SELECT address.a FROM < 080H => a, < 0C0H => b, ENDCASE => c] };NetType, NetClass: PUBLIC PROC [address: Address] RETURNS [Class] ~ {RETURN[NetClassInner[address]] };NetMask: PUBLIC PROC [address: Address] RETURNS [Address] ~ {RETURN[SELECT address.a FROM< 080H => Arpa.netMasks[a],< 0C0H => Arpa.netMasks[b],ENDCASE => Arpa.netMasks[c]];};NetNumber: PUBLIC PROC [address: Address] RETURNS [Address] ~ {RETURN[SELECT address.a FROM< 080H => ArpaExtras.AddressAnd[address, Arpa.netMasks[a]],< 0C0H => ArpaExtras.AddressAnd[address, Arpa.netMasks[b]],ENDCASE => ArpaExtras.AddressAnd[address, Arpa.netMasks[c]]];};SubnetAndHostNumber: PUBLIC PROC [address: Address] RETURNS [Address] ~ {RETURN[ArpaExtras.AddressAnd[address, ArpaExtras.MaskNot[NetMask[address]]]];};NetAndSubnetMask: PUBLIC PROC [address: Address] RETURNS [Address]~ {net: Address _ NetNumber[address];FOR n: CommDriver.Network _ CommDriver.GetNetworkChain[], n.next WHILE n # NIL DOIF n.arpa.host = nullAddress THEN LOOP; -- avoid NIL fault in GetNet belowIF ArpaTranslation.GetNet[n] = netTHEN RETURN [ArpaTranslation.GetSubnetMask[n]];ENDLOOP;RETURN [NetMask[address]];};IsMyAddress: PUBLIC PROC [address: Address] RETURNS [BOOL]~ {IF address # Arpa.nullAddress THEN {FOR n: CommDriver.Network _ CommDriver.GetNetworkChain[], n.next WHILE n # NIL DOIF n.arpa.host = address THEN RETURN [TRUE];ENDLOOP;};RETURN [FALSE];};MyAddress: PUBLIC PROC RETURNS [Address _ nullAddress] ~ {FOR n: CommDriver.Network _ CommDriver.GetNetworkChain[], n.next WHILE n # NIL DOIF n.arpa.host # nullAddress THEN RETURN [n.arpa.host];ENDLOOP;};MyAddresses: PUBLIC PROC RETURNS [addresses: LIST OF Address] ~ {GetOne: PROC [n: CommDriver.Network] RETURNS [list: LIST OF Address] ~ {IF n = NIL THEN RETURN [NIL];list _ GetOne[n.next];IF n.arpa.host # nullAddress THEN list _ CONS[n.arpa.host, list];};RETURN[GetOne[CommDriver.GetNetworkChain[]]];};}...   <  ArpaImpl.mesaDemers, August 26, 1987 4:18:43 pm PDTЭ╩X  Ш codeЩKЩ&KЩ ЧЪ╧k	Ш	KЪЬЭЬ'Ш1KЪЬЭЬ)Ш9KЪЬЭЬШ.KЪЬЭЬШ+KШKШ ЧЪ╧nЬЭЬЭШKЪЭЬ(Ш/KЪЭЬШKШKШ KЪЬ	ЭЬШKЪЬЭЬШKШ KЪЬ8Ш8KЪЬ(Ш(KШ ЪЮЬЭЬЭЬЭЬШAKЪЭЬЭЬЭЬЭЬ	ШGKШ ЧЪ	Ь	ЮЬЭЬЭЬЭЬШEKЪЭЬШ!KШ ЧЪЮЬЭЬЭЬЭЬШ=ЪЭЬЭЬЭШKШKШKЪЭЬШKШЧKШKШ ЧЪЮ	ЬЭЬЭЬЭЬШ?ЪЭЬЭЬЭШKШ;KШ;KЪЭЬ4Ш;KШЧKШKШ ЧЪЮЬЭЬЭЬЭЬШIЪЭЬШKЪЬDШDKШЧKШKШ ЧЪЮЬЭЬЭЬЭЬ
ШBKШKШ"ЪЭЬ>ЭЬЭЬЭШQKЪЭЬЭЬЭЬ╧c"ШJЪЭЬ Ш"KЪЭЬЭЬ$Ш/ЧKЪЭШЧKЪЭЬШKШЧKШ Ъ
ЮЬЭЬЭЬЭЬЭЬШ:KШЪЭЬЭЬШ$ЪЭЬ>ЭЬЭЬЭШQKЪЭЬЭЬЭЬЭЬШ,KЪЭШЧKШЧKЪЭЬЭЬШKШKШ ЧЪЮ	ЬЭЬЭЬЭЬШ:ЪЭЬ>ЭЬЭЬЭШQKЪЭЬЭЬЭЬШ7KЪЭШЧKШKШ ЧЪЮЬЭЬЭЬЭЬЭЬЭЬШAЪ
ЮЬЭЬЭЬЭЬЭЬШHKЪ
ЭЬЭЬЭЬЭЬЭЬШKШKЪЭЬЭЬЭЬШAKШЧKЪЭЬ'Ш-KШKШ ЧKШЧЧ ЕЧ    	╚  \  