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;
END.