
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 Ó 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
 Ê  •NewlineDelimiter
–(cedarcode) style™ šœ™Jšœ	Ïeœ6™BJšœ>™>Jšœ7™7Icode˜ —šÏk	˜	K˜K˜K˜K˜K˜—K˜ šÏnœžœž˜#Kšžœ˜$Kšžœ˜Kšžœ!˜%K˜ Kšžœžœžœ˜K˜ šŸœžœžœžœžœžœ˜Wšžœž˜K˜%K˜#K˜)K˜+K˜Kšžœž˜—K˜—K˜ šŸœžœžœ!žœžœžœ˜aK˜
šžœžœžœž˜%Kš	œžœžœžœžœ%˜RKšžœ˜—K˜K˜—K˜ šŸœžœžœ(žœžœžœ˜oK˜
K˜YK˜XK˜—K˜ šŸœžœžœžœžœžœ˜YK˜
K˜UK˜hK˜—K˜ šŸœžœžœžœžœžœ˜[šžœž˜K˜!K˜K˜K˜K˜Kšžœž˜—K˜—K˜ šŸœžœžœžœžœžœ˜SK˜
K˜IK˜fK˜]K˜OK˜SK˜MK˜dK˜OK˜YK˜WK˜QK˜MK˜GK˜KK˜UK˜mK˜fK˜—K˜ šŸœžœžœžœžœžœ˜[K˜
K˜CK˜XK˜—K˜ šŸœžœžœ#žœžœžœ˜ešžœž˜K˜K˜!Kšžœž˜—K˜—K˜ šŸœžœžœžœžœžœ˜[šžœž˜K˜!K˜%K˜K˜K˜K˜#K˜%K˜K˜K˜#K˜+Kšžœž˜—K˜—K˜ šŸœžœžœžœžœžœ˜UK˜
šžœžœžœž˜Kš	œžœžœžœžœ8˜eKšžœ˜—K˜K˜—K˜ —K˜K˜ — …—    t  í  