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

more

This commit is contained in:
John Whitington 2020-02-27 13:00:06 +01:00
parent 4d088e6702
commit 803e5b38d5
1 changed files with 16 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

17
cpdfcommand.ml
View File

@ -3608,7 +3608,6 @@ let ocg_coalesce pdf =
Printf.printf "\nChanges are:\n"; Printf.printf "\nChanges are:\n";
List.iter (fun (f, t) -> Printf.printf "%i -> %i\n" f t) changes; List.iter (fun (f, t) -> Printf.printf "%i -> %i\n" f t) changes;
let new_ocproperties = let new_ocproperties =
(* FIXME: Instead, look for order / ocgs inside "/D" !! - one more layer of indirection *)
let remove_from_array key nums dict = let remove_from_array key nums dict =
match Pdf.lookup_direct pdf key dict with match Pdf.lookup_direct pdf key dict with
| Some (Pdf.Array elts) -> | Some (Pdf.Array elts) ->
@ -3616,10 +3615,24 @@ let ocg_coalesce pdf =
Pdf.add_dict_entry dict key (Pdf.Array elts') Pdf.add_dict_entry dict key (Pdf.Array elts')
| _ -> dict | _ -> dict
in in
let remove_from_array_inside_d key nums dict =
match Pdf.lookup_direct pdf "/D" dict with
| Some (Pdf.Dictionary ddict) ->
begin match Pdf.lookup_direct pdf key (Pdf.Dictionary ddict) with
| Some (Pdf.Array elts) ->
let elts' = option_map (function Pdf.Indirect i -> if mem i nums then None else Some (Pdf.Indirect i) | _ -> None) elts in
Pdf.add_dict_entry dict "/D" (Pdf.add_dict_entry (Pdf.Dictionary ddict) key (Pdf.Array elts'))
| _ -> dict
end
| _ -> failwith "No /D dict in OCGProperties"
in
let nums = map fst changes in let nums = map fst changes in
Printf.printf "\nto remove:\n"; Printf.printf "\nto remove:\n";
List.iter (Printf.printf "%i ") nums; List.iter (Printf.printf "%i ") nums;
remove_from_array "/OCGs" nums (remove_from_array "/Order" nums ocpdict) remove_from_array "/OCGs" nums
(remove_from_array_inside_d "/ON" nums
(remove_from_array_inside_d "/OFF" nums
(remove_from_array_inside_d "/Order" nums ocpdict)))
in in
flprint (Pdfwrite.string_of_pdf new_ocproperties); flprint (Pdfwrite.string_of_pdf new_ocproperties);
let ocp_objnum = Pdf.addobj pdf new_ocproperties in let ocp_objnum = Pdf.addobj pdf new_ocproperties in