[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   mkdir
#define  mkdir(nm, md)	_mkdir(nm)	// For UNIX compatibility.

#undef   chdir
#define  chdir(nm)	_chdir(nm)	

#undef   rmdir
#define  rmdir(nm)	_rmdir(nm)

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

#endif // _INC_NT_PERL5
Commit	Line	Data
0a753a76	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
	9	#ifndef _INC_WIN32_PERL5
	10	#define _INC_WIN32_PERL5
	11
	12	#define WIN32_LEAN_AND_MEAN
	13	#include <windows.h>
	14
	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
	19
	20	#include <dirent.h>
	21	#include <io.h>
	22	#include <process.h>
	23	#include <stdio.h>
	24	#include <direct.h>
	25
	26	// For UNIX compatibility.
	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
	48	#endif // USE_SOCKETS_AS_HANDLES
	49
	50	#define STANDARD_C 1 // Perl5 likes standard C.
	51	#define DOSISH 1 // Take advantage of DOSish code in Perl5.
	52
	53	#define OP_BINARY _O_BINARY // Mistake in in pp_sys.c.
	54
	55	#undef mkdir
	56	#define mkdir(nm, md) _mkdir(nm) // For UNIX compatibility.
	57
	58	#undef chdir
	59	#define chdir(nm) _chdir(nm)
	60
	61	#undef rmdir
	62	#define rmdir(nm) _rmdir(nm)
	63
	64	#undef pipe
65	#define pipe(fd) win32_pipe((fd), 512, _O_BINARY) // the pipe call is a bit different
66
67	#undef pause
68	#define pause() sleep((32767L << 16) + 32767)
69
70
71	#undef times
72	#define times mytimes
73
74	#undef alarm
75	#define alarm myalarm
76
77	struct tms {
78	long tms_utime;
79	long tms_stime;
80	long tms_cutime;
81	long tms_cstime;
82	};
83
84	unsigned int sleep(unsigned int);
85	char *win32PerlLibPath();
86	int mytimes(struct tms *timebuf);
87	unsigned int myalarm(unsigned int sec);
88	int do_aspawn(void* really, void mark, void arglast);
89	int do_spawn(char *cmd);
90
91	typedef char * caddr_t; // In malloc.c (core address).
92
93	//
94	// Extension Library, only good for VC
95	//
96
97	#define DllExport __declspec(dllexport)
98
99
100	//
101	// handle socket stuff, assuming socket is always available
102	//
103
104	#include <sys/socket.h>
105	#include <netdb.h>
106
107	#pragma warning(disable: 4018 4035 4101 4102 4244 4245 4761)
108
109	#endif // _INC_NT_PERL5