diff options
author | markm <markm@FreeBSD.org> | 2002-05-16 10:09:28 +0000 |
---|---|---|
committer | markm <markm@FreeBSD.org> | 2002-05-16 10:09:28 +0000 |
commit | f56e05005c751822074f0a22aa9a98d2eb189924 (patch) | |
tree | e28fc632241c9d248069d45dd9ab2a41fa64868f /contrib/perl5/miniperlmain.c | |
parent | 344ddc14973a1519f100f54051dcb068069fe43c (diff) | |
download | FreeBSD-src-f56e05005c751822074f0a22aa9a98d2eb189924.zip FreeBSD-src-f56e05005c751822074f0a22aa9a98d2eb189924.tar.gz |
Perl is no longer in base. Long live the port!
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; -} |