Gecko [ www.jdcpatala.org ]

Name	Size	Permission
Makefile.pl	688 B	-rw-r--r--
attribute.i	34 B	-rw-r--r--
carrays.i	33 B	-rw-r--r--
cdata.i	30 B	-rw-r--r--
cmalloc.i	32 B	-rw-r--r--
cpointer.i	33 B	-rw-r--r--
cstring.i	32 B	-rw-r--r--
director.swg	7.09 KB	-rw-r--r--
exception.i	138 B	-rw-r--r--
factory.i	32 B	-rw-r--r--
noembed.h	1.57 KB	-rw-r--r--
perl5.swg	1.44 KB	-rw-r--r--
perlerrors.swg	871 B	-rw-r--r--
perlfragments.swg	556 B	-rw-r--r--
perlhead.swg	2.55 KB	-rw-r--r--
perlinit.swg	1.99 KB	-rw-r--r--
perlkw.swg	3.78 KB	-rw-r--r--
perlmacros.swg	36 B	-rw-r--r--
perlmain.i	1.94 KB	-rw-r--r--
perlopers.swg	1.83 KB	-rw-r--r--
perlprimtypes.swg	8.15 KB	-rw-r--r--
perlrun.swg	14.69 KB	-rw-r--r--
perlruntime.swg	326 B	-rw-r--r--
perlstrings.swg	1.39 KB	-rw-r--r--
perltypemaps.swg	2.99 KB	-rw-r--r--
perluserdir.swg	36 B	-rw-r--r--
reference.i	7.08 KB	-rw-r--r--
std_common.i	654 B	-rw-r--r--
std_deque.i	28 B	-rw-r--r--
std_except.i	35 B	-rw-r--r--
std_list.i	14.23 KB	-rw-r--r--
std_map.i	2.55 KB	-rw-r--r--
std_pair.i	773 B	-rw-r--r--
std_string.i	62 B	-rw-r--r--
std_vector.i	22.81 KB	-rw-r--r--
stl.i	291 B	-rw-r--r--
typemaps.i	12.52 KB	-rw-r--r--

Code Editor : director.swg

/* -----------------------------------------------------------------------------
 * director.swg
 *
 * This file contains support for director classes so that Perl proxy
 * methods can be called from C++.
 * ----------------------------------------------------------------------------- */

#ifndef SWIG_DIRECTOR_PERL_HEADER_
#define SWIG_DIRECTOR_PERL_HEADER_

#include <string>
#include <iostream>
#include <exception>
#include <vector>
#include <map>

/*
  Use -DSWIG_DIRECTOR_NORTTI if you prefer to avoid the use of the
  native C++ RTTI and dynamic_cast<>. But be aware that directors
  could stop working when using this option.
*/
#ifdef SWIG_DIRECTOR_NORTTI
/*
   When we don't use the native C++ RTTI, we implement a minimal one
   only for Directors.
*/
# ifndef SWIG_DIRECTOR_RTDIR
# define SWIG_DIRECTOR_RTDIR

namespace Swig {
  class Director;
  SWIGINTERN std::map<void *, Director *>& get_rtdir_map() {
    static std::map<void *, Director *> rtdir_map;
    return rtdir_map;
  }

SWIGINTERNINLINE void set_rtdir(void *vptr, Director *rtdir) {
    get_rtdir_map()[vptr] = rtdir;
  }

SWIGINTERNINLINE Director *get_rtdir(void *vptr) {
    std::map<void *, Director *>::const_iterator pos = get_rtdir_map().find(vptr);
    Director *rtdir = (pos != get_rtdir_map().end()) ? pos->second : 0;
    return rtdir;
  }
}
# endif /* SWIG_DIRECTOR_RTDIR */

# define SWIG_DIRECTOR_CAST(ARG) Swig::get_rtdir(static_cast<void *>(ARG))
# define SWIG_DIRECTOR_RGTR(ARG1, ARG2) Swig::set_rtdir(static_cast<void *>(ARG1), ARG2)

#else

# define SWIG_DIRECTOR_CAST(ARG) dynamic_cast<Swig::Director *>(ARG)
# define SWIG_DIRECTOR_RGTR(ARG1, ARG2)

#endif /* SWIG_DIRECTOR_NORTTI */

extern "C" {
  struct swig_type_info;
}

namespace Swig {

/* memory handler */
  struct GCItem {
    virtual ~GCItem() {}

virtual int get_own() const {
      return 0;
    }
  };

struct GCItem_var {
    GCItem_var(GCItem *item = 0) : _item(item) {
    }

GCItem_var& operator=(GCItem *item) {
      GCItem *tmp = _item;
      _item = item;
      delete tmp;
      return *this;
    }

~GCItem_var() {
      delete _item;
    }

GCItem *operator->() const {
      return _item;
    }

private:
    GCItem *_item;
  };

struct GCItem_Object : GCItem {
    GCItem_Object(int own) : _own(own) {
    }

virtual ~GCItem_Object() {
    }

int get_own() const {
      return _own;
    }

private:
    int _own;
  };

template <typename Type>
  struct GCItem_T : GCItem {
    GCItem_T(Type *ptr) : _ptr(ptr) {
    }

virtual ~GCItem_T() {
      delete _ptr;
    }

private:
    Type *_ptr;
  };

template <typename Type>
  struct GCArray_T : GCItem {
    GCArray_T(Type *ptr) : _ptr(ptr) {
    }

virtual ~GCArray_T() {
      delete[] _ptr;
    }

private:
    Type *_ptr;
  };

/* base class for director exceptions */
  class DirectorException : public std::exception {
  public:
    virtual SV *getNative() const = 0;
  };

/* exceptions emitted by Perl */
  class DirectorMethodException : public DirectorException {
  protected:
    SV *err;
  public:
    DirectorMethodException(SV *sv = sv_mortalcopy(ERRSV)) : err(sv) {
      SvREFCNT_inc(err);
    }

const char *what() const throw() {
      return SvPV_nolen(err);
    }

SV *getNative() const {
      return sv_2mortal(newSVsv(err));
    }

static void raise(SV *sv) {
      throw DirectorMethodException(sv);
    }
  };

/* exceptions emitted by wrap code */
  class DirectorWrapException : public DirectorException {
  protected:
    std::string msg;
    DirectorWrapException(const char *str) : msg(str) {
    }

public:
    virtual ~DirectorWrapException() throw() {
    }

const char *what() const throw() {
      return msg.c_str();
    }

virtual SV *getNative() const {
      return sv_2mortal(newSVpvn(msg.data(), msg.size()));
    }
  };

class DirectorTypeMismatchException : public DirectorWrapException {
  public:
    DirectorTypeMismatchException(const char *str) : DirectorWrapException(str) {
    }

static void raise(const char *type, const char *msg) {
      std::string err = std::string(type);
      err += ": ";
      err += msg;
      throw DirectorTypeMismatchException(err.c_str());
    }
  };

class DirectorPureVirtualException : public DirectorWrapException {
  public:
    DirectorPureVirtualException(const char *name)
      : DirectorWrapException("SWIG director pure virtual method called: ") {
      msg += name;
    }

static void raise(const char *name) {
      throw DirectorPureVirtualException(name);
    }
  };

/* director base class */
  class Director {
  private:
    /* pointer to the wrapped perl object */
    SV *swig_self;
    /* class of wrapped perl object */
    std::string swig_class;
    /* flag indicating whether the object is owned by perl or c++ */
    mutable bool swig_disown_flag;

/* decrement the reference count of the wrapped perl object */
    void swig_decref() const {
      if (swig_disown_flag) {
        SvREFCNT_dec(swig_self);
      }
    }

public:
    /* wrap a Perl object. */
    Director(SV *pkg) : swig_disown_flag(false) {
      STRLEN len;
      char *str = SvPV(pkg, len);
      swig_class = std::string(str, len);
      swig_self = newRV_inc((SV *)newHV());
    }

/* discard our reference at destruction */
    virtual ~Director() {
      swig_decref();
    }

/* return a pointer to the wrapped Perl object */
    SV *swig_get_self() const {
      return swig_self;
    }

const char *swig_get_class() const {
      return swig_class.c_str();
    }

/* acquire ownership of the wrapped Perl object (the sense of "disown" is from perl) */
    void swig_disown() const {
      if (!swig_disown_flag) {
        swig_disown_flag=true;
        swig_incref();
      }
    }

/* increase the reference count of the wrapped Perl object */
    void swig_incref() const {
      if (swig_disown_flag) {
        SvREFCNT_inc(swig_self);
      }
    }

/* methods to implement pseudo protected director members */
    virtual bool swig_get_inner(const char * /* swig_protected_method_name */) const {
      return true;
    }

virtual void swig_set_inner(const char * /* swig_protected_method_name */, bool /* swig_val */) const {
    }

/* ownership management */
  private:
    typedef std::map<void *, GCItem_var> swig_ownership_map;
    mutable swig_ownership_map swig_owner;

public:
    template <typename Type>
    void swig_acquire_ownership_array(Type *vptr) const {
      if (vptr) {
        swig_owner[vptr] = new GCArray_T<Type>(vptr);
      }
    }

template <typename Type>
    void swig_acquire_ownership(Type *vptr) const {
      if (vptr) {
        swig_owner[vptr] = new GCItem_T<Type>(vptr);
      }
    }

void swig_acquire_ownership_obj(void *vptr, int own) const {
      if (vptr && own) {
        swig_owner[vptr] = new GCItem_Object(own);
      }
    }

int swig_release_ownership(void *vptr) const {
      int own = 0;
      if (vptr) {
        swig_ownership_map::iterator iter = swig_owner.find(vptr);
        if (iter != swig_owner.end()) {
          own = iter->second->get_own();
          swig_owner.erase(iter);
        }
      }
      return own;
    }
  };

}

#endif

${this.title}

Code Editor : director.swg