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, "]"]; }; }... ÔCHEntriesP0V0AuxImpl.Mesa Copyright (C) 1986 by Xerox Corporation. All rights reserved. Generated by BJackson.pa at October 9, 1986 4:46:39 am PDT using Sirocco [1.0] of September 25, 1986 3:44:23 am PDT ÊÀ˜šœ™Jšœ>™>Jšœ:™:Jšœ8™8J˜—šÏk ˜ J˜J˜J˜J˜—J˜šÏnœœ˜#Jšœ˜Jšœ˜Jšœ!˜%J˜Jšœœœ˜J˜šžœœœœœœ˜Sšœ˜ J˜#J˜!J˜'J˜)J˜Jšœ˜&—J˜—J˜šžœœœœœœ˜]J˜šœœœ˜#J˜Jš œœœœœ˜DJ˜J˜,J˜J˜/Jšœ˜—J˜J˜—J˜šžœœœ&œœœ˜kJ˜J˜(J˜J˜#J˜7J˜%J˜9J˜"J˜6J˜(J˜GJ˜#J˜7J˜ J˜DJ˜'J˜;J˜$J˜8J˜"J˜6J˜J˜3J˜!J˜5J˜&J˜:J˜&J˜CJ˜J˜(J˜JJ˜J˜—J˜šžœœœœœœ˜WJ˜J˜J˜1J˜J˜$J˜@J˜J˜—J˜šžœœœ!œœœ˜ašœ˜ J˜J˜Jšœ&˜-—J˜—J˜šžœœœœœœ˜Wšœ˜ J˜J˜#J˜J˜J˜J˜!J˜#J˜J˜J˜!J˜)Jšœ!˜(—J˜—J˜šžœœœœœœ˜QJ˜šœœœ˜J˜8J˜Jšœ˜—J˜8J˜J˜—J˜—J˜J˜—…—î‚