2 files changed, 52 insertions, 0 deletions
diff --git a/lib/citation/sigla.ml b/lib/citation/sigla.ml
new file mode 100644
index 0000000..a4f4555
--- /dev/null
+++ b/lib/citation/sigla.ml
@@ -0,0 +1,22 @@
+(* SPDX-License-Identifier: AGPL-3.0-or-later *)
+
+type t =
+  | Verbatim
+  | Styled of {
+      style : Render.style;
+      tradition : Book.tradition;
+      names : Book.id -> [ `Full | `Abbr ] -> string;
+    }
+
+let verbatim = Verbatim
+let make ~style ~tradition ~names = Styled { style; tradition; names }
+
+let format t s =
+  match t with
+  | Verbatim -> s
+  | Styled { style; tradition; names } -> (
+      match Parse.parse s with
+      | Error _ -> s
+      | Ok c ->
+          let c = { c with Parse.book = Book.map tradition c.Parse.book } in
+          Render.render style ~names c)
diff --git a/lib/citation/sigla.mli b/lib/citation/sigla.mli
new file mode 100644
index 0000000..d21877a
--- /dev/null
+++ b/lib/citation/sigla.mli
@@ -0,0 +1,30 @@
+(* SPDX-License-Identifier: AGPL-3.0-or-later *)
+
+(** The whole citation pipeline as one TOTAL function, so a call site needs
+    one value and one call rather than a parse/map/render dance.
+
+    {!format} never raises and never drops text: a citation that does not
+    parse is returned UNCHANGED. That combination is deliberate -- graceful
+    in production, while [test_citation_coverage.ml] asserts strictly that
+    no shipped citation actually takes that path. *)
+
+type t
+
+val make :
+  style:Render.style ->
+  tradition:Book.tradition ->
+  names:(Book.id -> [ `Full | `Abbr ] -> string) ->
+  t
+
+(** Returns every citation exactly as given. This is what [--raw] uses, the
+    same shape as {!Colitur_naming.Lang.raw}: raw output is one value passed
+    around, not a special case threaded through every call site.
+
+    [--raw] must NOT merely use an identity name table -- that would still
+    reformat punctuation and apply a tradition. Byte-exact output is what
+    makes [--raw] usable for diffing against lectio, and it also keeps the
+    raw view independent of the parser, so a parser bug cannot corrupt the
+    output used to diagnose it. *)
+val verbatim : t
+
+val format : t -> string -> string