This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
[perl #81500] Make compilation work when NO_ENV_ARRAY_IN_MAIN is defined
[perl5.git] / miniperlmain.c
CommitLineData
d6376244
JH
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
JH
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
TC
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
LW
17 */
18
166f8a29
DM
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
DM
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
DM
26 */
27
60e4866f 28#ifdef OEMVS
9133bbab 29#ifdef MYMALLOC
61296642 30/* sbrk is limited to first heap segment so make it big */
9133bbab
NIS
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
LJ
35#endif
36
4633a7c4 37
ecfc5424 38#include "EXTERN.h"
864dbfa3 39#define PERL_IN_MINIPERLMAIN_C
2304df62
AD
40#include "perl.h"
41
864dbfa3 42static void xs_init (pTHX);
a0d0e21e
LW
43static PerlInterpreter *my_perl;
44
cd86ed9d 45#if defined (atarist)
61ae2fbf
JH
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
JH
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
JH
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;
01be0729 70 int exitstatus, i;
27da23d5
JH
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 */
dedb16dc
DL
77#ifndef NO_ENV_ARRAY_IN_MAIN
78 PERL_UNUSED_ARG(env);
79#endif
50acdf95
MS
80#ifndef PERL_USE_SAFE_PUTENV
81 PL_use_safe_putenv = 0;
82#endif /* PERL_USE_SAFE_PUTENV */
2304df62 83
2c4f7f0e
DM
84 /* if user wants control of gprof profiling off by default */
85 /* noop unless Configure is given -Accflags=-DPERL_GPROF_CONTROL */
86 PERL_GPROF_MONCONTROL(0);
87
2f3efc97
JH
88#ifdef NO_ENV_ARRAY_IN_MAIN
89 PERL_SYS_INIT3(&argc,&argv,&environ);
90#else
91487cfc 91 PERL_SYS_INIT3(&argc,&argv,&env);
2f3efc97 92#endif
4633a7c4 93
3db8f154 94#if defined(USE_ITHREADS)
52e18b1f
GS
95 /* XXX Ideally, this should really be happening in perl_alloc() or
96 * perl_construct() to keep libperl.a transparently fork()-safe.
97 * It is currently done here only because Apache/mod_perl have
98 * problems due to lack of a call to cancel pthread_atfork()
99 * handlers when shared objects that contain the handlers may
100 * be dlclose()d. This forces applications that embed perl to
101 * call PTHREAD_ATFORK() explicitly, but if and only if it hasn't
102 * been called at least once before in the current process.
103 * --GSAR 2001-07-20 */
98e467d9
DM
104 PTHREAD_ATFORK(Perl_atfork_lock,
105 Perl_atfork_unlock,
106 Perl_atfork_unlock);
107#endif
108
3280af22 109 if (!PL_do_undump) {
a0d0e21e
LW
110 my_perl = perl_alloc();
111 if (!my_perl)
112 exit(1);
642f9deb 113 perl_construct(my_perl);
3280af22 114 PL_perl_destruct_level = 0;
a0d0e21e 115 }
31d77e54 116 PL_exit_flags |= PERL_EXIT_DESTRUCT_END;
642f9deb 117 exitstatus = perl_parse(my_perl, xs_init, argc, argv, (char **)NULL);
8815fa0e 118 if (!exitstatus)
31d77e54 119 perl_run(my_perl);
22f43f2c 120
01be0729
JW
121 /* Unregister our signal handler before destroying my_perl */
122 for (i = 0; PL_sig_name[i]; i++) {
123 if (rsignal_state(PL_sig_num[i]) == (Sighandler_t) PL_csighandlerp) {
124 rsignal(PL_sig_num[i], (Sighandler_t) SIG_DFL);
125 }
126 }
127
8815fa0e 128 exitstatus = perl_destruct(my_perl);
2304df62 129
642f9deb 130 perl_free(my_perl);
2304df62 131
2f3efc97 132#if defined(USE_ENVIRON_ARRAY) && defined(PERL_TRACK_MEMPOOL) && !defined(NO_ENV_ARRAY_IN_MAIN)
22f43f2c
MHM
133 /*
134 * The old environment may have been freed by perl_free()
135 * when PERL_TRACK_MEMPOOL is defined, but without having
136 * been restored by perl_destruct() before (this is only
137 * done if destruct_level > 0).
138 *
139 * It is important to have a valid environment for atexit()
140 * routines that are eventually called.
141 */
142 environ = env;
143#endif
144
27da23d5
JH
145#ifdef PERL_GLOBAL_STRUCT
146 free_global_struct(plvarsp);
147#endif /* PERL_GLOBAL_STRUCT */
148
a91be337
PP
149 PERL_SYS_TERM();
150
642f9deb 151 exit(exitstatus);
4e35701f 152 return exitstatus;
2304df62
AD
153}
154
155/* Register any extra external extensions */
156
4633a7c4
LW
157/* Do not delete this line--writemain depends on it */
158
a0d0e21e 159static void
864dbfa3 160xs_init(pTHX)
2304df62 161{
96a5add6 162 PERL_UNUSED_CONTEXT;
642f9deb 163 dXSUB_SYS;
2304df62 164}
66610fdd
RGS
165
166/*
167 * Local variables:
168 * c-indentation-style: bsd
169 * c-basic-offset: 4
170 * indent-tabs-mode: t
171 * End:
172 *
37442d52
RGS
173 * ex: set ts=8 sts=4 sw=4 noet:
174 */