[perl5.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

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

/* For UNIX compatibility. */

typedef long		uid_t;
typedef long		gid_t;

extern  char	*staticlinkmodules[];

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

#define USE_SOCKETS_AS_HANDLES
#ifndef USE_SOCKETS_AS_HANDLES
extern FILE *myfdopen(int, char *);

#undef fdopen
#define fdopen myfdopen
#endif	/* USE_SOCKETS_AS_HANDLES */

#define  STANDARD_C	1		/* Perl5 likes standard C. */
#define  DOSISH		1		/* Take advantage of DOSish code in Perl5. */

#define  OP_BINARY	_O_BINARY	/* Mistake in in pp_sys.c. */

#undef	 pipe
#define  pipe(fd)	win32_pipe((fd), 512, _O_BINARY) /* the pipe call is a bit different */

#undef	 pause
#define  pause()	sleep((32767L << 16) + 32767)


#undef	 times
#define  times	mytimes

#undef	 alarm
#define  alarm	myalarm

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

unsigned int sleep(unsigned int);
char *win32PerlLibPath();
int mytimes(struct tms *timebuf);
unsigned int myalarm(unsigned int sec);
int do_aspawn(void* really, void** mark, void** arglast);
int do_spawn(char *cmd);

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

/*
 * Extension Library, only good for VC
 */

#define DllExport	__declspec(dllexport)

/*
 * handle socket stuff, assuming socket is always available
 */

#include <sys/socket.h>
#include <netdb.h>

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

int IsWin95(void);
int IsWinNT(void);

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

#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
	12	#define WIN32_LEAN_AND_MEAN
	13	#include <windows.h>
	14
68dc0745	15	#ifdef WIN32_LEAN_AND_MEAN /* C file is NOT a Perl5 original. */
	16	#define CONTEXT PERL_CONTEXT /* Avoid conflict of CONTEXT defs. */
	17	#define index strchr /* Why 'index'? */
	18	#endif /WIN32_LEAN_AND_MEAN /
0a753a76	19
	20	#include <dirent.h>
	21	#include <io.h>
	22	#include <process.h>
	23	#include <stdio.h>
	24	#include <direct.h>
	25
68dc0745	26	/* For UNIX compatibility. */
0a753a76	27
	28	typedef long uid_t;
	29	typedef long gid_t;
	30
	31	extern char *staticlinkmodules[];
	32
	33	extern uid_t getuid(void);
	34	extern gid_t getgid(void);
	35	extern uid_t geteuid(void);
	36	extern gid_t getegid(void);
	37
	38	extern int setuid(uid_t uid);
	39	extern int setgid(gid_t gid);
	40	extern int kill(int pid, int sig);
	41
	42	#define USE_SOCKETS_AS_HANDLES
	43	#ifndef USE_SOCKETS_AS_HANDLES
	44	extern FILE myfdopen(int, char );
	45
	46	#undef fdopen
	47	#define fdopen myfdopen
68dc0745	48	#endif /* USE_SOCKETS_AS_HANDLES */
0a753a76	49
68dc0745	50	#define STANDARD_C 1 /* Perl5 likes standard C. */
68dc0745	51	#define DOSISH 1 /* Take advantage of DOSish code in Perl5. */
0a753a76	52
68dc0745	53	#define OP_BINARY _O_BINARY /* Mistake in in pp_sys.c. */
0a753a76	54
0a753a76	55	#undef pipe
68dc0745	56	#define pipe(fd) win32_pipe((fd), 512, _O_BINARY) /* the pipe call is a bit different */
0a753a76	57
	58	#undef pause
	59	#define pause() sleep((32767L << 16) + 32767)
	60
	61
	62	#undef times
	63	#define times mytimes
	64
	65	#undef alarm
	66	#define alarm myalarm
	67
	68	struct tms {
	69	long tms_utime;
	70	long tms_stime;
	71	long tms_cutime;
	72	long tms_cstime;
68dc0745	73	};
c90c0ff4	74
0a753a76	75	unsigned int sleep(unsigned int);
	76	char *win32PerlLibPath();
	77	int mytimes(struct tms *timebuf);
	78	unsigned int myalarm(unsigned int sec);
	79	int do_aspawn(void* really, void mark, void arglast);
	80	int do_spawn(char *cmd);
	81
68dc0745	82	typedef char * caddr_t; /* In malloc.c (core address). */
0a753a76	83
68dc0745	84	/*
	85	* Extension Library, only good for VC
	86	*/
0a753a76	87
	88	#define DllExport __declspec(dllexport)
	89
68dc0745	90	/*
	91	* handle socket stuff, assuming socket is always available
	92	*/
0a753a76	93
	94	#include <sys/socket.h>
	95	#include <netdb.h>
	96
	97	#pragma warning(disable: 4018 4035 4101 4102 4244 4245 4761)
	98
3fe9a6f1	99	int IsWin95(void);
	100	int IsWinNT(void);
	101
	102	#ifndef VER_PLATFORM_WIN32_WINDOWS /* VC-2.0 headers dont have this */
	103	#define VER_PLATFORM_WIN32_WINDOWS 1
	104	#endif
	105
68dc0745	106	#endif /* _INC_WIN32_PERL5 */