DIRECTORY Convert, Rope, CHEntriesP0V0, CHEntriesP0V0Aux, CHNameP2V0Aux; CHEntriesP0V0AuxImpl: CEDAR PROGRAM IMPORTS Convert, Rope, CHNameP2V0Aux EXPORTS CHEntriesP0V0Aux ~ { OPEN CHEntriesP0V0, CHEntriesP0V0Aux; ROPE: TYPE ~ Rope.ROPE; ExposePortSyncType: PUBLIC PROC [arg: PortSyncType, level: NAT] RETURNS [res: ROPE] ~ { SELECT arg FROM asynchronous => res _ "asynchronous"; synchronous => res _ "synchronous"; bitSynchronous => res _ "bitSynchronous"; byteSynchronous => res _ "byteSynchronous"; syncAny => res _ "syncAny"; ENDCASE => ERROR }; ExposeLineSpeedSequence: PUBLIC PROC [arg: LineSpeedSequence, level: NAT] RETURNS [res: ROPE] ~ { res _ "["; FOR i: CARDINAL IN [0..arg.length) DO res _ Rope.Cat[res, IF i>0 THEN ", " ELSE NIL, Convert.RopeFromCard[arg.body[i]]]; ENDLOOP; res _ Rope.Concat[res, "]"]; }; ExposeAuthenticationLevelValue: PUBLIC PROC [arg: AuthenticationLevelValue, level: NAT] RETURNS [res: ROPE] ~ { res _ "["; res _ Rope.Cat[res, "simpleSupported~", Convert.RopeFromBool[arg.simpleSupported], ", "]; res _ Rope.Cat[res, "strongSupported~", Convert.RopeFromBool[arg.strongSupported], "]"]; }; ExposeUserDataValue: PUBLIC PROC [arg: UserDataValue, level: NAT] RETURNS [res: ROPE] ~ { res _ "["; res _ Rope.Cat[res, "lastNameIndex~", Convert.RopeFromCard[arg.lastNameIndex], ", "]; res _ Rope.Cat[res, "fileService~", CHNameP2V0Aux.ExposeThreePartName[arg.fileService, (level+1)], "]"]; }; ExposePortDialerType: PUBLIC PROC [arg: PortDialerType, level: NAT] RETURNS [res: ROPE] ~ { SELECT arg FROM dialerNone => res _ "dialerNone"; vadic => res _ "vadic"; hayes => res _ "hayes"; ventel => res _ "ventel"; rs366 => res _ "rs366"; ENDCASE => ERROR }; ExposeRS232CData: PUBLIC PROC [arg: RS232CData, level: NAT] RETURNS [res: ROPE] ~ { res _ "["; res _ Rope.Cat[res, "cIUPort~", Convert.RopeFromBool[arg.cIUPort], ", "]; res _ Rope.Cat[res, "owningClientType~", ExposePortClientType[arg.owningClientType, (level+1)], ", "]; res _ Rope.Cat[res, "preemptionAllowed~", Convert.RopeFromBool[arg.preemptionAllowed], ", "]; res _ Rope.Cat[res, "lineNumber~", Convert.RopeFromCard[arg.lineNumber], ", "]; res _ Rope.Cat[res, "dialerNumber~", Convert.RopeFromCard[arg.dialerNumber], ", "]; res _ Rope.Cat[res, "duplexity~", Convert.RopeFromCard[arg.duplexity], ", "]; res _ Rope.Cat[res, "dialingHardware~", ExposePortDialerType[arg.dialingHardware, (level+1)], ", "]; res _ Rope.Cat[res, "charLength~", Convert.RopeFromCard[arg.charLength], ", "]; res _ Rope.Cat[res, "echoing~", ExposePortEchoingLocation[arg.echoing, (level+1)], ", "]; res _ Rope.Cat[res, "xxxxpaddingxxx~", Convert.RopeFromCard[arg.xxxxpaddingxxx], ", "]; res _ Rope.Cat[res, "flowControl~", Convert.RopeFromCard[arg.flowControl], ", "]; res _ Rope.Cat[res, "lineSpeed~", Convert.RopeFromCard[arg.lineSpeed], ", "]; res _ Rope.Cat[res, "parity~", Convert.RopeFromCard[arg.parity], ", "]; res _ Rope.Cat[res, "stopBits~", Convert.RopeFromCard[arg.stopBits], ", "]; res _ Rope.Cat[res, "portActsAsDCE~", Convert.RopeFromBool[arg.portActsAsDCE], ", "]; res _ Rope.Cat[res, "accessControl~", CHNameP2V0Aux.ExposeThreePartName[arg.accessControl, (level+1)], ", "]; res _ Rope.Cat[res, "validLineSpeeds~", ExposeLineSpeedSequence[arg.validLineSpeeds, (level+1)], "]"]; }; ExposeMailboxesValue: PUBLIC PROC [arg: MailboxesValue, level: NAT] RETURNS [res: ROPE] ~ { res _ "["; res _ Rope.Cat[res, "time~", Convert.RopeFromCard[arg.time], ", "]; res _ Rope.Cat[res, "mailService~", ExposeMailService[arg.mailService, (level+1)], "]"]; }; ExposePortEchoingLocation: PUBLIC PROC [arg: PortEchoingLocation, level: NAT] RETURNS [res: ROPE] ~ { SELECT arg FROM echoLocal => res _ "echoLocal"; echoRemote => res _ "echoRemote"; ENDCASE => ERROR }; ExposePortClientType: PUBLIC PROC [arg: PortClientType, level: NAT] RETURNS [res: ROPE] ~ { SELECT arg FROM unassigned => res _ "unassigned"; outOfService => res _ "outOfService"; its => res _ "its"; irs => res _ "irs"; gws => res _ "gws"; ibm3270Host => res _ "ibm3270Host"; ttyEmulation => res _ "ttyEmulation"; rbs => res _ "rbs"; fax => res _ "fax"; mailGateway => res _ "mailGateway"; phototypesetter => res _ "phototypesetter"; ENDCASE => ERROR }; ExposeMailService: PUBLIC PROC [arg: MailService, level: NAT] RETURNS [res: ROPE] ~ { res _ "["; FOR i: CARDINAL IN [0..4) DO res _ Rope.Cat[res, IF i>0 THEN ", " ELSE NIL, CHNameP2V0Aux.ExposeThreePartName[arg[i], (level+1)]]; ENDLOOP; res _ Rope.Concat[res, "]"]; }; }... ÎCHEntriesP0V0AuxImpl.Mesa Copyright (C) 1986 by Xerox Corporation. All rights reserved. Generated by Demers.pa at January 6, 1987 4:15:05 pm PST using Sirocco [2.0] of January 6, 1987 4:07:33 pm PST Êk˜šœ™Jšœ>™>Jšœ8™8Jšœ5™5J˜—šÏk ˜ J˜J˜J˜J˜J˜—J˜šÏnœœ˜#Jšœ˜$Jšœ˜Jšœ!˜%J˜Jšœœœ˜J˜šžœœœœœœ˜Wšœ˜J˜%J˜#J˜)J˜+J˜Jšœ˜—J˜—J˜šžœœœ!œœœ˜aJ˜ šœœœ˜%Jš œœœœœ%˜RJšœ˜—J˜J˜—J˜šžœœœ(œœœ˜oJ˜ J˜YJ˜XJ˜—J˜šžœœœœœœ˜YJ˜ J˜UJ˜hJ˜—J˜šžœœœœœœ˜[šœ˜J˜!J˜J˜J˜J˜Jšœ˜—J˜—J˜šžœœœœœœ˜SJ˜ J˜IJ˜fJ˜]J˜OJ˜SJ˜MJ˜dJ˜OJ˜YJ˜WJ˜QJ˜MJ˜GJ˜KJ˜UJ˜mJ˜fJ˜—J˜šžœœœœœœ˜[J˜ J˜CJ˜XJ˜—J˜šžœœœ#œœœ˜ešœ˜J˜J˜!Jšœ˜—J˜—J˜šžœœœœœœ˜[šœ˜J˜!J˜%J˜J˜J˜J˜#J˜%J˜J˜J˜#J˜+Jšœ˜—J˜—J˜šžœœœœœœ˜UJ˜ šœœœ˜Jš œœœœœ8˜eJšœ˜—J˜J˜—J˜—J˜J˜—…—t