Unformat.mesa
last edited by Willie-Sue, April 6, 1984 2:42:54 pm PST
lifted from Unformat.mesa, HGM, 30-Oct-82 15:07:00
DIRECTORY
NSPilotSystem USING [HostNumber, NetworkAddress, NetworkNumber, SocketNumber],
Rope USING [ROPE];
Unformat:
DEFINITIONS =
BEGIN
NetFormat: TYPE = {octal, productSoftware, hex};
Error: ERROR;
HostNumber:
PROC[r: Rope.
ROPE, format: NetFormat ← octal]
RETURNS [host: NSPilotSystem.HostNumber];
NetworkAddress: PROC [r: Rope.ROPE, format: NetFormat ← octal]
RETURNS [address: NSPilotSystem.NetworkAddress];
NetworkNumber: PROC [r: Rope.ROPE, format: NetFormat ← octal]
RETURNS [networkNumber: NSPilotSystem.NetworkNumber];
SocketNumber: PROC[r: Rope.ROPE, format: NetFormat ← octal]
RETURNS [socketNumber: NSPilotSystem.SocketNumber];
this came from Format
HostNumberToRope:
PROC[hostNumber: NSPilotSystem.HostNumber, format: NetFormat← octal]
RETURNS[r: Rope.ROPE];
END...