05589508a6
In OCaml 3.08.0, many functions in the OCaml C API were renamed to include a caml_ prefix. Their previous names were retained as macros in caml/compatibility.h and were (apparently) deprecated. Rename occurrences of alloc_string, alloc_tuple, callback, callback2, callback3, copy_double, copy_int64, copy_string, failwith, and modify in the OCaml module. The OCaml module requires OCaml >= 3.08.3, so this change is safe for all supported OCaml versions.
101 lines
2.9 KiB
Text
101 lines
2.9 KiB
Text
/* -----------------------------------------------------------------------------
|
|
* director.swg
|
|
*
|
|
* This file contains support for director classes so that Ocaml proxy
|
|
* methods can be called from C++.
|
|
* ----------------------------------------------------------------------------- */
|
|
|
|
#include <string>
|
|
#include <exception>
|
|
|
|
# define SWIG_DIRECTOR_CAST(ARG) dynamic_cast<Swig::Director *>(ARG)
|
|
|
|
namespace Swig {
|
|
/* base class for director exceptions */
|
|
class DirectorException : public std::exception {
|
|
protected:
|
|
std::string swig_msg;
|
|
|
|
public:
|
|
DirectorException(const char *msg="") : swig_msg(msg) {
|
|
}
|
|
|
|
virtual ~DirectorException() throw() {
|
|
}
|
|
|
|
const char *what() const throw() {
|
|
return swig_msg.c_str();
|
|
}
|
|
};
|
|
|
|
/* type mismatch in the return value from a Ocaml method call */
|
|
class DirectorTypeMismatchException : public DirectorException {
|
|
public:
|
|
DirectorTypeMismatchException(const char *msg="") : DirectorException(msg) {
|
|
}
|
|
};
|
|
|
|
/* any Ocaml exception that occurs during a director method call */
|
|
class DirectorMethodException : public DirectorException {};
|
|
|
|
/* attempt to call a pure virtual method via a director method */
|
|
class DirectorPureVirtualException : public DirectorException {
|
|
public:
|
|
DirectorPureVirtualException(const char *msg="") : DirectorException(msg) {
|
|
}
|
|
|
|
static void raise(const char *msg) {
|
|
throw DirectorPureVirtualException(msg);
|
|
}
|
|
};
|
|
|
|
/* simple thread abstraction for pthreads on win32 */
|
|
#ifdef __THREAD__
|
|
#define __PTHREAD__
|
|
#if defined(_WIN32) || defined(__WIN32__)
|
|
#define pthread_mutex_lock EnterCriticalSection
|
|
#define pthread_mutex_unlock LeaveCriticalSection
|
|
#define pthread_mutex_t CRITICAL_SECTION
|
|
#define MUTEX_INIT(var) CRITICAL_SECTION var
|
|
#else
|
|
#include <pthread.h>
|
|
#define MUTEX_INIT(var) pthread_mutex_t var = PTHREAD_MUTEX_INITIALIZER
|
|
#endif
|
|
#endif
|
|
|
|
/* director base class */
|
|
class Director {
|
|
private:
|
|
/* pointer to the wrapped ocaml object */
|
|
CAML_VALUE swig_self;
|
|
/* flag indicating whether the object is owned by ocaml or c++ */
|
|
mutable bool swig_disown_flag;
|
|
|
|
public:
|
|
/* wrap a ocaml object. */
|
|
Director(CAML_VALUE self) : swig_self(self), swig_disown_flag(false) {
|
|
register_global_root(&swig_self);
|
|
}
|
|
|
|
/* discard our reference at destruction */
|
|
virtual ~Director() {
|
|
remove_global_root(&swig_self);
|
|
swig_disown();
|
|
// Disown is safe here because we're just divorcing a reference that points to us.
|
|
}
|
|
|
|
/* return a pointer to the wrapped ocaml object */
|
|
CAML_VALUE swig_get_self() const {
|
|
return swig_self;
|
|
}
|
|
|
|
/* acquire ownership of the wrapped ocaml object (the sense of "disown" is from ocaml) */
|
|
void swig_disown() const {
|
|
if (!swig_disown_flag) {
|
|
swig_disown_flag=true;
|
|
caml_callback(*caml_named_value("caml_obj_disown"),swig_self);
|
|
}
|
|
}
|
|
};
|
|
}
|
|
|