[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

#ifdef __GNUC__
typedef long long __int64;
#define Win32_Winsock
/* GCC does not do __declspec() - render it a nop 
 * and turn on options to avoid importing data 
 */
#define __declspec(x)
#define PERL_GLOBAL_STRUCT
#define MULTIPLICITY
#ifndef TLS_OUT_OF_INDEXES
#define TLS_OUT_OF_INDEXES (DWORD)0xFFFFFFFF
#endif
#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.
 */

#if defined(PERLDLL) || defined(WIN95FIX)
#define DllExport __declspec(dllexport)
#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. */
#define  index		strchr		/* Why 'index'? */
#endif /*WIN32_LEAN_AND_MEAN */

#include <dirent.h>
#include <io.h>
#include <process.h>
#include <stdio.h>
#include <direct.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 START_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

/* 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 VC's _open_osfhandle() on W95.
 * Can only enable it if not using the DLL CRT (it doesn't expose internals) */
#if defined(_MSC_VER) && !defined(_DLL) && defined(_M_IX86)
#define USE_FIXED_OSFHANDLE
#endif

#define ENV_IS_CASELESS

#ifndef VER_PLATFORM_WIN32_WINDOWS	/* VC-2.0 headers dont have this */
#define VER_PLATFORM_WIN32_WINDOWS	1
#endif

/* Compiler-specific stuff. */

#ifdef __BORLANDC__		/* Borland C++ */

#define _access access
#define _chdir chdir
#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" */

#define USE_RTL_WAIT	/* Borland has a working wait() */

#endif

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

typedef long		uid_t;
typedef long		gid_t;
#pragma  warning(disable: 4018 4035 4101 4102 4244 4245 4761)

#endif /* _MSC_VER */

#ifdef __MINGW32__		/* Minimal Gnu-Win32 */

typedef long		uid_t;
typedef long		gid_t;
#define _environ	environ
#define flushall	_flushall
#define fcloseall	_fcloseall

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

#endif /* __MINGW32__ */

/* compatibility stuff for other compilers goes here */


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

#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(void);
DllExport void		win32_str_os_error(void *sv, DWORD err);

#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		do_exec(char *cmd);
extern char *		win32_perllib_path(char *sfx,...);
extern int		IsWin95(void);
extern int		IsWinNT(void);

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 USE_BINMODE_SCRIPTS
#define PERL_SCRIPT_MODE "rb"
EXT void win32_strip_return(struct sv *sv);
#else
#define PERL_SCRIPT_MODE "r"
#define win32_strip_return(sv) NOOP
#endif

#define HAVE_INTERP_INTERN
struct interp_intern {
    char *	w32_perlshell_tokens;
    char **	w32_perlshell_vec;
    long	w32_perlshell_items;
    struct av *	w32_fdpid;
#ifndef USE_RTL_WAIT
    long	w32_num_children;
    HANDLE	w32_child_pids[MAXIMUM_WAIT_OBJECTS];
#endif
};

#define w32_perlshell_tokens	(sys_intern.w32_perlshell_tokens)
#define w32_perlshell_vec	(sys_intern.w32_perlshell_vec)
#define w32_perlshell_items	(sys_intern.w32_perlshell_items)
#define w32_fdpid		(sys_intern.w32_fdpid)

#ifndef USE_RTL_WAIT
#  define w32_num_children	(sys_intern.w32_num_children)
#  define w32_child_pids	(sys_intern.w32_child_pids)
#endif

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

#ifdef USE_THREADS
#  ifndef USE_DECLSPEC_THREAD
#    define HAVE_THREAD_INTERN

struct thread_intern {
    /* XXX can probably use one buffer instead of several */
    char		Wstrerror_buffer[512];
    struct servent	Wservent;
    char		Wgetlogin_buffer[128];
    char		Ww32_perllib_root[MAX_PATH+1];
#    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
};
#  endif /* !USE_DECLSPEC_THREAD */
#endif /* USE_THREADS */

#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
a835ef8a	12	#ifdef __GNUC__
a835ef8a	13	typedef long long __int64;
a835ef8a	14	#define Win32_Winsock
22239a37	15	/* GCC does not do __declspec() - render it a nop
	16	* and turn on options to avoid importing data
	17	*/
	18	#define __declspec(x)
	19	#define PERL_GLOBAL_STRUCT
	20	#define MULTIPLICITY
d56e6723	21	#ifndef TLS_OUT_OF_INDEXES
	22	#define TLS_OUT_OF_INDEXES (DWORD)0xFFFFFFFF
	23	#endif
a835ef8a	24	#endif
a835ef8a	25
22239a37	26	/* Define DllExport akin to perl's EXT,
	27	* If we are in the DLL or mimicing the DLL for Win95 work round
	28	* then Export the symbol,
	29	* otherwise import it.
	30	*/
	31
	32	#if defined(PERLDLL) \|\| defined(WIN95FIX)
	33	#define DllExport __declspec(dllexport)
	34	#else
	35	#define DllExport __declspec(dllimport)
	36	#endif
c69f112c	37
0a753a76	38	#define WIN32_LEAN_AND_MEAN
	39	#include <windows.h>
	40
68dc0745	41	#ifdef WIN32_LEAN_AND_MEAN /* C file is NOT a Perl5 original. */
	42	#define CONTEXT PERL_CONTEXT /* Avoid conflict of CONTEXT defs. */
	43	#define index strchr /* Why 'index'? */
	44	#endif /WIN32_LEAN_AND_MEAN /
0a753a76	45
	46	#include <dirent.h>
	47	#include <io.h>
	48	#include <process.h>
	49	#include <stdio.h>
	50	#include <direct.h>
390b85e7	51	#include <stdlib.h>
	52	#ifndef EXT
	53	#include "EXTERN.h"
	54	#endif
	55
c69f112c	56	struct tms {
	57	long tms_utime;
	58	long tms_stime;
	59	long tms_cutime;
	60	long tms_cstime;
	61	};
	62
390b85e7	63	#ifndef START_EXTERN_C
	64	#ifdef __cplusplus
	65	# define START_EXTERN_C extern "C" {
	66	# define END_EXTERN_C }
	67	# define EXTERN_C extern "C"
	68	#else
	69	# define START_EXTERN_C
	70	# define END_EXTERN_C
	71	# define EXTERN_C
	72	#endif
	73	#endif
	74
	75	#define STANDARD_C 1
	76	#define DOSISH 1 /* no escaping our roots */
	77	#define OP_BINARY O_BINARY /* mistake in in pp_sys.c? */
0a753a76	78
f3986ebb	79	/* Define USE_SOCKETS_AS_HANDLES to enable emulation of windows sockets as
	80	* real filehandles. XXX Should always be defined (the other version is untested) */
	81	#define USE_SOCKETS_AS_HANDLES
	82
	83	/* if USE_WIN32_RTL_ENV is not defined, Perl uses direct Win32 calls
	84	* to read the environment, bypassing the runtime's (usually broken)
	85	* facilities for accessing the same. See note in util.c/my_setenv(). */
	86	/#define USE_WIN32_RTL_ENV /
0a753a76	87
f3986ebb	88	/* Define USE_FIXED_OSFHANDLE to fix VC's _open_osfhandle() on W95.
	89	* Can only enable it if not using the DLL CRT (it doesn't expose internals) */
	90	#if defined(_MSC_VER) && !defined(_DLL) && defined(_M_IX86)
	91	#define USE_FIXED_OSFHANDLE
	92	#endif
	93
902173a3	94	#define ENV_IS_CASELESS
902173a3	95
f3986ebb	96	#ifndef VER_PLATFORM_WIN32_WINDOWS /* VC-2.0 headers dont have this */
	97	#define VER_PLATFORM_WIN32_WINDOWS 1
	98	#endif
	99
	100	/* Compiler-specific stuff. */
	101
910dfcc8	102	#ifdef __BORLANDC__ /* Borland C++ */
3e3baf6d	103
	104	#define _access access
	105	#define _chdir chdir
	106	#include <sys/types.h>
	107
84902520	108	#ifndef DllMain
	109	#define DllMain DllEntryPoint
	110	#endif
	111
189b2af5	112	#pragma warn -ccc /* "condition is always true/false" */
	113	#pragma warn -rch /* "unreachable code" */
	114	#pragma warn -sig /* "conversion may lose significant digits" */
	115	#pragma warn -pia /* "possibly incorrect assignment" */
	116	#pragma warn -par /* "parameter 'foo' is never used" */
	117	#pragma warn -aus /* "'foo' is assigned a value that is never used" */
	118	#pragma warn -use /* "'foo' is declared but never used" */
	119	#pragma warn -csu /* "comparing signed and unsigned values" */
	120	#pragma warn -pro /* "call to function with no prototype" */
3e3baf6d	121
4b556e6c	122	#define USE_RTL_WAIT /* Borland has a working wait() */
4b556e6c	123
910dfcc8	124	#endif
3e3baf6d	125
f3986ebb	126	#ifdef _MSC_VER /* Microsoft Visual C++ */
f3986ebb	127
0a753a76	128	typedef long uid_t;
0a753a76	129	typedef long gid_t;
f3986ebb	130	#pragma warning(disable: 4018 4035 4101 4102 4244 4245 4761)
	131
	132	#endif /* _MSC_VER */
	133
910dfcc8	134	#ifdef __MINGW32__ /* Minimal Gnu-Win32 */
	135
	136	typedef long uid_t;
	137	typedef long gid_t;
3730b96e	138	#define _environ environ
	139	#define flushall _flushall
	140	#define fcloseall _fcloseall
910dfcc8	141
e56670dd	142	#ifndef _O_NOINHERIT
	143	# define _O_NOINHERIT 0x0080
	144	# ifndef _NO_OLDNAMES
	145	# define O_NOINHERIT _O_NOINHERIT
	146	# endif
	147	#endif
	148
910dfcc8	149	#endif /* __MINGW32__ */
910dfcc8	150
f3986ebb	151	/* compatibility stuff for other compilers goes here */
0a753a76	152
0a753a76	153
390b85e7	154	START_EXTERN_C
f3986ebb	155
	156	/* For UNIX compatibility. */
	157
0a753a76	158	extern uid_t getuid(void);
	159	extern gid_t getgid(void);
	160	extern uid_t geteuid(void);
	161	extern gid_t getegid(void);
0a753a76	162	extern int setuid(uid_t uid);
	163	extern int setgid(gid_t gid);
	164	extern int kill(int pid, int sig);
161b471a	165	extern void *sbrk(int need);
e34ffe5a	166	extern char * getlogin(void);
b990f8c8	167	extern int chown(const char *p, uid_t o, gid_t g);
d55594ae	168
f3986ebb	169	#undef Stat
f3986ebb	170	#define Stat win32_stat
3e3baf6d	171
f3986ebb	172	#undef init_os_extras
f3986ebb	173	#define init_os_extras Perl_init_os_extras
390b85e7	174
22239a37	175	DllExport void Perl_win32_init(int argcp, char **argvp);
22239a37	176	DllExport void Perl_init_os_extras(void);
3730b96e	177	DllExport void win32_str_os_error(void *sv, DWORD err);
0551aaa8	178
f3986ebb	179	#ifndef USE_SOCKETS_AS_HANDLES
f3986ebb	180	extern FILE * my_fdopen(int, char *);
d55594ae	181	#endif
f3986ebb	182	extern int my_fclose(FILE *);
2d7a9237	183	extern int do_aspawn(void really, void mark, void *sp);
f3986ebb	184	extern int do_spawn(char *cmd);
2d7a9237	185	extern int do_spawn_nowait(char *cmd);
f3986ebb	186	extern char do_exec(char *cmd);
2d7a9237	187	extern char * win32_perllib_path(char *sfx,...);
f3986ebb	188	extern int IsWin95(void);
f3986ebb	189	extern int IsWinNT(void);
d55594ae	190
f3986ebb	191	extern char * staticlinkmodules[];
390b85e7	192
390b85e7	193	END_EXTERN_C
d55594ae	194
68dc0745	195	typedef char * caddr_t; /* In malloc.c (core address). */
0a753a76	196
68dc0745	197	/*
68dc0745	198	* handle socket stuff, assuming socket is always available
68dc0745	199	*/
0a753a76	200	#include <sys/socket.h>
	201	#include <netdb.h>
	202
bbc8f9de	203	#ifdef MYMALLOC
	204	#define EMBEDMYMALLOC /**/
	205	/* #define USE_PERL_SBRK /**/
	206	/* #define PERL_SBRK_VIA_MALLOC /**/
	207	#endif
	208
c31fac66	209	#if defined(PERLDLL) && !defined(PERL_CORE)
bbc8f9de	210	#define PERL_CORE
	211	#endif
	212
a868473f	213	#ifdef USE_BINMODE_SCRIPTS
	214	#define PERL_SCRIPT_MODE "rb"
	215	EXT void win32_strip_return(struct sv *sv);
	216	#else
	217	#define PERL_SCRIPT_MODE "r"
	218	#define win32_strip_return(sv) NOOP
	219	#endif
	220
4b556e6c	221	#define HAVE_INTERP_INTERN
	222	struct interp_intern {
	223	char * w32_perlshell_tokens;
	224	char ** w32_perlshell_vec;
	225	long w32_perlshell_items;
	226	struct av * w32_fdpid;
	227	#ifndef USE_RTL_WAIT
	228	long w32_num_children;
	229	HANDLE w32_child_pids[MAXIMUM_WAIT_OBJECTS];
	230	#endif
	231	};
	232
9f699bd9	233	#define w32_perlshell_tokens (sys_intern.w32_perlshell_tokens)
	234	#define w32_perlshell_vec (sys_intern.w32_perlshell_vec)
	235	#define w32_perlshell_items (sys_intern.w32_perlshell_items)
	236	#define w32_fdpid (sys_intern.w32_fdpid)
4b556e6c	237
4b556e6c	238	#ifndef USE_RTL_WAIT
9f699bd9	239	# define w32_num_children (sys_intern.w32_num_children)
9f699bd9	240	# define w32_child_pids (sys_intern.w32_child_pids)
4b556e6c	241	#endif
4b556e6c	242
c53bd28a	243	/*
	244	* Now Win32 specific per-thread data stuff
	245	*/
	246
	247	#ifdef USE_THREADS
e34ffe5a	248	# ifndef USE_DECLSPEC_THREAD
	249	# define HAVE_THREAD_INTERN
	250
	251	struct thread_intern {
	252	/* XXX can probably use one buffer instead of several */
	253	char Wstrerror_buffer[512];
	254	struct servent Wservent;
	255	char Wgetlogin_buffer[128];
4b556e6c	256	char Ww32_perllib_root[MAX_PATH+1];
401ef382	257	# ifdef USE_SOCKETS_AS_HANDLES
	258	int Winit_socktype;
	259	# endif
e34ffe5a	260	# ifdef HAVE_DES_FCRYPT
	261	char Wcrypt_buffer[30];
	262	# endif
2d7a9237	263	# ifdef USE_RTL_THREAD_API
	264	void * retv; /* slot for thread return value */
	265	# endif
c53bd28a	266	};
e34ffe5a	267	# endif /* !USE_DECLSPEC_THREAD */
e34ffe5a	268	#endif /* USE_THREADS */
c53bd28a	269
68dc0745	270	#endif /* _INC_WIN32_PERL5 */