EnvelopeContents0.cr
Copyright Ó 1988, 1991 by Xerox Corporation. All rights reserved.
Doug Terry, November 15, 1988 4:05:14 pm PST
Wes Irish, December 16, 1988 2:38:55 pm PST
EnvelopeContents:
PROGRAM 0
VERSION 0 =
BEGIN
DEPENDS
UPON
CHName (2) VERSION 0,
MailTransport (17) VERSION 5,
EnvelopeFormat (1517) VERSION 1;
PostmarkFromItem:
PROCEDURE [item: MailTransport.Opaque]
RETURNS [length:
CARDINAL, value: EnvelopeFormat.Postmark] = 0;
MessageIDFromItem:
PROCEDURE [item: MailTransport.Opaque]
RETURNS [length:
CARDINAL, value: EnvelopeFormat.MessageID] = 1;
ContentsTypeFromItem:
PROCEDURE [item: MailTransport.Opaque]
RETURNS [length:
CARDINAL, value: EnvelopeFormat.ContentsType] = 2;
TableOfContentsFromItem:
PROCEDURE [item: MailTransport.Opaque]
RETURNS [length:
CARDINAL, value: EnvelopeFormat.TableOfContents] = 3;
ContentsSizeFromItem:
PROCEDURE [item: MailTransport.Opaque]
RETURNS [length:
CARDINAL, value: EnvelopeFormat.ContentsSize] = 4;
OriginatorFromItem:
PROCEDURE [item: MailTransport.Opaque]
RETURNS [length:
CARDINAL, value: EnvelopeFormat.Originator] = 5;
WARNING!!! The Sirocco generated code for the resulting ClientImpl that implements the following PROCEDURE (ReportFromItem) exposes a bug in the current Compiler that results in a FATAL COMPILER ERROR! The work-around is to edit the resulting ClientImpl code BEFORE running it through the compiler. Add the following lines at the beginning of the UProc code that deals with EnvelopeFormatP1517V1.NonDelType:
-- hack to copy in enough of the type EnvelopeFormatP1517V1.NonDelType
rr: REF ← NIL;
WITH rr SELECT FROM
t2: REF EnvelopeFormatP1517V1.NonDelType => {};
ENDCASE;
ReportFromItem:
PROCEDURE [item: MailTransport.Opaque]
RETURNS [length:
CARDINAL, value: EnvelopeFormat.Report] = 6;
ReturnToNameFromItem:
PROCEDURE [item: MailTransport.Opaque]
RETURNS [length:
CARDINAL, value: EnvelopeFormat.ReturnToName] = 7;
PreviousRecipientsFromItem:
PROCEDURE [item: MailTransport.Opaque]
RETURNS [length:
CARDINAL, value: EnvelopeFormat.PreviousRecipients] = 8;
GatewayPostmarkFromItem:
PROCEDURE [item: MailTransport.Opaque]
RETURNS [length:
CARDINAL, value: EnvelopeFormat.GatewayPostmark] = 9;
AddressChangeNoticeFromItem:
PROCEDURE [item: MailTransport.Opaque]
RETURNS [length:
CARDINAL, value: EnvelopeFormat.AddressChangeNotice] = 10;
TransportOptionsFromItem:
PROCEDURE [item: MailTransport.Opaque]
RETURNS [length:
CARDINAL, value: EnvelopeFormat.TransportOptions] = 11;
X400SpecificReportInformationFromItem:
PROCEDURE [item: MailTransport.Opaque]
RETURNS [length:
CARDINAL, value: EnvelopeFormat.X400SpecificReportInformation] = 12;
OtherRecipientsFromItem:
PROCEDURE [item: MailTransport.Opaque]
RETURNS [length:
CARDINAL, value: EnvelopeFormat.OtherRecipients] = 13;
PriorityFromItem:
PROCEDURE [item: MailTransport.Opaque]
RETURNS [length:
CARDINAL, value: EnvelopeFormat.Priority] = 14;
ConvertedFromItem:
PROCEDURE [item: MailTransport.Opaque]
RETURNS [length:
CARDINAL, value: EnvelopeFormat.Converted] = 15;
AuthenticationLevelOfSenderFromItem:
PROCEDURE [item: MailTransport.Opaque]
RETURNS [length:
CARDINAL, value: EnvelopeFormat.AuthenticationLevelOfSender] = 16;