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

more

Browse Source
This commit is contained in:
John Whitington 2021-10-26 15:36:56 +01:00
parent ee1f712ad2
commit 312e07eaf1
1 changed files with 5 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
cpdf.ml
View File

@ -468,7 +468,10 @@ let combine_pdf_resources pdf a b =
let unknown_keys_a = lose (fun (k, _) -> mem k resource_keys) a_entries in let unknown_keys_a = lose (fun (k, _) -> mem k resource_keys) a_entries in
let unknown_keys_b = lose (fun (k, _) -> mem k resource_keys) b_entries in let unknown_keys_b = lose (fun (k, _) -> mem k resource_keys) b_entries in
let combined_known_entries = option_map combine_entries resource_keys in let combined_known_entries = option_map combine_entries resource_keys in
Pdf.Dictionary (unknown_keys_a @ unknown_keys_b @ combined_known_entries) fold_left
(fun dict (k, v) -> Pdf.add_dict_entry dict k v)
(Pdf.Dictionary [])
(unknown_keys_a @ unknown_keys_b @ combined_known_entries)
(* \section{Build PDF Presentations} *) (* \section{Build PDF Presentations} *)
let change_page_effect t d horizontal inward direction effect_duration page = let change_page_effect t d horizontal inward direction effect_duration page =
@ -2810,7 +2813,7 @@ let combine_pdf_rests pdf a b =
| Pdf.Dictionary entries -> entries | Pdf.Dictionary entries -> entries
| _ -> [] | _ -> []
in in
let keys_to_combine = ["/Annots"] in (* FIXME Check to see if anything else needed here *) let keys_to_combine = ["/Annots"] in
let combine_entries key = let combine_entries key =
let a_entries = let a_entries =
match Pdf.lookup_direct pdf key a with match Pdf.lookup_direct pdf key a with