fenix/cpdf-source
1
0
Fork 0
mirror of https://github.com/johnwhitington/cpdf-source.git synced 2025-02-17 04:10:48 +01:00
Code Issues Packages Projects Releases Wiki Activity

Adds -typeset-subformat

Browse Source
This commit is contained in:
John Whitington 2024-09-14 14:40:53 +01:00
parent 4f282903b8
commit b86fec486e
3 changed files with 17 additions and 11 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

13
cpdfcommand.ml
View File

@ -77,15 +77,6 @@ let parse_pagespec_allow_empty pdf spec =
try Cpdfpagespec.parse_pagespec pdf spec with try Cpdfpagespec.parse_pagespec pdf spec with
Pdf.PDFError ("Page range specifies no pages") -> [] Pdf.PDFError ("Page range specifies no pages") -> []
type subformat =
| PDFUA1
| PDFUA2
let subformat_of_string = function
| "PDF/UA-1" -> PDFUA1
| "PDF/UA-2" -> PDFUA2
| _ -> error "Unknown subformat"
(* Operations. *) (* Operations. *)
type op = type op =
| CopyFont of string | CopyFont of string
@ -554,7 +545,7 @@ type args =
mutable verify_single : string option; mutable verify_single : string option;
mutable draw_struct_tree : bool; mutable draw_struct_tree : bool;
mutable image_title : string option; mutable image_title : string option;
mutable subformat : subformat option} mutable subformat : Cpdfua.subformat option}
let args = let args =
{op = None; {op = None;
@ -1710,7 +1701,7 @@ let settypeset s =
setop (Typeset s) () setop (Typeset s) ()
let settypesetsubformat s = let settypesetsubformat s =
args.subformat <- Some (subformat_of_string s) args.subformat <- Some (Cpdfua.subformat_of_string s)
let settableofcontentstitle s = let settableofcontentstitle s =
args.toc_title <- s args.toc_title <- s

9
cpdfua.ml
View File

@ -37,6 +37,15 @@ open Cpdferror
30-002 30-002
31-007 31-008 31-011 31-012 31-013 31-014 31-015 31-016 31-018 31-030 *) 31-007 31-008 31-011 31-012 31-013 31-014 31-015 31-016 31-018 31-030 *)
type subformat =
| PDFUA1
| PDFUA2
let subformat_of_string = function
| "PDF/UA-1" -> PDFUA1
| "PDF/UA-2" -> PDFUA2
| _ -> error "Unknown subformat"
exception MatterhornError of Cpdfyojson.Safe.t exception MatterhornError of Cpdfyojson.Safe.t
exception MatterhornUnimplemented exception MatterhornUnimplemented

6
cpdfua.mli
View File

@ -1,5 +1,11 @@
(** PDF/UA *) (** PDF/UA *)
type subformat =
| PDFUA1
| PDFUA2
val subformat_of_string : string -> subformat
(** Print matterhorn test results ("" = all tests) *) (** Print matterhorn test results ("" = all tests) *)
val test_matterhorn_print : Pdf.t -> string -> unit val test_matterhorn_print : Pdf.t -> string -> unit