[_CDCSL_93-16_]<1>Cedar>release>XNSClearinghouse>CHEntriesP0V0AuxImpl.mesa

CHEntriesP0V0AuxImpl.Mesa

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

};

}...