-- CHEntriesP0V0AuxImpl.Mesa
	-- Copyright (C) 1986 by Xerox Corporation.  All rights reserved.
	-- Generated by Demers.pa at November 26, 1986 5:27:48 pm PST
	--  using Sirocco [1.0] of September 25, 1986 3:44:23 am PDT
	
DIRECTORY
	Convert,
	Rope,
	CHEntriesP0V0,
	CHEntriesP0V0Aux;

CHEntriesP0V0AuxImpl: CEDAR PROGRAM
	IMPORTS Convert, Rope
	EXPORTS CHEntriesP0V0Aux ~ {
	OPEN CHEntriesP0V0, CHEntriesP0V0Aux;
	
	ROPE: TYPE ~ Rope.ROPE;
	
	ExposePortSyncType: PUBLIC PROC [e: PortSyncType, level: NAT] RETURNS [x: ROPE] ~ {
		SELECT e FROM
			asynchronous => x _ "asynchronous";
			synchronous => x _ "synchronous";
			bitSynchronous => x _ "bitSynchronous";
			byteSynchronous => x _ "byteSynchronous";
			syncAny => x _ "syncAny";
			ENDCASE => x _ "unknown PortSyncType";
		};
	
	ExposeLineSpeedSequence: PUBLIC PROC [s: LineSpeedSequence, level: NAT] RETURNS [x: ROPE] ~ {
		x _ "LineSpeedSequence: [";
		FOR i: CARDINAL IN [0..s.length) DO
			x _ Rope.Concat[x, "\n"];
			FOR i: CARDINAL IN [0..2*level) DO x _ Rope.Concat[x, " "]; ENDLOOP;
			x _ Rope.Concat[x, "("];
			x _ Rope.Concat[x, Convert.RopeFromCard[i]];
			x _ Rope.Concat[x, ") "];
			x _ Rope.Concat[x, Convert.RopeFromCard[s[i]]];
			ENDLOOP;
		x _ Rope.Concat[x, "]"];
		};
	
	ExposeAuthenticationLevelValue: PUBLIC PROC [r: AuthenticationLevelValue, level: NAT] RETURNS [x: ROPE] ~ {
		x _ "[";
		x _ Rope.Concat[x, "simpleSupported: "];
		x _ Rope.Concat[x, Convert.RopeFromBool[r.simpleSupported]];
		x _ Rope.Concat[x, ", "];
		x _ Rope.Concat[x, "strongSupported: "];
		x _ Rope.Concat[x, Convert.RopeFromBool[r.strongSupported]];
		x _ Rope.Concat[x, "]"];
		};
	
	ExposeUserDataValue: PUBLIC PROC [r: UserDataValue, level: NAT] RETURNS [x: ROPE] ~ {
		x _ "[";
		x _ Rope.Concat[x, "lastNameIndex: "];
		x _ Rope.Concat[x, Convert.RopeFromCard[r.lastNameIndex]];
		x _ Rope.Concat[x, ", "];
		x _ Rope.Concat[x, "fileService: "];
		x _ Rope.Concat[x, FooP1V1.ExposeCARD[r.fileService, (level+1)]];
		x _ Rope.Concat[x, "]"];
		};
	
	ExposePortDialerType: PUBLIC PROC [e: PortDialerType, level: NAT] RETURNS [x: ROPE] ~ {
		SELECT e FROM
			dialerNone => x _ "dialerNone";
			vadic => x _ "vadic";
			hayes => x _ "hayes";
			ventel => x _ "ventel";
			rs366 => x _ "rs366";
			ENDCASE => x _ "unknown PortDialerType";
		};
	
	ExposeRS232CData: PUBLIC PROC [r: RS232CData, level: NAT] RETURNS [x: ROPE] ~ {
		x _ "[";
		x _ Rope.Concat[x, "cIUPort: "];
		x _ Rope.Concat[x, Convert.RopeFromBool[r.cIUPort]];
		x _ Rope.Concat[x, "owningClientType: "];
		x _ Rope.Concat[x, ExposePortClientType[r.owningClientType, (level+1)]];
		x _ Rope.Concat[x, "preemptionAllowed: "];
		x _ Rope.Concat[x, Convert.RopeFromBool[r.preemptionAllowed]];
		x _ Rope.Concat[x, "lineNumber: "];
		x _ Rope.Concat[x, Convert.RopeFromCard[r.lineNumber]];
		x _ Rope.Concat[x, "dialerNumber: "];
		x _ Rope.Concat[x, Convert.RopeFromCard[r.dialerNumber]];
		x _ Rope.Concat[x, "duplexity: "];
		x _ Rope.Concat[x, Convert.RopeFromCard[r.duplexity]];
		x _ Rope.Concat[x, "dialingHardware: "];
		x _ Rope.Concat[x, ExposePortDialerType[r.dialingHardware, (level+1)]];
		x _ Rope.Concat[x, "charLength: "];
		x _ Rope.Concat[x, Convert.RopeFromCard[r.charLength]];
		x _ Rope.Concat[x, "echoing: "];
		x _ Rope.Concat[x, ExposePortEchoingLocation[r.echoing, (level+1)]];
		x _ Rope.Concat[x, "xxxxpaddingxxx: "];
		x _ Rope.Concat[x, Convert.RopeFromCard[r.xxxxpaddingxxx]];
		x _ Rope.Concat[x, "flowControl: "];
		x _ Rope.Concat[x, Convert.RopeFromCard[r.flowControl]];
		x _ Rope.Concat[x, "lineSpeed: "];
		x _ Rope.Concat[x, Convert.RopeFromCard[r.lineSpeed]];
		x _ Rope.Concat[x, "parity: "];
		x _ Rope.Concat[x, Convert.RopeFromCard[r.parity]];
		x _ Rope.Concat[x, "stopBits: "];
		x _ Rope.Concat[x, Convert.RopeFromCard[r.stopBits]];
		x _ Rope.Concat[x, "portActsAsDCE: "];
		x _ Rope.Concat[x, Convert.RopeFromBool[r.portActsAsDCE]];
		x _ Rope.Concat[x, "accessControl: "];
		x _ Rope.Concat[x, FooP1V1.ExposeCARD[r.accessControl, (level+1)]];
		x _ Rope.Concat[x, ", "];
		x _ Rope.Concat[x, "validLineSpeeds: "];
		x _ Rope.Concat[x, ExposeLineSpeedSequence[r.validLineSpeeds, (level+1)]];
		x _ Rope.Concat[x, "]"];
		};
	
	ExposeMailboxesValue: PUBLIC PROC [r: MailboxesValue, level: NAT] RETURNS [x: ROPE] ~ {
		x _ "[";
		x _ Rope.Concat[x, "time: "];
		x _ Rope.Concat[x, Convert.RopeFromCard[r.time]];
		x _ Rope.Concat[x, ", "];
		x _ Rope.Concat[x, "mailService: "];
		x _ Rope.Concat[x, ExposeMailService[r.mailService, (level+1)]];
		x _ Rope.Concat[x, "]"];
		};
	
	ExposePortEchoingLocation: PUBLIC PROC [e: PortEchoingLocation, level: NAT] RETURNS [x: ROPE] ~ {
		SELECT e FROM
			echoLocal => x _ "echoLocal";
			echoRemote => x _ "echoRemote";
			ENDCASE => x _ "unknown PortEchoingLocation";
		};
	
	ExposePortClientType: PUBLIC PROC [e: PortClientType, level: NAT] RETURNS [x: ROPE] ~ {
		SELECT e FROM
			unassigned => x _ "unassigned";
			outOfService => x _ "outOfService";
			its => x _ "its";
			irs => x _ "irs";
			gws => x _ "gws";
			ibm3270Host => x _ "ibm3270Host";
			ttyEmulation => x _ "ttyEmulation";
			rbs => x _ "rbs";
			fax => x _ "fax";
			mailGateway => x _ "mailGateway";
			phototypesetter => x _ "phototypesetter";
			ENDCASE => x _ "unknown PortClientType";
		};
	
	ExposeMailService: PUBLIC PROC [a: MailService, level: NAT] RETURNS [x: ROPE] ~ {
		x _ "MailService: [";
		FOR i: CARDINAL IN [0..3) DO
			x _ Rope.Concat[x, FooP1V1.ExposeCARD[a[i], (level+1)]];
			x _ Rope.Concat[x, ", "];
			ENDLOOP;
		x _ Rope.Concat[x, FooP1V1.ExposeCARD[a[3], (level+1)]];
		x _ Rope.Concat[x, "]"];
		};
	
}...