1 /* miniperlmain.c 2 * 3 * Copyright (C) 1994, 1995, 1996, 1997, 1999, 2000, 2001, 2002, 2003, 4 * 2004, 2005 by Larry Wall and others 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 11 /* 12 * "The Road goes ever on and on, down from the door where it began." 13 */ 14 15 /* This file contains the main() function for the perl interpreter. 16 * Note that miniperlmain.c contains main() for the 'miniperl' binary, 17 * while perlmain.c contains main() for the 'perl' binary. 18 * 19 * Miniperl is like perl except that it does not support dynamic loading, 20 * and in fact is used to build the dynamic modules needed for the 'real' 21 * perl executable. 22 */ 23 24 #ifdef OEMVS 25 #ifdef MYMALLOC 26 /* sbrk is limited to first heap segment so make it big */ 27 #pragma runopts(HEAP(8M,500K,ANYWHERE,KEEP,8K,4K) STACK(,,ANY,) ALL31(ON)) 28 #else 29 #pragma runopts(HEAP(2M,500K,ANYWHERE,KEEP,8K,4K) STACK(,,ANY,) ALL31(ON)) 30 #endif 31 #endif 32 33 34 #include "EXTERN.h" 35 #define PERL_IN_MINIPERLMAIN_C 36 #include "perl.h" 37 38 static void xs_init (pTHX); 39 static PerlInterpreter *my_perl; 40 41 #if defined (__MINT__) || defined (atarist) 42 /* The Atari operating system doesn't have a dynamic stack. The 43 stack size is determined from this value. */ 44 long _stksize = 64 * 1024; 45 #endif 46 47 int 48 main(int argc, char **argv, char **env) 49 { 50 int exitstatus; 51 (void)env; 52 #ifndef PERL_USE_SAFE_PUTENV 53 PL_use_safe_putenv = 0; 54 #endif /* PERL_USE_SAFE_PUTENV */ 55 56 #ifdef PERL_GLOBAL_STRUCT 57 #define PERLVAR(var,type) /**/ 58 #define PERLVARA(var,type) /**/ 59 #define PERLVARI(var,type,init) PL_Vars.var = init; 60 #define PERLVARIC(var,type,init) PL_Vars.var = init; 61 #include "perlvars.h" 62 #undef PERLVAR 63 #undef PERLVARA 64 #undef PERLVARI 65 #undef PERLVARIC 66 #endif 67 68 /* if user wants control of gprof profiling off by default */ 69 /* noop unless Configure is given -Accflags=-DPERL_GPROF_CONTROL */ 70 PERL_GPROF_MONCONTROL(0); 71 72 PERL_SYS_INIT3(&argc,&argv,&env); 73 74 #if defined(USE_5005THREADS) || defined(USE_ITHREADS) 75 /* XXX Ideally, this should really be happening in perl_alloc() or 76 * perl_construct() to keep libperl.a transparently fork()-safe. 77 * It is currently done here only because Apache/mod_perl have 78 * problems due to lack of a call to cancel pthread_atfork() 79 * handlers when shared objects that contain the handlers may 80 * be dlclose()d. This forces applications that embed perl to 81 * call PTHREAD_ATFORK() explicitly, but if and only if it hasn't 82 * been called at least once before in the current process. 83 * --GSAR 2001-07-20 */ 84 PTHREAD_ATFORK(Perl_atfork_lock, 85 Perl_atfork_unlock, 86 Perl_atfork_unlock); 87 #endif 88 89 if (!PL_do_undump) { 90 my_perl = perl_alloc(); 91 if (!my_perl) 92 exit(1); 93 perl_construct(my_perl); 94 PL_perl_destruct_level = 0; 95 } 96 PL_exit_flags |= PERL_EXIT_DESTRUCT_END; 97 exitstatus = perl_parse(my_perl, xs_init, argc, argv, (char **)NULL); 98 if (!exitstatus) 99 perl_run(my_perl); 100 101 exitstatus = perl_destruct(my_perl); 102 103 perl_free(my_perl); 104 105 PERL_SYS_TERM(); 106 107 exit(exitstatus); 108 return exitstatus; 109 } 110 111 /* Register any extra external extensions */ 112 113 /* Do not delete this line--writemain depends on it */ 114 115 static void 116 xs_init(pTHX) 117 { 118 dXSUB_SYS; 119 } 120 121 /* 122 * Local variables: 123 * c-indentation-style: bsd 124 * c-basic-offset: 4 125 * indent-tabs-mode: t 126 * End: 127 * 128 * ex: set ts=8 sts=4 sw=4 noet: 129 */ 130