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 : 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
    }
}

${this.title}

Code Editor : perlmain.i