[perl5.git] / wince / win32.h

/* Time-stamp: <01/08/01 20:59:54 keuchel@w2k> */

/* WIN32.H
 *
 * (c) 1995 Microsoft Corporation. All rights reserved. 
 * 		Developed by hip communications inc., http://info.hip.com/info/
 *
 *    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 0x0400     /* needed for TryEnterCriticalSection() etc. */
#endif

#if defined(PERL_IMPLICIT_SYS)
#  define DYNAMIC_ENV_FETCH
#  define ENV_HV_NAME "___ENV_HV_NAME___"
#  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
#endif

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

/* now even GCC supports __declspec() */

#if defined(PERLDLL) || defined(WIN95FIX)
#define DllExport
/*#define DllExport __declspec(dllexport)*/	/* noises with VC5+sp3 */
#else 
#define DllExport __declspec(dllimport)
#endif

#define  WIN32_LEAN_AND_MEAN
#include <windows.h>

#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>
#ifndef UNDER_CE
#include <io.h>
#include <process.h>
#include <direct.h>
#include <fcntl.h>
#endif
#include <stdio.h>
#include <stdlib.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 */

/* if USE_WIN32_RTL_ENV is not defined, Perl uses direct Win32 calls
 * to read the environment, bypassing the runtime's (usually broken)
 * facilities for accessing the same.  See note in util.c/my_setenv(). */
/*#define USE_WIN32_RTL_ENV */

/* Define USE_FIXED_OSFHANDLE to fix MSVCRT's _open_osfhandle() on W95.
   It now uses some black magic to work seamlessly with the DLL CRT and
   works with MSVC++ 4.0+ or GCC/Mingw32
	-- BKS 1-24-2000 */
#if (defined(_M_IX86) && _MSC_VER >= 1000) || defined(__MINGW32__)
#define USE_FIXED_OSFHANDLE
#endif

#define ENV_IS_CASELESS

#ifndef VER_PLATFORM_WIN32_WINDOWS	/* VC-2.0 headers don't have this */
#define VER_PLATFORM_WIN32_WINDOWS	1
#endif

#ifndef FILE_SHARE_DELETE		/* VC-4.0 headers don't have this */
#define FILE_SHARE_DELETE		0x00000004
#endif

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

#define PERL_GET_CONTEXT_DEFINED

/* Compiler-specific stuff. */

#ifdef __BORLANDC__		/* Borland C++ */

#define _access access
#define _chdir chdir
#define _getpid getpid
#define wcsicmp _wcsicmp
#include <sys/types.h>

#ifndef DllMain
#define DllMain DllEntryPoint
#endif

#pragma warn -ccc	/* "condition is always true/false" */
#pragma warn -rch	/* "unreachable code" */
#pragma warn -sig	/* "conversion may lose significant digits" */
#pragma warn -pia	/* "possibly incorrect assignment" */
#pragma warn -par	/* "parameter 'foo' is never used" */
#pragma warn -aus	/* "'foo' is assigned a value that is never used" */
#pragma warn -use	/* "'foo' is declared but never used" */
#pragma warn -csu	/* "comparing signed and unsigned values" */
#pragma warn -pro	/* "call to function with no prototype" */
#pragma warn -stu	/* "undefined structure 'foo'" */

/* Borland C thinks that a pointer to a member variable is 12 bytes in size. */
#define PERL_MEMBER_PTR_SIZE	12

#endif

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

#ifndef _MODE_T_DEFINED_
typedef unsigned long mode_t;
#define _MODE_T_DEFINED_
#endif

#pragma  warning(disable: 4018 4035 4101 4102 4244 4245 4761)

/* Visual C thinks that a pointer to a member variable is 16 bytes in size. */
#define PERL_MEMBER_PTR_SIZE	16

#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

#endif /* __MINGW32__ */

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

/* both GCC/Mingw32 and MSVC++ 4.0 are missing this, so we put it here */
#ifndef CP_UTF8
#  define CP_UTF8	65001
#endif

/* compatibility stuff for other compilers goes here */

#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

#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();
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);

#ifndef USE_SOCKETS_AS_HANDLES
extern FILE *		my_fdopen(int, char *);
#endif

extern int		my_fclose(FILE *);
extern int		do_aspawn(void *really, void **mark, void **sp);
extern int		do_spawn(char *cmd);
extern int		do_spawn_nowait(char *cmd);
extern char *		win32_get_privlib(const char *pl);
extern char *		win32_get_sitelib(const char *pl);
extern char *		win32_get_vendorlib(const char *pl);
extern int		IsWin95(void);
extern int		IsWinNT(void);
extern void		win32_argv2utf8(int argc, char** argv);

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

extern char *		staticlinkmodules[];

END_EXTERN_C

/*
 * 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

#if defined(PERLDLL) && !defined(PERL_CORE)
#define PERL_CORE
#endif

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

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

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

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
#    ifdef HAVE_DES_FCRYPT
    char		Wcrypt_buffer[30];
#    endif
#    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;

struct interp_intern {
    char *	perlshell_tokens;
    char **	perlshell_vec;
    long	perlshell_items;
    struct av *	fdpid;
    child_tab *	children;
#ifdef USE_ITHREADS
    DWORD	pseudo_id;
    child_tab *	pseudo_children;
#endif
    void *	internal_host;
    struct thread_intern	thr_intern;
    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_internal_host		(PL_sys_intern.internal_host)
#define w32_timerid			(PL_sys_intern.timerid)
#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)

/* UNICODE<>ANSI translation helpers */
/* Use CP_ACP when mode is ANSI */
/* Use CP_UTF8 when mode is UTF8 */

#define A2WHELPER_LEN(lpa, alen, lpw, nBytes)\
    (lpw[0] = 0, MultiByteToWideChar((IN_BYTES) ? CP_ACP : CP_UTF8, 0, \
				    lpa, alen, lpw, (nBytes/sizeof(WCHAR))))
#define A2WHELPER(lpa, lpw, nBytes)	A2WHELPER_LEN(lpa, -1, lpw, nBytes)

#define W2AHELPER_LEN(lpw, wlen, lpa, nChars)\
    (lpa[0] = '\0', WideCharToMultiByte((IN_BYTES) ? CP_ACP : CP_UTF8, 0, \
				       lpw, wlen, (LPSTR)lpa, nChars,NULL,NULL))
#define W2AHELPER(lpw, lpa, nChars)	W2AHELPER_LEN(lpw, -1, lpa, nChars)

#define USING_WIDE() (0)

#ifdef USE_ITHREADS
#  define PERL_WAIT_FOR_CHILDREN \
    STMT_START {							\
	if (w32_pseudo_children && w32_num_pseudo_children) {		\
	    long children = w32_num_pseudo_children;			\
	    WaitForMultipleObjects(children,				\
				   w32_pseudo_child_handles,		\
				   TRUE, INFINITE);			\
	    while (children)						\
		CloseHandle(w32_pseudo_child_handles[--children]);	\
	}								\
    } STMT_END
#endif

#if defined(USE_FIXED_OSFHANDLE) || defined(PERL_MSVCRT_READFIX)
#ifdef PERL_CORE

/* C doesn't like repeat struct definitions */
#ifndef _CRTIMP
#define _CRTIMP __declspec(dllimport)
#endif

/*
 * Control structure for lowio file handles
 */
typedef struct {
    intptr_t osfhnd;/* underlying OS file HANDLE */
    char osfile;    /* attributes of file (e.g., open in text mode?) */
    char pipech;    /* one char buffer for handles opened on pipes */
    int lockinitflag;
    CRITICAL_SECTION lock;
} ioinfo;


/*
 * Array of arrays of control structures for lowio files.
 */
EXTERN_C _CRTIMP ioinfo* __pioinfo[];

/*
 * Definition of IOINFO_L2E, the log base 2 of the number of elements in each
 * array of ioinfo structs.
 */
#define IOINFO_L2E	    5

/*
 * Definition of IOINFO_ARRAY_ELTS, the number of elements in ioinfo array
 */
#define IOINFO_ARRAY_ELTS   (1 << IOINFO_L2E)

/*
 * Access macros for getting at an ioinfo struct and its fields from a
 * file handle
 */
#define _pioinfo(i) (__pioinfo[(i) >> IOINFO_L2E] + ((i) & (IOINFO_ARRAY_ELTS - 1)))
#define _osfhnd(i)  (_pioinfo(i)->osfhnd)
#define _osfile(i)  (_pioinfo(i)->osfile)
#define _pipech(i)  (_pioinfo(i)->pipech)

/* since we are not doing a dup2(), this works fine */
#define _set_osfhnd(fh, osfh) (void)(_osfhnd(fh) = (intptr_t)osfh)
#endif
#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"

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