[_CDCSL_93-16_]<1>Cedar>release>XNSMailProtocol>HeaderContents2P0V0ClientImpl.mesa

-- HeaderContents2P0V0ClientImpl.Mesa
-- Copyright Ó 1991 by Xerox Corporation. All rights reserved.
-- Copyright (C) 1989 by Xerox Corporation. All rights reserved.
-- Generated by Willie-sue.pa at February 13, 1989 6:54:17 pm PST
-- using Sirocco [2.0] of February 10, 1989 6:26:26 pm PST

DIRECTORY
CrRPC,
MailFormatP1516V3,
CHNameP2V0,
MailTransportP17V5,
HeaderContents2P0V0;

HeaderContents2P0V0ClientImpl: CEDAR PROGRAM
IMPORTS CrRPC
EXPORTS HeaderContents2P0V0 ~ {
OPEN HeaderContents2P0V0;

GetError: CrRPC.GetErrorProc ~ {
ERROR CrRPC.Error[h, remoteError, "Unexpected Remote Error"];
};

-- Remote Procedures --

AttrFromExpiryDate: PUBLIC AttrFromExpiryDateType ~ {
PutArgs: CrRPC.PutArgsProc ~ {
CrRPC.PutCard16[s, length];
CrRPC.PutCard32[s, value];
};
GetResults: CrRPC.GetResultsProc ~ {
attr ¬ UProc1[h, s];
};

CrRPC.Call[h~h, remotePgm~0, remotePgmVersion~0, remoteProc~31 , putArgs~PutArgs, getResults~GetResults, getError~GetError];
};

AttrFromSubject: PUBLIC AttrFromSubjectType ~ {
PutArgs: CrRPC.PutArgsProc ~ {
CrRPC.PutCard16[s, length];
CrRPC.PutRope[s, value];
};
GetResults: CrRPC.GetResultsProc ~ {
attr ¬ UProc1[h, s];
};

CrRPC.Call[h~h, remotePgm~0, remotePgmVersion~0, remoteProc~30 , putArgs~PutArgs, getResults~GetResults, getError~GetError];
};

AttrFromReplyBy: PUBLIC AttrFromReplyByType ~ {
PutArgs: CrRPC.PutArgsProc ~ {
CrRPC.PutCard16[s, length];
CrRPC.PutCard32[s, value];
};
GetResults: CrRPC.GetResultsProc ~ {
attr ¬ UProc1[h, s];
};

CrRPC.Call[h~h, remotePgm~0, remotePgmVersion~0, remoteProc~32 , putArgs~PutArgs, getResults~GetResults, getError~GetError];
};

AttrFromImmutable: PUBLIC AttrFromImmutableType ~ {
PutArgs: CrRPC.PutArgsProc ~ {
CrRPC.PutCard16[s, length];
NULL; -- RECORD [] --
};
GetResults: CrRPC.GetResultsProc ~ {
attr ¬ UProc1[h, s];
};

CrRPC.Call[h~h, remotePgm~0, remotePgmVersion~0, remoteProc~37 , putArgs~PutArgs, getResults~GetResults, getError~GetError];
};

AttrFromImportance: PUBLIC AttrFromImportanceType ~ {
PutArgs: CrRPC.PutArgsProc ~ {
CrRPC.PutCard16[s, length];
CrRPC.PutCard16[s, ORD[value]];
};
GetResults: CrRPC.GetResultsProc ~ {
attr ¬ UProc1[h, s];
};

CrRPC.Call[h~h, remotePgm~0, remotePgmVersion~0, remoteProc~34 , putArgs~PutArgs, getResults~GetResults, getError~GetError];
};

AttrFromInReplyTo: PUBLIC AttrFromInReplyToType ~ {
PutArgs: CrRPC.PutArgsProc ~ {
CrRPC.PutCard16[s, length];
MProc2[h, s, value.originator];
CrRPC.PutRope[s, value.uniqueString];
};
GetResults: CrRPC.GetResultsProc ~ {
attr ¬ UProc1[h, s];
};

CrRPC.Call[h~h, remotePgm~0, remotePgmVersion~0, remoteProc~27 , putArgs~PutArgs, getResults~GetResults, getError~GetError];
};

AttrFromAutoforwarded: PUBLIC AttrFromAutoforwardedType ~ {
PutArgs: CrRPC.PutArgsProc ~ {
CrRPC.PutCard16[s, length];
CrRPC.PutBool[s, value];
};
GetResults: CrRPC.GetResultsProc ~ {
attr ¬ UProc1[h, s];
};

CrRPC.Call[h~h, remotePgm~0, remotePgmVersion~0, remoteProc~36 , putArgs~PutArgs, getResults~GetResults, getError~GetError];
};

AttrFromMessageID: PUBLIC AttrFromMessageIDType ~ {
PutArgs: CrRPC.PutArgsProc ~ {
CrRPC.PutCard16[s, length];
MProc2[h, s, value.originator];
CrRPC.PutRope[s, value.uniqueString];
};
GetResults: CrRPC.GetResultsProc ~ {
attr ¬ UProc1[h, s];
};

CrRPC.Call[h~h, remotePgm~0, remotePgmVersion~0, remoteProc~21 , putArgs~PutArgs, getResults~GetResults, getError~GetError];
};

AttrFromForwardedHeadings: PUBLIC AttrFromForwardedHeadingsType ~ {
PutArgs: CrRPC.PutArgsProc ~ {
CrRPC.PutCard16[s, length];
MProc3[h, s, value];
};
GetResults: CrRPC.GetResultsProc ~ {
attr ¬ UProc1[h, s];
};

CrRPC.Call[h~h, remotePgm~0, remotePgmVersion~0, remoteProc~40 , putArgs~PutArgs, getResults~GetResults, getError~GetError];
};

AttrFromAuthorizingUsers: PUBLIC AttrFromAuthorizingUsersType ~ {
PutArgs: CrRPC.PutArgsProc ~ {
CrRPC.PutCard16[s, length];
MProc4[h, s, value];
};
GetResults: CrRPC.GetResultsProc ~ {
attr ¬ UProc1[h, s];
};

CrRPC.Call[h~h, remotePgm~0, remotePgmVersion~0, remoteProc~23 , putArgs~PutArgs, getResults~GetResults, getError~GetError];
};

AttrFromTextAnnotation: PUBLIC AttrFromTextAnnotationType ~ {
PutArgs: CrRPC.PutArgsProc ~ {
CrRPC.PutCard16[s, length];
CrRPC.PutRope[s, value];
};
GetResults: CrRPC.GetResultsProc ~ {
attr ¬ UProc1[h, s];
};

CrRPC.Call[h~h, remotePgm~0, remotePgmVersion~0, remoteProc~39 , putArgs~PutArgs, getResults~GetResults, getError~GetError];
};

AttrFromOriginator: PUBLIC AttrFromOriginatorType ~ {
PutArgs: CrRPC.PutArgsProc ~ {
CrRPC.PutCard16[s, length];
MProc2[h, s, value];
};
GetResults: CrRPC.GetResultsProc ~ {
attr ¬ UProc1[h, s];
};

CrRPC.Call[h~h, remotePgm~0, remotePgmVersion~0, remoteProc~22 , putArgs~PutArgs, getResults~GetResults, getError~GetError];
};

AttrFromReplyRequest: PUBLIC AttrFromReplyRequestType ~ {
PutArgs: CrRPC.PutArgsProc ~ {
CrRPC.PutCard16[s, length];
MProc4[h, s, value];
};
GetResults: CrRPC.GetResultsProc ~ {
attr ¬ UProc1[h, s];
};

CrRPC.Call[h~h, remotePgm~0, remotePgmVersion~0, remoteProc~38 , putArgs~PutArgs, getResults~GetResults, getError~GetError];
};

AttrFromReplyToUsers: PUBLIC AttrFromReplyToUsersType ~ {
PutArgs: CrRPC.PutArgsProc ~ {
CrRPC.PutCard16[s, length];
MProc4[h, s, value];
};
GetResults: CrRPC.GetResultsProc ~ {
attr ¬ UProc1[h, s];
};

CrRPC.Call[h~h, remotePgm~0, remotePgmVersion~0, remoteProc~33 , putArgs~PutArgs, getResults~GetResults, getError~GetError];
};

AttrFromObsoletes: PUBLIC AttrFromObsoletesType ~ {
PutArgs: CrRPC.PutArgsProc ~ {
CrRPC.PutCard16[s, length];
MProc5[h, s, value];
};
GetResults: CrRPC.GetResultsProc ~ {
attr ¬ UProc1[h, s];
};

CrRPC.Call[h~h, remotePgm~0, remotePgmVersion~0, remoteProc~28 , putArgs~PutArgs, getResults~GetResults, getError~GetError];
};

AttrFromPrimaryRecipients: PUBLIC AttrFromPrimaryRecipientsType ~ {
PutArgs: CrRPC.PutArgsProc ~ {
CrRPC.PutCard16[s, length];
MProc4[h, s, value];
};
GetResults: CrRPC.GetResultsProc ~ {
attr ¬ UProc1[h, s];
};

CrRPC.Call[h~h, remotePgm~0, remotePgmVersion~0, remoteProc~24 , putArgs~PutArgs, getResults~GetResults, getError~GetError];
};

AttrFromCrossReferences: PUBLIC AttrFromCrossReferencesType ~ {
PutArgs: CrRPC.PutArgsProc ~ {
CrRPC.PutCard16[s, length];
MProc5[h, s, value];
};
GetResults: CrRPC.GetResultsProc ~ {
attr ¬ UProc1[h, s];
};

CrRPC.Call[h~h, remotePgm~0, remotePgmVersion~0, remoteProc~29 , putArgs~PutArgs, getResults~GetResults, getError~GetError];
};

AttrFromCopyRecipients: PUBLIC AttrFromCopyRecipientsType ~ {
PutArgs: CrRPC.PutArgsProc ~ {
CrRPC.PutCard16[s, length];
MProc4[h, s, value];
};
GetResults: CrRPC.GetResultsProc ~ {
attr ¬ UProc1[h, s];
};

CrRPC.Call[h~h, remotePgm~0, remotePgmVersion~0, remoteProc~25 , putArgs~PutArgs, getResults~GetResults, getError~GetError];
};

AttrFromSensitivity: PUBLIC AttrFromSensitivityType ~ {
PutArgs: CrRPC.PutArgsProc ~ {
CrRPC.PutCard16[s, length];
CrRPC.PutCard16[s, ORD[value]];
};
GetResults: CrRPC.GetResultsProc ~ {
attr ¬ UProc1[h, s];
};

CrRPC.Call[h~h, remotePgm~0, remotePgmVersion~0, remoteProc~35 , putArgs~PutArgs, getResults~GetResults, getError~GetError];
};

AttrFromBlindCopyRecipients: PUBLIC AttrFromBlindCopyRecipientsType ~ {
PutArgs: CrRPC.PutArgsProc ~ {
CrRPC.PutCard16[s, length];
MProc4[h, s, value];
};
GetResults: CrRPC.GetResultsProc ~ {
attr ¬ UProc1[h, s];
};

CrRPC.Call[h~h, remotePgm~0, remotePgmVersion~0, remoteProc~26 , putArgs~PutArgs, getResults~GetResults, getError~GetError];
};

-- Unmarshal / Marshal Procs --

MProc5: PROC [h: CrRPC.Handle, s: CrRPC.STREAM, val: MailFormatP1516V3.IPMessageIDList] ~ {
CrRPC.PutCard16[s, val.length];
FOR i6: CARDINAL IN [0..val.length) DO
MProc2[h, s, val.body[i6].originator];
CrRPC.PutRope[s, val.body[i6].uniqueString];
ENDLOOP;
};

MProc4: PROC [h: CrRPC.Handle, s: CrRPC.STREAM, val: MailFormatP1516V3.RNameList] ~ {
CrRPC.PutCard16[s, val.length];
FOR i7: CARDINAL IN [0..val.length) DO
MProc2[h, s, val.body[i7]];
ENDLOOP;
};

UProc1: PROC [h: CrRPC.Handle, s: CrRPC.STREAM] RETURNS [res: MailFormatP1516V3.Val] ~ {
{
length9: CARDINAL ~ CrRPC.GetCard16[s];
res ¬ NEW[MailFormatP1516V3.ValObject[length9]];
FOR i8: CARDINAL IN [0..length9) DO
res.body[i8] ¬ CrRPC.GetCard16[s];
ENDLOOP;
};
};

MProc2: PROC [h: CrRPC.Handle, s: CrRPC.STREAM, val: MailTransportP17V5.RName] ~ {
CrRPC.PutCard16[s, ORD[val.type]];
WITH val SELECT FROM
it: REF MailTransportP17V5.RNameObject.xns => {
CrRPC.PutRope[s, it.xns.organization];
CrRPC.PutRope[s, it.xns.domain];
CrRPC.PutRope[s, it.xns.object];
};
it: REF MailTransportP17V5.RNameObject.gateway => {
CrRPC.PutRope[s, it.gateway.country];
CrRPC.PutRope[s, it.gateway.adminDomain];
CrRPC.PutRope[s, it.gateway.privateDomain];
CrRPC.PutRope[s, it.gateway.organization];
MProc11[h, s, it.gateway.organizationalUnits];
MProc12[h, s, it.gateway.personal];
MProc13[h, s, it.gateway.gatewaySpecificInformation];
};
ENDCASE;
};

MProc12: PROC [h: CrRPC.Handle, s: CrRPC.STREAM, val: MailTransportP17V5.PerChoice] ~ {
CrRPC.PutCard16[s, ORD[val.type]];
WITH val SELECT FROM
it: REF MailTransportP17V5.PerChoiceObject.whole => {
CrRPC.PutRope[s, it.whole];
};
it: REF MailTransportP17V5.PerChoiceObject.broken => {
CrRPC.PutRope[s, it.broken.given];
CrRPC.PutRope[s, it.broken.initials];
CrRPC.PutRope[s, it.broken.family];
CrRPC.PutRope[s, it.broken.generation];
};
ENDCASE;
};

MProc3: PROC [h: CrRPC.Handle, s: CrRPC.STREAM, val: MailFormatP1516V3.ForwardedHeadings] ~ {
CrRPC.PutCard16[s, val.length];
FOR i15: CARDINAL IN [0..val.length) DO
MProc16[h, s, val.body[i15].envelope];
MProc17[h, s, val.body[i15].heading];
MProc18[h, s, val.body[i15].associatedBodyParts];
MProc19[h, s, val.body[i15].indexOfParentHeading];
ENDLOOP;
};

MProc19: PROC [h: CrRPC.Handle, s: CrRPC.STREAM, val: MailFormatP1516V3.IndexOfParentHeading] ~ {
CrRPC.PutCard16[s, ORD[val.type]];
WITH val SELECT FROM
it: REF MailFormatP1516V3.IndexOfParentHeadingObject.null => {
NULL; -- RECORD [] --
};
it: REF MailFormatP1516V3.IndexOfParentHeadingObject.nested => {
CrRPC.PutCard16[s, it.nested.index];
};
ENDCASE;
};

MProc11: PROC [h: CrRPC.Handle, s: CrRPC.STREAM, val: MailTransportP17V5.OrgUnits] ~ {
CrRPC.PutCard16[s, val.length];
FOR i21: CARDINAL IN [0..val.length) DO
CrRPC.PutRope[s, val.body[i21]];
ENDLOOP;
};

MProc18: PROC [h: CrRPC.Handle, s: CrRPC.STREAM, val: MailFormatP1516V3.assocBP] ~ {
CrRPC.PutCard16[s, val.length];
FOR i22: CARDINAL IN [0..val.length) DO
CrRPC.PutCard16[s, val.body[i22]];
ENDLOOP;
};

MProc17: PROC [h: CrRPC.Handle, s: CrRPC.STREAM, val: MailFormatP1516V3.HeadingAtt] ~ {
CrRPC.PutCard16[s, val.length];
FOR i23: CARDINAL IN [0..val.length) DO
CrRPC.PutCard32[s, val.body[i23].type];
MProc24[h, s, val.body[i23].value];
ENDLOOP;
};

MProc13: PROC [h: CrRPC.Handle, s: CrRPC.STREAM, val: MailTransportP17V5.GatewaySpecInfo] ~ {
CrRPC.PutCard16[s, val.length];
FOR i25: CARDINAL IN [0..val.length) DO
CrRPC.PutRope[s, val.body[i25].type];
CrRPC.PutRope[s, val.body[i25].value];
ENDLOOP;
};

MProc24: PROC [h: CrRPC.Handle, s: CrRPC.STREAM, val: MailFormatP1516V3.Val] ~ {
CrRPC.PutCard16[s, val.length];
FOR i26: CARDINAL IN [0..val.length) DO
CrRPC.PutCard16[s, val.body[i26]];
ENDLOOP;
};

MProc16: PROC [h: CrRPC.Handle, s: CrRPC.STREAM, val: MailFormatP1516V3.EnvelopeAtt] ~ {
CrRPC.PutCard16[s, val.length];
FOR i27: CARDINAL IN [0..val.length) DO
CrRPC.PutCard32[s, val.body[i27].type];
MProc28[h, s, val.body[i27].value];
ENDLOOP;
};

MProc28: PROC [h: CrRPC.Handle, s: CrRPC.STREAM, val: MailTransportP17V5.Opaque] ~ {
CrRPC.PutCard16[s, val.length];
FOR i29: CARDINAL IN [0..val.length) DO
CrRPC.PutCard16[s, val.body[i29]];
ENDLOOP;
};

}...