[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Guile-commits] 11/25: Add `scm_sigaction_for_thread' stub for MinGW.
From: |
Mike Gran |
Subject: |
[Guile-commits] 11/25: Add `scm_sigaction_for_thread' stub for MinGW. |
Date: |
Thu, 10 Nov 2022 18:06:17 -0500 (EST) |
mike121 pushed a commit to branch wip-mingw
in repository guile.
commit 99507f1cda72b6a64236559717fe7b8321864c88
Author: Jan (janneke) Nieuwenhuizen <janneke@gnu.org>
AuthorDate: Sat Mar 21 13:06:56 2020 +0100
Add `scm_sigaction_for_thread' stub for MinGW.
* libguile/scmsigs.c (scm_sigaction_for_thread)[__MINGW32__]: New stub.
(SIGHUP, SIGPIPE)[__MINGW32__]: New defines.
---
libguile/posix.c | 4 +++-
libguile/scmsigs.c | 19 +++++++++++++++++++
2 files changed, 22 insertions(+), 1 deletion(-)
diff --git a/libguile/posix.c b/libguile/posix.c
index b5352c2c4..116843bcf 100644
--- a/libguile/posix.c
+++ b/libguile/posix.c
@@ -52,7 +52,9 @@
#ifdef __MINGW32__
# include "posix-w32.h"
-#endif
+# define SIGHUP 1
+# define SIGPIPE 13
+#endif /* __MINGW32__ */
#include "async.h"
#include "bitvectors.h"
diff --git a/libguile/scmsigs.c b/libguile/scmsigs.c
index 17164f4cc..d42af0d61 100644
--- a/libguile/scmsigs.c
+++ b/libguile/scmsigs.c
@@ -306,6 +306,23 @@ scm_sigaction (SCM signum, SCM handler, SCM flags)
return scm_sigaction_for_thread (signum, handler, flags, SCM_UNDEFINED);
}
+#if __MINGW32__
+
+SCM_DEFINE (scm_sigaction_for_thread, "sigaction", 1, 3, 0,
+ (SCM signum, SCM handler, SCM flags, SCM thread),
+ "sigaction stub")
+#define FUNC_NAME s_scm_sigaction_for_thread
+{
+ (void) signum;
+ (void) handler;
+ (void) flags;
+ (void) thread;
+ return SCM_UNSPECIFIED;
+}
+#undef FUNC_NAME
+
+#else /* !__MINGW32__ */
+
/* user interface for installation of signal handlers. */
SCM_DEFINE (scm_sigaction_for_thread, "sigaction", 1, 3, 0,
(SCM signum, SCM handler, SCM flags, SCM thread),
@@ -501,6 +518,8 @@ SCM_DEFINE (scm_sigaction_for_thread, "sigaction", 1, 3, 0,
}
#undef FUNC_NAME
+#endif /* !__MINGW32__ */
+
SCM_DEFINE (scm_restore_signals, "restore-signals", 0, 0, 0,
(void),
"Return all signal handlers to the values they had before any call
to\n"
- [Guile-commits] 01/25: gnulib: Import the gethostname module., (continued)
- [Guile-commits] 01/25: gnulib: Import the gethostname module., Mike Gran, 2022/11/10
- [Guile-commits] 08/25: squash! Fix 'absolute-file-name?' and others for cross-build to MinGW., Mike Gran, 2022/11/10
- [Guile-commits] 10/25: Install 'mingw_take_signal' on MinGW., Mike Gran, 2022/11/10
- [Guile-commits] 21/25: Revert "squash! Fix 'absolute-file-name?' and others for cross-build to MinGW.", Mike Gran, 2022/11/10
- [Guile-commits] 23/25: fixes for chmodat test, Mike Gran, 2022/11/10
- [Guile-commits] 06/25: Clear errno before CreateProcess for MinGW., Mike Gran, 2022/11/10
- [Guile-commits] 04/25: Add 'set-port-binary/text-mode!' procedure for MinGW., Mike Gran, 2022/11/10
- [Guile-commits] 03/25: mingw: canonicalize-path: Also canonicalize drive letter and '/'., Mike Gran, 2022/11/10
- [Guile-commits] 02/25: Link fix for MinGW., Mike Gran, 2022/11/10
- [Guile-commits] 09/25: Make `read-bytes' suspendable for socket reads on MinGW., Mike Gran, 2022/11/10
- [Guile-commits] 11/25: Add `scm_sigaction_for_thread' stub for MinGW.,
Mike Gran <=
- [Guile-commits] 12/25: DRAFT Add partial `scm_fcntl' support for MinGW., Mike Gran, 2022/11/10
- [Guile-commits] 14/25: REMOVEME mingw: Hardcode compile-time-file-name-convention to 'mingw., Mike Gran, 2022/11/10
- [Guile-commits] 15/25: REMOVEME guix: guile-mingw: Hardcode file-name-convention., Mike Gran, 2022/11/10
- [Guile-commits] 16/25: DEBUG guile.cmd, wine-guile.sh: Some Wine help., Mike Gran, 2022/11/10
- [Guile-commits] 05/25: Support for x86_64-w64-mingw32., Mike Gran, 2022/11/10
- [Guile-commits] 07/25: Fix 'absolute-file-name?' and others for cross-build to MinGW., Mike Gran, 2022/11/10
- [Guile-commits] 13/25: guix: Add guile-patched, guile-mingw., Mike Gran, 2022/11/10
- [Guile-commits] 19/25: For MinGW, use native signal func in sigaction, Mike Gran, 2022/11/10
- [Guile-commits] 22/25: Revert "Fix 'absolute-file-name?' and others for cross-build to MinGW.", Mike Gran, 2022/11/10
- [Guile-commits] 17/25: MinGW 64: fixes hash out-of-range error for 64-bit negative numbers, Mike Gran, 2022/11/10