fenix
/
cpdf-source
mirror of https://github.com/johnwhitington/cpdf-source.git
1
0
Fork 0
Code Issues Packages Projects Releases Wiki Activity

Add -typeset-subformat

This commit is contained in:
John Whitington 2024-09-14 14:34:27 +01:00
parent 6b1f115895
commit 4f282903b8
1 changed files with 21 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

24
cpdfcommand.ml
View File

@ -77,6 +77,15 @@ 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
@ -544,7 +553,8 @@ type args =
mutable extract_stream_decompress : bool; mutable extract_stream_decompress : bool;
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}
let args = let args =
{op = None; {op = None;
@ -681,7 +691,8 @@ let args =
extract_stream_decompress = false; extract_stream_decompress = false;
verify_single = None; verify_single = None;
draw_struct_tree = false; draw_struct_tree = false;
image_title = None} image_title = None;
subformat = None}
(* Do not reset original_filename or cpdflin or was_encrypted or (* Do not reset original_filename or cpdflin or was_encrypted or
was_decrypted_with_owner or recrypt or producer or creator or path_to_* or was_decrypted_with_owner or recrypt or producer or creator or path_to_* or
@ -806,7 +817,8 @@ let reset_arguments () =
clear Cpdfdrawcontrol.fontpack_initialised; clear Cpdfdrawcontrol.fontpack_initialised;
args.verify_single <- None; args.verify_single <- None;
args.draw_struct_tree <- false; args.draw_struct_tree <- false;
args.image_title <- None args.image_title <- None;
args.subformat <- None
(* Prefer a) the one given with -cpdflin b) a local cpdflin, c) otherwise assume (* Prefer a) the one given with -cpdflin b) a local cpdflin, c) otherwise assume
installed at a system place *) installed at a system place *)
@ -1697,6 +1709,9 @@ let setprintfontencoding s =
let settypeset s = let settypeset s =
setop (Typeset s) () setop (Typeset s) ()
let settypesetsubformat s =
args.subformat <- Some (subformat_of_string s)
let settableofcontentstitle s = let settableofcontentstitle s =
args.toc_title <- s args.toc_title <- s
@ -2784,6 +2799,9 @@ let specs =
("-typeset", ("-typeset",
Arg.String settypeset, Arg.String settypeset,
" Typeset a text file as a PDF"); " Typeset a text file as a PDF");
("-typeset-subformat",
Arg.String settypesetsubformat,
" Set subformat for typesetting");
("-composition", ("-composition",
Arg.Unit (setop (Composition false)), Arg.Unit (setop (Composition false)),
" Show composition of PDF"); " Show composition of PDF");