diff options
Diffstat (limited to 'contrib/perl5/miniperlmain.c')
-rw-r--r-- | contrib/perl5/miniperlmain.c | 72 |
1 files changed, 0 insertions, 72 deletions
diff --git a/contrib/perl5/miniperlmain.c b/contrib/perl5/miniperlmain.c deleted file mode 100644 index d1b3e8e..0000000 --- a/contrib/perl5/miniperlmain.c +++ /dev/null @@ -1,72 +0,0 @@ -/* - * "The Road goes ever on and on, down from the door where it began." - */ - -#ifdef OEMVS -#pragma runopts(HEAP(1M,32K,ANYWHERE,KEEP,8K,4K)) -#endif - - -#include "EXTERN.h" -#define PERL_IN_MINIPERLMAIN_C -#include "perl.h" - -static void xs_init (pTHX); -static PerlInterpreter *my_perl; - -#if defined (__MINT__) || defined (atarist) -/* The Atari operating system doesn't have a dynamic stack. The - stack size is determined from this value. */ -long _stksize = 64 * 1024; -#endif - -int -main(int argc, char **argv, char **env) -{ - int exitstatus; - -#ifdef PERL_GLOBAL_STRUCT -#define PERLVAR(var,type) /**/ -#define PERLVARA(var,type) /**/ -#define PERLVARI(var,type,init) PL_Vars.var = init; -#define PERLVARIC(var,type,init) PL_Vars.var = init; -#include "perlvars.h" -#undef PERLVAR -#undef PERLVARA -#undef PERLVARI -#undef PERLVARIC -#endif - - PERL_SYS_INIT3(&argc,&argv,&env); - - if (!PL_do_undump) { - my_perl = perl_alloc(); - if (!my_perl) - exit(1); - perl_construct(my_perl); - PL_perl_destruct_level = 0; - } - - exitstatus = perl_parse(my_perl, xs_init, argc, argv, (char **)NULL); - if (!exitstatus) { - exitstatus = perl_run(my_perl); - } - - perl_destruct(my_perl); - perl_free(my_perl); - - PERL_SYS_TERM(); - - exit(exitstatus); - return exitstatus; -} - -/* Register any extra external extensions */ - -/* Do not delete this line--writemain depends on it */ - -static void -xs_init(pTHX) -{ - dXSUB_SYS; -} |