Gecko [ fernandoquevedodop.com ]

Name	Size	Permission
carray.i	3.1 KB	-rw-r--r--
class.swg	1.75 KB	-rw-r--r--
cstring.i	5.93 KB	-rw-r--r--
director.swg	2.96 KB	-rw-r--r--
ocaml.i	1.28 KB	-rw-r--r--
ocaml.swg	8.36 KB	-rw-r--r--
ocamlkw.swg	1.16 KB	-rw-r--r--
ocamlrun.swg	14.61 KB	-rw-r--r--
ocamlrundec.swg	6.29 KB	-rw-r--r--
preamble.swg	473 B	-rw-r--r--
std_common.i	597 B	-rw-r--r--
std_complex.i	1.51 KB	-rw-r--r--
std_deque.i	722 B	-rw-r--r--
std_except.i	1.4 KB	-rw-r--r--
std_list.i	4.33 KB	-rw-r--r--
std_map.i	2.54 KB	-rw-r--r--
std_pair.i	773 B	-rw-r--r--
std_string.i	3.08 KB	-rw-r--r--
std_vector.i	2.98 KB	-rw-r--r--
stl.i	291 B	-rw-r--r--
swig.ml	4.74 KB	-rw-r--r--
swig.mli	1.72 KB	-rw-r--r--
swigp4.ml	6.5 KB	-rw-r--r--
typecheck.i	5.21 KB	-rw-r--r--
typemaps.i	1.99 KB	-rw-r--r--
typeregister.swg	55 B	-rw-r--r--

Code Editor : director.swg

/* -----------------------------------------------------------------------------
 * 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) {
        caml_register_global_root(&swig_self);
      }

/* discard our reference at destruction */
      virtual ~Director() {
        caml_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);
        }
      }
  };
}

${this.title}

Code Editor : director.swg