projects / p5sagit/p5-mst-13.2.git / blame
? search:
summary | shortlog | log | commit | commitdiff | tree
blob | history | HEAD
avoid MakeMaker setting $^W=1
[p5sagit/p5-mst-13.2.git] / win32 / win32.h
CommitLineData
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
5db10396 12#ifndef _WIN32_WINNT
13# define _WIN32_WINNT 0x0400 /* needed for TryEnterCriticalSection() etc. */
14#endif
638eceb6 15
32e30700 16#if defined(PERL_OBJECT) || defined(PERL_IMPLICIT_SYS) || defined(PERL_CAPI)
e9ee4811 17# define DYNAMIC_ENV_FETCH
18# define ENV_HV_NAME "___ENV_HV_NAME___"
a6c40364 19# define HAS_GETENV_LEN
e9ee4811 20# define prime_env_iter()
ab39fa9d 21# define WIN32IO_IS_STDIO /* don't pull in custom stdio layer */
c5be433b 22# define WIN32SCK_IS_STDSCK /* don't pull in custom wsock layer */
ab39fa9d 23# ifdef PERL_GLOBAL_STRUCT
32e30700 24# error PERL_GLOBAL_STRUCT cannot be defined with PERL_IMPLICIT_SYS
ab39fa9d 25# endif
e5a95ffb 26# define win32_get_privlib PerlEnv_lib_path
ab39fa9d 27# define win32_get_sitelib PerlEnv_sitelib_path
9d8a25dc 28#endif
29
c5be433b 30#if defined(PERL_IMPLICIT_CONTEXT)
31# define PERL_GET_INTERP ((PerlInterpreter*)GetPerlInterpreter())
32# define PERL_SET_INTERP(i) (SetPerlInterpreter(i))
33#endif
34
a835ef8a 35#ifdef __GNUC__
b7c82df9 36# ifndef __int64 /* some versions seem to #define it already */
37# define __int64 long long
38# endif
db15561c 39# define Win32_Winsock
a835ef8a 40#endif
41
22239a37 42/* Define DllExport akin to perl's EXT,
43 * If we are in the DLL or mimicing the DLL for Win95 work round
44 * then Export the symbol,
45 * otherwise import it.
46 */
47
5db10396 48/* now even GCC supports __declspec() */
49
c69f6586 50#if defined(PERL_OBJECT)
51#define DllExport
52#else
22239a37 53#if defined(PERLDLL) || defined(WIN95FIX)
852c2e52 54#define DllExport
55/*#define DllExport __declspec(dllexport)*/ /* noises with VC5+sp3 */
22239a37 56#else
57#define DllExport __declspec(dllimport)
58#endif
c69f6586 59#endif
c69f112c 60
0a753a76 61#define WIN32_LEAN_AND_MEAN
62#include <windows.h>
63
68dc0745 64#ifdef WIN32_LEAN_AND_MEAN /* C file is NOT a Perl5 original. */
65#define CONTEXT PERL_CONTEXT /* Avoid conflict of CONTEXT defs. */
68dc0745 66#endif /*WIN32_LEAN_AND_MEAN */
0a753a76 67
eda5ff31 68#ifndef TLS_OUT_OF_INDEXES
69#define TLS_OUT_OF_INDEXES (DWORD)0xFFFFFFFF
70#endif
71
0a753a76 72#include <dirent.h>
73#include <io.h>
74#include <process.h>
75#include <stdio.h>
76#include <direct.h>
390b85e7 77#include <stdlib.h>
78#ifndef EXT
79#include "EXTERN.h"
80#endif
81
c69f112c 82struct tms {
83 long tms_utime;
84 long tms_stime;
85 long tms_cutime;
86 long tms_cstime;
87};
88
b2af26b1 89#ifndef SYS_NMLN
90#define SYS_NMLN 257
91#endif
92
93struct utsname {
94 char sysname[SYS_NMLN];
95 char nodename[SYS_NMLN];
96 char release[SYS_NMLN];
97 char version[SYS_NMLN];
98 char machine[SYS_NMLN];
99};
100
390b85e7 101#ifndef START_EXTERN_C
b3e5c95e 102#undef EXTERN_C
390b85e7 103#ifdef __cplusplus
104# define START_EXTERN_C extern "C" {
105# define END_EXTERN_C }
106# define EXTERN_C extern "C"
107#else
108# define START_EXTERN_C
109# define END_EXTERN_C
110# define EXTERN_C
111#endif
112#endif
113
114#define STANDARD_C 1
115#define DOSISH 1 /* no escaping our roots */
116#define OP_BINARY O_BINARY /* mistake in in pp_sys.c? */
0a753a76 117
f3986ebb 118/* Define USE_SOCKETS_AS_HANDLES to enable emulation of windows sockets as
119 * real filehandles. XXX Should always be defined (the other version is untested) */
120#define USE_SOCKETS_AS_HANDLES
121
a7092146 122/* read() and write() aren't transparent for socket handles */
123#define PERL_SOCK_SYSREAD_IS_RECV
124#define PERL_SOCK_SYSWRITE_IS_SEND
125
682fc664 126#define PERL_NO_FORCE_LINK /* no need for PL_force_link_funcs */
a7092146 127
f3986ebb 128/* if USE_WIN32_RTL_ENV is not defined, Perl uses direct Win32 calls
129 * to read the environment, bypassing the runtime's (usually broken)
130 * facilities for accessing the same. See note in util.c/my_setenv(). */
131/*#define USE_WIN32_RTL_ENV */
0a753a76 132
9e5f57de 133/* Define USE_FIXED_OSFHANDLE to fix MSVCRT's _open_osfhandle() on W95.
134 It now uses some black magic to work seamlessly with the DLL CRT and
135 works with MSVC++ 4.0+ or GCC/Mingw32
136 -- BKS 1-24-2000 */
137#if (defined(_M_IX86) && _MSC_VER >= 1000) || defined(__MINGW32__)
f3986ebb 138#define USE_FIXED_OSFHANDLE
139#endif
140
902173a3 141#define ENV_IS_CASELESS
142
d41de25a 143#ifndef VER_PLATFORM_WIN32_WINDOWS /* VC-2.0 headers don't have this */
f3986ebb 144#define VER_PLATFORM_WIN32_WINDOWS 1
145#endif
146
d41de25a 147#ifndef FILE_SHARE_DELETE /* VC-4.0 headers don't have this */
148#define FILE_SHARE_DELETE 0x00000004
149#endif
150
327c3667 151/* access() mode bits */
152#ifndef R_OK
153# define R_OK 4
154# define W_OK 2
155# define X_OK 1
156# define F_OK 0
157#endif
158
f3986ebb 159/* Compiler-specific stuff. */
160
910dfcc8 161#ifdef __BORLANDC__ /* Borland C++ */
3e3baf6d 162
163#define _access access
164#define _chdir chdir
4ce4f76e 165#define _getpid getpid
26871e0a 166#define wcsicmp _wcsicmp
3e3baf6d 167#include <sys/types.h>
168
84902520 169#ifndef DllMain
170#define DllMain DllEntryPoint
171#endif
172
189b2af5 173#pragma warn -ccc /* "condition is always true/false" */
174#pragma warn -rch /* "unreachable code" */
175#pragma warn -sig /* "conversion may lose significant digits" */
176#pragma warn -pia /* "possibly incorrect assignment" */
177#pragma warn -par /* "parameter 'foo' is never used" */
178#pragma warn -aus /* "'foo' is assigned a value that is never used" */
179#pragma warn -use /* "'foo' is declared but never used" */
180#pragma warn -csu /* "comparing signed and unsigned values" */
181#pragma warn -pro /* "call to function with no prototype" */
327c3667 182#pragma warn -stu /* "undefined structure 'foo'" */
3e3baf6d 183
ac4c12e7 184/* Borland is picky about a bare member function name used as its ptr */
185#ifdef PERL_OBJECT
0b94c7bb 186# define MEMBER_TO_FPTR(name) &(name)
ac4c12e7 187#endif
188
cd183fd9 189/* Borland C thinks that a pointer to a member variable is 12 bytes in size. */
190#define PERL_MEMBER_PTR_SIZE 12
191
910dfcc8 192#endif
3e3baf6d 193
f3986ebb 194#ifdef _MSC_VER /* Microsoft Visual C++ */
195
0a753a76 196typedef long uid_t;
197typedef long gid_t;
a6c40364 198typedef unsigned short mode_t;
f3986ebb 199#pragma warning(disable: 4018 4035 4101 4102 4244 4245 4761)
200
0f4eea8f 201/* Visual C thinks that a pointer to a member variable is 16 bytes in size. */
cd183fd9 202#define PERL_MEMBER_PTR_SIZE 16
0f4eea8f 203
f3986ebb 204#endif /* _MSC_VER */
205
910dfcc8 206#ifdef __MINGW32__ /* Minimal Gnu-Win32 */
207
208typedef long uid_t;
209typedef long gid_t;
b1d1613b 210#ifndef _environ
3730b96e 211#define _environ environ
b1d1613b 212#endif
3730b96e 213#define flushall _flushall
214#define fcloseall _fcloseall
910dfcc8 215
d543acb6 216#ifndef CP_UTF8
217# define CP_UTF8 65001
218#endif
219
db15561c 220#ifdef PERL_OBJECT
0b94c7bb 221# define MEMBER_TO_FPTR(name) &(name)
db15561c 222#endif
223
ac4c12e7 224#ifndef _O_NOINHERIT
225# define _O_NOINHERIT 0x0080
226# ifndef _NO_OLDNAMES
227# define O_NOINHERIT _O_NOINHERIT
228# endif
229#endif
230
910dfcc8 231#endif /* __MINGW32__ */
232
f3986ebb 233/* compatibility stuff for other compilers goes here */
0a753a76 234
0a753a76 235
dfdd1393 236#if !defined(PERL_OBJECT) && defined(PERL_CAPI) && defined(PERL_MEMBER_PTR_SIZE)
cd183fd9 237# define STRUCT_MGVTBL_DEFINITION \
238struct mgvtbl { \
239 union { \
240 int (CPERLscope(*svt_get))(pTHX_ SV *sv, MAGIC* mg); \
241 char handle_VC_problem1[PERL_MEMBER_PTR_SIZE]; \
242 }; \
243 union { \
244 int (CPERLscope(*svt_set))(pTHX_ SV *sv, MAGIC* mg); \
245 char handle_VC_problem2[PERL_MEMBER_PTR_SIZE]; \
246 }; \
247 union { \
248 U32 (CPERLscope(*svt_len))(pTHX_ SV *sv, MAGIC* mg); \
249 char handle_VC_problem3[PERL_MEMBER_PTR_SIZE]; \
250 }; \
251 union { \
252 int (CPERLscope(*svt_clear))(pTHX_ SV *sv, MAGIC* mg); \
253 char handle_VC_problem4[PERL_MEMBER_PTR_SIZE]; \
254 }; \
255 union { \
256 int (CPERLscope(*svt_free))(pTHX_ SV *sv, MAGIC* mg); \
257 char handle_VC_problem5[PERL_MEMBER_PTR_SIZE]; \
258 }; \
259}
260
261# define BASEOP_DEFINITION \
262 OP* op_next; \
263 OP* op_sibling; \
264 OP* (CPERLscope(*op_ppaddr))(pTHX); \
265 char handle_VC_problem[PERL_MEMBER_PTR_SIZE-sizeof(OP*)]; \
266 PADOFFSET op_targ; \
267 OPCODE op_type; \
268 U16 op_seq; \
269 U8 op_flags; \
270 U8 op_private;
271
dfdd1393 272#endif /* !PERL_OBJECT && PERL_CAPI && PERL_MEMBER_PTR_SIZE */
cd183fd9 273
274
390b85e7 275START_EXTERN_C
f3986ebb 276
277/* For UNIX compatibility. */
278
0a753a76 279extern uid_t getuid(void);
280extern gid_t getgid(void);
281extern uid_t geteuid(void);
282extern gid_t getegid(void);
0a753a76 283extern int setuid(uid_t uid);
284extern int setgid(gid_t gid);
285extern int kill(int pid, int sig);
161b471a 286extern void *sbrk(int need);
e34ffe5a 287extern char * getlogin(void);
b990f8c8 288extern int chown(const char *p, uid_t o, gid_t g);
d55594ae 289
f3986ebb 290#undef Stat
291#define Stat win32_stat
3e3baf6d 292
f3986ebb 293#undef init_os_extras
294#define init_os_extras Perl_init_os_extras
390b85e7 295
22239a37 296DllExport void Perl_win32_init(int *argcp, char ***argvp);
c5be433b 297DllExport void Perl_init_os_extras();
298DllExport void win32_str_os_error(void *sv, DWORD err);
299DllExport int RunPerl(int argc, char **argv, char **env);
300DllExport bool SetPerlInterpreter(void* interp);
301DllExport void* GetPerlInterpreter(void);
0551aaa8 302
f3986ebb 303#ifndef USE_SOCKETS_AS_HANDLES
304extern FILE * my_fdopen(int, char *);
d55594ae 305#endif
f3986ebb 306extern int my_fclose(FILE *);
c5be433b 307extern int do_aspawn(void *really, void **mark, void **sp);
308extern int do_spawn(char *cmd);
309extern int do_spawn_nowait(char *cmd);
310extern char * win32_get_privlib(char *pl);
311extern char * win32_get_sitelib(char *pl);
f3986ebb 312extern int IsWin95(void);
313extern int IsWinNT(void);
d55594ae 314
f3986ebb 315extern char * staticlinkmodules[];
390b85e7 316
317END_EXTERN_C
d55594ae 318
68dc0745 319typedef char * caddr_t; /* In malloc.c (core address). */
0a753a76 320
68dc0745 321/*
68dc0745 322 * handle socket stuff, assuming socket is always available
323 */
0a753a76 324#include <sys/socket.h>
325#include <netdb.h>
326
bbc8f9de 327#ifdef MYMALLOC
328#define EMBEDMYMALLOC /**/
329/* #define USE_PERL_SBRK /**/
330/* #define PERL_SBRK_VIA_MALLOC /**/
331#endif
332
c31fac66 333#if defined(PERLDLL) && !defined(PERL_CORE)
bbc8f9de 334#define PERL_CORE
335#endif
336
e68cb057 337#ifdef PERL_TEXTMODE_SCRIPTS
c39cd008 338# define PERL_SCRIPT_MODE "r"
a868473f 339#else
c39cd008 340# define PERL_SCRIPT_MODE "rb"
a868473f 341#endif
342
3352bfcb 343/*
344 * Now Win32 specific per-thread data stuff
345 */
346
347struct thread_intern {
348 /* XXX can probably use one buffer instead of several */
349 char Wstrerror_buffer[512];
350 struct servent Wservent;
351 char Wgetlogin_buffer[128];
352# ifdef USE_SOCKETS_AS_HANDLES
353 int Winit_socktype;
354# endif
355# ifdef HAVE_DES_FCRYPT
356 char Wcrypt_buffer[30];
357# endif
358# ifdef USE_RTL_THREAD_API
359 void * retv; /* slot for thread return value */
360# endif
361};
362
363#ifdef USE_THREADS
364# ifndef USE_DECLSPEC_THREAD
365# define HAVE_THREAD_INTERN
366# endif /* !USE_DECLSPEC_THREAD */
367#endif /* USE_THREADS */
368
4b556e6c 369#define HAVE_INTERP_INTERN
0aaad0ff 370typedef struct {
371 long num;
372 DWORD pids[MAXIMUM_WAIT_OBJECTS];
7766f137 373 HANDLE handles[MAXIMUM_WAIT_OBJECTS];
0aaad0ff 374} child_tab;
375
4b556e6c 376struct interp_intern {
0aaad0ff 377 char * perlshell_tokens;
378 char ** perlshell_vec;
379 long perlshell_items;
380 struct av * fdpid;
381 child_tab * children;
7766f137 382#ifdef USE_ITHREADS
383 DWORD pseudo_id;
384 child_tab * pseudo_children;
385#endif
386 void * internal_host;
3352bfcb 387#ifndef USE_THREADS
388 struct thread_intern thr_intern;
389#endif
4b556e6c 390};
391
4b556e6c 392
0aaad0ff 393#define w32_perlshell_tokens (PL_sys_intern.perlshell_tokens)
394#define w32_perlshell_vec (PL_sys_intern.perlshell_vec)
395#define w32_perlshell_items (PL_sys_intern.perlshell_items)
396#define w32_fdpid (PL_sys_intern.fdpid)
397#define w32_children (PL_sys_intern.children)
398#define w32_num_children (w32_children->num)
399#define w32_child_pids (w32_children->pids)
7766f137 400#define w32_child_handles (w32_children->handles)
401#define w32_pseudo_id (PL_sys_intern.pseudo_id)
402#define w32_pseudo_children (PL_sys_intern.pseudo_children)
403#define w32_num_pseudo_children (w32_pseudo_children->num)
404#define w32_pseudo_child_pids (w32_pseudo_children->pids)
405#define w32_pseudo_child_handles (w32_pseudo_children->handles)
406#define w32_internal_host (PL_sys_intern.internal_host)
c53bd28a 407#ifdef USE_THREADS
3352bfcb 408# define w32_strerror_buffer (thr->i.Wstrerror_buffer)
409# define w32_getlogin_buffer (thr->i.Wgetlogin_buffer)
410# define w32_crypt_buffer (thr->i.Wcrypt_buffer)
411# define w32_servent (thr->i.Wservent)
412# define w32_init_socktype (thr->i.Winit_socktype)
413#else
414# define w32_strerror_buffer (PL_sys_intern.thr_intern.Wstrerror_buffer)
415# define w32_getlogin_buffer (PL_sys_intern.thr_intern.Wgetlogin_buffer)
416# define w32_crypt_buffer (PL_sys_intern.thr_intern.Wcrypt_buffer)
417# define w32_servent (PL_sys_intern.thr_intern.Wservent)
418# define w32_init_socktype (PL_sys_intern.thr_intern.Winit_socktype)
e34ffe5a 419#endif /* USE_THREADS */
c53bd28a 420
7fac1903 421/* UNICODE<>ANSI translation helpers */
422/* Use CP_ACP when mode is ANSI */
423/* Use CP_UTF8 when mode is UTF8 */
424
c5be433b 425#define A2WHELPER(lpa, lpw, nBytes)\
d41ff1b8 426 lpw[0] = 0, MultiByteToWideChar((IN_BYTE) ? CP_ACP : CP_UTF8, 0, \
427 lpa, -1, lpw, (nBytes/sizeof(WCHAR)))
7fac1903 428
0cb96387 429#define W2AHELPER(lpw, lpa, nChars)\
d41ff1b8 430 lpa[0] = '\0', WideCharToMultiByte((IN_BYTE) ? CP_ACP : CP_UTF8, 0, \
431 lpw, -1, (LPSTR)lpa, nChars, NULL, NULL)
7fac1903 432
d41ff1b8 433#define USING_WIDE() (PL_bigchar && PerlEnv_os_id() == VER_PLATFORM_WIN32_NT)
7fac1903 434
7766f137 435#ifdef USE_ITHREADS
436# define PERL_WAIT_FOR_CHILDREN \
437 STMT_START { \
438 if (w32_pseudo_children && w32_num_pseudo_children) { \
439 long children = w32_num_pseudo_children; \
440 WaitForMultipleObjects(children, \
441 w32_pseudo_child_handles, \
442 TRUE, INFINITE); \
443 while (children) \
444 CloseHandle(w32_pseudo_child_handles[--children]); \
445 } \
446 } STMT_END
447#endif
448
4f63d024 449/*
450 * This provides a layer of functions and macros to ensure extensions will
451 * get to use the same RTL functions as the core.
452 */
453#include "win32iop.h"
454
68dc0745 455#endif /* _INC_WIN32_PERL5 */
7a9ec5a3 456
Unnamed repository; edit this file to name it for gitweb.