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