1 /* WIN32.H
2 *
3 * (c) 1995 Microsoft Corporation. All rights reserved.
4 * Developed by hip communications inc.
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 */
9 #ifndef _INC_WIN32_PERL5
10 #define _INC_WIN32_PERL5
11
12 #ifndef _WIN32_WINNT
13 # define _WIN32_WINNT 0x0500 /* needed for CreateHardlink() etc. */
14 #endif
15
16 /* Win32 only optimizations for faster building */
17 #ifdef PERL_IS_MINIPERL
18 /* less I/O calls during each require */
19 # define PERL_DISABLE_PMC
20
21 /* unnecessary for miniperl to lookup anything from an "installed" perl */
22 # define WIN32_NO_REGISTRY
23
24 /* allow minitest to work */
25 # define PERL_TEXTMODE_SCRIPTS
26 #endif
27
28 #if defined(PERL_IMPLICIT_SYS)
29 # define DYNAMIC_ENV_FETCH
30 # define HAS_GETENV_LEN
31 # define WIN32IO_IS_STDIO /* don't pull in custom stdio layer */
32 # define WIN32SCK_IS_STDSCK /* don't pull in custom wsock layer */
33 #endif
34
35 #ifdef __GNUC__
36 # ifndef __int64 /* some versions seem to #define it already */
37 # define __int64 long long
38 # endif
39 # define Win32_Winsock
40 #endif
41
42
43 /* Define DllExport akin to perl's EXT,
44 * If we are in the DLL then Export the symbol,
45 * otherwise import it.
46 */
47
48 /* now even GCC supports __declspec() */
49 /* miniperl has no reason to export anything */
50 #if defined(PERL_IS_MINIPERL)
51 # define DllExport
52 #else
53 # if defined(PERLDLL)
54 # define DllExport __declspec(dllexport)
55 # else
56 # define DllExport __declspec(dllimport)
57 # endif
58 #endif
59
60 /* The Perl APIs can only be called directly inside the perl5xx.dll.
61 * All other code has to import them. By declaring them as "dllimport"
62 * we tell the compiler to generate an indirect call instruction and
63 * avoid redirection through a call thunk.
64 *
65 * The XS code in the re extension is special, in that it redefines
66 * core APIs locally, so don't mark them as "dllimport" because GCC
67 * cannot handle this situation.
68 *
69 * Certain old GCCs will not allow the function pointer of dllimport marked
70 * function to be "const". This was fixed later on. Since this is a
71 * deoptimization, target "gcc version 3.4.5 (mingw-vista special r3)" only,
72 * The GCC bug was fixed in GCC patch "varasm.c (initializer_constant_valid_p):
73 * Don't deny DECL_DLLIMPORT_P on functions", which probably was first released
74 * in GCC 4.3.0, this #if can be expanded upto but not including 4.3.0 if more
75 * deployed GCC are found that wont build with the follow error, initializer
76 * element is a PerlIO func exported from perl5xx.dll.
77 *
78 * encoding.xs:610: error: initializer element is not constant
79 * encoding.xs:610: error: (near initialization for `PerlIO_encode.Open')
80 */
81
82 #if (defined(__GNUC__) && defined(__MINGW32__) && \
83 !defined(__MINGW64_VERSION_MAJOR) && !defined(__clang__) && \
84 ((__GNUC__ < 3) || ((__GNUC__ == 3) && (__GNUC_MINOR__ <= 5))))
85 /* use default fallbacks from perl.h for this particular GCC */
86 #else
87 # if !defined(PERLDLL) && !defined(PERL_EXT_RE_BUILD)
88 # ifdef __cplusplus
89 # define PERL_CALLCONV extern "C" __declspec(dllimport)
90 # ifdef _MSC_VER
91 # define PERL_CALLCONV_NO_RET extern "C" __declspec(dllimport) __declspec(noreturn)
92 # endif
93 # else
94 # define PERL_CALLCONV __declspec(dllimport)
95 # ifdef _MSC_VER
96 # define PERL_CALLCONV_NO_RET __declspec(dllimport) __declspec(noreturn)
97 # endif
98 # endif
99 # else /* MSVC noreturn support inside the interp */
100 # ifdef _MSC_VER
101 # define PERL_CALLCONV_NO_RET __declspec(noreturn)
102 # endif
103 # endif
104 #endif
105
106 #ifdef _MSC_VER
107 # define PERL_STATIC_NO_RET __declspec(noreturn) static
108 # define PERL_STATIC_INLINE_NO_RET __declspec(noreturn) PERL_STATIC_INLINE
109 # define PERL_STATIC_FORCE_INLINE __forceinline static
110 # define PERL_STATIC_FORCE_INLINE_NO_RET __declspec(noreturn) __forceinline static
111 #endif
112
113 #define WIN32_LEAN_AND_MEAN
114 #include <windows.h>
115
116 /*
117 * Bug in winbase.h in mingw-w64 4.4.0-1 at least... they
118 * do #define GetEnvironmentStringsA GetEnvironmentStrings and fail
119 * to declare GetEnvironmentStringsA.
120 */
121 #if defined(__MINGW64__) && defined(GetEnvironmentStringsA) && !defined(UNICODE)
122 #ifdef __cplusplus
123 extern "C" {
124 #endif
125 #undef GetEnvironmentStringsA
126 WINBASEAPI LPCH WINAPI GetEnvironmentStringsA(VOID);
127 #define GetEnvironmentStrings GetEnvironmentStringsA
128 #ifdef __cplusplus
129 }
130 #endif
131 #endif
132
133 #ifdef WIN32_LEAN_AND_MEAN /* C file is NOT a Perl5 original. */
134 #define CONTEXT PERL_CONTEXT /* Avoid conflict of CONTEXT defs. */
135 #endif /*WIN32_LEAN_AND_MEAN */
136
137 #ifndef TLS_OUT_OF_INDEXES
138 #define TLS_OUT_OF_INDEXES (DWORD)0xFFFFFFFF
139 #endif
140
141 #include <dirent.h>
142 #include <io.h>
143 #include <process.h>
144 #include <stdio.h>
145 #include <direct.h>
146 #include <stdlib.h>
147 #include <stddef.h>
148 #include <fcntl.h>
149 #ifndef EXT
150 #include "EXTERN.h"
151 #endif
152
153 struct tms {
154 long tms_utime;
155 long tms_stime;
156 long tms_cutime;
157 long tms_cstime;
158 };
159
160 #ifndef SYS_NMLN
161 #define SYS_NMLN 257
162 #endif
163
164 struct utsname {
165 char sysname[SYS_NMLN];
166 char nodename[SYS_NMLN];
167 char release[SYS_NMLN];
168 char version[SYS_NMLN];
169 char machine[SYS_NMLN];
170 };
171
172 #ifndef START_EXTERN_C
173 #undef EXTERN_C
174 #ifdef __cplusplus
175 # define START_EXTERN_C extern "C" {
176 # define END_EXTERN_C }
177 # define EXTERN_C extern "C"
178 #else
179 # define START_EXTERN_C
180 # define END_EXTERN_C
181 # define EXTERN_C
182 #endif
183 #endif
184
185 #define DOSISH 1 /* no escaping our roots */
186 #define OP_BINARY O_BINARY /* mistake in in pp_sys.c? */
187
188 /* read() and write() aren't transparent for socket handles */
189 #ifndef WIN32_NO_SOCKETS
190 # define PERL_SOCK_SYSREAD_IS_RECV
191 # define PERL_SOCK_SYSWRITE_IS_SEND
192 #endif
193
194 #ifdef WIN32_NO_REGISTRY
195 /* the last _ in WIN32_NO_REGISTRY_M_ is like the _ in aTHX_ */
196 # define WIN32_NO_REGISTRY_M_(x)
197 #else
198 # define WIN32_NO_REGISTRY_M_(x) x,
199 #endif
200
201 #define ENV_IS_CASELESS
202
203 #define PIPESOCK_MODE "b" /* pipes, sockets default to binmode */
204
205 /* access() mode bits */
206 #ifndef R_OK
207 # define R_OK 4
208 # define W_OK 2
209 # define X_OK 1
210 # define F_OK 0
211 #endif
212
213 /* for waitpid() */
214 #ifndef WNOHANG
215 # define WNOHANG 1
216 #endif
217
218 #define PERL_GET_CONTEXT_DEFINED
219
220 /* Compiler-specific stuff. */
221
222 /* VC uses non-standard way to determine the size and alignment if bit-fields */
223 /* MinGW will compile with -mms-bitfields, so should use the same types */
224 #define PERL_BITFIELD8 U8
225 #define PERL_BITFIELD16 U16
226 #define PERL_BITFIELD32 U32
227
228 #ifdef _MSC_VER /* Microsoft Visual C++ */
229
230 typedef long uid_t;
231 typedef long gid_t;
232 typedef unsigned short mode_t;
233
234 #define snprintf _snprintf
235 #define vsnprintf _vsnprintf
236
237 MSVC_DIAG_IGNORE(4756 4056)
238 PERL_STATIC_INLINE
S_Infinity()239 double S_Infinity() {
240 /* this is a real C literal which can get further constant folded
241 unlike using HUGE_VAL/_HUGE which are data symbol imports from the CRT
242 and therefore can not by folded by VC, an example of constant
243 folding INF is creating -INF */
244 return (DBL_MAX+DBL_MAX);
245 }
246 MSVC_DIAG_RESTORE
247
248 #define NV_INF S_Infinity()
249
250 /* selectany allows duplicate and unused data symbols to be removed by
251 VC linker, if this were static, each translation unit will have its own,
252 usually unused __PL_nan_u, if this were plain extern it will cause link
253 to fail due to multiple definitions, since we dont know if we are being
254 compiled as static or DLL XS, selectany simply always works, the cost of
255 importing __PL_nan_u across DLL boundaries in size in the importing DLL
256 will be more than the 8 bytes it will take up being in each XS DLL if
257 that DLL actually uses __PL_nan_u */
258 union PerlNan { unsigned __int64 __q; double __d; };
259 extern const __declspec(selectany) union PerlNan __PL_nan_u = { 0x7FF8000000000000UI64 };
260 #define NV_NAN ((NV)__PL_nan_u.__d)
261
262 #endif /* ifdef _MSC_VER */
263
264 /* The CRT was rewritten in VS2015. */
265 #ifdef _UCRT
266
267 /* No longer declared in stdio.h */
268 EXTERN_C char *gets(char* buffer);
269
270 #define tzname _tzname
271
272 /* From corecrt_internal_stdio.h: */
273 typedef struct
274 {
275 union
276 {
277 FILE _public_file;
278 char* _ptr;
279 } u;
280
281 char* _base;
282 int _cnt;
283 long _flags;
284 long _file;
285 int _charbuf;
286 int _bufsiz;
287 char* _tmpfname;
288 CRITICAL_SECTION _lock;
289 } __crt_stdio_stream_data;
290
291 #define PERLIO_FILE_flag_RD 0x0001 /* _IOREAD */
292 #define PERLIO_FILE_flag_WR 0x0002 /* _IOWRITE */
293 #define PERLIO_FILE_flag_RW 0x0004 /* _IOUPDATE */
294 #define PERLIO_FILE_ptr(f) (((__crt_stdio_stream_data*)(f))->u._ptr)
295 #define PERLIO_FILE_base(f) (((__crt_stdio_stream_data*)(f))->_base)
296 #define PERLIO_FILE_cnt(f) (((__crt_stdio_stream_data*)(f))->_cnt)
297 #define PERLIO_FILE_flag(f) ((int)(((__crt_stdio_stream_data*)(f))->_flags))
298 #define PERLIO_FILE_file(f) (*(int*)(&((__crt_stdio_stream_data*)(f))->_file))
299
300 #else /* ifdef _UCRT */
301
302 /* Note: PERLIO_FILE_ptr/base/cnt are not actually used for GCC or <VS2015
303 * since FILE_ptr/base/cnt do the same thing anyway but it doesn't hurt to
304 * define them all here for completeness. */
305 #define PERLIO_FILE_flag_RD _IOREAD /* 0x001 */
306 #define PERLIO_FILE_flag_WR _IOWRT /* 0x002 */
307 #define PERLIO_FILE_flag_RW _IORW /* 0x080 */
308 #define PERLIO_FILE_ptr(f) ((f)->_ptr)
309 #define PERLIO_FILE_base(f) ((f)->_base)
310 #define PERLIO_FILE_cnt(f) ((f)->_cnt)
311 #define PERLIO_FILE_flag(f) ((f)->_flag)
312 #define PERLIO_FILE_file(f) ((f)->_file)
313
314 #endif
315
316 #ifdef __MINGW32__ /* Minimal Gnu-Win32 */
317
318 typedef long uid_t;
319 typedef long gid_t;
320 #ifndef _environ
321 #define _environ environ
322 #endif
323 #define flushall _flushall
324 #define fcloseall _fcloseall
325 #ifndef isnan
326 #define isnan _isnan /* ...same libraries as MSVC */
327 #endif
328
329 #ifndef _O_NOINHERIT
330 # define _O_NOINHERIT 0x0080
331 # ifndef _NO_OLDNAMES
332 # define O_NOINHERIT _O_NOINHERIT
333 # endif
334 #endif
335
336 /* <stdint.h>, pulled in by <io.h> as of mingw-runtime-3.3, typedef's
337 * (u)intptr_t but doesn't set the _(U)INTPTR_T_DEFINED defines */
338 #ifdef _STDINT_H
339 # ifndef _INTPTR_T_DEFINED
340 # define _INTPTR_T_DEFINED
341 # endif
342 # ifndef _UINTPTR_T_DEFINED
343 # define _UINTPTR_T_DEFINED
344 # endif
345 #endif
346
347 #ifndef CP_UTF8
348 # define CP_UTF8 65001
349 #endif
350
351 #endif /* __MINGW32__ */
352
353 #ifndef _INTPTR_T_DEFINED
354 typedef int intptr_t;
355 # define _INTPTR_T_DEFINED
356 #endif
357
358 #ifndef _UINTPTR_T_DEFINED
359 typedef unsigned int uintptr_t;
360 # define _UINTPTR_T_DEFINED
361 #endif
362
363 START_EXTERN_C
364
365 /* For UNIX compatibility. */
366
367 #ifdef PERL_CORE
368 extern uid_t getuid(void);
369 extern gid_t getgid(void);
370 extern uid_t geteuid(void);
371 extern gid_t getegid(void);
372 extern int setuid(uid_t uid);
373 extern int setgid(gid_t gid);
374 extern int kill(int pid, int sig);
375 #ifndef USE_PERL_SBRK
376 extern void *sbrk(ptrdiff_t need);
377 # define HAS_SBRK_PROTO
378 #endif
379 extern char * getlogin(void);
380 extern int chown(const char *p, uid_t o, gid_t g);
381 #if((!defined(__MINGW64_VERSION_MAJOR) || __MINGW64_VERSION_MAJOR < 4) && \
382 (!defined(__MINGW32_MAJOR_VERSION) || __MINGW32_MAJOR_VERSION < 3 || \
383 (__MINGW32_MAJOR_VERSION == 3 && __MINGW32_MINOR_VERSION < 21)))
384 extern int mkstemp(const char *path);
385 #endif
386 #endif
387
388 #undef Stat
389 #define Stat win32_stat
390
391 #undef init_os_extras
392 #define init_os_extras Perl_init_os_extras
393
394 DllExport void Perl_win32_init(int *argcp, char ***argvp);
395 DllExport void Perl_win32_term(void);
396 DllExport void Perl_init_os_extras(void);
397 DllExport void win32_str_os_error(void *sv, DWORD err);
398 DllExport int RunPerl(int argc, char **argv, char **env);
399
400 typedef struct {
401 HANDLE childStdIn;
402 HANDLE childStdOut;
403 HANDLE childStdErr;
404 /*
405 * the following correspond to the fields of the same name
406 * in the STARTUPINFO structure. Embedders can use these to
407 * control the spawning process' look.
408 * Example - to hide the window of the spawned process:
409 * dwFlags = STARTF_USESHOWWINDOW;
410 * wShowWindow = SW_HIDE;
411 */
412 DWORD dwFlags;
413 DWORD dwX;
414 DWORD dwY;
415 DWORD dwXSize;
416 DWORD dwYSize;
417 DWORD dwXCountChars;
418 DWORD dwYCountChars;
419 DWORD dwFillAttribute;
420 WORD wShowWindow;
421 } child_IO_table;
422
423 DllExport void win32_get_child_IO(child_IO_table* ptr);
424 DllExport HWND win32_create_message_window(void);
425 DllExport int win32_async_check(pTHX);
426
427 extern char * win32_get_privlib(WIN32_NO_REGISTRY_M_(const char *pl) STRLEN *const len);
428 extern char * win32_get_sitelib(const char *pl, STRLEN *const len);
429 extern char * win32_get_vendorlib(const char *pl, STRLEN *const len);
430
431 #ifdef PERL_IMPLICIT_SYS
432 extern void win32_delete_internal_host(void *h);
433 #endif
434
435 extern int win32_get_errno(int err);
436
437 extern const char * const staticlinkmodules[];
438
439 END_EXTERN_C
440
441 typedef char * caddr_t; /* In malloc.c (core address). */
442
443 /*
444 * handle socket stuff, assuming socket is always available
445 */
446 #include <sys/socket.h>
447 #include <netdb.h>
448
449 #ifdef MYMALLOC
450 #define EMBEDMYMALLOC /**/
451 /* #define USE_PERL_SBRK / **/
452 /* #define PERL_SBRK_VIA_MALLOC / **/
453 #endif
454
455 #ifdef PERL_TEXTMODE_SCRIPTS
456 # define PERL_SCRIPT_MODE "r"
457 #else
458 # define PERL_SCRIPT_MODE "rb"
459 #endif
460
461 /*
462 * Now Win32 specific per-thread data stuff
463 */
464
465 /* Leave the first couple ids after WM_USER unused because they
466 * might be used by an embedding application, and on Windows
467 * version before 2000 we might end up eating those messages
468 * if they were not meant for us.
469 */
470 #define WM_USER_MIN (WM_USER+30)
471 #define WM_USER_MESSAGE (WM_USER_MIN)
472 #define WM_USER_KILL (WM_USER_MIN+1)
473 #define WM_USER_MAX (WM_USER_MIN+1)
474
475 struct thread_intern {
476 /* XXX can probably use one buffer instead of several */
477 char Wstrerror_buffer[512];
478 struct servent Wservent;
479 char Wgetlogin_buffer[128];
480 int Winit_socktype;
481 char Wcrypt_buffer[30];
482 # ifdef USE_RTL_THREAD_API
483 void * retv; /* slot for thread return value */
484 # endif
485 BOOL Wuse_showwindow;
486 WORD Wshowwindow;
487 };
488
489 #define HAVE_INTERP_INTERN
490 typedef struct {
491 long num;
492 DWORD pids[MAXIMUM_WAIT_OBJECTS];
493 HANDLE handles[MAXIMUM_WAIT_OBJECTS];
494 } child_tab;
495
496 #ifdef USE_ITHREADS
497 typedef struct {
498 long num;
499 DWORD pids[MAXIMUM_WAIT_OBJECTS];
500 HANDLE handles[MAXIMUM_WAIT_OBJECTS];
501 HWND message_hwnds[MAXIMUM_WAIT_OBJECTS];
502 char sigterm[MAXIMUM_WAIT_OBJECTS];
503 } pseudo_child_tab;
504 #endif
505
506 #ifndef Sighandler_t
507 typedef Signal_t (*Sighandler_t) (int);
508 #define Sighandler_t Sighandler_t
509 #endif
510
511 struct interp_intern {
512 char * perlshell_tokens;
513 char ** perlshell_vec;
514 long perlshell_items;
515 struct av * fdpid;
516 child_tab * children;
517 #ifdef USE_ITHREADS
518 DWORD pseudo_id;
519 pseudo_child_tab * pseudo_children;
520 #endif
521 void * internal_host;
522 struct thread_intern thr_intern;
523 HWND message_hwnd;
524 UINT timerid;
525 unsigned poll_count;
526 Sighandler_t sigtable[SIG_SIZE];
527 };
528
529 #define WIN32_POLL_INTERVAL 32768
530 #define PERL_ASYNC_CHECK() if (w32_do_async || PL_sig_pending) win32_async_check(aTHX)
531
532 #define w32_perlshell_tokens (PL_sys_intern.perlshell_tokens)
533 #define w32_perlshell_vec (PL_sys_intern.perlshell_vec)
534 #define w32_perlshell_items (PL_sys_intern.perlshell_items)
535 #define w32_fdpid (PL_sys_intern.fdpid)
536 #define w32_children (PL_sys_intern.children)
537 #define w32_num_children (w32_children->num)
538 #define w32_child_pids (w32_children->pids)
539 #define w32_child_handles (w32_children->handles)
540 #define w32_pseudo_id (PL_sys_intern.pseudo_id)
541 #define w32_pseudo_children (PL_sys_intern.pseudo_children)
542 #define w32_num_pseudo_children (w32_pseudo_children->num)
543 #define w32_pseudo_child_pids (w32_pseudo_children->pids)
544 #define w32_pseudo_child_handles (w32_pseudo_children->handles)
545 #define w32_pseudo_child_message_hwnds (w32_pseudo_children->message_hwnds)
546 #define w32_pseudo_child_sigterm (w32_pseudo_children->sigterm)
547 #define w32_internal_host (PL_sys_intern.internal_host)
548 #define w32_timerid (PL_sys_intern.timerid)
549 #define w32_message_hwnd (PL_sys_intern.message_hwnd)
550 #define w32_sighandler (PL_sys_intern.sigtable)
551 #define w32_poll_count (PL_sys_intern.poll_count)
552 #define w32_do_async (w32_poll_count++ > WIN32_POLL_INTERVAL)
553 #define w32_strerror_buffer (PL_sys_intern.thr_intern.Wstrerror_buffer)
554 #define w32_getlogin_buffer (PL_sys_intern.thr_intern.Wgetlogin_buffer)
555 #define w32_crypt_buffer (PL_sys_intern.thr_intern.Wcrypt_buffer)
556 #define w32_servent (PL_sys_intern.thr_intern.Wservent)
557 #define w32_init_socktype (PL_sys_intern.thr_intern.Winit_socktype)
558 #define w32_use_showwindow (PL_sys_intern.thr_intern.Wuse_showwindow)
559 #define w32_showwindow (PL_sys_intern.thr_intern.Wshowwindow)
560
561 #ifdef USE_ITHREADS
562 void win32_wait_for_children(pTHX);
563 # define PERL_WAIT_FOR_CHILDREN win32_wait_for_children(aTHX)
564 #endif
565
566 /* IO.xs and POSIX.xs define PERLIO_NOT_STDIO to 1 */
567 #if defined(PERL_EXT_IO) || defined(PERL_EXT_POSIX)
568 #undef PERLIO_NOT_STDIO
569 #endif
570 #define PERLIO_NOT_STDIO 0
571
572 #define EXEC_ARGV_CAST(x) ((const char *const *) x)
573
574 DllExport void *win32_signal_context(void);
575 #define PERL_GET_SIG_CONTEXT win32_signal_context()
576
577 #define Win_GetModuleHandle GetModuleHandle
578 #define Win_GetProcAddress GetProcAddress
579 #define Win_GetModuleFileName GetModuleFileName
580 #define Win_CreateSemaphore CreateSemaphore
581
582 #if defined(PERL_CORE) && !defined(O_ACCMODE)
583 # define O_ACCMODE (O_RDWR | O_WRONLY | O_RDONLY)
584 #endif
585
586 /* ucrt at least seems to allocate a whole bit per type,
587 just mask off one bit from the mask for our symlink
588 and socket file types.
589 */
590 #define _S_IFLNK ((unsigned)(_S_IFDIR | _S_IFCHR))
591 #define _S_IFSOCK ((unsigned)(_S_IFDIR | _S_IFIFO))
592 /* mingw64 defines _S_IFBLK to 0x3000 which is _S_IFDIR | _S_IFIFO */
593 #ifndef _S_IFBLK
594 # define _S_IFBLK ((unsigned)(_S_IFCHR | _S_IFIFO))
595 #endif
596 #undef S_ISLNK
597 #define S_ISLNK(mode) (((mode) & _S_IFMT) == _S_IFLNK)
598 #undef S_ISSOCK
599 #define S_ISSOCK(mode) (((mode) & _S_IFMT) == _S_IFSOCK)
600 #undef S_ISBLK
601 #define S_ISBLK(mode) (((mode) & _S_IFMT) == _S_IFBLK)
602
603 /*
604
605 The default CRT struct stat uses unsigned short for st_dev and st_ino
606 which obviously isn't enough, so we define our own structure.
607
608 */
609
610 typedef DWORD Dev_t;
611 typedef unsigned __int64 Ino_t;
612
613 struct w32_stat {
614 Dev_t st_dev;
615 Ino_t st_ino;
616 unsigned short st_mode;
617 DWORD st_nlink;
618 short st_uid;
619 short st_gid;
620 Dev_t st_rdev;
621 Off_t st_size;
622 time_t st_atime;
623 time_t st_mtime;
624 time_t st_ctime;
625 };
626
627 #endif /* _INC_WIN32_PERL5 */
628
629