DIRECTORY Rope USING [ROPE]; HostAndTerminalOps: CEDAR DEFINITIONS = BEGIN ROPE: TYPE ~ Rope.ROPE; Side: TYPE ~ {Host, Terminal}; ProtocolVersion: TYPE ~ NATURAL[0 .. 100]; ProtocolVersionRange: TYPE ~ RECORD [ min: ProtocolVersion ¬ ProtocolVersion.FIRST, max: ProtocolVersion ¬ ProtocolVersion.LAST]; SetProtocolVersionRangeForSide: PROC [side: Side, protocol: ROPE, pvr: ProtocolVersionRange]; GetProtocolVersionRangeForSide: PROC [side: Side, protocol: ROPE] RETURNS [ProtocolVersionRange]; EnumerateProtocolVersionsOfSide: PROC [side: Side, Consume: PROC [ROPE, ProtocolVersionRange]]; END. ˜HostAndTerminalOps.Mesa Copyright Σ 1992 by Xerox Corporation. All rights reserved. Last tweaked by Mike Spreitzer on March 18, 1992 8:02 am PST Κ>–(cedarcode) style•NewlineDelimiter ˜code™Kšœ Οeœ1™