From 37556ab070abcbf87a1a822c95aeccf19dade687 Mon Sep 17 00:00:00 2001
From: Sébastien Dailly <sebastien@dailly.me>
Date: Wed, 22 Jan 2025 13:43:50 +0100
Subject: Force the locale before printing a result

---
 lib/configuration/dune          |  1 -
 lib/configuration/importConf.ml | 11 +----------
 lib/configuration/locale.c      | 12 ------------
 3 files changed, 1 insertion(+), 23 deletions(-)
 delete mode 100644 lib/configuration/locale.c

(limited to 'lib/configuration')

diff --git a/lib/configuration/dune b/lib/configuration/dune
index 74ace87..6a0bc61 100755
--- a/lib/configuration/dune
+++ b/lib/configuration/dune
@@ -16,7 +16,6 @@
    ppx_deriving.show 
    ppx_deriving.eq 
  ))
- (foreign_stubs (language c) (names locale))
 )
 
 (rule
diff --git a/lib/configuration/importConf.ml b/lib/configuration/importConf.ml
index 2f56bd6..ebbcb7c 100644
--- a/lib/configuration/importConf.ml
+++ b/lib/configuration/importConf.ml
@@ -5,8 +5,6 @@ module Path = ImportDataTypes.Path
 module T = Read_conf
 module Expression = ImportExpression.T
 
-external set_locale : string -> unit = "set_locale"
-
 let latest_version = 1
 
 module TomlReader = Read_conf.Make (Helpers.Toml.Decode)
@@ -19,14 +17,7 @@ let t_of_toml : Otoml.t -> (Syntax.t, string) result =
       [ "version" ]
   in
   match version with
-  | n when n = latest_version ->
-      let conf = TomlReader.read toml in
-      let () =
-        Result.iter
-          (fun conf -> set_locale (Option.value ~default:"" conf.Syntax.locale))
-          conf
-      in
-      conf
+  | n when n = latest_version -> TomlReader.read toml
   | _ ->
       Printf.eprintf "Unsuported version : %d\n" version;
       exit 1
diff --git a/lib/configuration/locale.c b/lib/configuration/locale.c
deleted file mode 100644
index eeafd26..0000000
--- a/lib/configuration/locale.c
+++ /dev/null
@@ -1,12 +0,0 @@
-#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