Module Cpdfua

module Cpdfua: sig .. end

PDF/UA

type subformat =

`\|`	`PDFUA1`
`\|`	`PDFUA2`

val subformat_of_string : string -> subformat

Parse PDF/UA-1 and PDF/UA-2 to the subformat type.

val test_matterhorn_print : Pdf.t -> string -> unit

Print matterhorn test results ("" = all tests)

val test_matterhorn_json : Pdf.t -> string -> Cpdfyojson.Safe.t

Return JSON results of a matterhorn test ("" = all tests

val mark : Pdf.t -> unit

Mark PDF as PDF/UA-1 compliant.

val mark2 : int -> Pdf.t -> unit

Mark PDF as PDF/UA-2 compliant.

val remove_mark : Pdf.t -> unit

Remove any PDF/UA-* marker

val print_struct_tree : Pdf.t -> unit

Print the structure tree to standard output, graphically.

val extract_struct_tree : Pdf.t -> Cpdfyojson.Safe.t

Extract structure tree to JSON

val replace_struct_tree : Pdf.t -> Cpdfyojson.Safe.t -> unit

Reapply an edited JSON structure tree to its PDF.

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

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