Initial import of the CDE 2.1.30 sources from the Open Group.

cde/programs/dtmail/libDtMail/Common/CAPIMethods.C

@@ -0,0 +1,558 @@
+/*
+ *+SNOTICE
+ *
+ *	$XConsortium: CAPIMethods.C /main/4 1996/04/21 19:47:13 drk $
+ *
+ *	RESTRICTED CONFIDENTIAL INFORMATION:
+ *	
+ *	The information in this document is subject to special
+ *	restrictions in a confidential disclosure agreement bertween
+ *	HP, IBM, Sun, USL, SCO and Univel.  Do not distribute this
+ *	document outside HP, IBM, Sun, USL, SCO, or Univel wihtout
+ *	Sun's specific written approval.  This documment and all copies
+ *	and derivative works thereof must be returned or destroyed at
+ *	Sun's request.
+ *
+ *	Copyright 1993 Sun Microsystems, Inc.  All rights reserved.
+ *
+ *+ENOTICE
+ */
+
+#include <DtMail/DtMail.h>
+#include <DtMail/DtMail.hh>
+
+extern "C" DtMailSession
+DtMailCreateSession(CMEnv * error,
+		    const char * app_name)
+{
+  DtMailEnv		err(error);
+  DtMail::Session	* session = new DtMail::Session(err, app_name);
+
+  return((DtMailSession)session);
+}
+
+extern "C" void
+DtMailCloseSession(CMEnv * error,
+		   DtMailSession session,
+		   DtMailBoolean)
+{
+  DtMailEnv		err(error);
+  DtMail::Session	* _session = (DtMail::Session *)session;
+
+  err.clear();
+
+  delete _session;
+}
+
+extern "C" int
+DtMailGetMinorCode(CMEnv * error)
+{
+  DtMailEnv		err(error);
+  return(DtMail::getMinorCode(err));
+}
+
+extern "C" const char *
+DtMailGetErrorString(CMEnv * error)
+{
+  DtMailEnv		err(error);
+  return(DtMail::getErrorString(err));
+}
+
+extern "C" const char **
+DtMailEnumerateImpls(DtMailSession session, CMEnv * error)
+{
+  DtMailEnv		err(error);
+  DtMail::Session	* _session = (DtMail::Session *)session;
+
+  return(_session->enumerateImpls(err));
+}
+
+extern "C" void
+DtMailSetDefaultImpl(DtMailSession session,
+		     CMEnv * error,
+		     const char * impl)
+{
+  DtMailEnv		err(error);
+  DtMail::Session	* _session = (DtMail::Session *)session;
+
+  _session->setDefaultImpl(err, impl);
+  return;
+}
+
+extern "C" const char *
+DtMailGetDefaultImpl(DtMailSession session, CMEnv * error)
+{
+  DtMailEnv		err(error);
+  DtMail::Session	* _session = (DtMail::Session *)session;
+
+  return(_session->getDefaultImpl(err));
+}
+
+extern "C" void
+DtMailQueryImpl(DtMailSession session,
+		CMEnv * error,
+		const char * impl,
+		const char * capability,
+		...)
+{
+  DtMailEnv		err(error);
+  va_list		args;
+  DtMail::Session	* _session = (DtMail::Session *)session;
+
+  va_start(args, capability);
+  _session->queryImplV(err, impl, capability, args);
+  va_end(args);
+}
+
+extern "C" DtMailMailBox
+DtMailMailBoxConstruct(DtMailSession session,
+		       CMEnv * error,
+		       DtMailObjectSpace space,
+		       void * path,
+		       DtMailCallback cb_func,
+		       void * client_data)
+{
+  DtMailEnv		err(error);
+  DtMail::Session	* _session = (DtMail::Session *)session;
+
+  return((DtMailMailBox)_session->mailBoxConstruct(err,
+						   space,
+						   path,
+						   cb_func,
+						   client_data));
+}
+
+extern "C" void
+DtMailMailBoxDestruct(DtMailMailBox mbox)
+{
+  DtMail::MailBox *mb = (DtMail::MailBox *)mbox;
+
+  delete mb;
+}
+
+extern "C" void
+DtMailMailBoxCreate(DtMailMailBox mbox, CMEnv * error)
+{
+  DtMailEnv		err(error);
+  DtMail::MailBox	*mb = (DtMail::MailBox *)mbox;
+
+  mb->create(err);
+}
+
+extern "C" void
+DtMailMailBoxOpen(DtMailMailBox mbox, CMEnv * error, DtMailBoolean auto_create)
+{
+  DtMailEnv		err(error);
+  DtMail::MailBox 	*mb = (DtMail::MailBox *)mbox;
+
+  mb->open(err, auto_create);
+}
+
+extern "C" DtMailMessage
+DtMailMailBoxGetFirstMessage(DtMailMailBox mbox, CMEnv * error)
+{
+  DtMailEnv		err(error);
+  DtMail::MailBox	*mb = (DtMail::MailBox *)mbox;
+
+  return((DtMailMessage)mb->getFirstMessage(err));
+}
+
+extern "C" DtMailMessage
+DtMailMailBoxGetNextMessage(DtMailMailBox mbox, CMEnv * error, DtMailMessage last)
+{
+  DtMailEnv		err(error);
+  DtMail::MailBox	*mb = (DtMail::MailBox *)mbox;
+  DtMail::Message 	*ml = (DtMail::Message *)last;
+
+  return((DtMailMessage)mb->getNextMessage(err, ml));
+}
+
+extern "C" DtMailMessage
+DtMailMailBoxNewMessage(DtMailMailBox mbox, CMEnv * error)
+{
+  DtMailEnv		err(error);
+  DtMail::MailBox	*mb = (DtMail::MailBox *)mbox;
+
+  return((DtMailMessage)mb->newMessage(err));
+}
+
+/*
+
+extern "C" DtMailHeaderHandle
+DtMailEnvelopeGetFirstHeader(DtMailEnvelope ev,
+			     CMEnv * error,
+			     char ** name,
+			     DtMailValueSeq ** value,
+			     CMBoolean translate_name)
+{
+  DtMailEnv		err(error);
+  DtMail::Envelope 	*env = (DtMail::Envelope *)ev;
+
+  return(env->getFirstHeader(*err, name, value, translate_name));
+}
+
+extern "C" DtMailHeaderHandle
+DtMailEnvelopeGetNextHeader(DtMailEnvelope ev,
+			    CMEnv * error,
+			    DtMailHeaderHandle last,
+			    char ** name,
+			    DtMailValueSeq ** value,
+			    CMBoolean translate_name)
+{
+  DtMailEnv		err(error);
+  DtMail::Envelope	*env = (DtMail::Envelope *)ev;
+
+  return(env->getNextHeader(*err, last, name, value, translate_name));
+}
+
+extern "C" void
+DtMailEnvelopeGetHeader(DtMailEnvelope ev,
+			    CMEnv * error,
+			    const CMGlobalName name,
+			    DtMailValueSeq ** value)
+{
+  DtMailEnv		err(error);
+  DtMail::Envelope	*env = (DtMail::Envelope *)ev;
+
+  env->getHeader(*err, name, value);
+}
+
+extern "C" void
+DtMailEnvelopeSetHeaderSeq(DtMailEnvelope ev,
+			   CMEnv * error,
+			   const CMGlobalName name,
+			   const DtMailValueSeq * value)
+{
+  DtMailEnv		err(error);
+  DtMail::Envelope	*env = (DtMail::Envelope *)ev;
+
+  env->setHeaderSeq(*err, name, value);
+}
+
+extern "C" void
+DtMailEnvelopeSetHeader(DtMailEnvelope ev,
+			CMEnv * error,
+			const CMGlobalName name,
+			const DtMailValue * value,
+			CMBoolean replace)
+{
+  DtMailEnv		err(error);
+  DtMail::Envelope	*env = (DtMail::Envelope *)ev;
+
+  env->setHeader(*err, name, value, replace);
+}
+
+extern "C" void
+DtMailEnvelopeTransportName(DtMailEnvelope ev,
+			    CMEnv * error,
+			    CMGlobalName name,
+			    char ** trans_name)
+{
+  DtMailEnv		err(error);
+  DtMail::Envelope 	*env = (DtMail::Envelope *)ev;
+
+  env->transportName(*err, name, trans_name);
+}
+
+extern "C" CMObject
+DtMailEnvelopeObject(DtMailEnvelope ev, CMEnv * error)
+{
+  DtMailEnv		err(error);
+  DtMail::Envelope 	*env = (DtMail::Envelope *)ev;
+
+  return(env->object(err));
+}
+
+extern "C" void
+DtMailEnvelopeDestroy(DtMailEnvelope ev)
+{
+  DtMail::Envelope 	*env = (DtMail::Envelope *)ev;
+
+  delete env;
+  return;
+}
+
+extern "C" DtMailHeaderHandle
+DtMailBodyPartGetFirstHeader(DtMailBodyPart bp, 
+			     CMEnv * error, 
+			     char ** name, 
+			     DtMailValueSeq ** value,
+			     CMBoolean trans)
+{
+  DtMailEnv		err(error);
+  DtMail::BodyPart 	*bpp = (DtMail::BodyPart *)bp;
+
+  return(bpp->getFirstHeader(*err, name, value, trans));
+}
+
+extern "C" DtMailHeaderHandle
+DtMailBodyPartGetNextHeader(DtMailBodyPart bp, 
+			    CMEnv * error, 
+			    DtMailHeaderHandle hd, 
+			    char ** name,
+			    DtMailValueSeq ** value, 
+			    CMBoolean trans)
+{
+  DtMailEnv		err(error);
+  DtMail::BodyPart 	*bpp = (DtMail::BodyPart *)bp;
+
+  return(bpp->getNextHeader(*err, hd, name, value, trans));
+}
+
+extern "C" void
+DtMailBodyPartGetHeader(DtMailBodyPart bp, 
+			CMEnv * error, 
+			const CMGlobalName name, 
+			DtMailValueSeq ** value)
+{
+  DtMailEnv		err(error);
+  DtMail::BodyPart 	*bpp = (DtMail::BodyPart *)bp;
+
+  bpp->getHeader(*err, name, value);
+}
+
+extern "C" void
+DtMailBodyPartSetHeaderSeq(DtMailBodyPart bp, 
+			   CMEnv * error, 
+			   const CMGlobalName name, 
+			   const DtMailValueSeq * value)
+{
+  DtMailEnv		err(error);
+  DtMail::BodyPart 	*bpp = (DtMail::BodyPart *)bp;
+
+  bpp->setHeaderSeq(*err, name, value);
+}
+
+extern "C" void
+DtMailBodyPartSetHeader(DtMailBodyPart bp, 
+			CMEnv * error, 
+			const CMGlobalName name, 
+			const DtMailValue * value,
+			CMBoolean replace)
+{
+  DtMailEnv		err(error);
+  DtMail::BodyPart 	*bpp = (DtMail::BodyPart *)bp;
+
+  bpp->setHeader(*err, name, value, replace);
+}
+
+extern "C" void
+DtMailBodyPartTransportName(DtMailBodyPart bp, 
+			    CMEnv * error, 
+			    CMGlobalName name, 
+			    char ** trans_name)
+{
+  DtMailEnv		err(error);
+  DtMail::BodyPart *bpp = (DtMail::BodyPart *)bp;
+
+  bpp->transportName(*err, name, trans_name);
+}
+
+extern "C" CMObject
+DtMailBodyPartObject(DtMailBodyPart bp, CMEnv * error)
+{
+  DtMailEnv		err(error);
+  DtMail::BodyPart *bpp = (DtMail::BodyPart *)bp;
+
+  return(bpp->object(err));
+}
+
+extern "C" CMBoolean
+DtMailBodyPartIsContainer(DtMailBodyPart bp, CMEnv *error)
+{
+  DtMailEnv		err(error);
+  DtMail::BodyPart *bpp = (DtMail::BodyPart *)bp;
+
+  return(bpp->isContainer(err));
+}
+
+extern "C" DtMailMessage *
+DtMailBodyPartGetEmbeddedMessage(DtMailBodyPart bp, CMEnv *error)
+{
+  DtMailEnv		err(error);
+  DtMail::BodyPart *bpp = (DtMail::BodyPart *)bp;
+
+  return((DtMailMessage *)bpp->getEmbeddedMessage(err));
+}
+
+extern "C" void
+DtMailBodyPartGetContents(DtMailBodyPart bp, CMEnv * error, void ** contents, unsigned long * length,
+		       CMGlobalName * type)
+{
+  DtMailEnv		err(error);
+  DtMail::BodyPart *bpp = (DtMail::BodyPart *)bp;
+
+  bpp->getContents(*err, contents, *length, type);
+}
+
+extern "C" void
+DtMailBodyPartSetContents(DtMailBodyPart bp, CMEnv * error, const void * contents, const unsigned long length,
+		       const CMGlobalName type)
+{
+  DtMailEnv		err(error);
+  DtMail::BodyPart *bpp = (DtMail::BodyPart *)bp;
+
+  bpp->setContents(*err, contents, length, type);
+}
+
+extern "C" void
+DtMailBodyPartDestroy(DtMailBodyPart bp)
+{
+  DtMail::BodyPart *bpp = (DtMail::BodyPart *)bp;
+
+  delete bpp;
+}
+
+extern "C" DtMailMessage
+DtMailFileMessageConstruct(CMEnv * error,
+			   CMSession session,
+			   const char * path,
+			   FileCallback cb_func,
+			   void * client_data)
+{
+  DtMailEnv		err(error);
+
+  return((DtMailMessage)new DtMail::FileMessage(*err, 
+						session, 
+						path, 
+						cb_func, 
+						client_data));
+}
+
+extern "C" void
+DtMailFileMessageDestruct(DtMailMessage msg)
+{
+  DtMail::FileMessage * fm = (DtMail::FileMessage *)msg;
+
+    delete fm;
+}
+
+extern "C" CMBoolean
+DtMailFileMessageIsModified(DtMailMessage msg, CMEnv * error)
+{
+  DtMailEnv		err(error);
+  DtMail::FileMessage * fm = (DtMail::FileMessage *)msg;
+
+  return(fm->isModified(err));
+}
+
+extern "C" void
+DtMailFileMessageRequestSave(DtMailMessage msg, CMEnv * error)
+{
+  DtMailEnv		err(error);
+  DtMail::FileMessage * fm = (DtMail::FileMessage *)msg;
+
+  fm->requestSave(err);
+}
+
+extern "C" void
+DtMailFileMessageRequestRevert(DtMailMessage msg, CMEnv * error)
+{
+  DtMailEnv		err(error);
+  DtMail::FileMessage * fm = (DtMail::FileMessage *)msg;
+
+  fm->requestRevert(err);
+}
+
+extern "C" void
+DtMailFileMessageRequestOpen(DtMailMessage msg, CMEnv * error)
+{
+  DtMailEnv		err(error);
+  DtMail::FileMessage * fm = (DtMail::FileMessage *)msg;
+
+  fm->requestOpen(err);
+}
+
+extern "C" void
+DtMailFileMessageCreate(DtMailMessage msg, CMEnv * error)
+{
+  DtMailEnv		err(error);
+  DtMail::FileMessage * fm = (DtMail::FileMessage *)msg;
+
+  fm->create(err);
+}
+
+extern "C" void
+DtMailFileMessageOpen(DtMailMessage msg, CMEnv * error, CMBoolean auto_create)
+{
+  DtMailEnv		err(error);
+  DtMail::FileMessage * fm = (DtMail::FileMessage *)msg;
+
+  fm->open(*err, auto_create);
+}
+
+extern "C" DtMailMessage
+DtMailEmbeddedMessageCreate(CMEnv * error, DtMailMailBox owner)
+{
+  DtMailEnv		err(error);
+  DtMail::MailBox * mb = (DtMail::MailBox *)owner;
+
+  return((DtMailMessage)new DtMail::EmbeddedMessage(*err, *mb));
+}
+
+extern "C" void
+DtMailEmbeddedMessageDestroy(DtMailMessage msg)
+{
+  DtMailEnv		err(error);
+  DtMail::EmbeddedMessage * em = (DtMail::EmbeddedMessage *)msg;
+
+  delete em;
+}
+
+extern "C" DtMailEnvelope
+DtMailMessageGetEnvelope(DtMailMessage bmm, CMEnv * error)
+{
+  DtMailEnv		err(error);
+  DtMail::Message * msg = (DtMail::Message *)bmm;
+
+  return((DtMailEnvelope)msg->getEnvelope(err));
+}
+
+extern "C" int
+DtMailMessageGetBodyCount(DtMailMessage bmm, CMEnv * error)
+{
+  DtMailEnv		err(error);
+  DtMail::Message * msg = (DtMail::Message *)bmm;
+
+  return(msg->getBodyCount(err));
+}
+
+extern "C" DtMailBodyPart *
+DtMailMessageGetFirstBodyPart(DtMailMessage bmm, CMEnv * error)
+{
+  DtMailEnv		err(error);
+  DtMail::Message * msg = (DtMail::Message *)bmm;
+
+  return((DtMailBodyPart *)msg->getFirstBodyPart(err));
+}
+
+extern "C" DtMailBodyPart *
+DtMailMessageGetNextBodyPart(DtMailMessage bmm, CMEnv * error, DtMailBodyPart * bml)
+{
+  DtMailEnv		err(error);
+  DtMail::Message * msg = (DtMail::Message *)bmm;
+  DtMail::BodyPart * last = (DtMail::BodyPart *)bml;
+
+  return((DtMailBodyPart *)msg->getNextBodyPart(*err, last));
+}
+
+extern "C" DtMailBodyPart *
+DtMailMessageNewBodyPart(DtMailMessage bmm, CMEnv * error)
+{
+  DtMailEnv		err(error);
+  DtMail::Message * msg = (DtMail::Message *)bmm;
+
+  return((DtMailBodyPart *)msg->newBodyPart(err));
+}
+
+extern "C" CMContainer
+DtMailMessageContainer(DtMailMessage bmm, CMEnv * error)
+{
+  DtMailEnv		err(error);
+  DtMail::Message * msg = (DtMail::Message *)bmm;
+
+  return(msg->message(err));
+}
+
+*/
+