mirror/perl
1
0
Fork 0
mirror of https://github.com/Perl/perl5.git synced 2026-01-26 08:38:23 +00:00
Code Issues Packages Projects Releases Wiki Activity
perl/win32/win32.h
Karl Williamson 15001bedc6 win32.h: #undef a macro before redefining it 
This silences a compiler warning
2025-11-04 10:38:29 -07:00

688 lines
21 KiB
C
Raw Permalink Blame History

/* WIN32.H
*
* (c) 1995 Microsoft Corporation. All rights reserved.
* Developed by hip communications inc.
*
* 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
#ifndef _WIN32_WINNT
# define _WIN32_WINNT 0x0500 /* needed for CreateHardlink() etc. */
#endif
/* Win32 only optimizations for faster building */
#ifdef PERL_IS_MINIPERL
/* less I/O calls during each require */
# define PERL_DISABLE_PMC
/* unnecessary for miniperl to lookup anything from an "installed" perl */
# define WIN32_NO_REGISTRY
/* allow minitest to work */
# define PERL_TEXTMODE_SCRIPTS
#endif
#if defined(PERL_IMPLICIT_SYS)
# define DYNAMIC_ENV_FETCH
# define HAS_GETENV_LEN
# define WIN32IO_IS_STDIO /* don't pull in custom stdio layer */
# define WIN32SCK_IS_STDSCK /* don't pull in custom wsock layer */
#endif
#ifdef __GNUC__
# ifndef __int64 /* some versions seem to #define it already */
# define __int64 long long
# endif
# define Win32_Winsock
#endif
/* Define DllExport akin to perl's EXT,
* If we are in the DLL then Export the symbol,
* otherwise import it.
*/
/* now even GCC supports __declspec() */
/* miniperl has no reason to export anything */
#if defined(PERL_IS_MINIPERL)
# define DllExport
#else
# if defined(PERLDLL)
# define DllExport __declspec(dllexport)
# else
# define DllExport __declspec(dllimport)
# endif
#endif
/* The Perl APIs can only be called directly inside the perl5xx.dll.
* All other code has to import them. By declaring them as "dllimport"
* we tell the compiler to generate an indirect call instruction and
* avoid redirection through a call thunk.
*
* The XS code in the re extension is special, in that it redefines
* core APIs locally, so don't mark them as "dllimport" because GCC
* cannot handle this situation.
*
* Certain old GCCs will not allow the function pointer of dllimport marked
* function to be "const". This was fixed later on. Since this is a
* deoptimization, target "gcc version 3.4.5 (mingw-vista special r3)" only,
* The GCC bug was fixed in GCC patch "varasm.c (initializer_constant_valid_p):
* Don't deny DECL_DLLIMPORT_P on functions", which probably was first released
* in GCC 4.3.0, this #if can be expanded upto but not including 4.3.0 if more
* deployed GCC are found that wont build with the follow error, initializer
* element is a PerlIO func exported from perl5xx.dll.
*
* encoding.xs:610: error: initializer element is not constant
* encoding.xs:610: error: (near initialization for `PerlIO_encode.Open')
*/
#if (defined(__GNUC__) && defined(__MINGW32__) && \
!defined(__MINGW64_VERSION_MAJOR) && !defined(__clang__) && \
((__GNUC__ < 3) || ((__GNUC__ == 3) && (__GNUC_MINOR__ <= 5))))
/* use default fallbacks from perl.h for this particular GCC */
#else
# if !defined(PERLDLL) && !defined(PERL_EXT_RE_BUILD)
# ifdef __cplusplus
# define PERL_CALLCONV extern "C" __declspec(dllimport)
# ifdef _MSC_VER
# define PERL_CALLCONV_NO_RET extern "C" __declspec(dllimport) __declspec(noreturn)
# endif
# else
# define PERL_CALLCONV __declspec(dllimport)
# ifdef _MSC_VER
# define PERL_CALLCONV_NO_RET __declspec(dllimport) __declspec(noreturn)
# endif
# endif
# else /* MSVC noreturn support inside the interp */
# ifdef _MSC_VER
# define PERL_CALLCONV_NO_RET __declspec(noreturn)
# endif
# endif
#endif
#ifdef _MSC_VER
# define PERL_STATIC_NO_RET __declspec(noreturn) static
# define PERL_STATIC_INLINE_NO_RET __declspec(noreturn) PERL_STATIC_INLINE
# define PERL_STATIC_FORCE_INLINE __forceinline static
# define PERL_STATIC_FORCE_INLINE_NO_RET __declspec(noreturn) __forceinline static
#endif
#ifdef PERL_CORE
# ifndef PERL_CORE_NO_CPAN_W32_H /* unsanctioned unsupported bypass for CPAN */
# define NOATOM /* GUI IPC RPC strings */
# define NOCLIPBOARD
# define NOCOLOR /* Widget colors */
# define NOCOMM /* Serial ports*/
# define NOCRYPT /* Encryption and employee auth tap cards */
# define NOCTLMGR /* "Control and Dialog routines" */
# define NODEFERWINDOWPOS /* Z index resize app windows */
# define NODRAWTEXT /* Fonts "DrawText() and DT_*" */
# define NOGDI /* wikipedia "Computer_graphics_algorithms" */
# define NOGDICAPMASKS /* PNP Monitors/Screens */
# define NOHELP /* Help engine */
# define NOICONS /* Icon Img Objs */
# define NOIMAGE /* MS .h says #def for perf, but OBSOL/UNIMPL/FUT */
# define NOKANJI
# define NOKERNEL /* MS .h says #def for perf, but OBSOL/UNIMPL/FUT */
# define NOKEYSTATES /* Mouse */
# define NOMB /* popup MessageBox() */
# define NOMCX /* Dialup Modem */
# define NOMEMMGR /* GUI IPC RPC malloc buffers */
# define NOMENUS /* GUI Menu obj */
# define NOMETAFILE /* file format for half rendered graphics */
# undef NOMINMAX /* "Macros min(a,b) and max(a,b)" OBSOL/UNIMPL/FUT */
# define NOMINMAX
# define NOMSG /* GUI Message loop */
/* #define NONLS "Wide" Code Page conversion APIs */
/* OBSOL/UNIMPL/FUT "OpenFile(), OemToAnsi, AnsiToOem" etc */
# define NOOPENFILE
# define NOPROFILER /* "Profiler interface." OBSOL/UNIMPL/FUT */
# define NOPROXYSTUB /* MS COM DCOM RPC probably, undoced, unimpl */
# define NORASTEROPS /* see NOGDI */
# define NORPC
# define NOSCROLL /* App Window Objs */
# define NOSERVICE /* root/semi kernel service processes */
# define NOSHOWWINDOW /* App Window Objs */
# define NOSOUND
# define NOSYSCOMMANDS /* App Window Objs */
# define NOSYSMETRICS /* Screen resolution */
# define NOTAPE /* Tape drives */
# define NOTEXTMETRIC /* Fonts */
# ifndef PERL_IN_WIN32_PERLLIB_C
# define NOUSER /* high level GUI/IPC/RPC */
# endif
# define NOVIRTUALKEYCODES /* Keyboards */
# define NOWH /* SetWindowsHook */
# ifndef PERL_IN_WIN32_PERLLIB_C
# define NOWINMESSAGES /* GUI Message loop IPC/RPC */
# endif
# define NOWINOFFSETS /* App Window Obj themes */
# define NOWINSTYLES /* App Window Obj themes */
# define OEMRESOURCE /* Mouse cursor file format */
# define VC_EXTRALEAN /* "MFC" VC 2010s or older??? */
# endif
#endif
#define WIN32_LEAN_AND_MEAN /* Day 1 Win32 Perl port, CPAN expects this. */
#include <windows.h>
/*
* Bug in winbase.h in mingw-w64 4.4.0-1 at least... they
* do #define GetEnvironmentStringsA GetEnvironmentStrings and fail
* to declare GetEnvironmentStringsA.
*/
#if defined(__MINGW64__) && defined(GetEnvironmentStringsA) && !defined(UNICODE)
#ifdef __cplusplus
extern "C" {
#endif
#undef GetEnvironmentStringsA
WINBASEAPI LPCH WINAPI GetEnvironmentStringsA(VOID);
#define GetEnvironmentStrings GetEnvironmentStringsA
#ifdef __cplusplus
}
#endif
#endif
#ifdef WIN32_LEAN_AND_MEAN /* C file is NOT a Perl5 original. */
#define CONTEXT PERL_CONTEXT /* Avoid conflict of CONTEXT defs. */
#endif /*WIN32_LEAN_AND_MEAN */
#ifndef TLS_OUT_OF_INDEXES
#define TLS_OUT_OF_INDEXES (DWORD)0xFFFFFFFF
#endif
#include <dirent.h>
#include <io.h>
#include <process.h>
#include <stdio.h>
#include <direct.h>
#include <stdlib.h>
#include <stddef.h>
#include <fcntl.h>
#ifndef EXT
#include "EXTERN.h"
#endif
struct tms {
long tms_utime;
long tms_stime;
long tms_cutime;
long tms_cstime;
};
#ifndef SYS_NMLN
#define SYS_NMLN 257
#endif
struct utsname {
char sysname[SYS_NMLN];
char nodename[SYS_NMLN];
char release[SYS_NMLN];
char version[SYS_NMLN];
char machine[SYS_NMLN];
};
#ifndef START_EXTERN_C
#undef EXTERN_C
#ifdef __cplusplus
# define START_EXTERN_C extern "C" {
# define END_EXTERN_C }
# define EXTERN_C extern "C"
#else
# define START_EXTERN_C
# define END_EXTERN_C
# define EXTERN_C
#endif
#endif
#define DOSISH 1 /* no escaping our roots */
#define OP_BINARY O_BINARY /* mistake in in pp_sys.c? */
/* read() and write() aren't transparent for socket handles */
#ifndef WIN32_NO_SOCKETS
# define PERL_SOCK_SYSREAD_IS_RECV
# define PERL_SOCK_SYSWRITE_IS_SEND
#endif
#ifdef WIN32_NO_REGISTRY
/* the last _ in WIN32_NO_REGISTRY_M_ is like the _ in aTHX_ */
# define WIN32_NO_REGISTRY_M_(x)
#else
# define WIN32_NO_REGISTRY_M_(x) x,
#endif
#define ENV_IS_CASELESS
#define PIPESOCK_MODE "b" /* pipes, sockets default to binmode */
/* access() mode bits */
#ifndef R_OK
# define R_OK 4
# define W_OK 2
# define X_OK 1
# define F_OK 0
#endif
/* for waitpid() */
#ifndef WNOHANG
# define WNOHANG 1
#endif
#define PERL_GET_CONTEXT_DEFINED
/* Compiler-specific stuff. */
/* VC uses non-standard way to determine the size and alignment if bit-fields */
/* MinGW will compile with -mms-bitfields, so should use the same types */
#define PERL_BITFIELD8 U8
#define PERL_BITFIELD16 U16
#define PERL_BITFIELD32 U32
#ifdef _MSC_VER /* Microsoft Visual C++ */
typedef long uid_t;
typedef long gid_t;
typedef unsigned short mode_t;
#define snprintf _snprintf
#define vsnprintf _vsnprintf
MSVC_DIAG_IGNORE(4756 4056)
PERL_STATIC_INLINE
double S_Infinity() {
/* this is a real C literal which can get further constant folded
unlike using HUGE_VAL/_HUGE which are data symbol imports from the CRT
and therefore can not by folded by VC, an example of constant
folding INF is creating -INF */
return (DBL_MAX+DBL_MAX);
}
MSVC_DIAG_RESTORE
#define NV_INF S_Infinity()
/* selectany allows duplicate and unused data symbols to be removed by
VC linker, if this were static, each translation unit will have its own,
usually unused __PL_nan_u, if this were plain extern it will cause link
to fail due to multiple definitions, since we dont know if we are being
compiled as static or DLL XS, selectany simply always works, the cost of
importing __PL_nan_u across DLL boundaries in size in the importing DLL
will be more than the 8 bytes it will take up being in each XS DLL if
that DLL actually uses __PL_nan_u */
union PerlNan { unsigned __int64 __q; double __d; };
extern const __declspec(selectany) union PerlNan __PL_nan_u = { 0x7FF8000000000000UI64 };
#define NV_NAN ((NV)__PL_nan_u.__d)
#endif /* ifdef _MSC_VER */
/* The CRT was rewritten in VS2015. */
#ifdef _UCRT
/* No longer declared in stdio.h */
EXTERN_C char *gets(char* buffer);
#define tzname _tzname
/* From corecrt_internal_stdio.h: */
typedef struct
{
union
{
FILE _public_file;
char* _ptr;
} u;
char* _base;
int _cnt;
long _flags;
long _file;
int _charbuf;
int _bufsiz;
char* _tmpfname;
CRITICAL_SECTION _lock;
} __crt_stdio_stream_data;
#define PERLIO_FILE_flag_RD 0x0001 /* _IOREAD */
#define PERLIO_FILE_flag_WR 0x0002 /* _IOWRITE */
#define PERLIO_FILE_flag_RW 0x0004 /* _IOUPDATE */
#define PERLIO_FILE_ptr(f) (((__crt_stdio_stream_data*)(f))->u._ptr)
#define PERLIO_FILE_base(f) (((__crt_stdio_stream_data*)(f))->_base)
#define PERLIO_FILE_cnt(f) (((__crt_stdio_stream_data*)(f))->_cnt)
#define PERLIO_FILE_flag(f) ((int)(((__crt_stdio_stream_data*)(f))->_flags))
#define PERLIO_FILE_file(f) (*(int*)(&((__crt_stdio_stream_data*)(f))->_file))
#else /* ifdef _UCRT */
/* Note: PERLIO_FILE_ptr/base/cnt are not actually used for GCC or <VS2015
* since FILE_ptr/base/cnt do the same thing anyway but it doesn't hurt to
* define them all here for completeness. */
#define PERLIO_FILE_flag_RD _IOREAD /* 0x001 */
#define PERLIO_FILE_flag_WR _IOWRT /* 0x002 */
#define PERLIO_FILE_flag_RW _IORW /* 0x080 */
#define PERLIO_FILE_ptr(f) ((f)->_ptr)
#define PERLIO_FILE_base(f) ((f)->_base)
#define PERLIO_FILE_cnt(f) ((f)->_cnt)
#define PERLIO_FILE_flag(f) ((f)->_flag)
#define PERLIO_FILE_file(f) ((f)->_file)
#endif
#ifdef __MINGW32__ /* Minimal Gnu-Win32 */
typedef long uid_t;
typedef long gid_t;
#ifndef _environ
#define _environ environ
#endif
#define flushall _flushall
#define fcloseall _fcloseall
#ifndef isnan
#define isnan _isnan /* ...same libraries as MSVC */
#endif
#ifndef _O_NOINHERIT
# define _O_NOINHERIT 0x0080
# ifndef _NO_OLDNAMES
# define O_NOINHERIT _O_NOINHERIT
# endif
#endif
/* <stdint.h>, pulled in by <io.h> as of mingw-runtime-3.3, typedef's
* (u)intptr_t but doesn't set the _(U)INTPTR_T_DEFINED defines */
#ifdef _STDINT_H
# ifndef _INTPTR_T_DEFINED
# define _INTPTR_T_DEFINED
# endif
# ifndef _UINTPTR_T_DEFINED
# define _UINTPTR_T_DEFINED
# endif
#endif
#ifndef CP_UTF8
# define CP_UTF8 65001
#endif
#endif /* __MINGW32__ */
#ifndef _INTPTR_T_DEFINED
typedef int intptr_t;
# define _INTPTR_T_DEFINED
#endif
#ifndef _UINTPTR_T_DEFINED
typedef unsigned int uintptr_t;
# define _UINTPTR_T_DEFINED
#endif
START_EXTERN_C
/* For UNIX compatibility. */
#ifdef PERL_CORE
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);
#ifndef USE_PERL_SBRK
extern void *sbrk(ptrdiff_t need);
# define HAS_SBRK_PROTO
#endif
extern char * getlogin(void);
extern int chown(const char *p, uid_t o, gid_t g);
#if((!defined(__MINGW64_VERSION_MAJOR) || __MINGW64_VERSION_MAJOR < 4) && \
(!defined(__MINGW32_MAJOR_VERSION) || __MINGW32_MAJOR_VERSION < 3 || \
(__MINGW32_MAJOR_VERSION == 3 && __MINGW32_MINOR_VERSION < 21)))
extern int mkstemp(const char *path);
#endif
#endif
#undef Stat
#define Stat win32_stat
#undef init_os_extras
#define init_os_extras Perl_init_os_extras
DllExport void Perl_win32_init(int *argcp, char ***argvp);
DllExport void Perl_win32_term(void);
DllExport void Perl_init_os_extras(void);
DllExport void win32_str_os_error(void *sv, DWORD err);
DllExport int RunPerl(int argc, char **argv, char **env);
typedef struct {
HANDLE childStdIn;
HANDLE childStdOut;
HANDLE childStdErr;
/*
* the following correspond to the fields of the same name
* in the STARTUPINFO structure. Embedders can use these to
* control the spawning process' look.
* Example - to hide the window of the spawned process:
* dwFlags = STARTF_USESHOWWINDOW;
* wShowWindow = SW_HIDE;
*/
DWORD dwFlags;
DWORD dwX;
DWORD dwY;
DWORD dwXSize;
DWORD dwYSize;
DWORD dwXCountChars;
DWORD dwYCountChars;
DWORD dwFillAttribute;
WORD wShowWindow;
} child_IO_table;
DllExport void win32_get_child_IO(child_IO_table* ptr);
DllExport HWND win32_create_message_window(void);
DllExport int win32_async_check(pTHX);
extern char * win32_get_privlib(WIN32_NO_REGISTRY_M_(const char *pl) STRLEN *const len);
extern char * win32_get_sitelib(const char *pl, STRLEN *const len);
extern char * win32_get_vendorlib(const char *pl, STRLEN *const len);
#ifdef PERL_IMPLICIT_SYS
extern void win32_delete_internal_host(void *h);
#endif
extern int win32_get_errno(int err);
extern const char * const staticlinkmodules[];
END_EXTERN_C
typedef char * caddr_t; /* In malloc.c (core address). */
/*
* handle socket stuff, assuming socket is always available
*/
#include <sys/socket.h>
#include <netdb.h>
#ifdef MYMALLOC
#define EMBEDMYMALLOC /**/
/* #define USE_PERL_SBRK / **/
/* #define PERL_SBRK_VIA_MALLOC / **/
#endif
#ifdef PERL_TEXTMODE_SCRIPTS
# define PERL_SCRIPT_MODE "r"
#else
# define PERL_SCRIPT_MODE "rb"
#endif
/*
* Now Win32 specific per-thread data stuff
*/
/* Leave the first couple ids after WM_USER unused because they
* might be used by an embedding application, and on Windows
* version before 2000 we might end up eating those messages
* if they were not meant for us.
*/
#define WM_USER_MIN (WM_USER+30)
#define WM_USER_MESSAGE (WM_USER_MIN)
#define WM_USER_KILL (WM_USER_MIN+1)
#define WM_USER_MAX (WM_USER_MIN+1)
struct thread_intern {
/* XXX can probably use one buffer instead of several */
char Wstrerror_buffer[512];
struct servent Wservent;
char Wgetlogin_buffer[128];
int Winit_socktype;
char Wcrypt_buffer[30];
# ifdef USE_RTL_THREAD_API
void * retv; /* slot for thread return value */
# endif
BOOL Wuse_showwindow;
WORD Wshowwindow;
};
#define HAVE_INTERP_INTERN
typedef struct {
long num;
DWORD pids[MAXIMUM_WAIT_OBJECTS];
HANDLE handles[MAXIMUM_WAIT_OBJECTS];
} child_tab;
#ifdef USE_ITHREADS
typedef struct {
long num;
DWORD pids[MAXIMUM_WAIT_OBJECTS];
HANDLE handles[MAXIMUM_WAIT_OBJECTS];
HWND message_hwnds[MAXIMUM_WAIT_OBJECTS];
char sigterm[MAXIMUM_WAIT_OBJECTS];
} pseudo_child_tab;
#endif
#ifndef Sighandler_t
typedef Signal_t (*Sighandler_t) (int);
#define Sighandler_t Sighandler_t
#endif
struct interp_intern {
char * perlshell_tokens;
char ** perlshell_vec;
long perlshell_items;
struct av * fdpid;
child_tab * children;
#ifdef USE_ITHREADS
DWORD pseudo_id;
pseudo_child_tab * pseudo_children;
#endif
void * internal_host;
struct thread_intern thr_intern;
HWND message_hwnd;
UINT timerid;
unsigned poll_count;
#ifdef USE_ITHREADS
DWORD cur_tid;
#endif
Sighandler_t sigtable[SIG_SIZE];
};
#define WIN32_POLL_INTERVAL 32768
#define PERL_ASYNC_CHECK() if (w32_do_async || PL_sig_pending) win32_async_check(aTHX)
#define w32_perlshell_tokens (PL_sys_intern.perlshell_tokens)
#define w32_perlshell_vec (PL_sys_intern.perlshell_vec)
#define w32_perlshell_items (PL_sys_intern.perlshell_items)
#define w32_fdpid (PL_sys_intern.fdpid)
#define w32_children (PL_sys_intern.children)
#define w32_num_children (w32_children->num)
#define w32_child_pids (w32_children->pids)
#define w32_child_handles (w32_children->handles)
#define w32_pseudo_id (PL_sys_intern.pseudo_id)
#define w32_pseudo_children (PL_sys_intern.pseudo_children)
#define w32_num_pseudo_children (w32_pseudo_children->num)
#define w32_pseudo_child_pids (w32_pseudo_children->pids)
#define w32_pseudo_child_handles (w32_pseudo_children->handles)
#define w32_pseudo_child_message_hwnds (w32_pseudo_children->message_hwnds)
#define w32_pseudo_child_sigterm (w32_pseudo_children->sigterm)
#define w32_internal_host (PL_sys_intern.internal_host)
#define w32_timerid (PL_sys_intern.timerid)
#define w32_message_hwnd (PL_sys_intern.message_hwnd)
#define w32_sighandler (PL_sys_intern.sigtable)
#define w32_poll_count (PL_sys_intern.poll_count)
#define w32_do_async (w32_poll_count++ > WIN32_POLL_INTERVAL)
#define w32_strerror_buffer (PL_sys_intern.thr_intern.Wstrerror_buffer)
#define w32_getlogin_buffer (PL_sys_intern.thr_intern.Wgetlogin_buffer)
#define w32_crypt_buffer (PL_sys_intern.thr_intern.Wcrypt_buffer)
#define w32_servent (PL_sys_intern.thr_intern.Wservent)
#define w32_init_socktype (PL_sys_intern.thr_intern.Winit_socktype)
#define w32_use_showwindow (PL_sys_intern.thr_intern.Wuse_showwindow)
#define w32_showwindow (PL_sys_intern.thr_intern.Wshowwindow)
#ifdef USE_ITHREADS
void win32_wait_for_children(pTHX);
# define PERL_WAIT_FOR_CHILDREN win32_wait_for_children(aTHX)
#endif
/* IO.xs and POSIX.xs define PERLIO_NOT_STDIO to 1 */
#if defined(PERL_EXT_IO) || defined(PERL_EXT_POSIX)
#undef PERLIO_NOT_STDIO
#endif
#define PERLIO_NOT_STDIO 0
#define EXEC_ARGV_CAST(x) ((const char *const *) x)
DllExport void *win32_signal_context(void);
#define PERL_GET_SIG_CONTEXT win32_signal_context()
#define Win_GetModuleHandle GetModuleHandle
#define Win_GetProcAddress GetProcAddress
#define Win_GetModuleFileName GetModuleFileName
#define Win_CreateSemaphore CreateSemaphore
#if defined(PERL_CORE) && !defined(O_ACCMODE)
# define O_ACCMODE (O_RDWR | O_WRONLY | O_RDONLY)
#endif
/* ucrt at least seems to allocate a whole bit per type,
just mask off one bit from the mask for our symlink
and socket file types.
*/
#define _S_IFLNK ((unsigned)(_S_IFDIR | _S_IFCHR))
#define _S_IFSOCK ((unsigned)(_S_IFDIR | _S_IFIFO))
/* mingw64 defines _S_IFBLK to 0x3000 which is _S_IFDIR | _S_IFIFO */
#ifndef _S_IFBLK
# define _S_IFBLK ((unsigned)(_S_IFCHR | _S_IFIFO))
#endif
#undef S_ISLNK
#define S_ISLNK(mode) (((mode) & _S_IFMT) == _S_IFLNK)
#undef S_ISSOCK
#define S_ISSOCK(mode) (((mode) & _S_IFMT) == _S_IFSOCK)
#undef S_ISBLK
#define S_ISBLK(mode) (((mode) & _S_IFMT) == _S_IFBLK)
/*
The default CRT struct stat uses unsigned short for st_dev and st_ino
which obviously isn't enough, so we define our own structure.
*/
typedef DWORD Dev_t;
typedef unsigned __int64 Ino_t;
struct w32_stat {
Dev_t st_dev;
Ino_t st_ino;
unsigned short st_mode;
DWORD st_nlink;
short st_uid;
short st_gid;
Dev_t st_rdev;
Off_t st_size;
time_t st_atime;
time_t st_mtime;
time_t st_ctime;
};
#endif /* _INC_WIN32_PERL5 */
Reference in New Issue View Git Blame Copy Permalink