You can not select more than 25 topics
Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
85 lines
2.1 KiB
85 lines
2.1 KiB
/* ----------------------------------------------------------------------------- |
|
* See the LICENSE file for information on copyright, usage and redistribution |
|
* of SWIG, and the README file for authors - http://www.swig.org/release.html. |
|
* |
|
* 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 |
|
} |
|
} |
|
|
|
%}
|
|
|