Gecko [ 122.154.134.11 ]

Name	Size	Permission
Makefile.pl	691 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--
cni.i	150 B	-rw-r--r--
cpointer.i	33 B	-rw-r--r--
cstring.i	32 B	-rw-r--r--
exception.i	138 B	-rw-r--r--
factory.i	32 B	-rw-r--r--
jstring.i	1.02 KB	-rw-r--r--
noembed.h	1.38 KB	-rw-r--r--
perl5.swg	1.44 KB	-rw-r--r--
perlerrors.swg	1.01 KB	-rw-r--r--
perlfragments.swg	556 B	-rw-r--r--
perlhead.swg	2.55 KB	-rw-r--r--
perlinit.swg	1.77 KB	-rw-r--r--
perlkw.swg	3.78 KB	-rw-r--r--
perlmacros.swg	36 B	-rw-r--r--
perlmain.i	2.1 KB	-rw-r--r--
perlopers.swg	1.83 KB	-rw-r--r--
perlprimtypes.swg	6.99 KB	-rw-r--r--
perlrun.swg	14 KB	-rw-r--r--
perlruntime.swg	326 B	-rw-r--r--
perlstrings.swg	1.39 KB	-rw-r--r--
perltypemaps.swg	2.66 KB	-rw-r--r--
perluserdir.swg	36 B	-rw-r--r--
reference.i	7.22 KB	-rw-r--r--
std_common.i	779 B	-rw-r--r--
std_deque.i	28 B	-rw-r--r--
std_except.i	35 B	-rw-r--r--
std_list.i	13.98 KB	-rw-r--r--
std_map.i	5.29 KB	-rw-r--r--
std_pair.i	865 B	-rw-r--r--
std_string.i	62 B	-rw-r--r--
std_vector.i	22.12 KB	-rw-r--r--
stl.i	518 B	-rw-r--r--
typemaps.i	12.64 KB	-rw-r--r--

Code Editor : perltypemaps.swg

/* ------------------------------------------------------------
 *  Typemap specializations for Perl
 * ------------------------------------------------------------ */

/* ------------------------------------------------------------
 *  Fragment section
 * ------------------------------------------------------------ */

/*
  in Perl we need to pass the CPerlObj value, sometimes, so, we define
  the decl/call macros as needed.
*/

#define SWIG_AS_DECL_ARGS SWIG_PERL_DECL_ARGS_2
#define SWIG_AS_CALL_ARGS SWIG_PERL_CALL_ARGS_2

#define SWIG_FROM_DECL_ARGS  SWIG_PERL_DECL_ARGS_1
#define SWIG_FROM_CALL_ARGS  SWIG_PERL_CALL_ARGS_1

/* Include fundamental fragemt definitions */
%include <typemaps/fragments.swg>

/* Look for user fragments file. */
%include <perlfragments.swg>

/* Perl fragments for primitive types */
%include <perlprimtypes.swg>

/* Perl fragments for char* strings */
%include <perlstrings.swg>

/* ------------------------------------------------------------
 *  Unified typemap section
 * ------------------------------------------------------------ */

/* No director supported in Perl */
#ifdef SWIG_DIRECTOR_TYPEMAPS
#undef SWIG_DIRECTOR_TYPEMAPS
#endif

/* Perl types */
#define SWIG_Object                      SV *
#define VOID_Object                      sv_newmortal()

/* Perl $shadow flag */
#define %newpointer_flags                $shadow
#define %newinstance_flags               $shadow

/* Complete overload of the output/constant/exception macros */

/* output */
%define %set_output(obj) $result = obj; argvi++ %enddef

/* append output */
%define %append_output(obj) if (argvi >= items) EXTEND(sp,1); %set_output(obj) %enddef

/* variable output */
%define %set_varoutput(obj) sv_setsv($result,obj)  %enddef

/* constant */
%define %set_constant(name, obj) %begin_block
  SV *sv = get_sv((char*) SWIG_prefix name, TRUE | 0x2 | GV_ADDMULTI);
  sv_setsv(sv, obj);
  SvREADONLY_on(sv);
%end_block %enddef

/* raise exception */
%define %raise(obj, type, desc) sv_setsv(GvSV(PL_errgv), obj); SWIG_fail %enddef

/* Include the unified typemap library */
%include <typemaps/swigtypemaps.swg>

/*  ------------------------------------------------------------
 *  Perl extra typemaps
 * ------------------------------------------------------------ */

%typemap(varout,type="$1_descriptor") SWIGTYPE *, SWIGTYPE []  
    "sv_setiv(SvRV($result),PTR2IV($1));";

%typemap(varout,type="$1_descriptor") SWIGTYPE &
    "sv_setiv(SvRV($result),PTR2IV(&$1));";

%typemap(varout,type="$&1_descriptor") SWIGTYPE
    "sv_setiv(SvRV($result), PTR2IV(&$1));";

%typemap(varout,type="$1_descriptor") SWIGTYPE (CLASS::*) {
  SWIG_MakePackedObj($result, (void *) &$1, sizeof($1_type), $1_descriptor);
}

${this.title}

Code Editor : perltypemaps.swg