[perl5.git] / win32 / win32.h

/* WIN32.H
 *
 * (c) 1995 Microsoft Corporation. All rights reserved.
 * 		Developed by hip communications inc.
 *
 *    You may distribute under the terms of either the GNU General Public
 *    License or the Artistic License, as specified in the README file.
 */
#ifndef  _INC_WIN32_PERL5
#define  _INC_WIN32_PERL5

#ifndef _WIN32_WINNT
#  define _WIN32_WINNT 0x0500     /* needed for CreateHardlink() etc. */
#endif

#if defined(PERL_IMPLICIT_SYS)
#  define DYNAMIC_ENV_FETCH
#  define HAS_GETENV_LEN
#  define prime_env_iter()
#  define WIN32IO_IS_STDIO		/* don't pull in custom stdio layer */
#  define WIN32SCK_IS_STDSCK		/* don't pull in custom wsock layer */
#  ifdef PERL_GLOBAL_STRUCT
#    error PERL_GLOBAL_STRUCT cannot be defined with PERL_IMPLICIT_SYS
#  endif
#  define win32_get_privlib PerlEnv_lib_path
#  define win32_get_sitelib PerlEnv_sitelib_path
#  define win32_get_vendorlib PerlEnv_vendorlib_path
#endif

#ifdef __GNUC__
#  ifndef __int64		/* some versions seem to #define it already */
#    define __int64 long long
#  endif
#  define Win32_Winsock
#ifdef __cplusplus
/* Mingw32 gcc -xc++ objects to __attribute((unused)) at least */
#undef  PERL_UNUSED_DECL
#define PERL_UNUSED_DECL
#endif
#endif


/* Define DllExport akin to perl's EXT,
 * If we are in the DLL then Export the symbol,
 * otherwise import it.
 */

/* now even GCC supports __declspec() */

#if defined(PERLDLL)
#define DllExport __declspec(dllexport)
#else
#define DllExport __declspec(dllimport)
#endif

/* The Perl APIs can only be called directly inside the perl5xx.dll.
 * All other code has to import them.  By declaring them as "dllimport"
 * we tell the compiler to generate an indirect call instruction and
 * avoid redirection through a call thunk.
 *
 * The XS code in the re extension is special, in that it redefines
 * core APIs locally, so don't mark them as "dllimport" because GCC
 * cannot handle this situation.
 */
#if !defined(PERLDLL) && !defined(PERL_EXT_RE_BUILD)
#  ifdef __cplusplus
#    define PERL_CALLCONV extern "C" __declspec(dllimport)
#    ifdef _MSC_VER
#      define PERL_CALLCONV_NO_RET extern "C" __declspec(dllimport) __declspec(noreturn)
#    endif
#  else
#    define PERL_CALLCONV __declspec(dllimport)
#    ifdef _MSC_VER
#      define PERL_CALLCONV_NO_RET __declspec(dllimport) __declspec(noreturn)
#    endif
#  endif
#else /* MSVC noreturn support inside the interp */
#  ifdef _MSC_VER
#    define PERL_CALLCONV_NO_RET __declspec(noreturn)
#  endif
#endif

#define  WIN32_LEAN_AND_MEAN
#include <windows.h>

/*
 * Bug in winbase.h in mingw-w64 4.4.0-1 at least... they
 * do #define GetEnvironmentStringsA GetEnvironmentStrings and fail
 * to declare GetEnvironmentStringsA.
 */
#if defined(__MINGW64__) && defined(GetEnvironmentStringsA) && !defined(UNICODE)
#ifdef __cplusplus
extern "C" {
#endif
#undef GetEnvironmentStringsA
WINBASEAPI LPCH WINAPI GetEnvironmentStringsA(VOID);
#define GetEnvironmentStrings GetEnvironmentStringsA
#ifdef __cplusplus
}
#endif
#endif

#ifdef   WIN32_LEAN_AND_MEAN		/* C file is NOT a Perl5 original. */
#define  CONTEXT	PERL_CONTEXT	/* Avoid conflict of CONTEXT defs. */
#endif /*WIN32_LEAN_AND_MEAN */

#ifndef TLS_OUT_OF_INDEXES
#define TLS_OUT_OF_INDEXES (DWORD)0xFFFFFFFF
#endif

#include <dirent.h>
#include <io.h>
#include <process.h>
#include <stdio.h>
#include <direct.h>
#include <stdlib.h>
#include <stddef.h>
#include <fcntl.h>
#ifndef EXT
#include "EXTERN.h"
#endif

struct tms {
	long	tms_utime;
	long	tms_stime;
	long	tms_cutime;
	long	tms_cstime;
};

#ifndef SYS_NMLN
#define SYS_NMLN	257
#endif

struct utsname {
    char sysname[SYS_NMLN];
    char nodename[SYS_NMLN];
    char release[SYS_NMLN];
    char version[SYS_NMLN];
    char machine[SYS_NMLN];
};

#ifndef START_EXTERN_C
#undef EXTERN_C
#ifdef __cplusplus
#  define START_EXTERN_C extern "C" {
#  define END_EXTERN_C }
#  define EXTERN_C extern "C"
#else
#  define START_EXTERN_C
#  define END_EXTERN_C
#  define EXTERN_C
#endif
#endif

#define  STANDARD_C	1
#define  DOSISH		1		/* no escaping our roots */
#define  OP_BINARY	O_BINARY	/* mistake in in pp_sys.c? */

/* Define USE_SOCKETS_AS_HANDLES to enable emulation of windows sockets as
 * real filehandles. XXX Should always be defined (the other version is untested) */
#define USE_SOCKETS_AS_HANDLES

/* read() and write() aren't transparent for socket handles */
#define PERL_SOCK_SYSREAD_IS_RECV
#define PERL_SOCK_SYSWRITE_IS_SEND

#define PERL_NO_FORCE_LINK		/* no need for PL_force_link_funcs */

#define ENV_IS_CASELESS

#define PIPESOCK_MODE	"b"		/* pipes, sockets default to binmode */

/* access() mode bits */
#ifndef R_OK
#  define	R_OK	4
#  define	W_OK	2
#  define	X_OK	1
#  define	F_OK	0
#endif

/* for waitpid() */
#ifndef WNOHANG
#  define WNOHANG	1
#endif

#define PERL_GET_CONTEXT_DEFINED

/* Compiler-specific stuff. */

/* VC uses non-standard way to determine the size and alignment if bit-fields */
/* MinGW will compile with -mms-bitfields, so should use the same types */
#define PERL_BITFIELD8  unsigned char
#define PERL_BITFIELD16 unsigned short
#define PERL_BITFIELD32 unsigned int

#ifdef _MSC_VER			/* Microsoft Visual C++ */

#ifndef UNDER_CE
typedef long		uid_t;
typedef long		gid_t;
typedef unsigned short	mode_t;
#endif

#pragma  warning(disable: 4102)	/* "unreferenced label" */

#define isnan		_isnan
#define snprintf	_snprintf
#define vsnprintf	_vsnprintf

#if _MSC_VER < 1300
/* VC6 has broken NaN semantics: NaN == NaN returns true instead of false */
#define NAN_COMPARE_BROKEN 1
#endif

#endif /* _MSC_VER */

#ifdef __MINGW32__		/* Minimal Gnu-Win32 */

typedef long		uid_t;
typedef long		gid_t;
#ifndef _environ
#define _environ	environ
#endif
#define flushall	_flushall
#define fcloseall	_fcloseall
#ifndef isnan
#define isnan		_isnan	/* ...same libraries as MSVC */
#endif

#ifndef _O_NOINHERIT
#  define _O_NOINHERIT	0x0080
#  ifndef _NO_OLDNAMES
#    define O_NOINHERIT	_O_NOINHERIT
#  endif
#endif

/* <stdint.h>, pulled in by <io.h> as of mingw-runtime-3.3, typedef's
 * (u)intptr_t but doesn't set the _(U)INTPTR_T_DEFINED defines */
#ifdef _STDINT_H
#  ifndef _INTPTR_T_DEFINED
#    define _INTPTR_T_DEFINED
#  endif
#  ifndef _UINTPTR_T_DEFINED
#    define _UINTPTR_T_DEFINED
#  endif
#endif

#ifndef CP_UTF8
#  define CP_UTF8	65001
#endif

#endif /* __MINGW32__ */

#ifndef _INTPTR_T_DEFINED
typedef int		intptr_t;
#  define _INTPTR_T_DEFINED
#endif

#ifndef _UINTPTR_T_DEFINED
typedef unsigned int	uintptr_t;
#  define _UINTPTR_T_DEFINED
#endif

START_EXTERN_C

/* For UNIX compatibility. */

extern  uid_t	getuid(void);
extern  gid_t	getgid(void);
extern  uid_t	geteuid(void);
extern  gid_t	getegid(void);
extern  int	setuid(uid_t uid);
extern  int	setgid(gid_t gid);
extern  int	kill(int pid, int sig);
extern  int	killpg(int pid, int sig);
#ifndef USE_PERL_SBRK
extern  void	*sbrk(ptrdiff_t need);
#  define HAS_SBRK_PROTO
#endif
extern	char *	getlogin(void);
extern	int	chown(const char *p, uid_t o, gid_t g);
extern  int	mkstemp(const char *path);

#undef	 Stat
#define  Stat		win32_stat

#undef   init_os_extras
#define  init_os_extras Perl_init_os_extras

DllExport void		Perl_win32_init(int *argcp, char ***argvp);
DllExport void		Perl_win32_term(void);
DllExport void		Perl_init_os_extras(void);
DllExport void		win32_str_os_error(void *sv, DWORD err);
DllExport int		RunPerl(int argc, char **argv, char **env);

typedef struct {
    HANDLE	childStdIn;
    HANDLE	childStdOut;
    HANDLE	childStdErr;
    /*
     * the following correspond to the fields of the same name
     * in the STARTUPINFO structure. Embedders can use these to
     * control the spawning process' look.
     * Example - to hide the window of the spawned process:
     *    dwFlags = STARTF_USESHOWWINDOW;
     *	  wShowWindow = SW_HIDE;
     */
    DWORD	dwFlags;
    DWORD	dwX;
    DWORD	dwY;
    DWORD	dwXSize;
    DWORD	dwYSize;
    DWORD	dwXCountChars;
    DWORD	dwYCountChars;
    DWORD	dwFillAttribute;
    WORD	wShowWindow;
} child_IO_table;

DllExport void		win32_get_child_IO(child_IO_table* ptr);
DllExport HWND		win32_create_message_window(void);

#ifndef USE_SOCKETS_AS_HANDLES
extern FILE *		my_fdopen(int, char *);
#endif
extern int		my_fclose(FILE *);
extern char *		win32_get_privlib(const char *pl, STRLEN *const len);
extern char *		win32_get_sitelib(const char *pl, STRLEN *const len);
extern char *		win32_get_vendorlib(const char *pl, STRLEN *const len);

#ifdef PERL_IMPLICIT_SYS
extern void		win32_delete_internal_host(void *h);
#endif

extern char *		staticlinkmodules[];

END_EXTERN_C

typedef  char *		caddr_t;	/* In malloc.c (core address). */

/*
 * handle socket stuff, assuming socket is always available
 */
#include <sys/socket.h>
#include <netdb.h>

#ifdef MYMALLOC
#define EMBEDMYMALLOC	/**/
/* #define USE_PERL_SBRK	/**/
/* #define PERL_SBRK_VIA_MALLOC	/**/
#endif

#ifdef PERL_TEXTMODE_SCRIPTS
#  define PERL_SCRIPT_MODE		"r"
#else
#  define PERL_SCRIPT_MODE		"rb"
#endif

/*
 * Now Win32 specific per-thread data stuff
 */

/* Leave the first couple ids after WM_USER unused because they
 * might be used by an embedding application, and on Windows
 * version before 2000 we might end up eating those messages
 * if they were not meant for us.
 */
#define WM_USER_MIN     (WM_USER+30)
#define WM_USER_MESSAGE (WM_USER_MIN)
#define WM_USER_KILL    (WM_USER_MIN+1)
#define WM_USER_MAX     (WM_USER_MIN+1)

struct thread_intern {
    /* XXX can probably use one buffer instead of several */
    char		Wstrerror_buffer[512];
    struct servent	Wservent;
    char		Wgetlogin_buffer[128];
#    ifdef USE_SOCKETS_AS_HANDLES
    int			Winit_socktype;
#    endif
    char		Wcrypt_buffer[30];
#    ifdef USE_RTL_THREAD_API
    void *		retv;	/* slot for thread return value */
#    endif
    BOOL               Wuse_showwindow;
    WORD               Wshowwindow;
};

#define HAVE_INTERP_INTERN
typedef struct {
    long	num;
    DWORD	pids[MAXIMUM_WAIT_OBJECTS];
    HANDLE	handles[MAXIMUM_WAIT_OBJECTS];
} child_tab;

#ifdef USE_ITHREADS
typedef struct {
    long	num;
    DWORD	pids[MAXIMUM_WAIT_OBJECTS];
    HANDLE	handles[MAXIMUM_WAIT_OBJECTS];
    HWND	message_hwnds[MAXIMUM_WAIT_OBJECTS];
    char        sigterm[MAXIMUM_WAIT_OBJECTS];
} pseudo_child_tab;
#endif

#ifndef Sighandler_t
typedef Signal_t (*Sighandler_t) (int);
#define Sighandler_t	Sighandler_t
#endif

struct interp_intern {
    char *	perlshell_tokens;
    char **	perlshell_vec;
    long	perlshell_items;
    struct av *	fdpid;
    child_tab *	children;
#ifdef USE_ITHREADS
    DWORD	pseudo_id;
    pseudo_child_tab * pseudo_children;
#endif
    void *	internal_host;
    struct thread_intern	thr_intern;
    HWND        message_hwnd;
    UINT	timerid;
    unsigned 	poll_count;
    Sighandler_t sigtable[SIG_SIZE];
};

DllExport int win32_async_check(pTHX);

#define WIN32_POLL_INTERVAL 32768
#define PERL_ASYNC_CHECK() if (w32_do_async || PL_sig_pending) win32_async_check(aTHX)

#define w32_perlshell_tokens	(PL_sys_intern.perlshell_tokens)
#define w32_perlshell_vec	(PL_sys_intern.perlshell_vec)
#define w32_perlshell_items	(PL_sys_intern.perlshell_items)
#define w32_fdpid		(PL_sys_intern.fdpid)
#define w32_children		(PL_sys_intern.children)
#define w32_num_children	(w32_children->num)
#define w32_child_pids		(w32_children->pids)
#define w32_child_handles	(w32_children->handles)
#define w32_pseudo_id		(PL_sys_intern.pseudo_id)
#define w32_pseudo_children	(PL_sys_intern.pseudo_children)
#define w32_num_pseudo_children		(w32_pseudo_children->num)
#define w32_pseudo_child_pids		(w32_pseudo_children->pids)
#define w32_pseudo_child_handles	(w32_pseudo_children->handles)
#define w32_pseudo_child_message_hwnds	(w32_pseudo_children->message_hwnds)
#define w32_pseudo_child_sigterm	(w32_pseudo_children->sigterm)
#define w32_internal_host		(PL_sys_intern.internal_host)
#define w32_timerid			(PL_sys_intern.timerid)
#define w32_message_hwnd		(PL_sys_intern.message_hwnd)
#define w32_sighandler			(PL_sys_intern.sigtable)
#define w32_poll_count			(PL_sys_intern.poll_count)
#define w32_do_async			(w32_poll_count++ > WIN32_POLL_INTERVAL)
#define w32_strerror_buffer	(PL_sys_intern.thr_intern.Wstrerror_buffer)
#define w32_getlogin_buffer	(PL_sys_intern.thr_intern.Wgetlogin_buffer)
#define w32_crypt_buffer	(PL_sys_intern.thr_intern.Wcrypt_buffer)
#define w32_servent		(PL_sys_intern.thr_intern.Wservent)
#define w32_init_socktype	(PL_sys_intern.thr_intern.Winit_socktype)
#define w32_use_showwindow	(PL_sys_intern.thr_intern.Wuse_showwindow)
#define w32_showwindow	(PL_sys_intern.thr_intern.Wshowwindow)

#ifdef USE_ITHREADS
void win32_wait_for_children(pTHX);
#  define PERL_WAIT_FOR_CHILDREN win32_wait_for_children(aTHX)
#endif

/* IO.xs and POSIX.xs define PERLIO_NOT_STDIO to 1 */
#if defined(PERL_EXT_IO) || defined(PERL_EXT_POSIX)
#undef  PERLIO_NOT_STDIO
#endif
#define PERLIO_NOT_STDIO 0

#include "perlio.h"

/*
 * This provides a layer of functions and macros to ensure extensions will
 * get to use the same RTL functions as the core.
 */
#include "win32iop.h"

#define EXEC_ARGV_CAST(x) ((const char *const *) x)

DllExport void *win32_signal_context(void);
#define PERL_GET_SIG_CONTEXT win32_signal_context()

#ifdef UNDER_CE
#define Win_GetModuleHandle   XCEGetModuleHandleA
#define Win_GetProcAddress    XCEGetProcAddressA
#define Win_GetModuleFileName XCEGetModuleFileNameA
#define Win_CreateSemaphore   CreateSemaphoreW
#else
#define Win_GetModuleHandle   GetModuleHandle
#define Win_GetProcAddress    GetProcAddress
#define Win_GetModuleFileName GetModuleFileName
#define Win_CreateSemaphore   CreateSemaphore
#endif

#endif /* _INC_WIN32_PERL5 */
Commit	Line	Data
68dc0745	1	/* WIN32.H
68dc0745	2	*
3fadfdf1	3	* (c) 1995 Microsoft Corporation. All rights reserved.
0d130a44	4	* Developed by hip communications inc.
68dc0745	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	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
acfe0abc	16	#if defined(PERL_IMPLICIT_SYS)
e9ee4811	17	# define DYNAMIC_ENV_FETCH
a6c40364	18	# define HAS_GETENV_LEN
e9ee4811	19	# define prime_env_iter()
ab39fa9d	20	# define WIN32IO_IS_STDIO /* don't pull in custom stdio layer */
c5be433b	21	# define WIN32SCK_IS_STDSCK /* don't pull in custom wsock layer */
ab39fa9d	22	# ifdef PERL_GLOBAL_STRUCT
32e30700	23	# error PERL_GLOBAL_STRUCT cannot be defined with PERL_IMPLICIT_SYS
ab39fa9d	24	# endif
e5a95ffb	25	# define win32_get_privlib PerlEnv_lib_path
ab39fa9d	26	# define win32_get_sitelib PerlEnv_sitelib_path
4ea817c6	27	# define win32_get_vendorlib PerlEnv_vendorlib_path
9d8a25dc DL	28	#endif
9d8a25dc DL	29
a835ef8a	30	#ifdef __GNUC__
b7c82df9 GS	31	# ifndef __int64 /* some versions seem to #define it already */
	32	# define __int64 long long
	33	# endif
db15561c	34	# define Win32_Winsock
1c85e96a NIS	35	#ifdef __cplusplus
1c85e96a NIS	36	/* Mingw32 gcc -xc++ objects to __attribute((unused)) at least */
3fadfdf1 NIS	37	#undef PERL_UNUSED_DECL
3fadfdf1 NIS	38	#define PERL_UNUSED_DECL
a835ef8a	39	#endif
1c85e96a NIS	40	#endif
1c85e96a NIS	41
a835ef8a	42
3fadfdf1	43	/* Define DllExport akin to perl's EXT,
8cbe99e5	44	* If we are in the DLL then Export the symbol,
22239a37 NIS	45	* otherwise import it.
	46	*/
	47
5db10396 GS	48	/* now even GCC supports __declspec() */
5db10396 GS	49
8cbe99e5	50	#if defined(PERLDLL)
70764c00	51	#define DllExport __declspec(dllexport)
3fadfdf1	52	#else
22239a37 NIS	53	#define DllExport __declspec(dllimport)
22239a37 NIS	54	#endif
c69f112c	55
50fd5961 JD	56	/* The Perl APIs can only be called directly inside the perl5xx.dll.
	57	* All other code has to import them. By declaring them as "dllimport"
	58	* we tell the compiler to generate an indirect call instruction and
	59	* avoid redirection through a call thunk.
	60	*
	61	* The XS code in the re extension is special, in that it redefines
	62	* core APIs locally, so don't mark them as "dllimport" because GCC
	63	* cannot handle this situation.
	64	*/
	65	#if !defined(PERLDLL) && !defined(PERL_EXT_RE_BUILD)
ad6ab6c5 JD	66	# ifdef __cplusplus
ad6ab6c5 JD	67	# define PERL_CALLCONV extern "C" __declspec(dllimport)
12a2785c	68	# ifdef _MSC_VER
03c98af0	69	# define PERL_CALLCONV_NO_RET extern "C" __declspec(dllimport) __declspec(noreturn)
12a2785c	70	# endif
ad6ab6c5 JD	71	# else
ad6ab6c5 JD	72	# define PERL_CALLCONV __declspec(dllimport)
12a2785c	73	# ifdef _MSC_VER
03c98af0	74	# define PERL_CALLCONV_NO_RET __declspec(dllimport) __declspec(noreturn)
12a2785c	75	# endif
ad6ab6c5	76	# endif
50e8e1f5 DD	77	#else /* MSVC noreturn support inside the interp */
	78	# ifdef _MSC_VER
	79	# define PERL_CALLCONV_NO_RET __declspec(noreturn)
	80	# endif
ad6ab6c5 JD	81	#endif
ad6ab6c5 JD	82
0a753a76	83	#define WIN32_LEAN_AND_MEAN
	84	#include <windows.h>
	85
fa58a56f S	86	/*
	87	* Bug in winbase.h in mingw-w64 4.4.0-1 at least... they
	88	* do #define GetEnvironmentStringsA GetEnvironmentStrings and fail
	89	* to declare GetEnvironmentStringsA.
	90	*/
	91	#if defined(__MINGW64__) && defined(GetEnvironmentStringsA) && !defined(UNICODE)
	92	#ifdef __cplusplus
	93	extern "C" {
	94	#endif
	95	#undef GetEnvironmentStringsA
	96	WINBASEAPI LPCH WINAPI GetEnvironmentStringsA(VOID);
	97	#define GetEnvironmentStrings GetEnvironmentStringsA
	98	#ifdef __cplusplus
	99	}
	100	#endif
	101	#endif
	102
68dc0745	103	#ifdef WIN32_LEAN_AND_MEAN /* C file is NOT a Perl5 original. */
68dc0745	104	#define CONTEXT PERL_CONTEXT /* Avoid conflict of CONTEXT defs. */
68dc0745	105	#endif /WIN32_LEAN_AND_MEAN /
0a753a76	106
eda5ff31 GS	107	#ifndef TLS_OUT_OF_INDEXES
	108	#define TLS_OUT_OF_INDEXES (DWORD)0xFFFFFFFF
	109	#endif
	110
0a753a76	111	#include <dirent.h>
	112	#include <io.h>
	113	#include <process.h>
	114	#include <stdio.h>
	115	#include <direct.h>
390b85e7	116	#include <stdlib.h>
c623ac67	117	#include <stddef.h>
7a1f88ac	118	#include <fcntl.h>
390b85e7 GS	119	#ifndef EXT
	120	#include "EXTERN.h"
	121	#endif
	122
c69f112c NIS	123	struct tms {
	124	long tms_utime;
	125	long tms_stime;
	126	long tms_cutime;
	127	long tms_cstime;
	128	};
	129
b2af26b1 GS	130	#ifndef SYS_NMLN
	131	#define SYS_NMLN 257
	132	#endif
	133
	134	struct utsname {
	135	char sysname[SYS_NMLN];
	136	char nodename[SYS_NMLN];
	137	char release[SYS_NMLN];
	138	char version[SYS_NMLN];
	139	char machine[SYS_NMLN];
	140	};
	141
390b85e7	142	#ifndef START_EXTERN_C
b3e5c95e	143	#undef EXTERN_C
390b85e7 GS	144	#ifdef __cplusplus
	145	# define START_EXTERN_C extern "C" {
	146	# define END_EXTERN_C }
	147	# define EXTERN_C extern "C"
	148	#else
3fadfdf1 NIS	149	# define START_EXTERN_C
3fadfdf1 NIS	150	# define END_EXTERN_C
390b85e7 GS	151	# define EXTERN_C
	152	#endif
	153	#endif
	154
	155	#define STANDARD_C 1
	156	#define DOSISH 1 /* no escaping our roots */
	157	#define OP_BINARY O_BINARY /* mistake in in pp_sys.c? */
0a753a76	158
f3986ebb GS	159	/* Define USE_SOCKETS_AS_HANDLES to enable emulation of windows sockets as
	160	* real filehandles. XXX Should always be defined (the other version is untested) */
	161	#define USE_SOCKETS_AS_HANDLES
	162
a7092146 GS	163	/* read() and write() aren't transparent for socket handles */
	164	#define PERL_SOCK_SYSREAD_IS_RECV
	165	#define PERL_SOCK_SYSWRITE_IS_SEND
	166
682fc664	167	#define PERL_NO_FORCE_LINK /* no need for PL_force_link_funcs */
a7092146	168
902173a3 GS	169	#define ENV_IS_CASELESS
902173a3 GS	170
479b2847 GS	171	#define PIPESOCK_MODE "b" /* pipes, sockets default to binmode */
479b2847 GS	172
327c3667 GS	173	/* access() mode bits */
	174	#ifndef R_OK
	175	# define R_OK 4
	176	# define W_OK 2
	177	# define X_OK 1
	178	# define F_OK 0
	179	#endif
	180
cc236deb GS	181	/* for waitpid() */
	182	#ifndef WNOHANG
	183	# define WNOHANG 1
	184	#endif
	185
c44d3fdb GS	186	#define PERL_GET_CONTEXT_DEFINED
c44d3fdb GS	187
f3986ebb GS	188	/* Compiler-specific stuff. */
f3986ebb GS	189
654eccd5	190	/* VC uses non-standard way to determine the size and alignment if bit-fields */
4eab039d SH	191	/* MinGW will compile with -mms-bitfields, so should use the same types */
	192	#define PERL_BITFIELD8 unsigned char
	193	#define PERL_BITFIELD16 unsigned short
	194	#define PERL_BITFIELD32 unsigned int
654eccd5	195
f3986ebb GS	196	#ifdef _MSC_VER /* Microsoft Visual C++ */
f3986ebb GS	197
f4257e4d	198	#ifndef UNDER_CE
0a753a76	199	typedef long uid_t;
0a753a76	200	typedef long gid_t;
a6c40364	201	typedef unsigned short mode_t;
f4257e4d YO	202	#endif
f4257e4d YO	203
c623ac67	204	#pragma warning(disable: 4102) /* "unreferenced label" */
f3986ebb	205
5fb4d820	206	#define isnan _isnan
80e18237 SH	207	#define snprintf _snprintf
80e18237 SH	208	#define vsnprintf _vsnprintf
5fb4d820	209
cab190d4 JD	210	#if _MSC_VER < 1300
	211	/* VC6 has broken NaN semantics: NaN == NaN returns true instead of false */
	212	#define NAN_COMPARE_BROKEN 1
	213	#endif
	214
f3986ebb GS	215	#endif /* _MSC_VER */
f3986ebb GS	216
910dfcc8 GS	217	#ifdef __MINGW32__ /* Minimal Gnu-Win32 */
	218
	219	typedef long uid_t;
	220	typedef long gid_t;
b1d1613b	221	#ifndef _environ
3730b96e	222	#define _environ environ
b1d1613b	223	#endif
3730b96e GS	224	#define flushall _flushall
3730b96e GS	225	#define fcloseall _fcloseall
44604af1	226	#ifndef isnan
6940069f	227	#define isnan _isnan /* ...same libraries as MSVC */
44604af1	228	#endif
910dfcc8	229
ac4c12e7 GS	230	#ifndef _O_NOINHERIT
	231	# define _O_NOINHERIT 0x0080
	232	# ifndef _NO_OLDNAMES
	233	# define O_NOINHERIT _O_NOINHERIT
	234	# endif
	235	#endif
	236
8659febc S	237	/* <stdint.h>, pulled in by <io.h> as of mingw-runtime-3.3, typedef's
	238	* (u)intptr_t but doesn't set the _(U)INTPTR_T_DEFINED defines */
	239	#ifdef _STDINT_H
	240	# ifndef _INTPTR_T_DEFINED
	241	# define _INTPTR_T_DEFINED
	242	# endif
	243	# ifndef _UINTPTR_T_DEFINED
	244	# define _UINTPTR_T_DEFINED
	245	# endif
	246	#endif
	247
f8fb7c90 GS	248	#ifndef CP_UTF8
	249	# define CP_UTF8 65001
	250	#endif
	251
70764c00 SH	252	#endif /* __MINGW32__ */
70764c00 SH	253
c623ac67 GS	254	#ifndef _INTPTR_T_DEFINED
	255	typedef int intptr_t;
	256	# define _INTPTR_T_DEFINED
	257	#endif
	258
	259	#ifndef _UINTPTR_T_DEFINED
	260	typedef unsigned int uintptr_t;
	261	# define _UINTPTR_T_DEFINED
	262	#endif
	263
390b85e7	264	START_EXTERN_C
f3986ebb GS	265
	266	/* For UNIX compatibility. */
	267
0a753a76	268	extern uid_t getuid(void);
	269	extern gid_t getgid(void);
	270	extern uid_t geteuid(void);
	271	extern gid_t getegid(void);
0a753a76	272	extern int setuid(uid_t uid);
	273	extern int setgid(gid_t gid);
	274	extern int kill(int pid, int sig);
542cb85f	275	extern int killpg(int pid, int sig);
c623ac67 GS	276	#ifndef USE_PERL_SBRK
	277	extern void *sbrk(ptrdiff_t need);
	278	# define HAS_SBRK_PROTO
	279	#endif
e34ffe5a	280	extern char * getlogin(void);
b990f8c8	281	extern int chown(const char *p, uid_t o, gid_t g);
00b02797	282	extern int mkstemp(const char *path);
d55594ae	283
f3986ebb GS	284	#undef Stat
f3986ebb GS	285	#define Stat win32_stat
3e3baf6d	286
f3986ebb GS	287	#undef init_os_extras
f3986ebb GS	288	#define init_os_extras Perl_init_os_extras
390b85e7	289
22239a37	290	DllExport void Perl_win32_init(int argcp, char **argvp);
23f519f0	291	DllExport void Perl_win32_term(void);
cb359b41	292	DllExport void Perl_init_os_extras(void);
c5be433b GS	293	DllExport void win32_str_os_error(void *sv, DWORD err);
c5be433b GS	294	DllExport int RunPerl(int argc, char argv, char env);
0551aaa8	295
635bbe87 GS	296	typedef struct {
	297	HANDLE childStdIn;
	298	HANDLE childStdOut;
	299	HANDLE childStdErr;
f83751a7 GS	300	/*
	301	* the following correspond to the fields of the same name
	302	* in the STARTUPINFO structure. Embedders can use these to
	303	* control the spawning process' look.
	304	* Example - to hide the window of the spawned process:
	305	* dwFlags = STARTF_USESHOWWINDOW;
	306	* wShowWindow = SW_HIDE;
	307	*/
	308	DWORD dwFlags;
3fadfdf1 NIS	309	DWORD dwX;
	310	DWORD dwY;
	311	DWORD dwXSize;
	312	DWORD dwYSize;
	313	DWORD dwXCountChars;
	314	DWORD dwYCountChars;
f83751a7	315	DWORD dwFillAttribute;
3fadfdf1	316	WORD wShowWindow;
635bbe87 GS	317	} child_IO_table;
	318
	319	DllExport void win32_get_child_IO(child_IO_table* ptr);
b69b0499	320	DllExport HWND win32_create_message_window(void);
635bbe87	321
f3986ebb GS	322	#ifndef USE_SOCKETS_AS_HANDLES
f3986ebb GS	323	extern FILE * my_fdopen(int, char *);
d55594ae	324	#endif
f3986ebb	325	extern int my_fclose(FILE *);
e6a0bbf8 NC	326	extern char * win32_get_privlib(const char pl, STRLEN const len);
	327	extern char * win32_get_sitelib(const char pl, STRLEN const len);
	328	extern char * win32_get_vendorlib(const char pl, STRLEN const len);
d55594ae	329
1c0ca838 GS	330	#ifdef PERL_IMPLICIT_SYS
	331	extern void win32_delete_internal_host(void *h);
	332	#endif
	333
f3986ebb	334	extern char * staticlinkmodules[];
390b85e7 GS	335
390b85e7 GS	336	END_EXTERN_C
d55594ae	337
68dc0745	338	typedef char * caddr_t; /* In malloc.c (core address). */
0a753a76	339
68dc0745	340	/*
68dc0745	341	* handle socket stuff, assuming socket is always available
68dc0745	342	*/
0a753a76	343	#include <sys/socket.h>
	344	#include <netdb.h>
	345
bbc8f9de NIS	346	#ifdef MYMALLOC
	347	#define EMBEDMYMALLOC /**/
	348	/* #define USE_PERL_SBRK /**/
	349	/* #define PERL_SBRK_VIA_MALLOC /**/
	350	#endif
	351
e68cb057	352	#ifdef PERL_TEXTMODE_SCRIPTS
c39cd008	353	# define PERL_SCRIPT_MODE "r"
a868473f	354	#else
c39cd008	355	# define PERL_SCRIPT_MODE "rb"
a868473f NIS	356	#endif
a868473f NIS	357
3fadfdf1 NIS	358	/*
3fadfdf1 NIS	359	* Now Win32 specific per-thread data stuff
3352bfcb GS	360	*/
3352bfcb GS	361
aeecf691 JD	362	/* Leave the first couple ids after WM_USER unused because they
	363	* might be used by an embedding application, and on Windows
	364	* version before 2000 we might end up eating those messages
	365	* if they were not meant for us.
	366	*/
	367	#define WM_USER_MIN (WM_USER+30)
	368	#define WM_USER_MESSAGE (WM_USER_MIN)
	369	#define WM_USER_KILL (WM_USER_MIN+1)
	370	#define WM_USER_MAX (WM_USER_MIN+1)
	371
3352bfcb GS	372	struct thread_intern {
	373	/* XXX can probably use one buffer instead of several */
	374	char Wstrerror_buffer[512];
	375	struct servent Wservent;
	376	char Wgetlogin_buffer[128];
f4257e4d YO	377	# ifdef USE_SOCKETS_AS_HANDLES
	378	int Winit_socktype;
	379	# endif
3352bfcb	380	char Wcrypt_buffer[30];
3352bfcb GS	381	# ifdef USE_RTL_THREAD_API
	382	void * retv; /* slot for thread return value */
	383	# endif
02637f4c JD	384	BOOL Wuse_showwindow;
02637f4c JD	385	WORD Wshowwindow;
3352bfcb GS	386	};
3352bfcb GS	387
4b556e6c	388	#define HAVE_INTERP_INTERN
0aaad0ff GS	389	typedef struct {
	390	long num;
	391	DWORD pids[MAXIMUM_WAIT_OBJECTS];
7766f137	392	HANDLE handles[MAXIMUM_WAIT_OBJECTS];
0aaad0ff GS	393	} child_tab;
0aaad0ff GS	394
aeecf691 JD	395	#ifdef USE_ITHREADS
	396	typedef struct {
	397	long num;
	398	DWORD pids[MAXIMUM_WAIT_OBJECTS];
	399	HANDLE handles[MAXIMUM_WAIT_OBJECTS];
	400	HWND message_hwnds[MAXIMUM_WAIT_OBJECTS];
8a3cb9c6	401	char sigterm[MAXIMUM_WAIT_OBJECTS];
aeecf691 JD	402	} pseudo_child_tab;
	403	#endif
	404
3fadfdf1 NIS	405	#ifndef Sighandler_t
	406	typedef Signal_t (*Sighandler_t) (int);
	407	#define Sighandler_t Sighandler_t
	408	#endif
	409
4b556e6c	410	struct interp_intern {
0aaad0ff GS	411	char * perlshell_tokens;
	412	char ** perlshell_vec;
	413	long perlshell_items;
	414	struct av * fdpid;
	415	child_tab * children;
7766f137 GS	416	#ifdef USE_ITHREADS
7766f137 GS	417	DWORD pseudo_id;
aeecf691	418	pseudo_child_tab * pseudo_children;
7766f137 GS	419	#endif
7766f137 GS	420	void * internal_host;
3352bfcb	421	struct thread_intern thr_intern;
aeecf691	422	HWND message_hwnd;
8fb3fcfb	423	UINT timerid;
05ec9bb3	424	unsigned poll_count;
3fadfdf1	425	Sighandler_t sigtable[SIG_SIZE];
4b556e6c JD	426	};
4b556e6c JD	427
8fb3fcfb NIS	428	DllExport int win32_async_check(pTHX);
8fb3fcfb NIS	429
05ec9bb3	430	#define WIN32_POLL_INTERVAL 32768
8fb3fcfb	431	#define PERL_ASYNC_CHECK() if (w32_do_async \|\| PL_sig_pending) win32_async_check(aTHX)
4b556e6c	432
0aaad0ff GS	433	#define w32_perlshell_tokens (PL_sys_intern.perlshell_tokens)
	434	#define w32_perlshell_vec (PL_sys_intern.perlshell_vec)
	435	#define w32_perlshell_items (PL_sys_intern.perlshell_items)
	436	#define w32_fdpid (PL_sys_intern.fdpid)
	437	#define w32_children (PL_sys_intern.children)
	438	#define w32_num_children (w32_children->num)
	439	#define w32_child_pids (w32_children->pids)
7766f137 GS	440	#define w32_child_handles (w32_children->handles)
	441	#define w32_pseudo_id (PL_sys_intern.pseudo_id)
	442	#define w32_pseudo_children (PL_sys_intern.pseudo_children)
	443	#define w32_num_pseudo_children (w32_pseudo_children->num)
	444	#define w32_pseudo_child_pids (w32_pseudo_children->pids)
	445	#define w32_pseudo_child_handles (w32_pseudo_children->handles)
aeecf691	446	#define w32_pseudo_child_message_hwnds (w32_pseudo_children->message_hwnds)
8a3cb9c6	447	#define w32_pseudo_child_sigterm (w32_pseudo_children->sigterm)
7766f137	448	#define w32_internal_host (PL_sys_intern.internal_host)
8fb3fcfb	449	#define w32_timerid (PL_sys_intern.timerid)
aeecf691	450	#define w32_message_hwnd (PL_sys_intern.message_hwnd)
3fadfdf1	451	#define w32_sighandler (PL_sys_intern.sigtable)
05ec9bb3 NIS	452	#define w32_poll_count (PL_sys_intern.poll_count)
05ec9bb3 NIS	453	#define w32_do_async (w32_poll_count++ > WIN32_POLL_INTERVAL)
3db8f154 MB	454	#define w32_strerror_buffer (PL_sys_intern.thr_intern.Wstrerror_buffer)
	455	#define w32_getlogin_buffer (PL_sys_intern.thr_intern.Wgetlogin_buffer)
	456	#define w32_crypt_buffer (PL_sys_intern.thr_intern.Wcrypt_buffer)
	457	#define w32_servent (PL_sys_intern.thr_intern.Wservent)
f4257e4d	458	#define w32_init_socktype (PL_sys_intern.thr_intern.Winit_socktype)
3db8f154 MB	459	#define w32_use_showwindow (PL_sys_intern.thr_intern.Wuse_showwindow)
3db8f154 MB	460	#define w32_showwindow (PL_sys_intern.thr_intern.Wshowwindow)
c53bd28a	461
7766f137	462	#ifdef USE_ITHREADS
8a3cb9c6 JD	463	void win32_wait_for_children(pTHX);
8a3cb9c6 JD	464	# define PERL_WAIT_FOR_CHILDREN win32_wait_for_children(aTHX)
7766f137 GS	465	#endif
7766f137 GS	466
3fadfdf1	467	/* IO.xs and POSIX.xs define PERLIO_NOT_STDIO to 1 */
6e22d046 JH	468	#if defined(PERL_EXT_IO) \|\| defined(PERL_EXT_POSIX)
	469	#undef PERLIO_NOT_STDIO
	470	#endif
adb71456 NIS	471	#define PERLIO_NOT_STDIO 0
	472
	473	#include "perlio.h"
	474
4f63d024 GS	475	/*
	476	* This provides a layer of functions and macros to ensure extensions will
	477	* get to use the same RTL functions as the core.
	478	*/
	479	#include "win32iop.h"
	480
b4748376 NIS	481	#define EXEC_ARGV_CAST(x) ((const char const ) x)
b4748376 NIS	482
f4958739	483	DllExport void *win32_signal_context(void);
1018e26f NIS	484	#define PERL_GET_SIG_CONTEXT win32_signal_context()
1018e26f NIS	485
45496817	486	#ifdef UNDER_CE
7bd379e8 YO	487	#define Win_GetModuleHandle XCEGetModuleHandleA
	488	#define Win_GetProcAddress XCEGetProcAddressA
	489	#define Win_GetModuleFileName XCEGetModuleFileNameA
	490	#define Win_CreateSemaphore CreateSemaphoreW
	491	#else
	492	#define Win_GetModuleHandle GetModuleHandle
	493	#define Win_GetProcAddress GetProcAddress
	494	#define Win_GetModuleFileName GetModuleFileName
	495	#define Win_CreateSemaphore CreateSemaphore
	496	#endif
	497
68dc0745	498	#endif /* _INC_WIN32_PERL5 */
7a9ec5a3	499