This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
MYMALLOC for Win32:
[perl5.git] / win32 / perllib.c
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
10 static void xs_init _((void));
11
12 __declspec(dllexport) int
13 RunPerl(int argc, char **argv, char **env, void *iosubsystem)
14 {
15     int exitstatus;
16     PerlInterpreter *my_perl;
17
18 #ifdef USE_THREADS
19     MUTEX_INIT(&malloc_mutex); 
20 #endif
21
22     PERL_SYS_INIT(&argc,&argv);
23
24     perl_init_i18nl10n(1);
25
26     if (!(my_perl = perl_alloc()))
27         return (1);
28     perl_construct( my_perl );
29     perl_destruct_level = 0;
30
31     exitstatus = perl_parse( my_perl, xs_init, argc, argv, env);
32     if (!exitstatus) {
33         exitstatus = perl_run( my_perl );
34     }
35
36     perl_destruct( my_perl );
37     perl_free( my_perl );
38
39     PERL_SYS_TERM();
40
41     return (exitstatus);
42 }
43
44 extern HANDLE PerlDllHandle;
45
46 BOOL APIENTRY
47 DllMain(HANDLE hModule,         /* DLL module handle */
48         DWORD fdwReason,        /* reason called */
49         LPVOID lpvReserved)     /* reserved */
50
51     switch (fdwReason) {
52         /* The DLL is attaching to a process due to process
53          * initialization or a call to LoadLibrary.
54          */
55     case DLL_PROCESS_ATTACH:
56 /* #define DEFAULT_BINMODE */
57 #ifdef DEFAULT_BINMODE
58         setmode( fileno( stdin  ), O_BINARY );
59         setmode( fileno( stdout ), O_BINARY );
60         setmode( fileno( stderr ), O_BINARY );
61         _fmode = O_BINARY;
62 #endif
63         PerlDllHandle = hModule;
64         break;
65
66         /* The DLL is detaching from a process due to
67          * process termination or call to FreeLibrary.
68          */
69     case DLL_PROCESS_DETACH:
70         break;
71
72         /* The attached process creates a new thread. */
73     case DLL_THREAD_ATTACH:
74         break;
75
76         /* The thread of the attached process terminates. */
77     case DLL_THREAD_DETACH:
78         break;
79
80     default:
81         break;
82     }
83     return TRUE;
84 }
85
86 /* Register any extra external extensions */
87
88 char *staticlinkmodules[] = {
89     "DynaLoader",
90     NULL,
91 };
92
93 EXTERN_C void boot_DynaLoader _((CV* cv));
94
95 static void
96 xs_init()
97 {
98     char *file = __FILE__;
99     dXSUB_SYS;
100     newXS("DynaLoader::boot_DynaLoader", boot_DynaLoader, file);
101 }
102