From 7d1337d069921554e8a649b31a529f4bfcf05d76 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Hugo=20H=C3=B6rnquist?= <hugo@lysator.liu.se>
Date: Wed, 12 Apr 2023 12:01:38 +0200
Subject: Add with-locale1.

---
 doc/ref/guile/util.texi     |  5 +++++
 module/hnh/util/env.scm     | 13 ++++++++++++-
 tests/test/hnh-util-env.scm |  2 ++
 3 files changed, 19 insertions(+), 1 deletion(-)

diff --git a/doc/ref/guile/util.texi b/doc/ref/guile/util.texi
index 72aa30b1..1d35e0bf 100644
--- a/doc/ref/guile/util.texi
+++ b/doc/ref/guile/util.texi
@@ -324,6 +324,11 @@ Similar to @var{let}, but sets environment variables for the code in
 body. Restores the old values once we leave.
 @end defmac
 
+@defmac with-locale1 category locale thunk
+Run @var{thunk} with the locale @var{category} temporarily set to
+@var{locale}.
+@end defmac
+
 @defmac catch* thunk (symbol proc) ...
 Macro allowing multiple exception types to be caught. Each (symbol
 proc) pair expands to a regular @code{catch}, with the leftmost being
diff --git a/module/hnh/util/env.scm b/module/hnh/util/env.scm
index 18ec0543..32ea1cc1 100644
--- a/module/hnh/util/env.scm
+++ b/module/hnh/util/env.scm
@@ -1,5 +1,7 @@
 (define-module (hnh util env)
-  :export (let-env with-working-directory))
+  :export (let-env
+           with-working-directory
+           with-locale1))
 
 (define-syntax let-env
   (syntax-rules ()
@@ -33,3 +35,12 @@
      thunk
      (lambda () (chdir old-cwd)))))
 
+
+(define-syntax-rule (with-locale1 category locale thunk)
+  (let ((old #f))
+    (dynamic-wind
+      (lambda ()
+        (set! old (setlocale category))
+        (setlocale category locale))
+      thunk
+      (lambda () (setlocale category old)))))
diff --git a/tests/test/hnh-util-env.scm b/tests/test/hnh-util-env.scm
index 93f72bc9..f38a3a3b 100644
--- a/tests/test/hnh-util-env.scm
+++ b/tests/test/hnh-util-env.scm
@@ -45,3 +45,5 @@
 (test-group "with-working-directory"
   'TODO)
 
+(test-group "with-locale"
+  'TODO)
-- 
cgit v1.2.3