<<>>
<<CHEntriesP0V0AuxImpl.Mesa>>
<<Copyright Ó 1989, 1991 by Xerox Corporation.  All rights reserved.>>
<<Generated by Willie-sue.pa at February 13, 1989 2:51:09 pm PST>>
<<using Sirocco [2.0] of February 10, 1989 6:26:26 pm PST>>

    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, "]"];
            };

    }...