File Manager

X7ROOT File Manager

Current Path: /usr/share/swig/2.0.10/perl5

📁 ..
📄 Makefile.pl(691 B)
📄 attribute.i(34 B)
📄 carrays.i(33 B)
📄 cdata.i(30 B)
📄 cmalloc.i(32 B)
📄 cni.i(150 B)
📄 cpointer.i(33 B)
📄 cstring.i(32 B)
📄 exception.i(138 B)
📄 factory.i(32 B)
📄 jstring.i(1.02 KB)
📄 noembed.h(1.54 KB)
📄 perl5.swg(1.44 KB)
📄 perlerrors.swg(871 B)
📄 perlfragments.swg(556 B)
📄 perlhead.swg(2.55 KB)
📄 perlinit.swg(1.94 KB)
📄 perlkw.swg(3.78 KB)
📄 perlmacros.swg(36 B)
📄 perlmain.i(1.94 KB)
📄 perlopers.swg(1.83 KB)
📄 perlprimtypes.swg(7.47 KB)
📄 perlrun.swg(14.23 KB)
📄 perlruntime.swg(326 B)
📄 perlstrings.swg(1.39 KB)
📄 perltypemaps.swg(2.74 KB)
📄 perluserdir.swg(36 B)
📄 reference.i(7.08 KB)
📄 std_common.i(617 B)
📄 std_deque.i(28 B)
📄 std_except.i(35 B)
📄 std_list.i(14.04 KB)
📄 std_map.i(2.28 KB)
📄 std_pair.i(703 B)
📄 std_string.i(62 B)
📄 std_vector.i(22.3 KB)
📄 stl.i(356 B)
📄 typemaps.i(12.48 KB)

Editing: 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 %{

#ifdef __cplusplus
extern "C"
#endif

XS(SWIG_init) {
    dXSARGS;
    int i;

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);
    }
%}

X7ROOT File Manager

Editing: perlinit.swg

Upload File

Create Folder