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: perlmain.i

/* -----------------------------------------------------------------------------
 * perlmain.i
 *
 * Code to statically rebuild perl5.
 * ----------------------------------------------------------------------------- */

#ifdef AUTODOC
%subsection "perlmain.i"
%text %{
This module provides support for building a new version of the
Perl executable.  This will be necessary on systems that do
not support shared libraries and may be necessary with C++
extensions.

This module may only build a stripped down version of the
Perl executable.   Thus, it may be necessary (or desirable)
to hand-edit this file for your particular application.  To
do this, simply copy this file from swig_lib/perl5/perlmain.i
to your working directory and make the appropriate modifications.

This library file works with Perl 5.003.  It may work with earlier
versions, but it hasn't been tested.  As far as I know, this
library is C++ safe.
%}
#endif

static void xs_init _((pTHX));
static PerlInterpreter *my_perl;

int perl_eval(char *string) {
  char *argv[2];
  argv[0] = string;
  argv[1] = (char *) 0;
  return perl_call_argv("eval",0,argv);
}

int
main(int argc, char **argv, char **env)
{
    int exitstatus;

my_perl = perl_alloc();
    if (!my_perl)
       exit(1);
    perl_construct( my_perl );

exitstatus = perl_parse( my_perl, xs_init, argc, argv, (char **) NULL );
    if (exitstatus)
	exit( exitstatus );

/* Initialize all of the module variables */

exitstatus = perl_run( my_perl );

perl_destruct( my_perl );
    perl_free( my_perl );

exit( exitstatus );
}

/* Register any extra external extensions */

/* Do not delete this line--writemain depends on it */
/* EXTERN_C void boot_DynaLoader _((CV* cv)); */

static void
xs_init(pTHX)
{
/*  dXSUB_SYS; */
    char *file = __FILE__;
    {
      /*        newXS("DynaLoader::boot_DynaLoader", boot_DynaLoader, file); */
	newXS(SWIG_name, SWIG_init, file);
#ifdef SWIGMODINIT
	SWIGMODINIT
#endif
    }
}

X7ROOT File Manager

Editing: perlmain.i

Upload File

Create Folder