diff options
Diffstat (limited to 'win32/win32.h')
| -rw-r--r-- | win32/win32.h | 57 |
1 files changed, 28 insertions, 29 deletions
diff --git a/win32/win32.h b/win32/win32.h index a051bc7261..0a18645d9c 100644 --- a/win32/win32.h +++ b/win32/win32.h @@ -1,21 +1,21 @@ -// WIN32.H - -// (c) 1995 Microsoft Corporation. All rights reserved. -// Developed by hip communications inc., http://info.hip.com/info/ - -// You may distribute under the terms of either the GNU General Public -// License or the Artistic License, as specified in the README file. - +/* WIN32.H + * + * (c) 1995 Microsoft Corporation. All rights reserved. + * Developed by hip communications inc., http://info.hip.com/info/ + * + * 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 #define WIN32_LEAN_AND_MEAN #include <windows.h> -#ifdef WIN32_LEAN_AND_MEAN // C file is NOT a Perl5 original. -#define CONTEXT PERL_CONTEXT // Avoid conflict of CONTEXT defs. -#define index strchr // Why 'index'? -#endif //WIN32_LEAN_AND_MEAN +#ifdef WIN32_LEAN_AND_MEAN /* C file is NOT a Perl5 original. */ +#define CONTEXT PERL_CONTEXT /* Avoid conflict of CONTEXT defs. */ +#define index strchr /* Why 'index'? */ +#endif /*WIN32_LEAN_AND_MEAN */ #include <dirent.h> #include <io.h> @@ -23,7 +23,7 @@ #include <stdio.h> #include <direct.h> -// For UNIX compatibility. +/* For UNIX compatibility. */ typedef long uid_t; typedef long gid_t; @@ -45,15 +45,15 @@ extern FILE *myfdopen(int, char *); #undef fdopen #define fdopen myfdopen -#endif // USE_SOCKETS_AS_HANDLES +#endif /* USE_SOCKETS_AS_HANDLES */ -#define STANDARD_C 1 // Perl5 likes standard C. -#define DOSISH 1 // Take advantage of DOSish code in Perl5. +#define STANDARD_C 1 /* Perl5 likes standard C. */ +#define DOSISH 1 /* Take advantage of DOSish code in Perl5. */ -#define OP_BINARY _O_BINARY // Mistake in in pp_sys.c. +#define OP_BINARY _O_BINARY /* Mistake in in pp_sys.c. */ #undef mkdir -#define mkdir(nm, md) _mkdir(nm) // For UNIX compatibility. +#define mkdir(nm, md) _mkdir(nm) /* For UNIX compatibility. */ #undef chdir #define chdir(nm) _chdir(nm) @@ -62,7 +62,7 @@ extern FILE *myfdopen(int, char *); #define rmdir(nm) _rmdir(nm) #undef pipe -#define pipe(fd) win32_pipe((fd), 512, _O_BINARY) // the pipe call is a bit different +#define pipe(fd) win32_pipe((fd), 512, _O_BINARY) /* the pipe call is a bit different */ #undef pause #define pause() sleep((32767L << 16) + 32767) @@ -79,7 +79,7 @@ struct tms { long tms_stime; long tms_cutime; long tms_cstime; - }; +}; unsigned int sleep(unsigned int); char *win32PerlLibPath(); @@ -88,22 +88,21 @@ unsigned int myalarm(unsigned int sec); int do_aspawn(void* really, void** mark, void** arglast); int do_spawn(char *cmd); -typedef char * caddr_t; // In malloc.c (core address). +typedef char * caddr_t; /* In malloc.c (core address). */ -// -// Extension Library, only good for VC -// +/* + * Extension Library, only good for VC + */ #define DllExport __declspec(dllexport) - -// -// handle socket stuff, assuming socket is always available -// +/* + * handle socket stuff, assuming socket is always available + */ #include <sys/socket.h> #include <netdb.h> #pragma warning(disable: 4018 4035 4101 4102 4244 4245 4761) -#endif // _INC_NT_PERL5 +#endif /* _INC_WIN32_PERL5 */ |