This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
[win32] fix MakeMaker installbin problem
[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
902173a3
GS
94#define ENV_IS_CASELESS
95
f3986ebb
GS
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
TB
103
104#define _access access
105#define _chdir chdir
106#include <sys/types.h>
107
84902520
TB
108#ifndef DllMain
109#define DllMain DllEntryPoint
110#endif
111
3e3baf6d
TB
112#pragma warn -ccc
113#pragma warn -rch
114#pragma warn -sig
115#pragma warn -pia
116#pragma warn -par
117#pragma warn -aus
118#pragma warn -use
119#pragma warn -csu
120#pragma warn -pro
121
910dfcc8 122#endif
3e3baf6d 123
f3986ebb
GS
124#ifdef _MSC_VER /* Microsoft Visual C++ */
125
0a753a76
PP
126typedef long uid_t;
127typedef long gid_t;
f3986ebb
GS
128#pragma warning(disable: 4018 4035 4101 4102 4244 4245 4761)
129
130#endif /* _MSC_VER */
131
910dfcc8
GS
132#ifdef __MINGW32__ /* Minimal Gnu-Win32 */
133
134typedef long uid_t;
135typedef long gid_t;
136
137#endif /* __MINGW32__ */
138
f3986ebb 139/* compatibility stuff for other compilers goes here */
0a753a76 140
0a753a76 141
390b85e7 142START_EXTERN_C
f3986ebb
GS
143
144/* For UNIX compatibility. */
145
0a753a76
PP
146extern uid_t getuid(void);
147extern gid_t getgid(void);
148extern uid_t geteuid(void);
149extern gid_t getegid(void);
0a753a76
PP
150extern int setuid(uid_t uid);
151extern int setgid(gid_t gid);
152extern int kill(int pid, int sig);
161b471a 153extern void *sbrk(int need);
e34ffe5a 154extern char * getlogin(void);
d55594ae 155
f3986ebb
GS
156#undef Stat
157#define Stat win32_stat
3e3baf6d 158
f3986ebb
GS
159#undef init_os_extras
160#define init_os_extras Perl_init_os_extras
390b85e7 161
22239a37
NIS
162DllExport void Perl_win32_init(int *argcp, char ***argvp);
163DllExport void Perl_init_os_extras(void);
22fae026 164DllExport void win32_str_os_error(struct sv *s, DWORD err);
0551aaa8 165
f3986ebb
GS
166#ifndef USE_SOCKETS_AS_HANDLES
167extern FILE * my_fdopen(int, char *);
d55594ae 168#endif
f3986ebb 169extern int my_fclose(FILE *);
2d7a9237 170extern int do_aspawn(void *really, void **mark, void **sp);
f3986ebb 171extern int do_spawn(char *cmd);
2d7a9237 172extern int do_spawn_nowait(char *cmd);
f3986ebb 173extern char do_exec(char *cmd);
2d7a9237 174extern char * win32_perllib_path(char *sfx,...);
f3986ebb
GS
175extern int IsWin95(void);
176extern int IsWinNT(void);
d55594ae 177
f3986ebb 178extern char * staticlinkmodules[];
390b85e7
GS
179
180END_EXTERN_C
d55594ae 181
68dc0745 182typedef char * caddr_t; /* In malloc.c (core address). */
0a753a76 183
68dc0745 184/*
68dc0745
PP
185 * handle socket stuff, assuming socket is always available
186 */
0a753a76
PP
187#include <sys/socket.h>
188#include <netdb.h>
189
bbc8f9de
NIS
190#ifdef MYMALLOC
191#define EMBEDMYMALLOC /**/
192/* #define USE_PERL_SBRK /**/
193/* #define PERL_SBRK_VIA_MALLOC /**/
194#endif
195
c31fac66 196#if defined(PERLDLL) && !defined(PERL_CORE)
bbc8f9de
NIS
197#define PERL_CORE
198#endif
199
a868473f
NIS
200#ifdef USE_BINMODE_SCRIPTS
201#define PERL_SCRIPT_MODE "rb"
202EXT void win32_strip_return(struct sv *sv);
203#else
204#define PERL_SCRIPT_MODE "r"
205#define win32_strip_return(sv) NOOP
206#endif
207
c53bd28a
NIS
208/*
209 * Now Win32 specific per-thread data stuff
210 */
211
212#ifdef USE_THREADS
e34ffe5a
GS
213# ifndef USE_DECLSPEC_THREAD
214# define HAVE_THREAD_INTERN
215
216struct thread_intern {
217 /* XXX can probably use one buffer instead of several */
218 char Wstrerror_buffer[512];
219 struct servent Wservent;
220 char Wgetlogin_buffer[128];
221# ifdef HAVE_DES_FCRYPT
222 char Wcrypt_buffer[30];
223# endif
2d7a9237
GS
224# ifdef USE_RTL_THREAD_API
225 void * retv; /* slot for thread return value */
226# endif
c53bd28a 227};
e34ffe5a
GS
228# endif /* !USE_DECLSPEC_THREAD */
229#endif /* USE_THREADS */
c53bd28a 230
68dc0745 231#endif /* _INC_WIN32_PERL5 */