<> <> <> <> <> <> DIRECTORY Rope USING [ROPE]; GVBasics: CEDAR DEFINITIONS = BEGIN OPEN Rope; <> <> GVString: TYPE = ROPE; maxGVStringLength: CARDINAL = 64; <> RName: TYPE = GVString; maxRNameLength: CARDINAL = maxGVStringLength; <> Connect: TYPE = GVString; maxConnectLength: CARDINAL = maxGVStringLength; <<"Connect" is the representation of a connect-site for an individual (typically a server). It is a string which is either an NLS name or a PUP address.>> Remark: TYPE = GVString; maxRemarkLength: CARDINAL = maxGVStringLength; <<"Remark" is the representation of a remark associated with a group, or of a TOC entry in a mailbox. It is a human readable string.>> Password: TYPE = ARRAY[0..3] OF CARDINAL; <<"Password" is the representation of an individual's encryption key. It is intended to be used with the DES encryption algorithm. Note that this is not the same as DESFace.Key (today), not even if you use LOOPHOLE.>> MakeKey: PROC[ROPE] RETURNS[ Password ]; <> <> Timestamp: TYPE = MACHINE DEPENDENT RECORD[ net: [0..256), -- the PUP net number host: [0..256), -- the PUP host number time: PackedTime]; PackedTime: TYPE = LONG CARDINAL; <> oldestTime: Timestamp = [net:0, host:0, time:0]; RopeFromTimestamp: PROC[Timestamp] RETURNS[ROPE]; <> <> ItemHeader: TYPE = MACHINE DEPENDENT RECORD[ type: ItemType, length: ItemLength ]; <> Item: TYPE = REF ItemHeader; ItemLength: TYPE = INT; <> ItemType: TYPE = MACHINE DEPENDENT { <> PostMark(10B), <> Sender(20B), <> ReturnTo(30B), <> Recipients(40B), <> <> Text(1010B), <> Tioga1(1013B), -- Cedar <> Tioga2(1014B), -- Cedar <> <<>> WalnutLog(1015B), -- Cedar/Walnut <> Capability(1020B), <> Audio(1030B), <> Interscript(1031B), <> <<>> <> Smalltalk(1040B), <> <<1040B Smalltalk text formatting runs>> <<1041B Smalltalk ID (client generated Postmark)>> <<1044B Compressed bitmap image (CAIS format)>> << We have specified, but not yet implemented the following codes:>> <<1042B Letter reference>> <<1043B File reference>> <<1045B Smalltalk code>> <> lastSmallTalk(1057B), <<>> <> <<>> Interlisp(1060B), lastInterlisp(1077B), <> <> <<>> GGW(1100B), <> lastGGW(1117B), <> <<>> <> <<>> Cedar(1120B), lastCedar(1137B), <> <<>> <> <<>> Voice(1140B), lastVoice(1147B), <> <<>> <> <<>> MessageComposer(1150B), <> <<>> <> updateItem(2000B), <> reMail(2100B), <> <> msgAttributes(3000B), <> <> <> <> <> <> <> msgClasses(3001B), <> <<>> <> LastItem(LAST[CARDINAL]) <> }; END.