[p5sagit/p5-mst-13.2.git] / win32 / perllib.c

/*
 * "The Road goes ever on and on, down from the door where it began."
 */


#include "EXTERN.h"
#include "perl.h"
#include "XSUB.h"

static void xs_init _((void));

__declspec(dllexport) int
RunPerl(int argc, char **argv, char **env, void *iosubsystem)
{
    int exitstatus;
    PerlInterpreter *my_perl;

#ifdef PERL_GLOBAL_STRUCT
#define PERLVAR(var,type) /**/
#define PERLVARI(var,type,init) Perl_Vars.var = init;
#include "perlvars.h"
#undef PERLVAR
#undef PERLVARI
#endif

    PERL_SYS_INIT(&argc,&argv);

    perl_init_i18nl10n(1);

    if (!(my_perl = perl_alloc()))
	return (1);
    perl_construct( my_perl );
    perl_destruct_level = 0;

    exitstatus = perl_parse( my_perl, xs_init, argc, argv, env);
    if (!exitstatus) {
	exitstatus = perl_run( my_perl );
    }

    perl_destruct( my_perl );
    perl_free( my_perl );

    PERL_SYS_TERM();

    return (exitstatus);
}

extern HANDLE PerlDllHandle;

BOOL APIENTRY
DllMain(HANDLE hModule,		/* DLL module handle */
	DWORD fdwReason,	/* reason called */
	LPVOID lpvReserved)	/* reserved */
{ 
    switch (fdwReason) {
	/* The DLL is attaching to a process due to process
	 * initialization or a call to LoadLibrary.
	 */
    case DLL_PROCESS_ATTACH:
/* #define DEFAULT_BINMODE */
#ifdef DEFAULT_BINMODE
	setmode( fileno( stdin  ), O_BINARY );
	setmode( fileno( stdout ), O_BINARY );
	setmode( fileno( stderr ), O_BINARY );
	_fmode = O_BINARY;
#endif
	PerlDllHandle = hModule;
	break;

	/* The DLL is detaching from a process due to
	 * process termination or call to FreeLibrary.
	 */
    case DLL_PROCESS_DETACH:
	break;

	/* The attached process creates a new thread. */
    case DLL_THREAD_ATTACH:
	break;

	/* The thread of the attached process terminates. */
    case DLL_THREAD_DETACH:
	break;

    default:
	break;
    }
    return TRUE;
}

/* Register any extra external extensions */

char *staticlinkmodules[] = {
    "DynaLoader",
    NULL,
};

EXTERN_C void boot_DynaLoader _((CV* cv));

static void
xs_init()
{
    char *file = __FILE__;
    dXSUB_SYS;
    newXS("DynaLoader::boot_DynaLoader", boot_DynaLoader, file);
}
Commit	Line	Data
0a753a76	1	/*
	2	* "The Road goes ever on and on, down from the door where it began."
	3	*/
	4
0a753a76	5
	6	#include "EXTERN.h"
	7	#include "perl.h"
96e4d5b1	8	#include "XSUB.h"
0a753a76	9
0a753a76	10	static void xs_init _((void));
0a753a76	11
68dc0745	12	__declspec(dllexport) int
68dc0745	13	RunPerl(int argc, char argv, char env, void *iosubsystem)
0a753a76	14	{
68dc0745	15	int exitstatus;
68dc0745	16	PerlInterpreter *my_perl;
0a753a76	17
22239a37	18	#ifdef PERL_GLOBAL_STRUCT
	19	#define PERLVAR(var,type) /**/
	20	#define PERLVARI(var,type,init) Perl_Vars.var = init;
	21	#include "perlvars.h"
	22	#undef PERLVAR
	23	#undef PERLVARI
	24	#endif
	25
0a753a76	26	PERL_SYS_INIT(&argc,&argv);
	27
	28	perl_init_i18nl10n(1);
	29
68dc0745	30	if (!(my_perl = perl_alloc()))
	31	return (1);
	32	perl_construct( my_perl );
	33	perl_destruct_level = 0;
0a753a76	34
	35	exitstatus = perl_parse( my_perl, xs_init, argc, argv, env);
	36	if (!exitstatus) {
	37	exitstatus = perl_run( my_perl );
	38	}
	39
0a753a76	40	perl_destruct( my_perl );
	41	perl_free( my_perl );
	42
	43	PERL_SYS_TERM();
	44
68dc0745	45	return (exitstatus);
0a753a76	46	}
0a753a76	47
0a753a76	48	extern HANDLE PerlDllHandle;
0a753a76	49
68dc0745	50	BOOL APIENTRY
	51	DllMain(HANDLE hModule, /* DLL module handle */
	52	DWORD fdwReason, /* reason called */
	53	LPVOID lpvReserved) /* reserved */
0a753a76	54	{
68dc0745	55	switch (fdwReason) {
	56	/* The DLL is attaching to a process due to process
	57	* initialization or a call to LoadLibrary.
	58	*/
	59	case DLL_PROCESS_ATTACH:
	60	/* #define DEFAULT_BINMODE */
0a753a76	61	#ifdef DEFAULT_BINMODE
3e3baf6d	62	setmode( fileno( stdin ), O_BINARY );
	63	setmode( fileno( stdout ), O_BINARY );
	64	setmode( fileno( stderr ), O_BINARY );
	65	_fmode = O_BINARY;
0a753a76	66	#endif
68dc0745	67	PerlDllHandle = hModule;
68dc0745	68	break;
0a753a76	69
68dc0745	70	/* The DLL is detaching from a process due to
	71	* process termination or call to FreeLibrary.
	72	*/
	73	case DLL_PROCESS_DETACH:
	74	break;
0a753a76	75
68dc0745	76	/* The attached process creates a new thread. */
	77	case DLL_THREAD_ATTACH:
	78	break;
0a753a76	79
68dc0745	80	/* The thread of the attached process terminates. */
	81	case DLL_THREAD_DETACH:
	82	break;
0a753a76	83
68dc0745	84	default:
	85	break;
	86	}
	87	return TRUE;
0a753a76	88	}
8b10511d	89
	90	/* Register any extra external extensions */
	91
	92	char *staticlinkmodules[] = {
	93	"DynaLoader",
	94	NULL,
	95	};
	96
	97	EXTERN_C void boot_DynaLoader _((CV* cv));
	98
8b10511d	99	static void
	100	xs_init()
	101	{
	102	char *file = __FILE__;
	103	dXSUB_SYS;
	104	newXS("DynaLoader::boot_DynaLoader", boot_DynaLoader, file);
8b10511d	105	}
8b10511d	106