This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
[asperl] added AS patch#8
[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
9d8a25dc
DL
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
NIS
23typedef long long __int64;
24#define Win32_Winsock
22239a37
NIS
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
GS
31#ifndef TLS_OUT_OF_INDEXES
32#define TLS_OUT_OF_INDEXES (DWORD)0xFFFFFFFF
33#endif
a835ef8a
NIS
34#endif
35
22239a37
NIS
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
PP
48#define WIN32_LEAN_AND_MEAN
49#include <windows.h>
50
68dc0745
PP
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
PP
55
56#include <dirent.h>
57#include <io.h>
58#include <process.h>
59#include <stdio.h>
60#include <direct.h>
390b85e7
GS
61#include <stdlib.h>
62#ifndef EXT
63#include "EXTERN.h"
64#endif
65
c69f112c
NIS
66struct tms {
67 long tms_utime;
68 long tms_stime;
69 long tms_cutime;
70 long tms_cstime;
71};
72
390b85e7
GS
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
GS
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
GS
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
GS
104#define ENV_IS_CASELESS
105
f3986ebb
GS
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
TB
113
114#define _access access
115#define _chdir chdir
116#include <sys/types.h>
117
84902520
TB
118#ifndef DllMain
119#define DllMain DllEntryPoint
120#endif
121
189b2af5
GS
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
GS
134#ifdef _MSC_VER /* Microsoft Visual C++ */
135
0a753a76
PP
136typedef long uid_t;
137typedef long gid_t;
f3986ebb
GS
138#pragma warning(disable: 4018 4035 4101 4102 4244 4245 4761)
139
140#endif /* _MSC_VER */
141
910dfcc8
GS
142#ifdef __MINGW32__ /* Minimal Gnu-Win32 */
143
144typedef long uid_t;
145typedef long gid_t;
3730b96e
GS
146#define _environ environ
147#define flushall _flushall
148#define fcloseall _fcloseall
910dfcc8
GS
149
150#endif /* __MINGW32__ */
151
f3986ebb 152/* compatibility stuff for other compilers goes here */
0a753a76 153
0a753a76 154
390b85e7 155START_EXTERN_C
f3986ebb
GS
156
157/* For UNIX compatibility. */
158
0a753a76
PP
159extern uid_t getuid(void);
160extern gid_t getgid(void);
161extern uid_t geteuid(void);
162extern gid_t getegid(void);
0a753a76
PP
163extern int setuid(uid_t uid);
164extern int setgid(gid_t gid);
165extern int kill(int pid, int sig);
161b471a 166extern void *sbrk(int need);
e34ffe5a 167extern char * getlogin(void);
d55594ae 168
f3986ebb
GS
169#undef Stat
170#define Stat win32_stat
3e3baf6d 171
f3986ebb
GS
172#undef init_os_extras
173#define init_os_extras Perl_init_os_extras
390b85e7 174
22239a37
NIS
175DllExport void Perl_win32_init(int *argcp, char ***argvp);
176DllExport void Perl_init_os_extras(void);
3730b96e 177DllExport void win32_str_os_error(void *sv, DWORD err);
0551aaa8 178
f3986ebb
GS
179#ifndef USE_SOCKETS_AS_HANDLES
180extern FILE * my_fdopen(int, char *);
d55594ae 181#endif
f3986ebb 182extern int my_fclose(FILE *);
2d7a9237 183extern int do_aspawn(void *really, void **mark, void **sp);
f3986ebb 184extern int do_spawn(char *cmd);
2d7a9237 185extern int do_spawn_nowait(char *cmd);
f3986ebb 186extern char do_exec(char *cmd);
2d7a9237 187extern char * win32_perllib_path(char *sfx,...);
f3986ebb
GS
188extern int IsWin95(void);
189extern int IsWinNT(void);
d55594ae 190
f3986ebb 191extern char * staticlinkmodules[];
390b85e7
GS
192
193END_EXTERN_C
d55594ae 194
68dc0745 195typedef char * caddr_t; /* In malloc.c (core address). */
0a753a76 196
68dc0745 197/*
68dc0745
PP
198 * handle socket stuff, assuming socket is always available
199 */
0a753a76
PP
200#include <sys/socket.h>
201#include <netdb.h>
202
bbc8f9de
NIS
203#ifdef MYMALLOC
204#define EMBEDMYMALLOC /**/
205/* #define USE_PERL_SBRK /**/
206/* #define PERL_SBRK_VIA_MALLOC /**/
207#endif
208
c31fac66 209#if defined(PERLDLL) && !defined(PERL_CORE)
bbc8f9de
NIS
210#define PERL_CORE
211#endif
212
a868473f
NIS
213#ifdef USE_BINMODE_SCRIPTS
214#define PERL_SCRIPT_MODE "rb"
215EXT void win32_strip_return(struct sv *sv);
216#else
217#define PERL_SCRIPT_MODE "r"
218#define win32_strip_return(sv) NOOP
219#endif
220
c53bd28a
NIS
221/*
222 * Now Win32 specific per-thread data stuff
223 */
224
225#ifdef USE_THREADS
e34ffe5a
GS
226# ifndef USE_DECLSPEC_THREAD
227# define HAVE_THREAD_INTERN
228
229struct thread_intern {
230 /* XXX can probably use one buffer instead of several */
231 char Wstrerror_buffer[512];
232 struct servent Wservent;
233 char Wgetlogin_buffer[128];
234# ifdef HAVE_DES_FCRYPT
235 char Wcrypt_buffer[30];
236# endif
2d7a9237
GS
237# ifdef USE_RTL_THREAD_API
238 void * retv; /* slot for thread return value */
239# endif
c53bd28a 240};
e34ffe5a
GS
241# endif /* !USE_DECLSPEC_THREAD */
242#endif /* USE_THREADS */
c53bd28a 243
68dc0745 244#endif /* _INC_WIN32_PERL5 */