CHEntries.cr
Copyright Ó 1986, 1991 by Xerox Corporation. All rights reserved.
Bill Jackson (bj) October 9, 1986 4:44:35 am PDT
Demers, January 19, 1987 2:14:59 pm PST
Although no official Courier program corresponds to this file, the file
contains useful data for Courier programs. In particular, it contains
data garnered from CHpids.mesa and CHentries.mesa, as well as from the
document "Clearinghouse Entry Formats".
CHEntries: PROGRAM 0 VERSION 0 = BEGIN
DEPENDS UPON
CHName (2) VERSION 0,
CHOps (2) VERSION 3,
Time (15) VERSION 2;
faked dependency for RS232CEnvironment (?) VERSION ?
DEPENDS UPON
RS232CEnvironment (?) VERSION ?;
Warts
This should come from RS232CEnvironment!
Duplexity: TYPE = CARDINAL;  -- for now
CharLength: TYPE = CARDINAL;  -- for now
FlowControl: TYPE = CARDINAL;  -- for now
LineSpeed: TYPE = CARDINAL;  -- for now
Parity: TYPE = CARDINAL;  -- for now
StopBits: TYPE = CARDINAL;  -- for now
Primitive types
Description: TYPE = STRING;
AddressListValue: TYPE = CHOps.NetworkAddressList;
Enumerated types
PortClientType: TYPE = {
unassigned(0),
outOfService(1),
its(2),
irs(3),
gws(4),
ibm3270Host(5),
ttyEmulation(6),
rbs(7),
fax(9), -- oops!
mailGateway(10),
phototypesetter(11)
};
PortDialerType: TYPE = {
dialerNone(0),
vadic(1),
hayes(2),
ventel(3),
rs366(4)
};
PortEchoingLocation: TYPE = {
echoLocal(0),
echoRemote(1)
};
PortSyncType: TYPE = {
asynchronous(0),
synchronous(1),
bitSynchronous(2),
byteSynchronous(3),
syncAny(4)
};
Array types
MailService: TYPE = ARRAY 4 OF CHName.Name;
Record Types
AuthenticationLevelValue: TYPE = RECORD [
simpleSupported: BOOLEAN,
strongSupported: BOOLEAN
];
MailboxesValue: TYPE = RECORD [
time: Time.Time,
mailService: MailService
];
RS232CData: TYPE = RECORD [
cIUPort: BOOLEAN,
owningClientType: PortClientType,
preemptionAllowed: BOOLEAN,
lineNumber: CARDINAL,  -- logical line number
dialerNumber: CARDINAL,  -- logical dialer number; must be unique within domain
duplexity: Duplexity,
dialingHardware: PortDialerType,
charLength: CharLength,
echoing: PortEchoingLocation,
xxxxpaddingxxx: LONG CARDINAL,
flowControl: FlowControl,
lineSpeed: LineSpeed,
parity: Parity,
stopBits: StopBits,
portActsAsDCE: BOOLEAN,
accessControl: CHName.Name,
validLineSpeeds: LineSpeedSequence
];
UserDataValue: TYPE = RECORD [
lastNameIndex: CARDINAL,
fileService: CHName.Name
];
Sequence Types
LineSpeedSequence: TYPE = SEQUENCE OF LineSpeed;
Constants
addressList: CHOps.Property = 4; -- Item is AddressListValue
adobeService: CHOps.Property = 10013;
associatedWorkstation: CHOps.Property = 30005;
authenticationLevel: CHOps.Property = 8; -- Item is AuthenticationLevelValue
authenticationService: CHOps.Property = 10016;
authKeys: CHOps.Property = 6;
canMailTo: CHOps.Property = 20005; -- use with user groups
clearinghouseService: CHOps.Property = 10021; -- Item is Description
communicationsInterfaceUnit: CHOps.Property = 10020;
externalCommunicationsService: CHOps.Property = 10006;
fetchService: CHOps.Property = 10023;
fileService: CHOps.Property = 10000; -- Item is Description
foreignMailSystemName: CHOps.Property = 20007;
ibm3270Host: CHOps.Property = 10010;
ibm3270HostBack: CHOps.Property = 20103; -- Item is CHOps.Name
ibm3270HostData: CHOps.Property = 20002; --Item is IBM3270HostData
interactiveTerminalService: CHOps.Property = 10008;
internetworkRoutingService: CHOps.Property = 10002;
gatewayService: CHOps.Property = 10009;
librarianService: CHOps.Property = 10014;
mailboxes: CHOps.Property = 31; -- Item is MailboxesValue
mailGateway: CHOps.Property = 10011;
mailGatewayRouteData: CHOps.Property = 20006;
mailService: CHOps.Property = 10004; -- Item is Description
members: CHOps.Property = 3; -- Group property => no Item
network: CHOps.Property = 10018;
networkServers: CHOps.Property = 10019;
printService: CHOps.Property = 10001; -- Item is Description
remoteBatchService: CHOps.Property = 10017;
rs232CBack: CHOps.Property = 20102; -- Item is RS232CBack
rs232CData: CHOps.Property = 20001; -- Item is RS232CData
rs232CPort: CHOps.Property = 10007;
services: CHOps.Property = 51;
siemens9750Host: CHOps.Property = 10012;
siemens9750HostData: CHOps.Property = 20003; --Item is Siemens9750HostData
ttxGateway: CHOps.Property = 10015;
user: CHOps.Property = 10003; -- Item is Description
userData: CHOps.Property = 20000; -- Item is UserDataValue
userGroup: CHOps.Property = 10022; -- Group property => no Item
userPassword: CHOps.Property = 20101;
workstation: CHOps.Property = 10005;
END.