1 files changed, 74 insertions, 0 deletions
diff --git a/lib/citation/book.ml b/lib/citation/book.ml
new file mode 100644
index 0000000..a2f9678
--- /dev/null
+++ b/lib/citation/book.ml
@@ -0,0 +1,74 @@
+(* SPDX-License-Identifier: AGPL-3.0-or-later *)
+
+type id = string
+
+let to_string t = t
+
+(* Every book the shipped EF lectionary cites, with every spelling it uses.
+   The dotted/undotted pairs are inherited from lectio -- see book.mli. *)
+let table =
+  [ ("genesis",          [ "Gen" ]);
+    ("exodus",           [ "Ex" ]);
+    ("leviticus",        [ "Lev" ]);
+    ("numbers",          [ "Num" ]);
+    ("kings_3",          [ "3 Kings"; "3 Kgs." ]);
+    ("kings_4",          [ "4 Kings" ]);
+    ("esdras_2",         [ "2 Esd." ]);
+    ("esther",           [ "Esther" ]);
+    ("ecclesiasticus",   [ "Ecclus" ]);
+    ("isaiah",           [ "Isa"; "Isa." ]);
+    ("jeremiah",         [ "Jer" ]);
+    ("ezekiel",          [ "Ezech" ]);
+    ("daniel",           [ "Dan" ]);
+    ("osee",             [ "Osee" ]);
+    ("joel",             [ "Joel" ]);
+    ("jonas",            [ "Jonas" ]);
+    ("matthew",          [ "Matt"; "Matt." ]);
+    ("mark",             [ "Mark" ]);
+    ("luke",             [ "Luke" ]);
+    ("john",             [ "John" ]);
+    ("acts",             [ "Acts" ]);
+    ("romans",           [ "Rom" ]);
+    ("corinthians_1",    [ "1 Cor"; "1 Cor." ]);
+    ("corinthians_2",    [ "2 Cor." ]);
+    ("galatians",        [ "Gal" ]);
+    ("ephesians",        [ "Eph"; "Eph." ]);
+    ("philippians",      [ "Phil" ]);
+    ("colossians",       [ "Col" ]);
+    ("thessalonians_1",  [ "1 Thess"; "1 Thess." ]);
+    ("thessalonians_2",  [ "2 Thess" ]);
+    ("titus",            [ "Titus" ]);
+    ("hebrews",          [ "Heb" ]);
+    ("james",            [ "Jas" ]);
+    ("peter_1",          [ "1 Pet"; "1 Pet." ]);
+    ("john_1",           [ "1 John" ]) ]
+
+(* Targets a tradition can map ONTO that the Vulgate data never cites
+   directly. Present so [tradition_of_fields] can validate both sides. *)
+let tradition_targets =
+  [ "kings_1"; "kings_2"; "nehemiah"; "sirach"; "hosea"; "jonah" ]
+
+let all = List.map fst table @ tradition_targets
+
+let tokens =
+  List.concat_map (fun (id, sp) -> List.map (fun s -> (s, id)) sp) table
+
+let of_token s =
+  let s = String.trim s in
+  List.assoc_opt s tokens
+
+type tradition = (string * string) list
+
+let vulgate = []
+
+let known id = List.mem id all
+
+let tradition_of_fields fields =
+  List.filter (fun (a, b) -> known a && known b) fields
+
+let unknown_fields fields =
+  List.filter_map
+    (fun (a, b) -> if known a && known b then None else Some a)
+    fields
+
+let map tr id = match List.assoc_opt id tr with Some x -> x | None -> id