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; 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. ψ 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 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; Κ›•NewlineDelimiter –(cedarcode) style™codešœ™Kšœ Οeœ7™BK™,K™+K™—šΟnœΟkœŸœŸ˜-šŸœŸ˜ Kšœ Ÿœ˜KšœŸœ˜KšœŸœ˜ K˜—šžœŸ œŸœ Ÿœ&˜xK˜—šžœŸ œŸœ Ÿœ'˜zK˜—šžœŸ œŸœ Ÿœ*˜€K˜—šžœŸ œŸœ Ÿœ-˜†K˜—šžœŸ œŸœ Ÿœ*˜€K˜—šžœŸ œŸœ Ÿœ(˜|K˜—šœ™™™KšΟfF™FKš ™š ™Kš /™/Kš ™K™——šžœŸ œŸœ Ÿœ$˜tK˜—šžœŸ œŸœ Ÿœ*˜€K˜—šžœŸ œŸœ Ÿœ0˜ŒK˜—šžœŸ œŸœ Ÿœ-˜†K˜—šžœŸ œŸœ Ÿœ2˜K˜—šžœŸ œŸœ Ÿœ/˜‰K˜—šž%œŸ œŸœ Ÿœ<˜£K˜—šžœŸ œŸœ Ÿœ.˜‡K˜—šžœŸ œŸœ Ÿœ'˜yK˜—šžœŸ œŸœ Ÿœ(˜{K˜—šž#œŸ œŸœ Ÿœ:˜ŸK˜——KšŸœ˜J˜—…— ˆ