This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
[win32] Fix $ENV{Path} in FindBin.pm
[perl5.git] / win32 / win32.h
CommitLineData
68dc0745
PP
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
PP
9#ifndef _INC_WIN32_PERL5
10#define _INC_WIN32_PERL5
11
a835ef8a 12#ifdef __GNUC__
a835ef8a
NIS
13typedef long long __int64;
14#define Win32_Winsock
22239a37
NIS
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
GS
21#ifndef TLS_OUT_OF_INDEXES
22#define TLS_OUT_OF_INDEXES (DWORD)0xFFFFFFFF
23#endif
a835ef8a
NIS
24#endif
25
22239a37
NIS
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
PP
38#define WIN32_LEAN_AND_MEAN
39#include <windows.h>
40
68dc0745
PP
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
PP
45
46#include <dirent.h>
47#include <io.h>
48#include <process.h>
49#include <stdio.h>
50#include <direct.h>
390b85e7
GS
51#include <stdlib.h>
52#ifndef EXT
53#include "EXTERN.h"
54#endif
55
c69f112c
NIS
56struct tms {
57 long tms_utime;
58 long tms_stime;
59 long tms_cutime;
60 long tms_cstime;
61};
62
390b85e7
GS
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
GS
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
GS
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
94#ifndef VER_PLATFORM_WIN32_WINDOWS /* VC-2.0 headers dont have this */
95#define VER_PLATFORM_WIN32_WINDOWS 1
96#endif
97
98/* Compiler-specific stuff. */
99
910dfcc8 100#ifdef __BORLANDC__ /* Borland C++ */
3e3baf6d
TB
101
102#define _access access
103#define _chdir chdir
104#include <sys/types.h>
105
84902520
TB
106#ifndef DllMain
107#define DllMain DllEntryPoint
108#endif
109
3e3baf6d
TB
110#pragma warn -ccc
111#pragma warn -rch
112#pragma warn -sig
113#pragma warn -pia
114#pragma warn -par
115#pragma warn -aus
116#pragma warn -use
117#pragma warn -csu
118#pragma warn -pro
119
910dfcc8 120#endif
3e3baf6d 121
f3986ebb
GS
122#ifdef _MSC_VER /* Microsoft Visual C++ */
123
0a753a76
PP
124typedef long uid_t;
125typedef long gid_t;
f3986ebb
GS
126#pragma warning(disable: 4018 4035 4101 4102 4244 4245 4761)
127
128#endif /* _MSC_VER */
129
910dfcc8
GS
130#ifdef __MINGW32__ /* Minimal Gnu-Win32 */
131
132typedef long uid_t;
133typedef long gid_t;
134
135#endif /* __MINGW32__ */
136
f3986ebb 137/* compatibility stuff for other compilers goes here */
0a753a76 138
0a753a76 139
390b85e7 140START_EXTERN_C
f3986ebb
GS
141
142/* For UNIX compatibility. */
143
0a753a76
PP
144extern uid_t getuid(void);
145extern gid_t getgid(void);
146extern uid_t geteuid(void);
147extern gid_t getegid(void);
0a753a76
PP
148extern int setuid(uid_t uid);
149extern int setgid(gid_t gid);
150extern int kill(int pid, int sig);
161b471a 151extern void *sbrk(int need);
e34ffe5a 152extern char * getlogin(void);
d55594ae 153
f3986ebb
GS
154#undef Stat
155#define Stat win32_stat
3e3baf6d 156
f3986ebb
GS
157#undef init_os_extras
158#define init_os_extras Perl_init_os_extras
390b85e7 159
22239a37
NIS
160DllExport void Perl_win32_init(int *argcp, char ***argvp);
161DllExport void Perl_init_os_extras(void);
0551aaa8 162
f3986ebb
GS
163#ifndef USE_SOCKETS_AS_HANDLES
164extern FILE * my_fdopen(int, char *);
d55594ae 165#endif
f3986ebb
GS
166extern int my_fclose(FILE *);
167extern int do_aspawn(void* really, void ** mark, void ** arglast);
168extern int do_spawn(char *cmd);
169extern char do_exec(char *cmd);
acbc2db6 170extern char * win32PerlLibPath(char *sfx,...);
f3986ebb
GS
171extern int IsWin95(void);
172extern int IsWinNT(void);
d55594ae 173
f3986ebb 174extern char * staticlinkmodules[];
390b85e7
GS
175
176END_EXTERN_C
d55594ae 177
68dc0745 178typedef char * caddr_t; /* In malloc.c (core address). */
0a753a76 179
68dc0745 180/*
68dc0745
PP
181 * handle socket stuff, assuming socket is always available
182 */
0a753a76
PP
183#include <sys/socket.h>
184#include <netdb.h>
185
bbc8f9de
NIS
186#ifdef MYMALLOC
187#define EMBEDMYMALLOC /**/
188/* #define USE_PERL_SBRK /**/
189/* #define PERL_SBRK_VIA_MALLOC /**/
190#endif
191
c31fac66 192#if defined(PERLDLL) && !defined(PERL_CORE)
bbc8f9de
NIS
193#define PERL_CORE
194#endif
195
a868473f
NIS
196#ifdef USE_BINMODE_SCRIPTS
197#define PERL_SCRIPT_MODE "rb"
198EXT void win32_strip_return(struct sv *sv);
199#else
200#define PERL_SCRIPT_MODE "r"
201#define win32_strip_return(sv) NOOP
202#endif
203
c53bd28a
NIS
204/*
205 * Now Win32 specific per-thread data stuff
206 */
207
208#ifdef USE_THREADS
e34ffe5a
GS
209# ifndef USE_DECLSPEC_THREAD
210# define HAVE_THREAD_INTERN
211
212struct thread_intern {
213 /* XXX can probably use one buffer instead of several */
214 char Wstrerror_buffer[512];
215 struct servent Wservent;
216 char Wgetlogin_buffer[128];
217# ifdef HAVE_DES_FCRYPT
218 char Wcrypt_buffer[30];
219# endif
c53bd28a 220};
e34ffe5a
GS
221# endif /* !USE_DECLSPEC_THREAD */
222#endif /* USE_THREADS */
c53bd28a 223
68dc0745 224#endif /* _INC_WIN32_PERL5 */