This commit is contained in:
John Whitington 2022-01-14 15:21:54 +00:00
parent 8ae55daf60
commit 4d87a90bdf
1 changed files with 3 additions and 1 deletions

View File

@ -476,7 +476,9 @@ let json_of_pdf
if clean_strings then preprocess_strings pdf;
let pdf = if parse_content then precombine_page_content pdf else pdf in
if decompress_streams then
Pdf.objiter (fun _ obj -> Pdfcodec.decode_pdfstream_until_unknown pdf obj) pdf;
Pdf.objiter
(fun _ obj -> match obj with Pdf.Stream _ -> Pdfcodec.decode_pdfstream_until_unknown pdf obj | _ -> ())
pdf;
Pdf.remove_unreferenced pdf;
let trailerdict = (0, json_of_object pdf (fun x -> ()) no_stream_data false pdf.P.trailerdict) in
let parameters =