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 2021-12-12 14:47:57 +00:00
parent b1f8426f87
commit b4c63eb921
1 changed files with 3 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
cpdfjson.ml
View File

@ -453,6 +453,9 @@ let precombine_page_content pdf =
in in
Pdfpage.change_pages true pdf pages' Pdfpage.change_pages true pdf pages'
(* FIXME make this optional? And maybe move into actual JSON reader, instead of
preprocessing PDF, so it helps us when writing, say, the output of
-print-dict-entry? *)
let rec ppstring_single_object pdf = function let rec ppstring_single_object pdf = function
| Pdf.Dictionary d -> Pdf.recurse_dict (ppstring_single_object pdf) d | Pdf.Dictionary d -> Pdf.recurse_dict (ppstring_single_object pdf) d
| (Pdf.Stream {contents = (Pdf.Dictionary dict, data)}) -> | (Pdf.Stream {contents = (Pdf.Dictionary dict, data)}) ->