1 files changed, 19 insertions, 0 deletions
diff --git a/lib/data_types/table.ml b/lib/data_types/table.ml
new file mode 100644
index 0000000..d807c5c
--- /dev/null
+++ b/lib/data_types/table.ml
@@ -0,0 +1,19 @@
+open StdLabels
+
+type t = {
+  file : string;
+  tab : int;
+  name : string;
+}
+
+(** Get the internal name for the given table. 
+
+    This value may differ from the association name given in the configuration. *)
+let name : t -> string =
+ fun source ->
+  let file_name =
+    source.file |> Filename.basename |> Filename.remove_extension
+  in
+  match source.tab with
+  | 1 -> file_name
+  | _ -> String.concat ~sep:"_" [ file_name; string_of_int source.tab ]