
DIRECTORY
IO,
MailBasics,
MailSend,
MailSendSidedoor,
Rope;

MailSendImpl: CEDAR MONITOR
IMPORTS IO, Rope
EXPORTS MailSend, MailSendSidedoor
~ BEGIN

ROPE: TYPE ~ Rope.ROPE;

MailSendHandle: TYPE = MailSend.MailSendHandle;
MailSendHandleObject: TYPE = MailSend.MailSendHandleObject;
BodyPartInfo: TYPE = MailSend.BodyPartInfo;
SendingCredentialsList: TYPE = MailSend.SendingCredentialsList;
AbortSendProc: TYPE = MailSendSidedoor.AbortSendProc;
MailSendProcsRef: TYPE = MailSend.MailSendProcsRef;
MailSendSidedoorProcsRef: TYPE = MailSendSidedoor.MailSendSidedoorProcsRef;
Create: PUBLIC PROC RETURNS [MailSendHandle] ~ {
msH: MailSendHandle м NEW[MailSendHandleObject];
RETURN[msH];
};
StartSend: PUBLIC PROC [msH: MailSendHandle, credentialsList: SendingCredentialsList] ~ {
msHн м  [
credentialsList: credentialsList,
recipients: NIL,
lastRecipient: NIL,
bodyParts: NIL,
lastBodyPart: NIL,
nBodyParts: 0
];
};

AddRecipient: PUBLIC PROC [msH: MailSendHandle, recipient: MailBasics.RName] ~ {
IF msH.recipients = NIL
THEN msH.lastRecipient м msH.recipients м LIST[recipient]
ELSE msH.lastRecipient м msH.lastRecipient.rest м LIST[recipient];
};

StartItem: PUBLIC PROC [msH: MailSendHandle, type: MailBasics.ItemType] ~ {
bodyPartInfo: BodyPartInfo м NEW[MailSend.BodyPartInfoObject м [type, NIL]];
IF msH.bodyParts = NIL
THEN msH.lastBodyPart м msH.bodyParts м LIST[bodyPartInfo]
ELSE msH.lastBodyPart м msH.lastBodyPart.rest м LIST[bodyPartInfo];
msH.nBodyParts м msH.nBodyParts.SUCC;
};

AddToItem: PUBLIC PROC [msH: MailSendHandle, buffer: ROPE] ~ {
msH.lastBodyPart.first.data м Rope.Concat[msH.lastBodyPart.first.data, buffer];
};

Abort: PUBLIC PROC [msH: MailSendHandle] ~ {
msHн м  [
credentialsList: NIL,
recipients: NIL,
lastRecipient: NIL,
bodyParts: NIL,
lastBodyPart: NIL,
nBodyParts: 0
];
};

Send: PUBLIC PROC [msH: MailSendHandle, validate, sendEvenIfInvalidNames: BOOL, transport: ATOM м $any]
RETURNS [sent: BOOL, failureReason: ROPE, invalidNames: MailBasics.RNameList]  ~ {
procs: MailSendProcsRef;
IF msH.recipients = NIL THEN RETURN[FALSE, "No recipients.", NIL];
IF msH.bodyParts = NIL THEN RETURN[FALSE, "No Items.", NIL];
IF transport = $any THEN {
IF ( procs м GetRegisteredMailSendProcs[$xns] ) = NIL THEN
procs м GetRegisteredMailSendProcs[$gv];
IF procs = NIL THEN RETURN[FALSE, "No transport available", NIL];
}
ELSE IF (procs м GetRegisteredMailSendProcs[transport]) = NIL THEN
RETURN[FALSE, IO.PutFR1["Transport: %g not available.", [atom[transport]] ], NIL ];
[sent, failureReason, invalidNames] м procs.Send[msH, validate, sendEvenIfInvalidNames];
};

SendWithAbort: PUBLIC PROC [msH: MailSendHandle, validate, sendEvenIfInvalidNames, allowDLRecipients: BOOL, abortSend: AbortSendProc, transport: ATOM м $any]
RETURNS [sent: BOOL, failureReason: ROPE, invalidNames, dlsNotAllowed, fakeDls: MailBasics.RNameList] ~ {
procs: MailSendSidedoorProcsRef;
IF msH.recipients = NIL THEN RETURN[FALSE, "No recipients.", NIL, NIL, NIL];
IF msH.bodyParts = NIL THEN RETURN[FALSE, "No Items.", NIL, NIL, NIL];
IF transport = $any THEN {
IF ( procs м GetRegisteredMailSendSidedoorProcs[$xns] ) = NIL THEN
procs м GetRegisteredMailSendSidedoorProcs[$gv];
IF procs = NIL THEN RETURN[FALSE, "No transport available", NIL, NIL, NIL];
}
ELSE IF (procs м GetRegisteredMailSendSidedoorProcs[transport]) = NIL THEN
RETURN[FALSE,  IO.PutFR1["Transport: %g not available.", [atom[transport]] ], NIL, NIL, NIL ];
[sent, failureReason, invalidNames, dlsNotAllowed, fakeDls] м
procs.SendWithAbort[msH, validate, sendEvenIfInvalidNames, allowDLRecipients, abortSend];
};
sendProcsList: LIST OF MailSendProcsRef м NIL;
sendSDProcsList: LIST OF MailSendSidedoorProcsRef м NIL;

RegisterMailSendProcs: PUBLIC ENTRY PROC [procs: MailSendProcsRef] = {
sendProcsList м CONS[procs, sendProcsList]; 
};

RegisterMailSendSidedoorProcs: PUBLIC ENTRY PROC [procs: MailSendSidedoorProcsRef] = {
sendSDProcsList м CONS[procs, sendSDProcsList]; 
};

GetRegisteredSendProcsList: PUBLIC ENTRY PROC RETURNS [LIST OF MailSendProcsRef] = {
RETURN [ sendProcsList ];
};

GetRegisteredMailSendSidedoorProcsList: PUBLIC ENTRY PROC RETURNS [LIST OF MailSendSidedoorProcsRef] = {
RETURN [ sendSDProcsList ];
};

GetRegisteredMailSendProcs: PUBLIC ENTRY PROC[which: ATOM]
RETURNS [MailSendProcsRef] = {
FOR sL: LIST OF MailSendProcsRef м sendProcsList, sL.rest UNTIL sL = NIL DO
IF sL.first.which = which THEN RETURN[sL.first];
ENDLOOP;
RETURN[NIL];
};

GetRegisteredMailSendSidedoorProcs: PUBLIC ENTRY PROC[which: ATOM]
RETURNS [MailSendSidedoorProcsRef] = {
FOR sL: LIST OF MailSendSidedoorProcsRef м sendSDProcsList, sL.rest UNTIL sL = NIL DO
IF sL.first.which = which THEN RETURN[sL.first];
ENDLOOP;
RETURN[NIL];
};
END.


   J  
MailSendImpl.mesa
Copyright ╙ 1988, 1989, 1990, 1991 by Xerox Corporation.  All rights reserved.
Doug Terry, November 11, 1988 12:23:03 pm PST
Wes Irish, January 26, 1989 6:31:17 pm PST
Willie-Sue, February 14, 1990 6:19:34 pm PST
Willie-s, December 10, 1991 3:29 pm PST
Buffers MailSend calls building a message until Send is called.  Once Send is called the message now residing in the handle is sent using the appropriate transport (as explicitly specified by the user or determined by this module if not explicitly specified by the user).

Exported procedures

Registration

Э╩o  ХNewlineDelimiter
Ц(cedarcode) styleЩ codeЪЬЩKЪЬ
╧eЬCЩNKЪЬ*╧kЩ-KЪЬ*Щ*KЩ,KЩ'ЧKШ KЩПKЩ ЪЮ	Ш	KЪЮЬШKЪЬШKШ	KШKЪЬШЧKШ Ъ╤blnЬЮЬЮШKЪЮЬЮЬШKЪЮЬШ"KЪЬЮШЧKШ KЪЮЬЮЬЮЬШKШ KЪЬЮЬШ/KЪЬЮЬ!Ш;KЪЬЮЬШ+KЪЬЮЬ#Ш?KЪЬЮЬ"Ш5KЪЬЮЬШ3KЪЬЮЬ-ШKheadЩЪ╧nЬЮЬЮЬЮЬШ0KЪЬЮЬШ0KЪЮЬШKШKЩ ЧЪа	ЬЮЬЮЬCШYШ	KЪЬ!Ш!KЪЬЮЬШKЪЬЮЬШKЪЬЮЬШKЪЬЮЬШKЪЬШKЪЬШЧKШKШ ЧЪаЬЮЬЮЬ7ШPЪЮЬЮШKЪЮЬ&ЮЬШ9KЪЮЬ.ЮЬШBЧKШKШ ЧЪа	ЬЮЬЮЬ5ШKKЪЬЮЬ&ЮЬШLЪЮЬЮШKЪЮЬ$ЮЬШ:KЪЮЬ,ЮЬШCЧKЪЬ ЮЬШ%KШKШ ЧЪа	ЬЮЬЮЬЮЬШ>KШOKШKШ ЧЪаЬЮЬЮЬШ,Ш	KЪЬЮЬШKЪЬЮЬШKЪЬЮЬШKЪЬЮЬШKЪЬЮЬШKЪЬШKЪЬШЧKШKШ ЧЪаЬЮЬЮЬ9ЮЬЮЬ	ЮЬЮЬЮЬ*Ш║KЪЬШKЪЮЬЮЬЮЬЮЬЮЬЮЬШBKЪЮЬЮЬЮЬЮЬЮЬЮЬШ<ЪЮЬЮЬШKЪЮЬ0ЮЬЮЬ(ШcKЪЮЬ	ЮЬЮЬЮЬЮЬЮЬШAKШKЪЮЬЮЬ3ЮЬЮЬЮЬЮЬ=ЮЬШЦЧKШXKШKШ ЧЪ
аЬЮЬЮЬLЮЬ'ЮЬШЭKЪЮЬЮЬЮЬAШiKЪЬ Ш KЪЮЬЮЬЮЬЮЬЮЬЮЬЮЬЮЬШLKЪЮЬЮЬЮЬЮЬЮЬЮЬЮЬЮЬШFЪЮЬЮЬШKЪЮЬ8ЮЬЮЬ0ШsKЪЮЬ	ЮЬЮЬЮЬЮЬЮЬЮЬЮЬШKKШKЪЮЬЮЬ;ЮЬЮЬЮЬЮЬЮЬ=ЮЬЮЬЮЬШйЧKШЧKШЧЧЩKЪЬЮЬЮЬЮЬШ.ЪЬЮЬЮЬЮЬШ8KШ ЧЪаЬЮЬЮЬЮЬШFKЪЬЮЬШ,KШKШ ЧЪаЬЮЬЮЬЮЬ&ШVKЪЬЮЬШ0KШKШ ЧЪаЬЮЬЮЬЮЬЮЬЮЬЮЬШTKЪЮЬШKШKШ ЧЪа&ЬЮЬЮЬЮЬЮЬЮЬЮЬШhKЪЮЬШKШKШ ЧЪаЬЮЬЮЬЮЬЮЬЮЬШYЪЮЬЮЬЮЬ+ЮЬЮЬЮШKKЪЮЬЮЬЮЬШ0KЪЮЬШЧKЪЮЬЮЬШKШKШ ЧЪа"ЬЮЬЮЬЮЬЮЬЮЬШiЪЮЬЮЬЮЬ5ЮЬЮЬЮШUKЪЮЬЮЬЮЬШ0KЪЮЬШЧKЪЮЬЮЬШKШЧKЩ ЧKЪЮЬШKШ KШ KШ Ч ЕЧ    j  #  