This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Monster _r patch: try to scan for all known _r variants,
[perl5.git] / win32 / win32iop.h
index 51ddb03..6ddafa5 100644 (file)
@@ -7,8 +7,8 @@
 #  define END_EXTERN_C }
 #  define EXTERN_C extern "C"
 #else
-#  define START_EXTERN_C 
-#  define END_EXTERN_C 
+#  define START_EXTERN_C
+#  define END_EXTERN_C
 #  define EXTERN_C
 #endif
 #endif
@@ -150,9 +150,14 @@ DllExport void             win32_free_childenv(void* d);
 DllExport void         win32_clearenv(void);
 DllExport char *       win32_get_childdir(void);
 DllExport void         win32_free_childdir(char* d);
+DllExport Sighandler_t win32_signal(int sig, Sighandler_t subcode);
+
 
 END_EXTERN_C
 
+#undef alarm
+#define alarm                  win32_alarm
+
 /*
  * the following six(6) is #define in stdio.h
  */
@@ -169,7 +174,6 @@ END_EXTERN_C
 #undef pause
 #undef sleep
 #undef times
-#undef alarm
 #undef ioctl
 #undef unlink
 #undef utime
@@ -283,7 +287,6 @@ END_EXTERN_C
 #define pause()                        win32_sleep((32767L << 16) + 32767)
 #define sleep                  win32_sleep
 #define times                  win32_times
-#define alarm                  win32_alarm
 #define ioctl                  win32_ioctl
 #define link                   win32_link
 #define unlink                 win32_unlink
@@ -323,4 +326,3 @@ END_EXTERN_C
 
 #endif /* WIN32IO_IS_STDIO */
 #endif /* WIN32IOP_H */
-