From 5e15341857e57671a3c617579e3d5dcc89040936 Mon Sep 17 00:00:00 2001
From: Sébastien Dailly <sebastien@dailly.me>
Date: Fri, 10 Jan 2025 22:06:06 +0100
Subject: Print the float numbers using the user locale

---
 lib/configuration/locale.c | 12 ++++++++++++
 1 file changed, 12 insertions(+)
 create mode 100644 lib/configuration/locale.c

(limited to 'lib/configuration/locale.c')

diff --git a/lib/configuration/locale.c b/lib/configuration/locale.c
new file mode 100644
index 0000000..eeafd26
--- /dev/null
+++ b/lib/configuration/locale.c
@@ -0,0 +1,12 @@
+#include <stdio.h>
+#include <locale.h>
+#include <caml/memory.h>
+#include <caml/alloc.h>
+
+CAMLprim value set_locale( value param )
+{
+    const char *s;
+    s = String_val(param);
+    setlocale(LC_NUMERIC, s);
+    return Val_unit;
+}
-- 
cgit v1.2.3