[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 PERL_OBJECT
#define ENV_HV_NAME "ENV_HV_NAME"
#define DYNAMIC_ENV_FETCH
#define prime_env_iter()
#ifdef PERL_GLOBAL_STRUCT
#error PERL_GLOBAL_STRUCT cannot be defined with PERL_OBJECT
#endif
#define win32_perllib_path PerlEnv_lib_path
#endif

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

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

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

#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(struct sv *s, 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

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