From 6b377719c10d5ab3343fd5221f99a4a21008e25a Mon Sep 17 00:00:00 2001
From: Sébastien Dailly <sebastien@dailly.me>
Date: Thu, 14 Mar 2024 08:26:58 +0100
Subject: Initial commit

---
 lib/configuration/syntax.ml | 88 +++++++++++++++++++++++++++++++++++++++++++++
 1 file changed, 88 insertions(+)
 create mode 100644 lib/configuration/syntax.ml

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

diff --git a/lib/configuration/syntax.ml b/lib/configuration/syntax.ml
new file mode 100644
index 0000000..8efdc59
--- /dev/null
+++ b/lib/configuration/syntax.ml
@@ -0,0 +1,88 @@
+open StdLabels
+module E = ImportExpression.T
+module Table = ImportDataTypes.Table
+module Path = ImportDataTypes.Path
+
+let toml_of_table Table.{ file; tab; name } =
+  let values = [ ("file", Otoml.string file); ("name", Otoml.string name) ] in
+  let values =
+    match tab with
+    | 1 -> values
+    | tab -> ("tab", Otoml.integer tab) :: values
+  in
+
+  Otoml.table values
+
+type extern = {
+  intern_key : Path.t E.t;
+  target : Table.t;
+  extern_key : Path.column E.t;
+  allow_missing : bool;
+  match_rule : string option;
+}
+
+let toml_of_extern extern =
+  let values =
+    [
+      ( "intern_key",
+        Otoml.string
+        @@ ImportExpression.Repr.repr ~top:true Path.repr extern.intern_key );
+      ( "extern_key",
+        Otoml.string
+        @@ ImportExpression.Repr.repr ~top:true
+             (fun v -> ":" ^ ImportCSV.Csv.column_to_string v)
+             extern.extern_key );
+      ("file", Otoml.string extern.target.file);
+      ("allow_missing", Otoml.boolean extern.allow_missing);
+    ]
+  in
+
+  let values =
+    match extern.target.tab with
+    | 1 -> values
+    | tab -> ("tab", Otoml.integer tab) :: values
+  in
+
+  Otoml.table values
+
+let toml_of_externs externs =
+  List.map externs ~f:(fun e -> (e.target.name, toml_of_extern e))
+  |> Otoml.table
+
+type t = {
+  version : int;
+  source : Table.t;
+  externals : extern list;
+  columns : Path.t E.t list;
+  filters : Path.t E.t list;
+  sort : Path.t E.t list;
+  uniq : Path.t E.t list;
+}
+
+let repr t =
+  let repr_expression_list l =
+    Otoml.array
+      (List.map l ~f:(fun v ->
+           Otoml.string (ImportExpression.Repr.repr ~top:true Path.repr v)))
+  in
+
+  let sheet =
+    Otoml.table
+      [
+        ("columns", repr_expression_list t.columns);
+        ("filters", repr_expression_list t.filters);
+        ("sort", repr_expression_list t.sort);
+        ("uniq", repr_expression_list t.uniq);
+      ]
+  in
+
+  let values =
+    [
+      ("version", Otoml.integer t.version);
+      ("source", toml_of_table t.source);
+      ("externals", toml_of_externs t.externals);
+      ("sheet", sheet);
+    ]
+  in
+
+  Otoml.table values
-- 
cgit v1.2.3