fenix/cpdf-source
1
0
Fork 0
mirror of https://github.com/johnwhitington/cpdf-source.git synced 2025-06-05 22:09:39 +02:00
Code Issues Packages Projects Releases Wiki Activity

Implements -remove-struct-tree

Browse Source
This commit is contained in:
John Whitington
2025-03-10 14:50:26 +00:00
parent 38e7573350
commit f541afedde
5 changed files with 31 additions and 7 deletions
Download Patch File Download Diff File Expand all files Collapse all files

3
cpdfcommand.ml
View File

@@ -3032,6 +3032,7 @@ let specs =
("-print-struct-tree", Arg.Unit (fun () -> setop PrintStructTree ()), " Print structure tree");
("-extract-struct-tree", Arg.Unit (fun () -> setop ExtractStructTree ()), " Extract structure tree in JSON format");
("-replace-struct-tree", Arg.String (fun s -> setop (ReplaceStructTree s) ()), " Replace structure tree from JSON");
("-remove-struct-tree", Arg.Unit (fun () -> setop RemoveStructTree ()), " Remove entire structure tree");
("-redact", Arg.Unit (fun () -> setop Redact ()), " Redact entire pages");
("-rasterize", Arg.Unit (fun () -> setop Rasterize ()), " Rasterize pages");
("-rasterize-gray", Arg.Unit (fun () -> args.rast_device <- "pnggray"), " Rasterize in grayscale");
@@ -4895,7 +4896,7 @@ let go () =
write_pdf false pdf
| Some RemoveStructTree ->
let pdf = get_single_pdf args.op false in
Cpdfua.remove_struct_tree pdf;
let pdf = Cpdfua.remove_struct_tree pdf in
write_pdf false pdf
| Some (SetLanguage s) ->
let pdf = get_single_pdf args.op false in