1 | /* WIN32.H |
---|
2 | * |
---|
3 | * (c) 1995 Microsoft Corporation. All rights reserved. |
---|
4 | * Developed by hip communications inc., http://info.hip.com/info/ |
---|
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 | #ifndef _INC_WIN32_PERL5 |
---|
10 | #define _INC_WIN32_PERL5 |
---|
11 | |
---|
12 | #ifndef _WIN32_WINNT |
---|
13 | # define _WIN32_WINNT 0x0400 /* needed for TryEnterCriticalSection() etc. */ |
---|
14 | #endif |
---|
15 | |
---|
16 | #if defined(PERL_OBJECT) || defined(PERL_IMPLICIT_SYS) || defined(PERL_CAPI) |
---|
17 | # define DYNAMIC_ENV_FETCH |
---|
18 | # define ENV_HV_NAME "___ENV_HV_NAME___" |
---|
19 | # define HAS_GETENV_LEN |
---|
20 | # define prime_env_iter() |
---|
21 | # define WIN32IO_IS_STDIO /* don't pull in custom stdio layer */ |
---|
22 | # define WIN32SCK_IS_STDSCK /* don't pull in custom wsock layer */ |
---|
23 | # ifdef PERL_GLOBAL_STRUCT |
---|
24 | # error PERL_GLOBAL_STRUCT cannot be defined with PERL_IMPLICIT_SYS |
---|
25 | # endif |
---|
26 | # define win32_get_privlib PerlEnv_lib_path |
---|
27 | # define win32_get_sitelib PerlEnv_sitelib_path |
---|
28 | # define win32_get_vendorlib PerlEnv_vendorlib_path |
---|
29 | #endif |
---|
30 | |
---|
31 | #ifdef __GNUC__ |
---|
32 | # ifndef __int64 /* some versions seem to #define it already */ |
---|
33 | # define __int64 long long |
---|
34 | # endif |
---|
35 | # define Win32_Winsock |
---|
36 | #endif |
---|
37 | |
---|
38 | /* Define DllExport akin to perl's EXT, |
---|
39 | * If we are in the DLL or mimicing the DLL for Win95 work round |
---|
40 | * then Export the symbol, |
---|
41 | * otherwise import it. |
---|
42 | */ |
---|
43 | |
---|
44 | /* now even GCC supports __declspec() */ |
---|
45 | |
---|
46 | #if defined(PERL_OBJECT) |
---|
47 | #define DllExport |
---|
48 | #else |
---|
49 | #if defined(PERLDLL) || defined(WIN95FIX) |
---|
50 | #define DllExport |
---|
51 | /*#define DllExport __declspec(dllexport)*/ /* noises with VC5+sp3 */ |
---|
52 | #else |
---|
53 | #define DllExport __declspec(dllimport) |
---|
54 | #endif |
---|
55 | #endif |
---|
56 | |
---|
57 | #define WIN32_LEAN_AND_MEAN |
---|
58 | #include <windows.h> |
---|
59 | |
---|
60 | #ifdef WIN32_LEAN_AND_MEAN /* C file is NOT a Perl5 original. */ |
---|
61 | #define CONTEXT PERL_CONTEXT /* Avoid conflict of CONTEXT defs. */ |
---|
62 | #endif /*WIN32_LEAN_AND_MEAN */ |
---|
63 | |
---|
64 | #ifndef TLS_OUT_OF_INDEXES |
---|
65 | #define TLS_OUT_OF_INDEXES (DWORD)0xFFFFFFFF |
---|
66 | #endif |
---|
67 | |
---|
68 | #include <dirent.h> |
---|
69 | #include <io.h> |
---|
70 | #include <process.h> |
---|
71 | #include <stdio.h> |
---|
72 | #include <direct.h> |
---|
73 | #include <stdlib.h> |
---|
74 | #include <fcntl.h> |
---|
75 | #ifndef EXT |
---|
76 | #include "EXTERN.h" |
---|
77 | #endif |
---|
78 | |
---|
79 | struct tms { |
---|
80 | long tms_utime; |
---|
81 | long tms_stime; |
---|
82 | long tms_cutime; |
---|
83 | long tms_cstime; |
---|
84 | }; |
---|
85 | |
---|
86 | #ifndef SYS_NMLN |
---|
87 | #define SYS_NMLN 257 |
---|
88 | #endif |
---|
89 | |
---|
90 | struct utsname { |
---|
91 | char sysname[SYS_NMLN]; |
---|
92 | char nodename[SYS_NMLN]; |
---|
93 | char release[SYS_NMLN]; |
---|
94 | char version[SYS_NMLN]; |
---|
95 | char machine[SYS_NMLN]; |
---|
96 | }; |
---|
97 | |
---|
98 | #ifndef START_EXTERN_C |
---|
99 | #undef EXTERN_C |
---|
100 | #ifdef __cplusplus |
---|
101 | # define START_EXTERN_C extern "C" { |
---|
102 | # define END_EXTERN_C } |
---|
103 | # define EXTERN_C extern "C" |
---|
104 | #else |
---|
105 | # define START_EXTERN_C |
---|
106 | # define END_EXTERN_C |
---|
107 | # define EXTERN_C |
---|
108 | #endif |
---|
109 | #endif |
---|
110 | |
---|
111 | #define STANDARD_C 1 |
---|
112 | #define DOSISH 1 /* no escaping our roots */ |
---|
113 | #define OP_BINARY O_BINARY /* mistake in in pp_sys.c? */ |
---|
114 | |
---|
115 | /* Define USE_SOCKETS_AS_HANDLES to enable emulation of windows sockets as |
---|
116 | * real filehandles. XXX Should always be defined (the other version is untested) */ |
---|
117 | #define USE_SOCKETS_AS_HANDLES |
---|
118 | |
---|
119 | /* read() and write() aren't transparent for socket handles */ |
---|
120 | #define PERL_SOCK_SYSREAD_IS_RECV |
---|
121 | #define PERL_SOCK_SYSWRITE_IS_SEND |
---|
122 | |
---|
123 | #define PERL_NO_FORCE_LINK /* no need for PL_force_link_funcs */ |
---|
124 | |
---|
125 | /* if USE_WIN32_RTL_ENV is not defined, Perl uses direct Win32 calls |
---|
126 | * to read the environment, bypassing the runtime's (usually broken) |
---|
127 | * facilities for accessing the same. See note in util.c/my_setenv(). */ |
---|
128 | /*#define USE_WIN32_RTL_ENV */ |
---|
129 | |
---|
130 | /* Define USE_FIXED_OSFHANDLE to fix MSVCRT's _open_osfhandle() on W95. |
---|
131 | It now uses some black magic to work seamlessly with the DLL CRT and |
---|
132 | works with MSVC++ 4.0+ or GCC/Mingw32 |
---|
133 | -- BKS 1-24-2000 */ |
---|
134 | #if (defined(_M_IX86) && _MSC_VER >= 1000) || defined(__MINGW32__) |
---|
135 | #define USE_FIXED_OSFHANDLE |
---|
136 | #endif |
---|
137 | |
---|
138 | #define ENV_IS_CASELESS |
---|
139 | |
---|
140 | #ifndef VER_PLATFORM_WIN32_WINDOWS /* VC-2.0 headers don't have this */ |
---|
141 | #define VER_PLATFORM_WIN32_WINDOWS 1 |
---|
142 | #endif |
---|
143 | |
---|
144 | #ifndef FILE_SHARE_DELETE /* VC-4.0 headers don't have this */ |
---|
145 | #define FILE_SHARE_DELETE 0x00000004 |
---|
146 | #endif |
---|
147 | |
---|
148 | /* access() mode bits */ |
---|
149 | #ifndef R_OK |
---|
150 | # define R_OK 4 |
---|
151 | # define W_OK 2 |
---|
152 | # define X_OK 1 |
---|
153 | # define F_OK 0 |
---|
154 | #endif |
---|
155 | |
---|
156 | #define PERL_GET_CONTEXT_DEFINED |
---|
157 | |
---|
158 | /* Compiler-specific stuff. */ |
---|
159 | |
---|
160 | #ifdef __BORLANDC__ /* Borland C++ */ |
---|
161 | |
---|
162 | #define _access access |
---|
163 | #define _chdir chdir |
---|
164 | #define _getpid getpid |
---|
165 | #define wcsicmp _wcsicmp |
---|
166 | #include <sys/types.h> |
---|
167 | |
---|
168 | #ifndef DllMain |
---|
169 | #define DllMain DllEntryPoint |
---|
170 | #endif |
---|
171 | |
---|
172 | #pragma warn -ccc /* "condition is always true/false" */ |
---|
173 | #pragma warn -rch /* "unreachable code" */ |
---|
174 | #pragma warn -sig /* "conversion may lose significant digits" */ |
---|
175 | #pragma warn -pia /* "possibly incorrect assignment" */ |
---|
176 | #pragma warn -par /* "parameter 'foo' is never used" */ |
---|
177 | #pragma warn -aus /* "'foo' is assigned a value that is never used" */ |
---|
178 | #pragma warn -use /* "'foo' is declared but never used" */ |
---|
179 | #pragma warn -csu /* "comparing signed and unsigned values" */ |
---|
180 | #pragma warn -pro /* "call to function with no prototype" */ |
---|
181 | #pragma warn -stu /* "undefined structure 'foo'" */ |
---|
182 | |
---|
183 | /* Borland is picky about a bare member function name used as its ptr */ |
---|
184 | #ifdef PERL_OBJECT |
---|
185 | # define MEMBER_TO_FPTR(name) &(name) |
---|
186 | #endif |
---|
187 | |
---|
188 | /* Borland C thinks that a pointer to a member variable is 12 bytes in size. */ |
---|
189 | #define PERL_MEMBER_PTR_SIZE 12 |
---|
190 | |
---|
191 | #endif |
---|
192 | |
---|
193 | #ifdef _MSC_VER /* Microsoft Visual C++ */ |
---|
194 | |
---|
195 | typedef long uid_t; |
---|
196 | typedef long gid_t; |
---|
197 | typedef unsigned short mode_t; |
---|
198 | #pragma warning(disable: 4018 4035 4101 4102 4244 4245 4761) |
---|
199 | |
---|
200 | /* Visual C thinks that a pointer to a member variable is 16 bytes in size. */ |
---|
201 | #define PERL_MEMBER_PTR_SIZE 16 |
---|
202 | |
---|
203 | #endif /* _MSC_VER */ |
---|
204 | |
---|
205 | #ifdef __MINGW32__ /* Minimal Gnu-Win32 */ |
---|
206 | |
---|
207 | typedef long uid_t; |
---|
208 | typedef long gid_t; |
---|
209 | #ifndef _environ |
---|
210 | #define _environ environ |
---|
211 | #endif |
---|
212 | #define flushall _flushall |
---|
213 | #define fcloseall _fcloseall |
---|
214 | |
---|
215 | #ifdef PERL_OBJECT |
---|
216 | # define MEMBER_TO_FPTR(name) &(name) |
---|
217 | #endif |
---|
218 | |
---|
219 | #ifndef _O_NOINHERIT |
---|
220 | # define _O_NOINHERIT 0x0080 |
---|
221 | # ifndef _NO_OLDNAMES |
---|
222 | # define O_NOINHERIT _O_NOINHERIT |
---|
223 | # endif |
---|
224 | #endif |
---|
225 | |
---|
226 | #endif /* __MINGW32__ */ |
---|
227 | |
---|
228 | /* both GCC/Mingw32 and MSVC++ 4.0 are missing this, so we put it here */ |
---|
229 | #ifndef CP_UTF8 |
---|
230 | # define CP_UTF8 65001 |
---|
231 | #endif |
---|
232 | |
---|
233 | /* compatibility stuff for other compilers goes here */ |
---|
234 | |
---|
235 | |
---|
236 | #if !defined(PERL_OBJECT) && defined(PERL_CAPI) && defined(PERL_MEMBER_PTR_SIZE) |
---|
237 | # define STRUCT_MGVTBL_DEFINITION \ |
---|
238 | struct mgvtbl { \ |
---|
239 | union { \ |
---|
240 | int (CPERLscope(*svt_get))(pTHX_ SV *sv, MAGIC* mg); \ |
---|
241 | char handle_VC_problem1[PERL_MEMBER_PTR_SIZE]; \ |
---|
242 | }; \ |
---|
243 | union { \ |
---|
244 | int (CPERLscope(*svt_set))(pTHX_ SV *sv, MAGIC* mg); \ |
---|
245 | char handle_VC_problem2[PERL_MEMBER_PTR_SIZE]; \ |
---|
246 | }; \ |
---|
247 | union { \ |
---|
248 | U32 (CPERLscope(*svt_len))(pTHX_ SV *sv, MAGIC* mg); \ |
---|
249 | char handle_VC_problem3[PERL_MEMBER_PTR_SIZE]; \ |
---|
250 | }; \ |
---|
251 | union { \ |
---|
252 | int (CPERLscope(*svt_clear))(pTHX_ SV *sv, MAGIC* mg); \ |
---|
253 | char handle_VC_problem4[PERL_MEMBER_PTR_SIZE]; \ |
---|
254 | }; \ |
---|
255 | union { \ |
---|
256 | int (CPERLscope(*svt_free))(pTHX_ SV *sv, MAGIC* mg); \ |
---|
257 | char handle_VC_problem5[PERL_MEMBER_PTR_SIZE]; \ |
---|
258 | }; \ |
---|
259 | } |
---|
260 | |
---|
261 | # define BASEOP_DEFINITION \ |
---|
262 | OP* op_next; \ |
---|
263 | OP* op_sibling; \ |
---|
264 | OP* (CPERLscope(*op_ppaddr))(pTHX); \ |
---|
265 | char handle_VC_problem[PERL_MEMBER_PTR_SIZE-sizeof(OP*)]; \ |
---|
266 | PADOFFSET op_targ; \ |
---|
267 | OPCODE op_type; \ |
---|
268 | U16 op_seq; \ |
---|
269 | U8 op_flags; \ |
---|
270 | U8 op_private; |
---|
271 | |
---|
272 | #endif /* !PERL_OBJECT && PERL_CAPI && PERL_MEMBER_PTR_SIZE */ |
---|
273 | |
---|
274 | |
---|
275 | START_EXTERN_C |
---|
276 | |
---|
277 | /* For UNIX compatibility. */ |
---|
278 | |
---|
279 | extern uid_t getuid(void); |
---|
280 | extern gid_t getgid(void); |
---|
281 | extern uid_t geteuid(void); |
---|
282 | extern gid_t getegid(void); |
---|
283 | extern int setuid(uid_t uid); |
---|
284 | extern int setgid(gid_t gid); |
---|
285 | extern int kill(int pid, int sig); |
---|
286 | extern void *sbrk(int need); |
---|
287 | extern char * getlogin(void); |
---|
288 | extern int chown(const char *p, uid_t o, gid_t g); |
---|
289 | |
---|
290 | #undef Stat |
---|
291 | #define Stat win32_stat |
---|
292 | |
---|
293 | #undef init_os_extras |
---|
294 | #define init_os_extras Perl_init_os_extras |
---|
295 | |
---|
296 | DllExport void Perl_win32_init(int *argcp, char ***argvp); |
---|
297 | DllExport void Perl_init_os_extras(); |
---|
298 | DllExport void win32_str_os_error(void *sv, DWORD err); |
---|
299 | DllExport int RunPerl(int argc, char **argv, char **env); |
---|
300 | |
---|
301 | typedef struct { |
---|
302 | HANDLE childStdIn; |
---|
303 | HANDLE childStdOut; |
---|
304 | HANDLE childStdErr; |
---|
305 | /* |
---|
306 | * the following correspond to the fields of the same name |
---|
307 | * in the STARTUPINFO structure. Embedders can use these to |
---|
308 | * control the spawning process' look. |
---|
309 | * Example - to hide the window of the spawned process: |
---|
310 | * dwFlags = STARTF_USESHOWWINDOW; |
---|
311 | * wShowWindow = SW_HIDE; |
---|
312 | */ |
---|
313 | DWORD dwFlags; |
---|
314 | DWORD dwX; |
---|
315 | DWORD dwY; |
---|
316 | DWORD dwXSize; |
---|
317 | DWORD dwYSize; |
---|
318 | DWORD dwXCountChars; |
---|
319 | DWORD dwYCountChars; |
---|
320 | DWORD dwFillAttribute; |
---|
321 | WORD wShowWindow; |
---|
322 | } child_IO_table; |
---|
323 | |
---|
324 | DllExport void win32_get_child_IO(child_IO_table* ptr); |
---|
325 | |
---|
326 | #ifndef USE_SOCKETS_AS_HANDLES |
---|
327 | extern FILE * my_fdopen(int, char *); |
---|
328 | #endif |
---|
329 | extern int my_fclose(FILE *); |
---|
330 | extern int do_aspawn(void *really, void **mark, void **sp); |
---|
331 | extern int do_spawn(char *cmd); |
---|
332 | extern int do_spawn_nowait(char *cmd); |
---|
333 | extern char * win32_get_privlib(const char *pl); |
---|
334 | extern char * win32_get_sitelib(const char *pl); |
---|
335 | extern char * win32_get_vendorlib(const char *pl); |
---|
336 | extern int IsWin95(void); |
---|
337 | extern int IsWinNT(void); |
---|
338 | extern void win32_argv2utf8(int argc, char** argv); |
---|
339 | |
---|
340 | #ifdef PERL_IMPLICIT_SYS |
---|
341 | extern void win32_delete_internal_host(void *h); |
---|
342 | #endif |
---|
343 | |
---|
344 | extern char * staticlinkmodules[]; |
---|
345 | |
---|
346 | END_EXTERN_C |
---|
347 | |
---|
348 | typedef char * caddr_t; /* In malloc.c (core address). */ |
---|
349 | |
---|
350 | /* |
---|
351 | * handle socket stuff, assuming socket is always available |
---|
352 | */ |
---|
353 | #include <sys/socket.h> |
---|
354 | #include <netdb.h> |
---|
355 | |
---|
356 | #ifdef MYMALLOC |
---|
357 | #define EMBEDMYMALLOC /**/ |
---|
358 | /* #define USE_PERL_SBRK /**/ |
---|
359 | /* #define PERL_SBRK_VIA_MALLOC /**/ |
---|
360 | #endif |
---|
361 | |
---|
362 | #if defined(PERLDLL) && !defined(PERL_CORE) |
---|
363 | #define PERL_CORE |
---|
364 | #endif |
---|
365 | |
---|
366 | #ifdef PERL_TEXTMODE_SCRIPTS |
---|
367 | # define PERL_SCRIPT_MODE "r" |
---|
368 | #else |
---|
369 | # define PERL_SCRIPT_MODE "rb" |
---|
370 | #endif |
---|
371 | |
---|
372 | /* |
---|
373 | * Now Win32 specific per-thread data stuff |
---|
374 | */ |
---|
375 | |
---|
376 | struct thread_intern { |
---|
377 | /* XXX can probably use one buffer instead of several */ |
---|
378 | char Wstrerror_buffer[512]; |
---|
379 | struct servent Wservent; |
---|
380 | char Wgetlogin_buffer[128]; |
---|
381 | # ifdef USE_SOCKETS_AS_HANDLES |
---|
382 | int Winit_socktype; |
---|
383 | # endif |
---|
384 | # ifdef HAVE_DES_FCRYPT |
---|
385 | char Wcrypt_buffer[30]; |
---|
386 | # endif |
---|
387 | # ifdef USE_RTL_THREAD_API |
---|
388 | void * retv; /* slot for thread return value */ |
---|
389 | # endif |
---|
390 | }; |
---|
391 | |
---|
392 | #ifdef USE_THREADS |
---|
393 | # ifndef USE_DECLSPEC_THREAD |
---|
394 | # define HAVE_THREAD_INTERN |
---|
395 | # endif /* !USE_DECLSPEC_THREAD */ |
---|
396 | #endif /* USE_THREADS */ |
---|
397 | |
---|
398 | #define HAVE_INTERP_INTERN |
---|
399 | typedef struct { |
---|
400 | long num; |
---|
401 | DWORD pids[MAXIMUM_WAIT_OBJECTS]; |
---|
402 | HANDLE handles[MAXIMUM_WAIT_OBJECTS]; |
---|
403 | } child_tab; |
---|
404 | |
---|
405 | struct interp_intern { |
---|
406 | char * perlshell_tokens; |
---|
407 | char ** perlshell_vec; |
---|
408 | long perlshell_items; |
---|
409 | struct av * fdpid; |
---|
410 | child_tab * children; |
---|
411 | #ifdef USE_ITHREADS |
---|
412 | DWORD pseudo_id; |
---|
413 | child_tab * pseudo_children; |
---|
414 | #endif |
---|
415 | void * internal_host; |
---|
416 | #ifndef USE_THREADS |
---|
417 | struct thread_intern thr_intern; |
---|
418 | #endif |
---|
419 | }; |
---|
420 | |
---|
421 | |
---|
422 | #define w32_perlshell_tokens (PL_sys_intern.perlshell_tokens) |
---|
423 | #define w32_perlshell_vec (PL_sys_intern.perlshell_vec) |
---|
424 | #define w32_perlshell_items (PL_sys_intern.perlshell_items) |
---|
425 | #define w32_fdpid (PL_sys_intern.fdpid) |
---|
426 | #define w32_children (PL_sys_intern.children) |
---|
427 | #define w32_num_children (w32_children->num) |
---|
428 | #define w32_child_pids (w32_children->pids) |
---|
429 | #define w32_child_handles (w32_children->handles) |
---|
430 | #define w32_pseudo_id (PL_sys_intern.pseudo_id) |
---|
431 | #define w32_pseudo_children (PL_sys_intern.pseudo_children) |
---|
432 | #define w32_num_pseudo_children (w32_pseudo_children->num) |
---|
433 | #define w32_pseudo_child_pids (w32_pseudo_children->pids) |
---|
434 | #define w32_pseudo_child_handles (w32_pseudo_children->handles) |
---|
435 | #define w32_internal_host (PL_sys_intern.internal_host) |
---|
436 | #ifdef USE_THREADS |
---|
437 | # define w32_strerror_buffer (thr->i.Wstrerror_buffer) |
---|
438 | # define w32_getlogin_buffer (thr->i.Wgetlogin_buffer) |
---|
439 | # define w32_crypt_buffer (thr->i.Wcrypt_buffer) |
---|
440 | # define w32_servent (thr->i.Wservent) |
---|
441 | # define w32_init_socktype (thr->i.Winit_socktype) |
---|
442 | #else |
---|
443 | # define w32_strerror_buffer (PL_sys_intern.thr_intern.Wstrerror_buffer) |
---|
444 | # define w32_getlogin_buffer (PL_sys_intern.thr_intern.Wgetlogin_buffer) |
---|
445 | # define w32_crypt_buffer (PL_sys_intern.thr_intern.Wcrypt_buffer) |
---|
446 | # define w32_servent (PL_sys_intern.thr_intern.Wservent) |
---|
447 | # define w32_init_socktype (PL_sys_intern.thr_intern.Winit_socktype) |
---|
448 | #endif /* USE_THREADS */ |
---|
449 | |
---|
450 | /* UNICODE<>ANSI translation helpers */ |
---|
451 | /* Use CP_ACP when mode is ANSI */ |
---|
452 | /* Use CP_UTF8 when mode is UTF8 */ |
---|
453 | |
---|
454 | #define A2WHELPER_LEN(lpa, alen, lpw, nBytes)\ |
---|
455 | (lpw[0] = 0, MultiByteToWideChar((IN_BYTE) ? CP_ACP : CP_UTF8, 0, \ |
---|
456 | lpa, alen, lpw, (nBytes/sizeof(WCHAR)))) |
---|
457 | #define A2WHELPER(lpa, lpw, nBytes) A2WHELPER_LEN(lpa, -1, lpw, nBytes) |
---|
458 | |
---|
459 | #define W2AHELPER_LEN(lpw, wlen, lpa, nChars)\ |
---|
460 | (lpa[0] = '\0', WideCharToMultiByte((IN_BYTE) ? CP_ACP : CP_UTF8, 0, \ |
---|
461 | lpw, wlen, (LPSTR)lpa, nChars,NULL,NULL)) |
---|
462 | #define W2AHELPER(lpw, lpa, nChars) W2AHELPER_LEN(lpw, -1, lpa, nChars) |
---|
463 | |
---|
464 | #define USING_WIDE() (PL_widesyscalls && PerlEnv_os_id() == VER_PLATFORM_WIN32_NT) |
---|
465 | |
---|
466 | #ifdef USE_ITHREADS |
---|
467 | # define PERL_WAIT_FOR_CHILDREN \ |
---|
468 | STMT_START { \ |
---|
469 | if (w32_pseudo_children && w32_num_pseudo_children) { \ |
---|
470 | long children = w32_num_pseudo_children; \ |
---|
471 | WaitForMultipleObjects(children, \ |
---|
472 | w32_pseudo_child_handles, \ |
---|
473 | TRUE, INFINITE); \ |
---|
474 | while (children) \ |
---|
475 | CloseHandle(w32_pseudo_child_handles[--children]); \ |
---|
476 | } \ |
---|
477 | } STMT_END |
---|
478 | #endif |
---|
479 | |
---|
480 | /* |
---|
481 | * This provides a layer of functions and macros to ensure extensions will |
---|
482 | * get to use the same RTL functions as the core. |
---|
483 | */ |
---|
484 | #include "win32iop.h" |
---|
485 | |
---|
486 | #endif /* _INC_WIN32_PERL5 */ |
---|
487 | |
---|