DIRECTORY NSAddress USING [NetworkAddress, NetworkNumber]; AddressTranslation: DEFINITIONS = BEGIN NSAddressElement: TYPE = NSAddress.NetworkAddress; NetworkAddress: TYPE = NSAddress.NetworkAddress; StringToNetworkAddress: PROCEDURE [STRING] RETURNS [NetworkAddress]; StringToNSAddressElement: PROCEDURE [STRING] RETURNS [NSAddressElement]; StringToNetworkNumber: PROCEDURE [STRING] RETURNS [NSAddress.NetworkNumber]; BadSyntax: ERROR [field: Field]; Field: TYPE = {net, host, socket}; AppendNetworkAddress: PROCEDURE [s: STRING, nA: NetworkAddress]; AppendNSAddressElement: PROCEDURE [s: STRING, sE: NSAddressElement]; AppendNetworkNumber: PROCEDURE [s: STRING, net: NSAddress.NetworkNumber]; AppendMyNetworkNumber: PROCEDURE [STRING]; -- primary network AppendMyHostNumber: PROCEDURE [STRING]; StringOverflow: ERROR; -- error generated by the above procedures. END. Time: May 9, 1980 11:56 AM By: Dalal Action: created file. Time: June 9, 1980 1:22 PM By: AOF Action: Commented on definition of various fields of . Time: July 29, 1980 12:10 PM By: AOF Action: SIGNALs => ERRORs Time: August 21, 1980 2:37 PM By: AOF Action: Fix NSAddressElement and NetworkAddress so they are opaque. PAddressTranslation.mesa Copyright c 1985 by Xerox Corporation. All rights reserved. AOF on: September 10, 1980 9:32 AM interface All numbers are in octal. ::= ## ::= ## ::= . ::= {a 32 bit number, soon to be 48 bits} | ::= | | | ::= * ::= {48 bit processor ID} ::= a{8 bit number representing the ether address} ::= e{8 bit number requiring 48 bit translation service} ::= {16 bit number} Κθ˜codešœ™Kšœ Οmœ1™