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/importConf.ml | 12 +++++++++++-
 1 file changed, 11 insertions(+), 1 deletion(-)

(limited to 'lib/configuration/importConf.ml')

diff --git a/lib/configuration/importConf.ml b/lib/configuration/importConf.ml
index 3406a11..aa0e2f3 100644
--- a/lib/configuration/importConf.ml
+++ b/lib/configuration/importConf.ml
@@ -5,6 +5,8 @@ module Path = ImportDataTypes.Path
 module T = Read_conf
 module Expression = ImportExpression.T
 
+external set_locale : string -> unit = "set_locale"
+
 let current_syntax = 1
 
 let t_of_yojson : Yojson.Safe.t -> Syntax.t =
@@ -39,7 +41,14 @@ let t_of_toml : Otoml.t -> (Syntax.t, string) result =
       [ "version" ]
   in
   match version with
-  | n when n = latest_version -> TomlReader.read toml
+  | 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
   | _ ->
       Printf.eprintf "Unsuported version : %d\n" version;
       exit 1
@@ -49,6 +58,7 @@ let dummy_conf =
     {
       source = { file = ""; tab = 0; name = "" };
       version = 1;
+      locale = Some "C";
       externals = [];
       columns = [];
       filters = [];
-- 
cgit v1.2.3