RE: [PATCH] compress 2.018
[p5sagit/p5-mst-13.2.git] / miniperlmain.c
CommitLineData
d6376244 1/* miniperlmain.c
2 *
cbdf9ef8 3 * Copyright (C) 1994, 1995, 1996, 1997, 1999, 2000, 2001, 2002, 2003,
663f364b 4 * 2004, 2005, 2006, 2007, by Larry Wall and others
d6376244 5 *
6 * You may distribute under the terms of either the GNU General Public
7 * License or the Artistic License, as specified in the README file.
8 *
9 */
10
a0d0e21e 11/*
4ac71550 12 * The Road goes ever on and on
13 * Down from the door where it began.
14 *
15 * [Bilbo on p.35 of _The Lord of the Rings_, I/i: "A Long-Expected Party"]
16 * [Frodo on p.73 of _The Lord of the Rings_, I/iii: "Three Is Company"]
a0d0e21e 17 */
18
166f8a29 19/* This file contains the main() function for the perl interpreter.
20 * Note that miniperlmain.c contains main() for the 'miniperl' binary,
21 * while perlmain.c contains main() for the 'perl' binary.
22 *
ddfa107c 23 * Miniperl is like perl except that it does not support dynamic loading,
24 * and in fact is used to build the dynamic modules needed for the 'real'
61296642 25 * perl executable.
166f8a29 26 */
27
60e4866f 28#ifdef OEMVS
9133bbab 29#ifdef MYMALLOC
61296642 30/* sbrk is limited to first heap segment so make it big */
9133bbab 31#pragma runopts(HEAP(8M,500K,ANYWHERE,KEEP,8K,4K) STACK(,,ANY,) ALL31(ON))
32#else
33#pragma runopts(HEAP(2M,500K,ANYWHERE,KEEP,8K,4K) STACK(,,ANY,) ALL31(ON))
34#endif
60e4866f 35#endif
36
4633a7c4 37
ecfc5424 38#include "EXTERN.h"
864dbfa3 39#define PERL_IN_MINIPERLMAIN_C
2304df62 40#include "perl.h"
41
864dbfa3 42static void xs_init (pTHX);
a0d0e21e 43static PerlInterpreter *my_perl;
44
61ae2fbf 45#if defined (__MINT__) || defined (atarist)
46/* The Atari operating system doesn't have a dynamic stack. The
47 stack size is determined from this value. */
48long _stksize = 64 * 1024;
49#endif
50
27da23d5 51#if defined(PERL_GLOBAL_STRUCT_PRIVATE)
52/* The static struct perl_vars* may seem counterproductive since the
53 * whole idea PERL_GLOBAL_STRUCT_PRIVATE was to avoid statics, but note
54 * that this static is not in the shared perl library, the globals PL_Vars
55 * and PL_VarsPtr will stay away. */
56static struct perl_vars* my_plvarsp;
57struct perl_vars* Perl_GetVarsPrivate(void) { return my_plvarsp; }
58#endif
59
2f3efc97 60#ifdef NO_ENV_ARRAY_IN_MAIN
61extern char **environ;
62int
63main(int argc, char **argv)
64#else
c07a80fd 65int
91487cfc 66main(int argc, char **argv, char **env)
2f3efc97 67#endif
2304df62 68{
27da23d5 69 dVAR;
2304df62 70 int exitstatus;
27da23d5 71#ifdef PERL_GLOBAL_STRUCT
72 struct perl_vars *plvarsp = init_global_struct();
73# ifdef PERL_GLOBAL_STRUCT_PRIVATE
74 my_vars = my_plvarsp = plvarsp;
75# endif
76#endif /* PERL_GLOBAL_STRUCT */
dd374669 77 (void)env;
50acdf95 78#ifndef PERL_USE_SAFE_PUTENV
79 PL_use_safe_putenv = 0;
80#endif /* PERL_USE_SAFE_PUTENV */
2304df62 81
2c4f7f0e 82 /* if user wants control of gprof profiling off by default */
83 /* noop unless Configure is given -Accflags=-DPERL_GPROF_CONTROL */
84 PERL_GPROF_MONCONTROL(0);
85
2f3efc97 86#ifdef NO_ENV_ARRAY_IN_MAIN
87 PERL_SYS_INIT3(&argc,&argv,&environ);
88#else
91487cfc 89 PERL_SYS_INIT3(&argc,&argv,&env);
2f3efc97 90#endif
4633a7c4 91
3db8f154 92#if defined(USE_ITHREADS)
52e18b1f 93 /* XXX Ideally, this should really be happening in perl_alloc() or
94 * perl_construct() to keep libperl.a transparently fork()-safe.
95 * It is currently done here only because Apache/mod_perl have
96 * problems due to lack of a call to cancel pthread_atfork()
97 * handlers when shared objects that contain the handlers may
98 * be dlclose()d. This forces applications that embed perl to
99 * call PTHREAD_ATFORK() explicitly, but if and only if it hasn't
100 * been called at least once before in the current process.
101 * --GSAR 2001-07-20 */
98e467d9 102 PTHREAD_ATFORK(Perl_atfork_lock,
103 Perl_atfork_unlock,
104 Perl_atfork_unlock);
105#endif
106
3280af22 107 if (!PL_do_undump) {
a0d0e21e 108 my_perl = perl_alloc();
109 if (!my_perl)
110 exit(1);
642f9deb 111 perl_construct(my_perl);
3280af22 112 PL_perl_destruct_level = 0;
a0d0e21e 113 }
31d77e54 114 PL_exit_flags |= PERL_EXIT_DESTRUCT_END;
642f9deb 115 exitstatus = perl_parse(my_perl, xs_init, argc, argv, (char **)NULL);
8815fa0e 116 if (!exitstatus)
31d77e54 117 perl_run(my_perl);
22f43f2c 118
8815fa0e 119 exitstatus = perl_destruct(my_perl);
2304df62 120
642f9deb 121 perl_free(my_perl);
2304df62 122
2f3efc97 123#if defined(USE_ENVIRON_ARRAY) && defined(PERL_TRACK_MEMPOOL) && !defined(NO_ENV_ARRAY_IN_MAIN)
22f43f2c 124 /*
125 * The old environment may have been freed by perl_free()
126 * when PERL_TRACK_MEMPOOL is defined, but without having
127 * been restored by perl_destruct() before (this is only
128 * done if destruct_level > 0).
129 *
130 * It is important to have a valid environment for atexit()
131 * routines that are eventually called.
132 */
133 environ = env;
134#endif
135
27da23d5 136#ifdef PERL_GLOBAL_STRUCT
137 free_global_struct(plvarsp);
138#endif /* PERL_GLOBAL_STRUCT */
139
a91be337 140 PERL_SYS_TERM();
141
642f9deb 142 exit(exitstatus);
4e35701f 143 return exitstatus;
2304df62 144}
145
146/* Register any extra external extensions */
147
4633a7c4 148/* Do not delete this line--writemain depends on it */
149
a0d0e21e 150static void
864dbfa3 151xs_init(pTHX)
2304df62 152{
96a5add6 153 PERL_UNUSED_CONTEXT;
642f9deb 154 dXSUB_SYS;
2304df62 155}
66610fdd 156
157/*
158 * Local variables:
159 * c-indentation-style: bsd
160 * c-basic-offset: 4
161 * indent-tabs-mode: t
162 * End:
163 *
37442d52 164 * ex: set ts=8 sts=4 sw=4 noet:
165 */