diff options
| author | Nick Ing-Simmons <nik@tiuk.ti.com> | 2002-01-09 14:27:36 +0000 |
|---|---|---|
| committer | Nick Ing-Simmons <nik@tiuk.ti.com> | 2002-01-09 14:27:36 +0000 |
| commit | 8fb3fcfbf81183f2debffe46095567d72edd85ad (patch) | |
| tree | 8cba5443b8889efbd01b40c969e95e2e12c5bc50 /win32/win32.h | |
| parent | 2d0270d7ccf6ad5f00541f3d4c193938b0e5d8a6 (diff) | |
| download | perl-8fb3fcfbf81183f2debffe46095567d72edd85ad.tar.gz | |
(Re-)implement alarm() for Win32.
p4raw-id: //depot/perlio@14151
Diffstat (limited to 'win32/win32.h')
| -rw-r--r-- | win32/win32.h | 8 |
1 files changed, 8 insertions, 0 deletions
diff --git a/win32/win32.h b/win32/win32.h index ecab6a0c27..a1f7ea0e0e 100644 --- a/win32/win32.h +++ b/win32/win32.h @@ -382,8 +382,13 @@ struct interp_intern { #ifndef USE_5005THREADS struct thread_intern thr_intern; #endif + UINT timerid; + HANDLE msg_event; }; +DllExport int win32_async_check(pTHX); + +#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) @@ -399,6 +404,8 @@ struct interp_intern { #define w32_pseudo_child_pids (w32_pseudo_children->pids) #define w32_pseudo_child_handles (w32_pseudo_children->handles) #define w32_internal_host (PL_sys_intern.internal_host) +#define w32_timerid (PL_sys_intern.timerid) +#define w32_do_async (w32_timerid != 0) #ifdef USE_5005THREADS # define w32_strerror_buffer (thr->i.Wstrerror_buffer) # define w32_getlogin_buffer (thr->i.Wgetlogin_buffer) @@ -518,3 +525,4 @@ EXTERN_C _CRTIMP ioinfo* __pioinfo[]; #endif /* _INC_WIN32_PERL5 */ + |