[p5sagit/p5-mst-13.2.git] / win32 / win32.h

/* 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_OBJECT) || defined(PERL_IMPLICIT_SYS) || defined(PERL_CAPI)
#  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(PERL_OBJECT)
#define DllExport
#else
#if defined(PERLDLL) || defined(WIN95FIX)
#define DllExport
/*#define DllExport __declspec(dllexport)*/	/* noises with VC5+sp3 */
#else 
#define DllExport __declspec(dllimport)
#endif
#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>
#include <io.h>
#include <process.h>
#include <stdio.h>
#include <direct.h>
#include <stdlib.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 */

/* 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 PERL_WIN32_SOCK_DLOAD to have Perl dynamically load the winsock
   DLL when needed. Don't use if your compiler supports delayloading (ie, VC++ 6.0)
	-- BKS 5-29-2000 */
#if !(defined(_M_IX86) && _MSC_VER >= 1200)
#define PERL_WIN32_SOCK_DLOAD
#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

/* for waitpid() */
#ifndef WNOHANG
#  define WNOHANG	1
#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 is picky about a bare member function name used as its ptr */
#ifdef PERL_OBJECT
#  define MEMBER_TO_FPTR(name)	&(name)
#endif

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

#define isnan		_isnan

#endif

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

typedef long		uid_t;
typedef long		gid_t;
typedef unsigned short	mode_t;
#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

#define isnan		_isnan

#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
#define isnan		_isnan	/* ...same libraries as MSVC */

#ifdef PERL_OBJECT
#  define MEMBER_TO_FPTR(name)	&(name)
#endif

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

#endif /* __MINGW32__ */

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


#if !defined(PERL_OBJECT) && defined(PERL_CAPI) && defined(PERL_MEMBER_PTR_SIZE)
#  define STRUCT_MGVTBL_DEFINITION \
struct mgvtbl {								\
    union {								\
	int	    (CPERLscope(*svt_get))(pTHX_ SV *sv, MAGIC* mg);	\
	char	    handle_VC_problem1[PERL_MEMBER_PTR_SIZE];		\
    };									\
    union {								\
	int	    (CPERLscope(*svt_set))(pTHX_ SV *sv, MAGIC* mg);	\
	char	    handle_VC_problem2[PERL_MEMBER_PTR_SIZE];		\
    };									\
    union {								\
	U32	    (CPERLscope(*svt_len))(pTHX_ SV *sv, MAGIC* mg);	\
	char	    handle_VC_problem3[PERL_MEMBER_PTR_SIZE];		\
    };									\
    union {								\
	int	    (CPERLscope(*svt_clear))(pTHX_ SV *sv, MAGIC* mg);	\
	char	    handle_VC_problem4[PERL_MEMBER_PTR_SIZE];		\
    };									\
    union {								\
	int	    (CPERLscope(*svt_free))(pTHX_ SV *sv, MAGIC* mg);	\
	char	    handle_VC_problem5[PERL_MEMBER_PTR_SIZE];		\
    };									\
}

#  define BASEOP_DEFINITION \
    OP*		op_next;						\
    OP*		op_sibling;						\
    OP*		(CPERLscope(*op_ppaddr))(pTHX);				\
    char	handle_VC_problem[PERL_MEMBER_PTR_SIZE-sizeof(OP*)];	\
    PADOFFSET	op_targ;						\
    OPCODE	op_type;						\
    U16		op_seq;							\
    U8		op_flags;						\
    U8		op_private;

#endif /* !PERL_OBJECT && PERL_CAPI && PERL_MEMBER_PTR_SIZE */


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  void	*sbrk(int need);
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_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

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

#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

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

#ifdef USE_THREADS
#  ifndef USE_DECLSPEC_THREAD
#    define HAVE_THREAD_INTERN
#  endif /* !USE_DECLSPEC_THREAD */
#endif /* USE_THREADS */

#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;
#ifndef USE_THREADS
    struct thread_intern	thr_intern;
#endif
};


#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)
#ifdef USE_THREADS
#  define w32_strerror_buffer	(thr->i.Wstrerror_buffer)
#  define w32_getlogin_buffer	(thr->i.Wgetlogin_buffer)
#  define w32_crypt_buffer	(thr->i.Wcrypt_buffer)
#  define w32_servent		(thr->i.Wservent)
#  define w32_init_socktype	(thr->i.Winit_socktype)
#else
#  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)
#endif /* USE_THREADS */

/* 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_BYTE) ? 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_BYTE) ? 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() (PL_widesyscalls && PerlEnv_os_id() == VER_PLATFORM_WIN32_NT)

#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 {
    long 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) = (long)osfh)
#endif
#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
68dc0745	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	*/
0a753a76	9	#ifndef _INC_WIN32_PERL5
	10	#define _INC_WIN32_PERL5
	11
5db10396	12	#ifndef _WIN32_WINNT
	13	# define _WIN32_WINNT 0x0400 /* needed for TryEnterCriticalSection() etc. */
	14	#endif
638eceb6	15
32e30700	16	#if defined(PERL_OBJECT) \|\| defined(PERL_IMPLICIT_SYS) \|\| defined(PERL_CAPI)
e9ee4811	17	# define DYNAMIC_ENV_FETCH
e9ee4811	18	# define ENV_HV_NAME "___ENV_HV_NAME___"
a6c40364	19	# define HAS_GETENV_LEN
e9ee4811	20	# define prime_env_iter()
ab39fa9d	21	# define WIN32IO_IS_STDIO /* don't pull in custom stdio layer */
c5be433b	22	# define WIN32SCK_IS_STDSCK /* don't pull in custom wsock layer */
ab39fa9d	23	# ifdef PERL_GLOBAL_STRUCT
32e30700	24	# error PERL_GLOBAL_STRUCT cannot be defined with PERL_IMPLICIT_SYS
ab39fa9d	25	# endif
e5a95ffb	26	# define win32_get_privlib PerlEnv_lib_path
ab39fa9d	27	# define win32_get_sitelib PerlEnv_sitelib_path
4ea817c6	28	# define win32_get_vendorlib PerlEnv_vendorlib_path
9d8a25dc	29	#endif
9d8a25dc	30
a835ef8a	31	#ifdef __GNUC__
b7c82df9	32	# ifndef __int64 /* some versions seem to #define it already */
	33	# define __int64 long long
	34	# endif
db15561c	35	# define Win32_Winsock
a835ef8a	36	#endif
a835ef8a	37
22239a37	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
5db10396	44	/* now even GCC supports __declspec() */
5db10396	45
c69f6586	46	#if defined(PERL_OBJECT)
	47	#define DllExport
	48	#else
22239a37	49	#if defined(PERLDLL) \|\| defined(WIN95FIX)
852c2e52	50	#define DllExport
852c2e52	51	/#define DllExport __declspec(dllexport)/ /* noises with VC5+sp3 */
22239a37	52	#else
	53	#define DllExport __declspec(dllimport)
	54	#endif
c69f6586	55	#endif
c69f112c	56
0a753a76	57	#define WIN32_LEAN_AND_MEAN
	58	#include <windows.h>
	59
68dc0745	60	#ifdef WIN32_LEAN_AND_MEAN /* C file is NOT a Perl5 original. */
68dc0745	61	#define CONTEXT PERL_CONTEXT /* Avoid conflict of CONTEXT defs. */
68dc0745	62	#endif /WIN32_LEAN_AND_MEAN /
0a753a76	63
eda5ff31	64	#ifndef TLS_OUT_OF_INDEXES
	65	#define TLS_OUT_OF_INDEXES (DWORD)0xFFFFFFFF
	66	#endif
	67
0a753a76	68	#include <dirent.h>
	69	#include <io.h>
	70	#include <process.h>
	71	#include <stdio.h>
	72	#include <direct.h>
390b85e7	73	#include <stdlib.h>
7a1f88ac	74	#include <fcntl.h>
390b85e7	75	#ifndef EXT
	76	#include "EXTERN.h"
	77	#endif
	78
c69f112c	79	struct tms {
	80	long tms_utime;
	81	long tms_stime;
	82	long tms_cutime;
	83	long tms_cstime;
	84	};
	85
b2af26b1	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
390b85e7	98	#ifndef START_EXTERN_C
b3e5c95e	99	#undef EXTERN_C
390b85e7	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? */
0a753a76	114
f3986ebb	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
a7092146	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
682fc664	123	#define PERL_NO_FORCE_LINK /* no need for PL_force_link_funcs */
a7092146	124
f3986ebb	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 /
0a753a76	129
9e5f57de	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__)
f3986ebb	135	#define USE_FIXED_OSFHANDLE
	136	#endif
	137
6940069f	138	/* Define PERL_WIN32_SOCK_DLOAD to have Perl dynamically load the winsock
	139	DLL when needed. Don't use if your compiler supports delayloading (ie, VC++ 6.0)
	140	-- BKS 5-29-2000 */
	141	#if !(defined(_M_IX86) && _MSC_VER >= 1200)
	142	#define PERL_WIN32_SOCK_DLOAD
	143	#endif
902173a3	144	#define ENV_IS_CASELESS
902173a3	145
d41de25a	146	#ifndef VER_PLATFORM_WIN32_WINDOWS /* VC-2.0 headers don't have this */
f3986ebb	147	#define VER_PLATFORM_WIN32_WINDOWS 1
	148	#endif
	149
d41de25a	150	#ifndef FILE_SHARE_DELETE /* VC-4.0 headers don't have this */
	151	#define FILE_SHARE_DELETE 0x00000004
	152	#endif
	153
327c3667	154	/* access() mode bits */
	155	#ifndef R_OK
	156	# define R_OK 4
	157	# define W_OK 2
	158	# define X_OK 1
	159	# define F_OK 0
	160	#endif
	161
cc236deb	162	/* for waitpid() */
	163	#ifndef WNOHANG
	164	# define WNOHANG 1
	165	#endif
	166
c44d3fdb	167	#define PERL_GET_CONTEXT_DEFINED
c44d3fdb	168
f3986ebb	169	/* Compiler-specific stuff. */
f3986ebb	170
910dfcc8	171	#ifdef __BORLANDC__ /* Borland C++ */
3e3baf6d	172
	173	#define _access access
	174	#define _chdir chdir
4ce4f76e	175	#define _getpid getpid
26871e0a	176	#define wcsicmp _wcsicmp
3e3baf6d	177	#include <sys/types.h>
3e3baf6d	178
84902520	179	#ifndef DllMain
	180	#define DllMain DllEntryPoint
	181	#endif
	182
189b2af5	183	#pragma warn -ccc /* "condition is always true/false" */
	184	#pragma warn -rch /* "unreachable code" */
	185	#pragma warn -sig /* "conversion may lose significant digits" */
	186	#pragma warn -pia /* "possibly incorrect assignment" */
	187	#pragma warn -par /* "parameter 'foo' is never used" */
	188	#pragma warn -aus /* "'foo' is assigned a value that is never used" */
	189	#pragma warn -use /* "'foo' is declared but never used" */
	190	#pragma warn -csu /* "comparing signed and unsigned values" */
	191	#pragma warn -pro /* "call to function with no prototype" */
327c3667	192	#pragma warn -stu /* "undefined structure 'foo'" */
3e3baf6d	193
ac4c12e7	194	/* Borland is picky about a bare member function name used as its ptr */
ac4c12e7	195	#ifdef PERL_OBJECT
0b94c7bb	196	# define MEMBER_TO_FPTR(name) &(name)
ac4c12e7	197	#endif
ac4c12e7	198
cd183fd9	199	/* Borland C thinks that a pointer to a member variable is 12 bytes in size. */
	200	#define PERL_MEMBER_PTR_SIZE 12
	201
1307044d	202	#define isnan _isnan
1307044d	203
910dfcc8	204	#endif
3e3baf6d	205
f3986ebb	206	#ifdef _MSC_VER /* Microsoft Visual C++ */
f3986ebb	207
0a753a76	208	typedef long uid_t;
0a753a76	209	typedef long gid_t;
a6c40364	210	typedef unsigned short mode_t;
f3986ebb	211	#pragma warning(disable: 4018 4035 4101 4102 4244 4245 4761)
f3986ebb	212
0f4eea8f	213	/* Visual C thinks that a pointer to a member variable is 16 bytes in size. */
cd183fd9	214	#define PERL_MEMBER_PTR_SIZE 16
0f4eea8f	215
5fb4d820	216	#define isnan _isnan
5fb4d820	217
f3986ebb	218	#endif /* _MSC_VER */
f3986ebb	219
910dfcc8	220	#ifdef __MINGW32__ /* Minimal Gnu-Win32 */
	221
	222	typedef long uid_t;
	223	typedef long gid_t;
b1d1613b	224	#ifndef _environ
3730b96e	225	#define _environ environ
b1d1613b	226	#endif
3730b96e	227	#define flushall _flushall
3730b96e	228	#define fcloseall _fcloseall
6940069f	229	#define isnan _isnan /* ...same libraries as MSVC */
910dfcc8	230
db15561c	231	#ifdef PERL_OBJECT
0b94c7bb	232	# define MEMBER_TO_FPTR(name) &(name)
db15561c	233	#endif
db15561c	234
ac4c12e7	235	#ifndef _O_NOINHERIT
	236	# define _O_NOINHERIT 0x0080
	237	# ifndef _NO_OLDNAMES
	238	# define O_NOINHERIT _O_NOINHERIT
	239	# endif
	240	#endif
	241
910dfcc8	242	#endif /* __MINGW32__ */
910dfcc8	243
f8fb7c90	244	/* both GCC/Mingw32 and MSVC++ 4.0 are missing this, so we put it here */
	245	#ifndef CP_UTF8
	246	# define CP_UTF8 65001
	247	#endif
	248
f3986ebb	249	/* compatibility stuff for other compilers goes here */
0a753a76	250
0a753a76	251
dfdd1393	252	#if !defined(PERL_OBJECT) && defined(PERL_CAPI) && defined(PERL_MEMBER_PTR_SIZE)
cd183fd9	253	# define STRUCT_MGVTBL_DEFINITION \
	254	struct mgvtbl { \
	255	union { \
	256	int (CPERLscope(svt_get))(pTHX_ SV sv, MAGIC* mg); \
	257	char handle_VC_problem1[PERL_MEMBER_PTR_SIZE]; \
	258	}; \
	259	union { \
	260	int (CPERLscope(svt_set))(pTHX_ SV sv, MAGIC* mg); \
	261	char handle_VC_problem2[PERL_MEMBER_PTR_SIZE]; \
	262	}; \
	263	union { \
	264	U32 (CPERLscope(svt_len))(pTHX_ SV sv, MAGIC* mg); \
	265	char handle_VC_problem3[PERL_MEMBER_PTR_SIZE]; \
	266	}; \
	267	union { \
	268	int (CPERLscope(svt_clear))(pTHX_ SV sv, MAGIC* mg); \
	269	char handle_VC_problem4[PERL_MEMBER_PTR_SIZE]; \
	270	}; \
	271	union { \
	272	int (CPERLscope(svt_free))(pTHX_ SV sv, MAGIC* mg); \
	273	char handle_VC_problem5[PERL_MEMBER_PTR_SIZE]; \
	274	}; \
	275	}
	276
	277	# define BASEOP_DEFINITION \
	278	OP* op_next; \
	279	OP* op_sibling; \
	280	OP* (CPERLscope(*op_ppaddr))(pTHX); \
	281	char handle_VC_problem[PERL_MEMBER_PTR_SIZE-sizeof(OP*)]; \
	282	PADOFFSET op_targ; \
	283	OPCODE op_type; \
	284	U16 op_seq; \
	285	U8 op_flags; \
	286	U8 op_private;
	287
dfdd1393	288	#endif /* !PERL_OBJECT && PERL_CAPI && PERL_MEMBER_PTR_SIZE */
cd183fd9	289
cd183fd9	290
390b85e7	291	START_EXTERN_C
f3986ebb	292
	293	/* For UNIX compatibility. */
	294
0a753a76	295	extern uid_t getuid(void);
	296	extern gid_t getgid(void);
	297	extern uid_t geteuid(void);
	298	extern gid_t getegid(void);
0a753a76	299	extern int setuid(uid_t uid);
	300	extern int setgid(gid_t gid);
	301	extern int kill(int pid, int sig);
161b471a	302	extern void *sbrk(int need);
e34ffe5a	303	extern char * getlogin(void);
b990f8c8	304	extern int chown(const char *p, uid_t o, gid_t g);
00b02797	305	extern int mkstemp(const char *path);
d55594ae	306
f3986ebb	307	#undef Stat
f3986ebb	308	#define Stat win32_stat
3e3baf6d	309
f3986ebb	310	#undef init_os_extras
f3986ebb	311	#define init_os_extras Perl_init_os_extras
390b85e7	312
22239a37	313	DllExport void Perl_win32_init(int argcp, char **argvp);
c5be433b	314	DllExport void Perl_init_os_extras();
	315	DllExport void win32_str_os_error(void *sv, DWORD err);
	316	DllExport int RunPerl(int argc, char argv, char env);
0551aaa8	317
635bbe87	318	typedef struct {
	319	HANDLE childStdIn;
	320	HANDLE childStdOut;
	321	HANDLE childStdErr;
f83751a7	322	/*
	323	* the following correspond to the fields of the same name
	324	* in the STARTUPINFO structure. Embedders can use these to
	325	* control the spawning process' look.
	326	* Example - to hide the window of the spawned process:
	327	* dwFlags = STARTF_USESHOWWINDOW;
	328	* wShowWindow = SW_HIDE;
	329	*/
	330	DWORD dwFlags;
	331	DWORD dwX;
	332	DWORD dwY;
	333	DWORD dwXSize;
	334	DWORD dwYSize;
	335	DWORD dwXCountChars;
	336	DWORD dwYCountChars;
	337	DWORD dwFillAttribute;
	338	WORD wShowWindow;
635bbe87	339	} child_IO_table;
	340
	341	DllExport void win32_get_child_IO(child_IO_table* ptr);
	342
f3986ebb	343	#ifndef USE_SOCKETS_AS_HANDLES
f3986ebb	344	extern FILE * my_fdopen(int, char *);
d55594ae	345	#endif
f3986ebb	346	extern int my_fclose(FILE *);
c5be433b	347	extern int do_aspawn(void really, void mark, void *sp);
	348	extern int do_spawn(char *cmd);
	349	extern int do_spawn_nowait(char *cmd);
4ea817c6	350	extern char * win32_get_privlib(const char *pl);
	351	extern char * win32_get_sitelib(const char *pl);
	352	extern char * win32_get_vendorlib(const char *pl);
f3986ebb	353	extern int IsWin95(void);
f3986ebb	354	extern int IsWinNT(void);
c0932edc	355	extern void win32_argv2utf8(int argc, char** argv);
d55594ae	356
1c0ca838	357	#ifdef PERL_IMPLICIT_SYS
	358	extern void win32_delete_internal_host(void *h);
	359	#endif
	360
f3986ebb	361	extern char * staticlinkmodules[];
390b85e7	362
390b85e7	363	END_EXTERN_C
d55594ae	364
68dc0745	365	typedef char * caddr_t; /* In malloc.c (core address). */
0a753a76	366
68dc0745	367	/*
68dc0745	368	* handle socket stuff, assuming socket is always available
68dc0745	369	*/
0a753a76	370	#include <sys/socket.h>
	371	#include <netdb.h>
	372
bbc8f9de	373	#ifdef MYMALLOC
	374	#define EMBEDMYMALLOC /**/
	375	/* #define USE_PERL_SBRK /**/
	376	/* #define PERL_SBRK_VIA_MALLOC /**/
	377	#endif
	378
c31fac66	379	#if defined(PERLDLL) && !defined(PERL_CORE)
bbc8f9de	380	#define PERL_CORE
	381	#endif
	382
e68cb057	383	#ifdef PERL_TEXTMODE_SCRIPTS
c39cd008	384	# define PERL_SCRIPT_MODE "r"
a868473f	385	#else
c39cd008	386	# define PERL_SCRIPT_MODE "rb"
a868473f	387	#endif
a868473f	388
3352bfcb	389	/*
	390	* Now Win32 specific per-thread data stuff
	391	*/
	392
	393	struct thread_intern {
	394	/* XXX can probably use one buffer instead of several */
	395	char Wstrerror_buffer[512];
	396	struct servent Wservent;
	397	char Wgetlogin_buffer[128];
	398	# ifdef USE_SOCKETS_AS_HANDLES
	399	int Winit_socktype;
	400	# endif
	401	# ifdef HAVE_DES_FCRYPT
	402	char Wcrypt_buffer[30];
	403	# endif
	404	# ifdef USE_RTL_THREAD_API
	405	void * retv; /* slot for thread return value */
	406	# endif
	407	};
	408
	409	#ifdef USE_THREADS
	410	# ifndef USE_DECLSPEC_THREAD
	411	# define HAVE_THREAD_INTERN
	412	# endif /* !USE_DECLSPEC_THREAD */
	413	#endif /* USE_THREADS */
	414
4b556e6c	415	#define HAVE_INTERP_INTERN
0aaad0ff	416	typedef struct {
	417	long num;
	418	DWORD pids[MAXIMUM_WAIT_OBJECTS];
7766f137	419	HANDLE handles[MAXIMUM_WAIT_OBJECTS];
0aaad0ff	420	} child_tab;
0aaad0ff	421
4b556e6c	422	struct interp_intern {
0aaad0ff	423	char * perlshell_tokens;
	424	char ** perlshell_vec;
	425	long perlshell_items;
	426	struct av * fdpid;
	427	child_tab * children;
7766f137	428	#ifdef USE_ITHREADS
	429	DWORD pseudo_id;
	430	child_tab * pseudo_children;
	431	#endif
	432	void * internal_host;
3352bfcb	433	#ifndef USE_THREADS
	434	struct thread_intern thr_intern;
	435	#endif
4b556e6c	436	};
4b556e6c	437
4b556e6c	438
0aaad0ff	439	#define w32_perlshell_tokens (PL_sys_intern.perlshell_tokens)
	440	#define w32_perlshell_vec (PL_sys_intern.perlshell_vec)
	441	#define w32_perlshell_items (PL_sys_intern.perlshell_items)
	442	#define w32_fdpid (PL_sys_intern.fdpid)
	443	#define w32_children (PL_sys_intern.children)
	444	#define w32_num_children (w32_children->num)
	445	#define w32_child_pids (w32_children->pids)
7766f137	446	#define w32_child_handles (w32_children->handles)
	447	#define w32_pseudo_id (PL_sys_intern.pseudo_id)
	448	#define w32_pseudo_children (PL_sys_intern.pseudo_children)
	449	#define w32_num_pseudo_children (w32_pseudo_children->num)
	450	#define w32_pseudo_child_pids (w32_pseudo_children->pids)
	451	#define w32_pseudo_child_handles (w32_pseudo_children->handles)
	452	#define w32_internal_host (PL_sys_intern.internal_host)
c53bd28a	453	#ifdef USE_THREADS
3352bfcb	454	# define w32_strerror_buffer (thr->i.Wstrerror_buffer)
	455	# define w32_getlogin_buffer (thr->i.Wgetlogin_buffer)
	456	# define w32_crypt_buffer (thr->i.Wcrypt_buffer)
	457	# define w32_servent (thr->i.Wservent)
	458	# define w32_init_socktype (thr->i.Winit_socktype)
	459	#else
	460	# define w32_strerror_buffer (PL_sys_intern.thr_intern.Wstrerror_buffer)
	461	# define w32_getlogin_buffer (PL_sys_intern.thr_intern.Wgetlogin_buffer)
	462	# define w32_crypt_buffer (PL_sys_intern.thr_intern.Wcrypt_buffer)
	463	# define w32_servent (PL_sys_intern.thr_intern.Wservent)
	464	# define w32_init_socktype (PL_sys_intern.thr_intern.Winit_socktype)
e34ffe5a	465	#endif /* USE_THREADS */
c53bd28a	466
7fac1903	467	/* UNICODE<>ANSI translation helpers */
	468	/* Use CP_ACP when mode is ANSI */
	469	/* Use CP_UTF8 when mode is UTF8 */
	470
e9ff6d27	471	#define A2WHELPER_LEN(lpa, alen, lpw, nBytes)\
	472	(lpw[0] = 0, MultiByteToWideChar((IN_BYTE) ? CP_ACP : CP_UTF8, 0, \
	473	lpa, alen, lpw, (nBytes/sizeof(WCHAR))))
	474	#define A2WHELPER(lpa, lpw, nBytes) A2WHELPER_LEN(lpa, -1, lpw, nBytes)
	475
	476	#define W2AHELPER_LEN(lpw, wlen, lpa, nChars)\
	477	(lpa[0] = '\0', WideCharToMultiByte((IN_BYTE) ? CP_ACP : CP_UTF8, 0, \
	478	lpw, wlen, (LPSTR)lpa, nChars,NULL,NULL))
	479	#define W2AHELPER(lpw, lpa, nChars) W2AHELPER_LEN(lpw, -1, lpa, nChars)
7fac1903	480
46487f74	481	#define USING_WIDE() (PL_widesyscalls && PerlEnv_os_id() == VER_PLATFORM_WIN32_NT)
7fac1903	482
7766f137	483	#ifdef USE_ITHREADS
	484	# define PERL_WAIT_FOR_CHILDREN \
	485	STMT_START { \
	486	if (w32_pseudo_children && w32_num_pseudo_children) { \
	487	long children = w32_num_pseudo_children; \
	488	WaitForMultipleObjects(children, \
	489	w32_pseudo_child_handles, \
	490	TRUE, INFINITE); \
	491	while (children) \
	492	CloseHandle(w32_pseudo_child_handles[--children]); \
	493	} \
	494	} STMT_END
	495	#endif
	496
a10b7b7e	497	#if defined(USE_FIXED_OSFHANDLE) \|\| defined(PERL_MSVCRT_READFIX)
	498	#ifdef PERL_CORE
	499
	500	/* C doesn't like repeat struct definitions */
	501	#ifndef _CRTIMP
	502	#define _CRTIMP __declspec(dllimport)
	503	#endif
	504
	505	/*
	506	* Control structure for lowio file handles
	507	*/
	508	typedef struct {
	509	long osfhnd; /* underlying OS file HANDLE */
	510	char osfile; /* attributes of file (e.g., open in text mode?) */
	511	char pipech; /* one char buffer for handles opened on pipes */
	512	int lockinitflag;
	513	CRITICAL_SECTION lock;
	514	} ioinfo;
	515
	516
	517	/*
	518	* Array of arrays of control structures for lowio files.
	519	*/
	520	EXTERN_C _CRTIMP ioinfo* __pioinfo[];
	521
	522	/*
	523	* Definition of IOINFO_L2E, the log base 2 of the number of elements in each
	524	* array of ioinfo structs.
	525	*/
	526	#define IOINFO_L2E 5
	527
	528	/*
	529	* Definition of IOINFO_ARRAY_ELTS, the number of elements in ioinfo array
	530	*/
	531	#define IOINFO_ARRAY_ELTS (1 << IOINFO_L2E)
	532
	533	/*
	534	* Access macros for getting at an ioinfo struct and its fields from a
	535	* file handle
	536	*/
	537	#define _pioinfo(i) (__pioinfo[(i) >> IOINFO_L2E] + ((i) & (IOINFO_ARRAY_ELTS - 1)))
	538	#define _osfhnd(i) (_pioinfo(i)->osfhnd)
	539	#define _osfile(i) (_pioinfo(i)->osfile)
	540	#define _pipech(i) (_pioinfo(i)->pipech)
	541
	542	/* since we are not doing a dup2(), this works fine */
	543	#define _set_osfhnd(fh, osfh) (void)(_osfhnd(fh) = (long)osfh)
	544	#endif
	545	#endif
	546
adb71456	547	#define PERLIO_NOT_STDIO 0
	548
	549	#include "perlio.h"
	550
4f63d024	551	/*
	552	* This provides a layer of functions and macros to ensure extensions will
	553	* get to use the same RTL functions as the core.
	554	*/
	555	#include "win32iop.h"
	556
68dc0745	557	#endif /* _INC_WIN32_PERL5 */
7a9ec5a3	558