/*    miniperlmain.c
		 *
		 *    Copyright (C) 1994, 1995, 1996, 1997, 1999, 2000, 2001, 2002, 2003,
		 *    2004, 2005 by Larry Wall and others
		 *
		 *    You may distribute under the terms of either the GNU General Public
		 *    License or the Artistic License, as specified in the README file.
		 *
		 */
		
		/*
		 * "The Road goes ever on and on, down from the door where it began."
		 */
		
		/* This file contains the main() function for the perl interpreter.
		 * Note that miniperlmain.c contains main() for the 'miniperl' binary,
		 * while perlmain.c contains main() for the 'perl' binary.
		 *
		 * Miniperl is like perl except that it does not support dynamic loading,
		 * and in fact is used to build the dynamic modules needed for the 'real'
		 * perl executable.
		 */
		
		#ifdef OEMVS
		#ifdef MYMALLOC
		/* sbrk is limited to first heap segment so make it big */
		#pragma runopts(HEAP(8M,500K,ANYWHERE,KEEP,8K,4K) STACK(,,ANY,) ALL31(ON))
		#else
		#pragma runopts(HEAP(2M,500K,ANYWHERE,KEEP,8K,4K) STACK(,,ANY,) ALL31(ON))
		#endif
		#endif
		
		
		#include "EXTERN.h"
		#define PERL_IN_MINIPERLMAIN_C
		#include "perl.h"
		
		static void xs_init (pTHX);
		static PerlInterpreter *my_perl;
		
		#if defined (__MINT__) || defined (atarist)
		/* The Atari operating system doesn't have a dynamic stack.  The
		   stack size is determined from this value.  */
		long _stksize = 64 * 1024;
		#endif
		
		#if defined(PERL_GLOBAL_STRUCT_PRIVATE)
		/* The static struct perl_vars* may seem counterproductive since the
		 * whole idea PERL_GLOBAL_STRUCT_PRIVATE was to avoid statics, but note
		 * that this static is not in the shared perl library, the globals PL_Vars
		 * and PL_VarsPtr will stay away. */
		static struct perl_vars* my_plvarsp;
		struct perl_vars* Perl_GetVarsPrivate(void) { return my_plvarsp; }
		#endif
		
		int
		main(int argc, char **argv, char **env)
         565    {
		    dVAR;
         565        int exitstatus;
		#ifdef PERL_GLOBAL_STRUCT
		    struct perl_vars *plvarsp = init_global_struct();
		#  ifdef PERL_GLOBAL_STRUCT_PRIVATE
		    my_vars = my_plvarsp = plvarsp;
		#  endif
		#endif /* PERL_GLOBAL_STRUCT */
         565        (void)env;
		#ifndef PERL_USE_SAFE_PUTENV
         565        PL_use_safe_putenv = 0;
		#endif /* PERL_USE_SAFE_PUTENV */
		
		    /* if user wants control of gprof profiling off by default */
		    /* noop unless Configure is given -Accflags=-DPERL_GPROF_CONTROL */
		    PERL_GPROF_MONCONTROL(0);
		
         565        PERL_SYS_INIT3(&argc,&argv,&env);
		
		#if defined(USE_ITHREADS)
		    /* XXX Ideally, this should really be happening in perl_alloc() or
		     * perl_construct() to keep libperl.a transparently fork()-safe.
		     * It is currently done here only because Apache/mod_perl have
		     * problems due to lack of a call to cancel pthread_atfork()
		     * handlers when shared objects that contain the handlers may
		     * be dlclose()d.  This forces applications that embed perl to
		     * call PTHREAD_ATFORK() explicitly, but if and only if it hasn't
		     * been called at least once before in the current process.
		     * --GSAR 2001-07-20 */
		    PTHREAD_ATFORK(Perl_atfork_lock,
		                   Perl_atfork_unlock,
		                   Perl_atfork_unlock);
		#endif
		
         565        if (!PL_do_undump) {
         565    	my_perl = perl_alloc();
         565    	if (!my_perl)
      ######    	    exit(1);
         565    	perl_construct(my_perl);
         565    	PL_perl_destruct_level = 0;
		    }
         565        PL_exit_flags |= PERL_EXIT_DESTRUCT_END;
         565        exitstatus = perl_parse(my_perl, xs_init, argc, argv, (char **)NULL);
         565        if (!exitstatus)
         565            perl_run(my_perl);
		      
         565        exitstatus = perl_destruct(my_perl);
		
         565        perl_free(my_perl);
		
		#ifdef PERL_GLOBAL_STRUCT
		    free_global_struct(plvarsp);
		#endif /* PERL_GLOBAL_STRUCT */
		
         565        PERL_SYS_TERM();
		
         565        exit(exitstatus);
		    return exitstatus;
		}
		
		/* Register any extra external extensions */
		
		/* Do not delete this line--writemain depends on it */
		
		static void
		xs_init(pTHX)
         565    {
		    dXSUB_SYS;
		}
		
		/*
		 * Local variables:
		 * c-indentation-style: bsd
		 * c-basic-offset: 4
		 * indent-tabs-mode: t
		 * End:
		 *
		 * ex: set ts=8 sts=4 sw=4 noet:
		 */