$VERSION "a5" doesn't quite work.
[p5sagit/p5-mst-13.2.git] / miniperlmain.c
CommitLineData
a0d0e21e 1/*
2 * "The Road goes ever on and on, down from the door where it began."
3 */
4
60e4866f 5#ifdef OEMVS
9133bbab 6#ifdef MYMALLOC
7/* sbrk is limited to first heap segement so make it big */
8#pragma runopts(HEAP(8M,500K,ANYWHERE,KEEP,8K,4K) STACK(,,ANY,) ALL31(ON))
9#else
10#pragma runopts(HEAP(2M,500K,ANYWHERE,KEEP,8K,4K) STACK(,,ANY,) ALL31(ON))
11#endif
60e4866f 12#endif
13
4633a7c4 14
ecfc5424 15#include "EXTERN.h"
864dbfa3 16#define PERL_IN_MINIPERLMAIN_C
2304df62 17#include "perl.h"
18
864dbfa3 19static void xs_init (pTHX);
a0d0e21e 20static PerlInterpreter *my_perl;
21
61ae2fbf 22#if defined (__MINT__) || defined (atarist)
23/* The Atari operating system doesn't have a dynamic stack. The
24 stack size is determined from this value. */
25long _stksize = 64 * 1024;
26#endif
27
c07a80fd 28int
91487cfc 29main(int argc, char **argv, char **env)
2304df62 30{
31 int exitstatus;
2304df62 32
22239a37 33#ifdef PERL_GLOBAL_STRUCT
34#define PERLVAR(var,type) /**/
51371543 35#define PERLVARA(var,type) /**/
533c011a 36#define PERLVARI(var,type,init) PL_Vars.var = init;
37#define PERLVARIC(var,type,init) PL_Vars.var = init;
22239a37 38#include "perlvars.h"
39#undef PERLVAR
51371543 40#undef PERLVARA
22239a37 41#undef PERLVARI
0f3f18a6 42#undef PERLVARIC
22239a37 43#endif
44
2c4f7f0e 45 /* if user wants control of gprof profiling off by default */
46 /* noop unless Configure is given -Accflags=-DPERL_GPROF_CONTROL */
47 PERL_GPROF_MONCONTROL(0);
48
91487cfc 49 PERL_SYS_INIT3(&argc,&argv,&env);
4633a7c4 50
4d1ff10f 51#if defined(USE_5005THREADS) || defined(USE_ITHREADS)
52e18b1f 52 /* XXX Ideally, this should really be happening in perl_alloc() or
53 * perl_construct() to keep libperl.a transparently fork()-safe.
54 * It is currently done here only because Apache/mod_perl have
55 * problems due to lack of a call to cancel pthread_atfork()
56 * handlers when shared objects that contain the handlers may
57 * be dlclose()d. This forces applications that embed perl to
58 * call PTHREAD_ATFORK() explicitly, but if and only if it hasn't
59 * been called at least once before in the current process.
60 * --GSAR 2001-07-20 */
98e467d9 61 PTHREAD_ATFORK(Perl_atfork_lock,
62 Perl_atfork_unlock,
63 Perl_atfork_unlock);
64#endif
65
3280af22 66 if (!PL_do_undump) {
a0d0e21e 67 my_perl = perl_alloc();
68 if (!my_perl)
69 exit(1);
642f9deb 70 perl_construct(my_perl);
3280af22 71 PL_perl_destruct_level = 0;
a0d0e21e 72 }
31d77e54 73 PL_exit_flags |= PERL_EXIT_DESTRUCT_END;
642f9deb 74 exitstatus = perl_parse(my_perl, xs_init, argc, argv, (char **)NULL);
8815fa0e 75 if (!exitstatus)
31d77e54 76 perl_run(my_perl);
8815fa0e 77
78 exitstatus = perl_destruct(my_perl);
2304df62 79
642f9deb 80 perl_free(my_perl);
2304df62 81
a91be337 82 PERL_SYS_TERM();
83
642f9deb 84 exit(exitstatus);
4e35701f 85 return exitstatus;
2304df62 86}
87
88/* Register any extra external extensions */
89
4633a7c4 90/* Do not delete this line--writemain depends on it */
91
a0d0e21e 92static void
864dbfa3 93xs_init(pTHX)
2304df62 94{
642f9deb 95 dXSUB_SYS;
2304df62 96}