

CHEntries: PROGRAM 0 VERSION 0 = BEGIN
DEPENDS UPON
CHName (2) VERSION 0,
CHOps (2) VERSION 3,
Time (15) VERSION 2;


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

Description: TYPE = STRING;
AddressListValue: TYPE = CHOps.NetworkAddressList;

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)
};


MailService: TYPE = ARRAY 4 OF CHName.Name;

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
];
LineSpeedSequence: TYPE = SEQUENCE OF LineSpeed;


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.

  š  
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".
faked dependency for RS232CEnvironment (?) VERSION ?

DEPENDS UPON
RS232CEnvironment (?) VERSION ?;
Warts
This should come from RS232CEnvironment!

Primitive types

Enumerated types

Array types
Record Types


Sequence Types

Constants
Êà  •NewlineDelimiter
–(cedarcode) style™ šœ™Icodešœ	Ïeœ6™BK™0K™'—J˜ šœG™GJšœF™FJšœF™FJšœ'™'—J˜ JšÏn	œÏkœŸœŸ˜&šŸœŸ˜JšœŸœ˜Jšœ
Ÿœ˜Jšœ
Ÿœ˜J˜ —šœ4™4J™ —šœ™Jšœ ™ —J˜ ™J˜ Jšœ(™(Jšœ˜JšœŸœŸœÏc
˜'JšœŸœŸœ 
˜(JšœŸœŸœ 
˜)JšœŸœŸœ 
˜'JšœŸœŸœ 
˜$Jšœ
ŸœŸœ 
˜&J˜ —J™ šœ™J™ JšœŸœŸœ˜JšœŸœ˜2J˜ —šœ™J™ šœŸœ˜Jšœ˜Jšœ˜Jšœ˜Jšœ˜Jšœ˜Jšœ˜Jšœ˜Jšœ˜Jšœ ˜Jšœ˜Jšœ˜Jšœ˜J˜ —šœŸœ˜Jšœ˜Jšœ	˜	Jšœ	˜	Jšœ
˜
Jšœ˜Jšœ˜J˜ —šœŸœ˜Jšœ˜Jšœ˜Jšœ˜J˜ —šœŸœ˜Jšœ˜Jšœ˜Jšœ˜Jšœ˜Jšœ
˜
Jšœ˜—J˜ —šœ™J˜ JšœŸœŸœŸœ˜+J˜ —šœ™J™ šœŸœŸœ˜)JšœŸœ˜JšœŸ˜Jšœ˜J˜ —šœŸœŸœ˜J˜Jšœ˜Jšœ˜J˜ —šœŸœŸœ˜Jšœ	Ÿœ˜J˜!JšœŸœ˜JšœŸœ ˜-JšœŸœ 6˜OJ˜J˜ J˜J˜JšœŸœŸœ˜J˜J˜J˜J˜JšœŸœ˜Jšœ˜Jšœ"˜"Jšœ˜J˜ —šœŸœŸœ˜JšœŸœ˜Jšœ˜J˜—J™ —™J™ JšœŸœŸœŸœ˜0J˜ —šœ	™	J˜ Jšœ! ˜=J˜%J˜.Jšœ) $˜MJ˜.J˜Jšœ# ˜:Jšœ. ˜EJ˜4J˜6J˜%Jšœ% ˜<J˜.J˜$Jšœ) ˜?Jšœ) ˜CJ˜3J˜3J˜'J˜)Jšœ  ˜:J˜$J˜-Jšœ% ˜<Jšœ ˜:J˜ J˜'Jšœ& ˜=J˜+Jšœ$ ˜:Jšœ$ ˜:J˜#J˜J˜(Jšœ- ˜KJ˜#Jšœ ˜5Jšœ" ˜;Jšœ# ˜@J˜%J˜$—J˜ JšŸœ˜J˜ — …—      ’  