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