From bca1a206589bc41bbcb367a7ae9b217c02f0e892 Mon Sep 17 00:00:00 2001 From: Lukasz Kasprzak Date: Fri, 14 Aug 2026 16:43:00 +0200 Subject: kernel(lectionary): slug-keyed reading citations Data only, the same shape and discipline as Layer: slug-canonical, duplicates rejected at construction naming the offending slug, sexp round-trips. Which slug a day falls back to is a rubric and belongs to the rite module, so nothing here knows about ferias or Sundays. --- lib/kernel/lectionary.ml | 33 +++++++++++++++++++++++++++++++++ 1 file changed, 33 insertions(+) create mode 100644 lib/kernel/lectionary.ml (limited to 'lib/kernel/lectionary.ml') diff --git a/lib/kernel/lectionary.ml b/lib/kernel/lectionary.ml new file mode 100644 index 0000000..1da3d1e --- /dev/null +++ b/lib/kernel/lectionary.ml @@ -0,0 +1,33 @@ +open Sexplib0.Sexp_conv + +type entry = Slug.t * Citation.t list [@@deriving sexp] +type t = entry list [@@deriving sexp] + +let empty = [] + +let of_entries es = + let sorted = List.stable_sort (fun (a, _) (b, _) -> Slug.compare a b) es in + let rec dup = function + | (a, _) :: ((b, _) :: _ as rest) -> + if Slug.equal a b then Some a else dup rest + | _ -> None + in + match dup sorted with + | Some s -> + Error (Printf.sprintf "lectionary: duplicate slug %S" (Slug.to_string s)) + | None -> Ok sorted + +let find t s = List.assoc_opt s t +let mem t s = List.mem_assoc s t +let entries t = t + +let load path = + match Sexplib.Sexp.load_sexp path with + | exception Sexplib.Sexp.Parse_error e -> + Error (Printf.sprintf "lectionary: %s: %s" path e.err_msg) + | exception Sys_error e -> Error (Printf.sprintf "lectionary: %s" e) + | sexp -> ( + match t_of_sexp sexp with + | exception Sexplib0.Sexp_conv_error.Of_sexp_error (exn, _) -> + Error (Printf.sprintf "lectionary: %s: %s" path (Printexc.to_string exn)) + | parsed -> of_entries parsed) -- cgit v1.3