[Pixel]<NCP>XNSClearinghouse>CHEntriesP0V0AuxImpl.Mesa!2

CHEntriesP0V0AuxImpl.Mesa

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

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

};

}...