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

Fixed proper recursion for remove_dict_entry

This commit is contained in:
John Whitington 2021-10-28 18:44:01 +01:00
parent 6a52728e9d
commit 3cb9e52ae3
1 changed files with 12 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

19
cpdf.ml
View File

@ -4237,14 +4237,19 @@ let remove_all_text range pdf =
pagenums; pagenums;
Pdfpage.change_pages true !pdf (rev !pages') Pdfpage.change_pages true !pdf (rev !pages')
(* 1. Extend remove_dict_entry with search term
2. Implement replace_dict_entry by analogy to remove_dict_entry *)
let rec remove_dict_entry_single_object f pdf = function
| (Pdf.Dictionary d) -> f (Pdf.recurse_dict (remove_dict_entry_single_object f pdf) d)
| (Pdf.Stream {contents = (Pdf.Dictionary dict, data)}) ->
f (Pdf.Stream {contents = (Pdf.recurse_dict (remove_dict_entry_single_object f pdf) dict, data)})
| Pdf.Array a -> Pdf.recurse_array (remove_dict_entry_single_object f pdf) a
| x -> x
let remove_dict_entry pdf key = let remove_dict_entry pdf key =
Pdf.objselfmap let f d = Pdf.remove_dict_entry d key in
(function Pdf.objselfmap (remove_dict_entry_single_object f pdf) pdf;
(Pdf.Dictionary _ as d) | (Pdf.Stream _ as d) -> pdf.Pdf.trailerdict <- remove_dict_entry_single_object f pdf pdf.Pdf.trailerdict
Pdf.remove_dict_entry d key
| x -> x)
pdf;
pdf.Pdf.trailerdict <- Pdf.remove_dict_entry pdf.Pdf.trailerdict key
let replace_dict_entry pdf key value search = () let replace_dict_entry pdf key value search = ()