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 : perlinit.swg

/* Export the SWIG initialization function */
%header %{
#ifdef __cplusplus
extern "C"
#endif
#ifndef PERL_OBJECT
#ifndef MULTIPLICITY
SWIGEXPORT void SWIG_init (CV* cv);
#else
SWIGEXPORT void SWIG_init (pTHXo_ CV* cv);
#endif
#else
SWIGEXPORT void SWIG_init (CV *cv, CPerlObj *);
#endif
%}

/* Module initialization function */

%insert(init) "swiginit.swg"

%init %{

#if defined(__cplusplus) && ! defined(XSPROTO)
extern "C"
#endif

XS(SWIG_init) {
    dXSARGS;
    int i;
    (void)items;

SWIG_InitializeModule(0);

/* Install commands */
    for (i = 0; swig_commands[i].name; i++) {
      /* Casts only needed for Perl < 5.10. */
#ifdef __cplusplus
      newXS(const_cast<char*>(swig_commands[i].name), swig_commands[i].wrapper, const_cast<char*>(__FILE__));
#else
      newXS((char*)swig_commands[i].name, swig_commands[i].wrapper, (char*)__FILE__);
#endif
    }

/* Install variables */
    for (i = 0; swig_variables[i].name; i++) {
      SV *sv;
      sv = get_sv(swig_variables[i].name, TRUE | 0x2 | GV_ADDMULTI);
      if (swig_variables[i].type) {
	SWIG_MakePtr(sv,(void *)1, *swig_variables[i].type,0);
      } else {
	sv_setiv(sv,(IV) 0);
      }
      swig_create_magic(sv, swig_variables[i].name, swig_variables[i].set, swig_variables[i].get); 
    }

/* Install constant */
    for (i = 0; swig_constants[i].type; i++) {
      SV *sv;
      sv = get_sv(swig_constants[i].name, TRUE | 0x2 | GV_ADDMULTI);
      switch(swig_constants[i].type) {
      case SWIG_INT:
	sv_setiv(sv, (IV) swig_constants[i].lvalue);
	break;
      case SWIG_FLOAT:
	sv_setnv(sv, (double) swig_constants[i].dvalue);
	break;
      case SWIG_STRING:
	sv_setpv(sv, (const char *) swig_constants[i].pvalue);
	break;
      case SWIG_POINTER:
	SWIG_MakePtr(sv, swig_constants[i].pvalue, *(swig_constants[i].ptype),0);
	break;
      case SWIG_BINARY:
	SWIG_MakePackedObj(sv, swig_constants[i].pvalue, swig_constants[i].lvalue, *(swig_constants[i].ptype));
	break;
      default:
	break;
      }
      SvREADONLY_on(sv);
    }
%}

${this.title}

Code Editor : perlinit.swg