(** PDF/UA *)

type subformat =
  | PDFUA1
  | PDFUA2

val subformat_of_string : string -> subformat

(** Print matterhorn test results ("" = all tests) *)
val test_matterhorn_print : Pdf.t -> string -> unit

(** Return JSON results of a matterhorn test ("" = all tests *) 
val test_matterhorn_json : Pdf.t -> string -> Cpdfyojson.Safe.t

(** Mark PDF as PDF/UA-1 compliant. *)
val mark : Pdf.t -> unit

(** Mark PDF as PDF/UA-2 compliant. *)
val mark2 : int -> Pdf.t -> unit

(** Remove any PDF/UA-* marker *)
val remove_mark : Pdf.t -> unit

(** Print the structure tree to standard output, graphically. *)
val print_struct_tree : Pdf.t -> unit

(** Extract structure tree to JSON *)
val extract_struct_tree : Pdf.t -> Cpdfyojson.Safe.t

(** Reapply an edited JSON structure tree to its PDF. *)
val replace_struct_tree : Pdf.t -> Cpdfyojson.Safe.t -> unit

val create_cpdfua1 : string -> Pdfpaper.t -> int -> Pdf.t

val create_cpdfua2 : string -> Pdfpaper.t -> int -> Pdf.t