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

Stamp remove struct tree / artifacts

Browse Source
This commit is contained in:
John Whitington
2025-03-11 14:28:55 +00:00
parent b9d97b938d
commit 81d88bc57a
10 changed files with 95 additions and 71 deletions
Download Patch File Download Diff File Expand all files Collapse all files

6
cpdfcommand.ml
View File

@ -4679,11 +4679,11 @@ let go () =
(map Pdfpagelabels.string_of_pagelabel (Pdfpagelabels.read pdf))
| Some (RemoveDictEntry key) ->
let pdf = get_single_pdf args.op true in
Cpdftweak.remove_dict_entry pdf key args.dict_entry_search;
Cpdfutil.remove_dict_entry pdf key args.dict_entry_search;
write_pdf false pdf
| Some (ReplaceDictEntry key) ->
let pdf = get_single_pdf args.op true in
Cpdftweak.replace_dict_entry pdf key args.replace_dict_entry_value args.dict_entry_search;
Cpdfutil.replace_dict_entry pdf key args.replace_dict_entry_value args.dict_entry_search;
write_pdf false pdf
| Some (PrintDictEntry key) ->
let pdf = get_single_pdf args.op true in
@ -4897,7 +4897,7 @@ let go () =
write_pdf false pdf
| Some RemoveStructTree ->
let pdf = get_single_pdf args.op false in
let pdf = Cpdfua.remove_struct_tree pdf in
let pdf = Cpdfpage.remove_struct_tree pdf in
write_pdf false pdf
| Some (SetLanguage s) ->
let pdf = get_single_pdf args.op false in