This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
davem's perldelta entries for 5.25.10
[perl5.git] / win32 / win32.h
CommitLineData
68dc0745
PP
1/* WIN32.H
2 *
3fadfdf1 3 * (c) 1995 Microsoft Corporation. All rights reserved.
0d130a44 4 * Developed by hip communications inc.
68dc0745
PP
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 */
0a753a76
PP
9#ifndef _INC_WIN32_PERL5
10#define _INC_WIN32_PERL5
11
5db10396 12#ifndef _WIN32_WINNT
8cbe99e5 13# define _WIN32_WINNT 0x0500 /* needed for CreateHardlink() etc. */
5db10396 14#endif
638eceb6 15
8ce7a7e8 16/* Win32 only optimizations for faster building */
19253ae6
DD
17#ifdef PERL_IS_MINIPERL
18/* this macro will remove Winsock only on miniperl, PERL_IMPLICIT_SYS and
19 * makedef.pl create dependencies that will keep Winsock linked in even with
20 * this macro defined, even though sockets will be umimplemented from a script
21 * level in full perl
22 */
23# define WIN32_NO_SOCKETS
8ce7a7e8
DD
24/* less I/O calls during each require */
25# define PERL_DISABLE_PMC
e5fb2b49 26
6937817d
DD
27/* unnecessery for miniperl to lookup anything from an "installed" perl */
28# define WIN32_NO_REGISTRY
29
e5fb2b49 30/* allow minitest to work */
ead233d2 31# define PERL_TEXTMODE_SCRIPTS
19253ae6
DD
32#endif
33
34#ifdef WIN32_NO_SOCKETS
35# undef HAS_SOCKET
36# undef HAS_GETPROTOBYNAME
37# undef HAS_GETPROTOBYNUMBER
38# undef HAS_GETPROTOENT
39# undef HAS_GETNETBYNAME
40# undef HAS_GETNETBYADDR
41# undef HAS_GETNETENT
42# undef HAS_GETSERVBYNAME
43# undef HAS_GETSERVBYPORT
44# undef HAS_GETSERVENT
45# undef HAS_GETHOSTBYNAME
46# undef HAS_GETHOSTBYADDR
47# undef HAS_GETHOSTENT
48# undef HAS_SELECT
49# undef HAS_IOCTL
50# undef HAS_NTOHL
51# undef HAS_HTONL
52# undef HAS_HTONS
53# undef HAS_NTOHS
54# define WIN32SCK_IS_STDSCK
55#endif
56
acfe0abc 57#if defined(PERL_IMPLICIT_SYS)
e9ee4811 58# define DYNAMIC_ENV_FETCH
a6c40364 59# define HAS_GETENV_LEN
e9ee4811 60# define prime_env_iter()
ab39fa9d 61# define WIN32IO_IS_STDIO /* don't pull in custom stdio layer */
c5be433b 62# define WIN32SCK_IS_STDSCK /* don't pull in custom wsock layer */
ab39fa9d 63# ifdef PERL_GLOBAL_STRUCT
32e30700 64# error PERL_GLOBAL_STRUCT cannot be defined with PERL_IMPLICIT_SYS
ab39fa9d 65# endif
9d8a25dc
DL
66#endif
67
a835ef8a 68#ifdef __GNUC__
b7c82df9
GS
69# ifndef __int64 /* some versions seem to #define it already */
70# define __int64 long long
71# endif
db15561c 72# define Win32_Winsock
1c85e96a
NIS
73#ifdef __cplusplus
74/* Mingw32 gcc -xc++ objects to __attribute((unused)) at least */
3fadfdf1
NIS
75#undef PERL_UNUSED_DECL
76#define PERL_UNUSED_DECL
a835ef8a 77#endif
1c85e96a
NIS
78#endif
79
a835ef8a 80
3fadfdf1 81/* Define DllExport akin to perl's EXT,
8cbe99e5 82 * If we are in the DLL then Export the symbol,
22239a37
NIS
83 * otherwise import it.
84 */
85
5db10396 86/* now even GCC supports __declspec() */
a19baa61
DD
87/* miniperl has no reason to export anything */
88#if defined(PERL_IS_MINIPERL) && !defined(UNDER_CE) && defined(_MSC_VER)
89# define DllExport
3fadfdf1 90#else
a19baa61
DD
91# if defined(PERLDLL)
92# define DllExport __declspec(dllexport)
93# else
94# define DllExport __declspec(dllimport)
95# endif
22239a37 96#endif
c69f112c 97
50fd5961
JD
98/* The Perl APIs can only be called directly inside the perl5xx.dll.
99 * All other code has to import them. By declaring them as "dllimport"
100 * we tell the compiler to generate an indirect call instruction and
101 * avoid redirection through a call thunk.
102 *
103 * The XS code in the re extension is special, in that it redefines
104 * core APIs locally, so don't mark them as "dllimport" because GCC
105 * cannot handle this situation.
106 */
107#if !defined(PERLDLL) && !defined(PERL_EXT_RE_BUILD)
ad6ab6c5
JD
108# ifdef __cplusplus
109# define PERL_CALLCONV extern "C" __declspec(dllimport)
12a2785c 110# ifdef _MSC_VER
03c98af0 111# define PERL_CALLCONV_NO_RET extern "C" __declspec(dllimport) __declspec(noreturn)
12a2785c 112# endif
ad6ab6c5
JD
113# else
114# define PERL_CALLCONV __declspec(dllimport)
12a2785c 115# ifdef _MSC_VER
03c98af0 116# define PERL_CALLCONV_NO_RET __declspec(dllimport) __declspec(noreturn)
12a2785c 117# endif
ad6ab6c5 118# endif
50e8e1f5
DD
119#else /* MSVC noreturn support inside the interp */
120# ifdef _MSC_VER
121# define PERL_CALLCONV_NO_RET __declspec(noreturn)
122# endif
ad6ab6c5
JD
123#endif
124
98c015b7
DD
125#ifdef _MSC_VER
126# define PERL_STATIC_NO_RET __declspec(noreturn) static
127# define PERL_STATIC_INLINE_NO_RET __declspec(noreturn) PERL_STATIC_INLINE
128#endif
129
0a753a76
PP
130#define WIN32_LEAN_AND_MEAN
131#include <windows.h>
132
fa58a56f
S
133/*
134 * Bug in winbase.h in mingw-w64 4.4.0-1 at least... they
135 * do #define GetEnvironmentStringsA GetEnvironmentStrings and fail
136 * to declare GetEnvironmentStringsA.
137 */
138#if defined(__MINGW64__) && defined(GetEnvironmentStringsA) && !defined(UNICODE)
139#ifdef __cplusplus
140extern "C" {
141#endif
142#undef GetEnvironmentStringsA
143WINBASEAPI LPCH WINAPI GetEnvironmentStringsA(VOID);
144#define GetEnvironmentStrings GetEnvironmentStringsA
145#ifdef __cplusplus
146}
147#endif
148#endif
149
68dc0745
PP
150#ifdef WIN32_LEAN_AND_MEAN /* C file is NOT a Perl5 original. */
151#define CONTEXT PERL_CONTEXT /* Avoid conflict of CONTEXT defs. */
68dc0745 152#endif /*WIN32_LEAN_AND_MEAN */
0a753a76 153
eda5ff31
GS
154#ifndef TLS_OUT_OF_INDEXES
155#define TLS_OUT_OF_INDEXES (DWORD)0xFFFFFFFF
156#endif
157
0a753a76
PP
158#include <dirent.h>
159#include <io.h>
160#include <process.h>
161#include <stdio.h>
162#include <direct.h>
390b85e7 163#include <stdlib.h>
c623ac67 164#include <stddef.h>
7a1f88ac 165#include <fcntl.h>
390b85e7
GS
166#ifndef EXT
167#include "EXTERN.h"
168#endif
169
c69f112c
NIS
170struct tms {
171 long tms_utime;
172 long tms_stime;
173 long tms_cutime;
174 long tms_cstime;
175};
176
b2af26b1
GS
177#ifndef SYS_NMLN
178#define SYS_NMLN 257
179#endif
180
181struct utsname {
182 char sysname[SYS_NMLN];
183 char nodename[SYS_NMLN];
184 char release[SYS_NMLN];
185 char version[SYS_NMLN];
186 char machine[SYS_NMLN];
187};
188
390b85e7 189#ifndef START_EXTERN_C
b3e5c95e 190#undef EXTERN_C
390b85e7
GS
191#ifdef __cplusplus
192# define START_EXTERN_C extern "C" {
193# define END_EXTERN_C }
194# define EXTERN_C extern "C"
195#else
3fadfdf1
NIS
196# define START_EXTERN_C
197# define END_EXTERN_C
390b85e7
GS
198# define EXTERN_C
199#endif
200#endif
201
202#define STANDARD_C 1
203#define DOSISH 1 /* no escaping our roots */
204#define OP_BINARY O_BINARY /* mistake in in pp_sys.c? */
0a753a76 205
a7092146 206/* read() and write() aren't transparent for socket handles */
19253ae6
DD
207#ifndef WIN32_NO_SOCKETS
208# define PERL_SOCK_SYSREAD_IS_RECV
209# define PERL_SOCK_SYSWRITE_IS_SEND
210#endif
a7092146 211
6937817d
DD
212#ifdef WIN32_NO_REGISTRY
213/* the last _ in WIN32_NO_REGISTRY_M_ is like the _ in aTHX_ */
214# define WIN32_NO_REGISTRY_M_(x)
215#else
216# define WIN32_NO_REGISTRY_M_(x) x,
217#endif
218
682fc664 219#define PERL_NO_FORCE_LINK /* no need for PL_force_link_funcs */
a7092146 220
902173a3
GS
221#define ENV_IS_CASELESS
222
479b2847
GS
223#define PIPESOCK_MODE "b" /* pipes, sockets default to binmode */
224
327c3667
GS
225/* access() mode bits */
226#ifndef R_OK
227# define R_OK 4
228# define W_OK 2
229# define X_OK 1
230# define F_OK 0
231#endif
232
cc236deb
GS
233/* for waitpid() */
234#ifndef WNOHANG
235# define WNOHANG 1
236#endif
237
c44d3fdb
GS
238#define PERL_GET_CONTEXT_DEFINED
239
f3986ebb
GS
240/* Compiler-specific stuff. */
241
654eccd5 242/* VC uses non-standard way to determine the size and alignment if bit-fields */
4eab039d
SH
243/* MinGW will compile with -mms-bitfields, so should use the same types */
244#define PERL_BITFIELD8 unsigned char
245#define PERL_BITFIELD16 unsigned short
246#define PERL_BITFIELD32 unsigned int
654eccd5 247
f3986ebb
GS
248#ifdef _MSC_VER /* Microsoft Visual C++ */
249
f4257e4d 250#ifndef UNDER_CE
0a753a76
PP
251typedef long uid_t;
252typedef long gid_t;
a6c40364 253typedef unsigned short mode_t;
f4257e4d
YO
254#endif
255
3e7c2d43
SH
256#if _MSC_VER < 1800
257#define isnan _isnan /* Defined already in VC++ 12.0 */
258#endif
27329181
DD
259#ifdef UNDER_CE /* revisit what function this becomes celib vs corelibc, prv warning here*/
260# undef snprintf
261#endif
80e18237
SH
262#define snprintf _snprintf
263#define vsnprintf _vsnprintf
5fb4d820 264
8961ec41
DD
265/* on VC2003, msvcrt.lib is missing these symbols */
266#if _MSC_VER >= 1300 && _MSC_VER < 1400
267# pragma intrinsic(_rotl64,_rotr64)
268#endif
269
3c81f0b3
DD
270# pragma warning(push)
271# pragma warning(disable:4756;disable:4056)
272PERL_STATIC_INLINE
273double S_Infinity() {
274 /* this is a real C literal which can get further constant folded
275 unlike using HUGE_VAL/_HUGE which are data symbol imports from the CRT
276 and therefore can not by folded by VC, an example of constant
277 folding INF is creating -INF */
278 return (DBL_MAX+DBL_MAX);
279}
280# pragma warning(pop)
281# define NV_INF S_Infinity()
282
283/* selectany allows duplicate and unused data symbols to be removed by
284 VC linker, if this were static, each translation unit will have its own,
285 usually unused __PL_nan_u, if this were plain extern it will cause link
286 to fail due to multiple definitions, since we dont know if we are being
287 compiled as static or DLL XS, selectany simply always works, the cost of
288 importing __PL_nan_u across DLL boundaries in size in the importing DLL
289 will be more than the 8 bytes it will take up being in each XS DLL if
290 that DLL actually uses __PL_nan_u */
291extern const __declspec(selectany) union { unsigned __int64 __q; double __d; }
292__PL_nan_u = { 0x7FF8000000000000UI64 };
293# define NV_NAN ((NV)__PL_nan_u.__d)
294
f3986ebb
GS
295#endif /* _MSC_VER */
296
910dfcc8
GS
297#ifdef __MINGW32__ /* Minimal Gnu-Win32 */
298
299typedef long uid_t;
300typedef long gid_t;
b1d1613b 301#ifndef _environ
3730b96e 302#define _environ environ
b1d1613b 303#endif
3730b96e
GS
304#define flushall _flushall
305#define fcloseall _fcloseall
44604af1 306#ifndef isnan
6940069f 307#define isnan _isnan /* ...same libraries as MSVC */
44604af1 308#endif
910dfcc8 309
ac4c12e7
GS
310#ifndef _O_NOINHERIT
311# define _O_NOINHERIT 0x0080
312# ifndef _NO_OLDNAMES
313# define O_NOINHERIT _O_NOINHERIT
314# endif
315#endif
316
8659febc
S
317/* <stdint.h>, pulled in by <io.h> as of mingw-runtime-3.3, typedef's
318 * (u)intptr_t but doesn't set the _(U)INTPTR_T_DEFINED defines */
319#ifdef _STDINT_H
320# ifndef _INTPTR_T_DEFINED
321# define _INTPTR_T_DEFINED
322# endif
323# ifndef _UINTPTR_T_DEFINED
324# define _UINTPTR_T_DEFINED
325# endif
326#endif
327
f8fb7c90
GS
328#ifndef CP_UTF8
329# define CP_UTF8 65001
330#endif
331
70764c00
SH
332#endif /* __MINGW32__ */
333
c623ac67
GS
334#ifndef _INTPTR_T_DEFINED
335typedef int intptr_t;
336# define _INTPTR_T_DEFINED
337#endif
338
339#ifndef _UINTPTR_T_DEFINED
340typedef unsigned int uintptr_t;
341# define _UINTPTR_T_DEFINED
342#endif
343
390b85e7 344START_EXTERN_C
f3986ebb
GS
345
346/* For UNIX compatibility. */
347
e37d7e38 348#ifdef PERL_CORE
0a753a76
PP
349extern uid_t getuid(void);
350extern gid_t getgid(void);
351extern uid_t geteuid(void);
352extern gid_t getegid(void);
0c38a575
SH
353extern int setuid(uid_t uid);
354extern int setgid(gid_t gid);
0a753a76 355extern int kill(int pid, int sig);
c623ac67
GS
356#ifndef USE_PERL_SBRK
357extern void *sbrk(ptrdiff_t need);
358# define HAS_SBRK_PROTO
359#endif
e34ffe5a 360extern char * getlogin(void);
b990f8c8 361extern int chown(const char *p, uid_t o, gid_t g);
f33b2f58 362#if !defined(__MINGW64_VERSION_MAJOR) || __MINGW64_VERSION_MAJOR < 4
00b02797 363extern int mkstemp(const char *path);
e37d7e38 364#endif
f33b2f58 365#endif
d55594ae 366
f3986ebb
GS
367#undef Stat
368#define Stat win32_stat
3e3baf6d 369
f3986ebb
GS
370#undef init_os_extras
371#define init_os_extras Perl_init_os_extras
390b85e7 372
22239a37 373DllExport void Perl_win32_init(int *argcp, char ***argvp);
23f519f0 374DllExport void Perl_win32_term(void);
cb359b41 375DllExport void Perl_init_os_extras(void);
c5be433b
GS
376DllExport void win32_str_os_error(void *sv, DWORD err);
377DllExport int RunPerl(int argc, char **argv, char **env);
0551aaa8 378
635bbe87
GS
379typedef struct {
380 HANDLE childStdIn;
381 HANDLE childStdOut;
382 HANDLE childStdErr;
f83751a7
GS
383 /*
384 * the following correspond to the fields of the same name
385 * in the STARTUPINFO structure. Embedders can use these to
386 * control the spawning process' look.
387 * Example - to hide the window of the spawned process:
388 * dwFlags = STARTF_USESHOWWINDOW;
389 * wShowWindow = SW_HIDE;
390 */
391 DWORD dwFlags;
3fadfdf1
NIS
392 DWORD dwX;
393 DWORD dwY;
394 DWORD dwXSize;
395 DWORD dwYSize;
396 DWORD dwXCountChars;
397 DWORD dwYCountChars;
f83751a7 398 DWORD dwFillAttribute;
3fadfdf1 399 WORD wShowWindow;
635bbe87
GS
400} child_IO_table;
401
402DllExport void win32_get_child_IO(child_IO_table* ptr);
b69b0499 403DllExport HWND win32_create_message_window(void);
39c93f11 404DllExport int win32_async_check(pTHX);
635bbe87 405
f3986ebb 406extern int my_fclose(FILE *);
6937817d 407extern char * win32_get_privlib(WIN32_NO_REGISTRY_M_(const char *pl) STRLEN *const len);
e6a0bbf8
NC
408extern char * win32_get_sitelib(const char *pl, STRLEN *const len);
409extern char * win32_get_vendorlib(const char *pl, STRLEN *const len);
d55594ae 410
1c0ca838
GS
411#ifdef PERL_IMPLICIT_SYS
412extern void win32_delete_internal_host(void *h);
413#endif
414
c9beaf97
SH
415extern int win32_get_errno(int err);
416
fe1c5936 417extern const char * const staticlinkmodules[];
390b85e7
GS
418
419END_EXTERN_C
d55594ae 420
68dc0745 421typedef char * caddr_t; /* In malloc.c (core address). */
0a753a76 422
68dc0745 423/*
68dc0745
PP
424 * handle socket stuff, assuming socket is always available
425 */
0a753a76
PP
426#include <sys/socket.h>
427#include <netdb.h>
428
bbc8f9de
NIS
429#ifdef MYMALLOC
430#define EMBEDMYMALLOC /**/
08088357 431/* #define USE_PERL_SBRK / **/
432/* #define PERL_SBRK_VIA_MALLOC / **/
bbc8f9de
NIS
433#endif
434
e68cb057 435#ifdef PERL_TEXTMODE_SCRIPTS
c39cd008 436# define PERL_SCRIPT_MODE "r"
a868473f 437#else
c39cd008 438# define PERL_SCRIPT_MODE "rb"
a868473f
NIS
439#endif
440
3fadfdf1
NIS
441/*
442 * Now Win32 specific per-thread data stuff
3352bfcb
GS
443 */
444
aeecf691
JD
445/* Leave the first couple ids after WM_USER unused because they
446 * might be used by an embedding application, and on Windows
447 * version before 2000 we might end up eating those messages
448 * if they were not meant for us.
449 */
450#define WM_USER_MIN (WM_USER+30)
451#define WM_USER_MESSAGE (WM_USER_MIN)
452#define WM_USER_KILL (WM_USER_MIN+1)
453#define WM_USER_MAX (WM_USER_MIN+1)
454
3352bfcb
GS
455struct thread_intern {
456 /* XXX can probably use one buffer instead of several */
457 char Wstrerror_buffer[512];
458 struct servent Wservent;
459 char Wgetlogin_buffer[128];
f4257e4d 460 int Winit_socktype;
3352bfcb 461 char Wcrypt_buffer[30];
3352bfcb
GS
462# ifdef USE_RTL_THREAD_API
463 void * retv; /* slot for thread return value */
464# endif
02637f4c
JD
465 BOOL Wuse_showwindow;
466 WORD Wshowwindow;
3352bfcb
GS
467};
468
4b556e6c 469#define HAVE_INTERP_INTERN
0aaad0ff
GS
470typedef struct {
471 long num;
472 DWORD pids[MAXIMUM_WAIT_OBJECTS];
7766f137 473 HANDLE handles[MAXIMUM_WAIT_OBJECTS];
0aaad0ff
GS
474} child_tab;
475
aeecf691
JD
476#ifdef USE_ITHREADS
477typedef struct {
478 long num;
479 DWORD pids[MAXIMUM_WAIT_OBJECTS];
480 HANDLE handles[MAXIMUM_WAIT_OBJECTS];
481 HWND message_hwnds[MAXIMUM_WAIT_OBJECTS];
8a3cb9c6 482 char sigterm[MAXIMUM_WAIT_OBJECTS];
aeecf691
JD
483} pseudo_child_tab;
484#endif
485
3fadfdf1
NIS
486#ifndef Sighandler_t
487typedef Signal_t (*Sighandler_t) (int);
488#define Sighandler_t Sighandler_t
489#endif
490
4b556e6c 491struct interp_intern {
0aaad0ff
GS
492 char * perlshell_tokens;
493 char ** perlshell_vec;
494 long perlshell_items;
495 struct av * fdpid;
496 child_tab * children;
7766f137
GS
497#ifdef USE_ITHREADS
498 DWORD pseudo_id;
aeecf691 499 pseudo_child_tab * pseudo_children;
7766f137
GS
500#endif
501 void * internal_host;
3352bfcb 502 struct thread_intern thr_intern;
aeecf691 503 HWND message_hwnd;
8fb3fcfb 504 UINT timerid;
05ec9bb3 505 unsigned poll_count;
3fadfdf1 506 Sighandler_t sigtable[SIG_SIZE];
8ca2a5d6 507 bool sloppystat;
4b556e6c
JD
508};
509
05ec9bb3 510#define WIN32_POLL_INTERVAL 32768
8fb3fcfb 511#define PERL_ASYNC_CHECK() if (w32_do_async || PL_sig_pending) win32_async_check(aTHX)
4b556e6c 512
0aaad0ff
GS
513#define w32_perlshell_tokens (PL_sys_intern.perlshell_tokens)
514#define w32_perlshell_vec (PL_sys_intern.perlshell_vec)
515#define w32_perlshell_items (PL_sys_intern.perlshell_items)
516#define w32_fdpid (PL_sys_intern.fdpid)
517#define w32_children (PL_sys_intern.children)
518#define w32_num_children (w32_children->num)
519#define w32_child_pids (w32_children->pids)
7766f137
GS
520#define w32_child_handles (w32_children->handles)
521#define w32_pseudo_id (PL_sys_intern.pseudo_id)
522#define w32_pseudo_children (PL_sys_intern.pseudo_children)
523#define w32_num_pseudo_children (w32_pseudo_children->num)
524#define w32_pseudo_child_pids (w32_pseudo_children->pids)
525#define w32_pseudo_child_handles (w32_pseudo_children->handles)
aeecf691 526#define w32_pseudo_child_message_hwnds (w32_pseudo_children->message_hwnds)
8a3cb9c6 527#define w32_pseudo_child_sigterm (w32_pseudo_children->sigterm)
7766f137 528#define w32_internal_host (PL_sys_intern.internal_host)
8fb3fcfb 529#define w32_timerid (PL_sys_intern.timerid)
aeecf691 530#define w32_message_hwnd (PL_sys_intern.message_hwnd)
3fadfdf1 531#define w32_sighandler (PL_sys_intern.sigtable)
05ec9bb3
NIS
532#define w32_poll_count (PL_sys_intern.poll_count)
533#define w32_do_async (w32_poll_count++ > WIN32_POLL_INTERVAL)
3db8f154
MB
534#define w32_strerror_buffer (PL_sys_intern.thr_intern.Wstrerror_buffer)
535#define w32_getlogin_buffer (PL_sys_intern.thr_intern.Wgetlogin_buffer)
536#define w32_crypt_buffer (PL_sys_intern.thr_intern.Wcrypt_buffer)
537#define w32_servent (PL_sys_intern.thr_intern.Wservent)
f4257e4d 538#define w32_init_socktype (PL_sys_intern.thr_intern.Winit_socktype)
3db8f154
MB
539#define w32_use_showwindow (PL_sys_intern.thr_intern.Wuse_showwindow)
540#define w32_showwindow (PL_sys_intern.thr_intern.Wshowwindow)
8ca2a5d6 541#define w32_sloppystat (PL_sys_intern.sloppystat)
c53bd28a 542
7766f137 543#ifdef USE_ITHREADS
8a3cb9c6
JD
544void win32_wait_for_children(pTHX);
545# define PERL_WAIT_FOR_CHILDREN win32_wait_for_children(aTHX)
7766f137
GS
546#endif
547
b47a847f
DD
548#ifdef PERL_CORE
549/* C doesn't like repeat struct definitions */
550#if defined(__MINGW32__) && (__MINGW32_MAJOR_VERSION>=3)
551#undef _CRTIMP
552#endif
553#ifndef _CRTIMP
554#define _CRTIMP __declspec(dllimport)
555#endif
556
557
558/* VV 2005 has multiple ioinfo struct definitions through VC 2005's release life
559 * VC 2008-2012 have been stable but do not assume future VCs will have the
560 * same ioinfo struct, just because past struct stability. If research is done
561 * on the CRTs of future VS, the version check can be bumped up so the newer
562 * VC uses a fixed ioinfo size.
563 */
564#if ! (_MSC_VER < 1400 || (_MSC_VER >= 1500 && _MSC_VER <= 1700) \
565 || defined(__MINGW32__))
566/* size of ioinfo struct is determined at runtime */
567# define WIN32_DYN_IOINFO_SIZE
568#endif
569
570#ifndef WIN32_DYN_IOINFO_SIZE
571/*
572 * Control structure for lowio file handles
573 */
574typedef struct {
575 intptr_t osfhnd;/* underlying OS file HANDLE */
576 char osfile; /* attributes of file (e.g., open in text mode?) */
577 char pipech; /* one char buffer for handles opened on pipes */
578 int lockinitflag;
579 CRITICAL_SECTION lock;
bb0f0a6a 580/* this struct definition breaks ABI compatibility with
b47a847f
DD
581 * not using, cl.exe's native VS version specitfic CRT. */
582# if _MSC_VER >= 1400 && _MSC_VER < 1500
583# error "This ioinfo struct is incomplete for Visual C 2005"
584# endif
bb0f0a6a 585/* VC 2005 CRT has at least 3 different definitions of this struct based on the
b47a847f
DD
586 * CRT DLL's build number. */
587# if _MSC_VER >= 1500
588# ifndef _SAFECRT_IMPL
589 /* Not used in the safecrt downlevel. We do not define them, so we cannot
590 * use them accidentally */
591 char textmode : 7;/* __IOINFO_TM_ANSI or __IOINFO_TM_UTF8 or __IOINFO_TM_UTF16LE */
592 char unicode : 1; /* Was the file opened as unicode? */
593 char pipech2[2]; /* 2 more peak ahead chars for UNICODE mode */
594 __int64 startpos; /* File position that matches buffer start */
595 BOOL utf8translations; /* Buffer contains translations other than CRLF*/
596 char dbcsBuffer; /* Buffer for the lead byte of dbcs when converting from dbcs to unicode */
597 BOOL dbcsBufferUsed; /* Bool for the lead byte buffer is used or not */
598# endif
599# endif
600} ioinfo;
601#else
602typedef intptr_t ioinfo;
603#endif
604
605/*
606 * Array of arrays of control structures for lowio files.
607 */
608EXTERN_C _CRTIMP ioinfo* __pioinfo[];
609
610/*
611 * Definition of IOINFO_L2E, the log base 2 of the number of elements in each
612 * array of ioinfo structs.
613 */
614#define IOINFO_L2E 5
615
616/*
617 * Definition of IOINFO_ARRAY_ELTS, the number of elements in ioinfo array
618 */
619#define IOINFO_ARRAY_ELTS (1 << IOINFO_L2E)
620
621/*
622 * Access macros for getting at an ioinfo struct and its fields from a
623 * file handle
624 */
625#ifdef WIN32_DYN_IOINFO_SIZE
626# define _pioinfo(i) ((intptr_t *) \
627 (((Size_t)__pioinfo[(i) >> IOINFO_L2E])/* * to head of array ioinfo [] */\
628 /* offset to the head of a particular ioinfo struct */ \
629 + (((i) & (IOINFO_ARRAY_ELTS - 1)) * w32_ioinfo_size)) \
630 )
631/* first slice of ioinfo is always the OS handle */
632# define _osfhnd(i) (*(_pioinfo(i)))
633#else
634# define _pioinfo(i) (__pioinfo[(i) >> IOINFO_L2E] + ((i) & (IOINFO_ARRAY_ELTS - 1)))
635# define _osfhnd(i) (_pioinfo(i)->osfhnd)
636#endif
637
638/* since we are not doing a dup2(), this works fine */
639# define _set_osfhnd(fh, osfh) (void)(_osfhnd(fh) = (intptr_t)osfh)
640#endif /* PERL_CORE */
641
3fadfdf1 642/* IO.xs and POSIX.xs define PERLIO_NOT_STDIO to 1 */
6e22d046
JH
643#if defined(PERL_EXT_IO) || defined(PERL_EXT_POSIX)
644#undef PERLIO_NOT_STDIO
645#endif
adb71456
NIS
646#define PERLIO_NOT_STDIO 0
647
b4748376
NIS
648#define EXEC_ARGV_CAST(x) ((const char *const *) x)
649
f4958739 650DllExport void *win32_signal_context(void);
1018e26f
NIS
651#define PERL_GET_SIG_CONTEXT win32_signal_context()
652
45496817 653#ifdef UNDER_CE
7bd379e8
YO
654#define Win_GetModuleHandle XCEGetModuleHandleA
655#define Win_GetProcAddress XCEGetProcAddressA
656#define Win_GetModuleFileName XCEGetModuleFileNameA
657#define Win_CreateSemaphore CreateSemaphoreW
658#else
659#define Win_GetModuleHandle GetModuleHandle
660#define Win_GetProcAddress GetProcAddress
661#define Win_GetModuleFileName GetModuleFileName
662#define Win_CreateSemaphore CreateSemaphore
663#endif
664
68dc0745 665#endif /* _INC_WIN32_PERL5 */
7a9ec5a3 666