This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
release the global struct *after* we've finished using it
[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
27da23d5
JH
45#if defined(PERL_GLOBAL_STRUCT_PRIVATE)
46/* The static struct perl_vars* may seem counterproductive since the
47 * whole idea PERL_GLOBAL_STRUCT_PRIVATE was to avoid statics, but note
48 * that this static is not in the shared perl library, the globals PL_Vars
49 * and PL_VarsPtr will stay away. */
50static struct perl_vars* my_plvarsp;
51struct perl_vars* Perl_GetVarsPrivate(void) { return my_plvarsp; }
52#endif
53
2f3efc97
JH
54#ifdef NO_ENV_ARRAY_IN_MAIN
55extern char **environ;
56int
57main(int argc, char **argv)
58#else
c07a80fd 59int
91487cfc 60main(int argc, char **argv, char **env)
2f3efc97 61#endif
2304df62 62{
27da23d5 63 dVAR;
01be0729 64 int exitstatus, i;
27da23d5
JH
65#ifdef PERL_GLOBAL_STRUCT
66 struct perl_vars *plvarsp = init_global_struct();
67# ifdef PERL_GLOBAL_STRUCT_PRIVATE
68 my_vars = my_plvarsp = plvarsp;
69# endif
70#endif /* PERL_GLOBAL_STRUCT */
dedb16dc
DL
71#ifndef NO_ENV_ARRAY_IN_MAIN
72 PERL_UNUSED_ARG(env);
73#endif
50acdf95 74#ifndef PERL_USE_SAFE_PUTENV
8bf20623 75 PL_use_safe_putenv = FALSE;
50acdf95 76#endif /* PERL_USE_SAFE_PUTENV */
2304df62 77
2c4f7f0e
DM
78 /* if user wants control of gprof profiling off by default */
79 /* noop unless Configure is given -Accflags=-DPERL_GPROF_CONTROL */
80 PERL_GPROF_MONCONTROL(0);
81
2f3efc97
JH
82#ifdef NO_ENV_ARRAY_IN_MAIN
83 PERL_SYS_INIT3(&argc,&argv,&environ);
84#else
91487cfc 85 PERL_SYS_INIT3(&argc,&argv,&env);
2f3efc97 86#endif
4633a7c4 87
3db8f154 88#if defined(USE_ITHREADS)
52e18b1f
GS
89 /* XXX Ideally, this should really be happening in perl_alloc() or
90 * perl_construct() to keep libperl.a transparently fork()-safe.
91 * It is currently done here only because Apache/mod_perl have
92 * problems due to lack of a call to cancel pthread_atfork()
93 * handlers when shared objects that contain the handlers may
94 * be dlclose()d. This forces applications that embed perl to
95 * call PTHREAD_ATFORK() explicitly, but if and only if it hasn't
96 * been called at least once before in the current process.
97 * --GSAR 2001-07-20 */
98e467d9
DM
98 PTHREAD_ATFORK(Perl_atfork_lock,
99 Perl_atfork_unlock,
100 Perl_atfork_unlock);
101#endif
102
3280af22 103 if (!PL_do_undump) {
a0d0e21e
LW
104 my_perl = perl_alloc();
105 if (!my_perl)
106 exit(1);
642f9deb 107 perl_construct(my_perl);
3280af22 108 PL_perl_destruct_level = 0;
a0d0e21e 109 }
31d77e54 110 PL_exit_flags |= PERL_EXIT_DESTRUCT_END;
642f9deb 111 exitstatus = perl_parse(my_perl, xs_init, argc, argv, (char **)NULL);
8815fa0e 112 if (!exitstatus)
31d77e54 113 perl_run(my_perl);
22f43f2c 114
01d65469 115#ifndef PERL_MICRO
01be0729 116 /* Unregister our signal handler before destroying my_perl */
724be0c9 117 for (i = 1; PL_sig_name[i]; i++) {
01be0729
JW
118 if (rsignal_state(PL_sig_num[i]) == (Sighandler_t) PL_csighandlerp) {
119 rsignal(PL_sig_num[i], (Sighandler_t) SIG_DFL);
120 }
121 }
01d65469 122#endif
01be0729 123
8815fa0e 124 exitstatus = perl_destruct(my_perl);
2304df62 125
642f9deb 126 perl_free(my_perl);
2304df62 127
2f3efc97 128#if defined(USE_ENVIRON_ARRAY) && defined(PERL_TRACK_MEMPOOL) && !defined(NO_ENV_ARRAY_IN_MAIN)
22f43f2c
MHM
129 /*
130 * The old environment may have been freed by perl_free()
131 * when PERL_TRACK_MEMPOOL is defined, but without having
132 * been restored by perl_destruct() before (this is only
133 * done if destruct_level > 0).
134 *
135 * It is important to have a valid environment for atexit()
136 * routines that are eventually called.
137 */
138 environ = env;
139#endif
140
f0af002c
TC
141 PERL_SYS_TERM();
142
27da23d5
JH
143#ifdef PERL_GLOBAL_STRUCT
144 free_global_struct(plvarsp);
145#endif /* PERL_GLOBAL_STRUCT */
146
642f9deb 147 exit(exitstatus);
4e35701f 148 return exitstatus;
2304df62
AD
149}
150
151/* Register any extra external extensions */
152
4633a7c4
LW
153/* Do not delete this line--writemain depends on it */
154
a0d0e21e 155static void
864dbfa3 156xs_init(pTHX)
2304df62 157{
96a5add6 158 PERL_UNUSED_CONTEXT;
642f9deb 159 dXSUB_SYS;
2304df62 160}
66610fdd
RGS
161
162/*
163 * Local variables:
164 * c-indentation-style: bsd
165 * c-basic-offset: 4
14d04a33 166 * indent-tabs-mode: nil
66610fdd
RGS
167 * End:
168 *
14d04a33 169 * ex: set ts=8 sts=4 sw=4 et:
37442d52 170 */