1 files changed, 12 insertions, 0 deletions
diff --git a/lib/analysers/printers.ml b/lib/analysers/printers.ml
new file mode 100644
index 0000000..1c73c13
--- /dev/null
+++ b/lib/analysers/printers.ml
@@ -0,0 +1,12 @@
+module Syntax = ImportConf.Syntax
+module Table = ImportDataTypes.Table
+module Path = ImportDataTypes.Path
+
+let path : conf:Syntax.t -> Format.formatter -> Path.t -> unit =
+ fun ~conf buffer { alias; column } ->
+  let table = ImportConf.get_table_for_name conf alias in
+  Format.fprintf buffer "%s"
+    (Table.print_column table ("col_" ^ string_of_int column))
+
+let prepare_key : f:(Format.formatter -> unit) -> Format.formatter -> unit =
+ fun ~f formatter -> Format.fprintf formatter "rtrim(upper(%t))" f