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 2023-01-17 17:37:53 +08:00
parent 78b8c74a31
commit 883dba9bcc
1 changed files with 4 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
cpdfjson.ml
View File

@ -239,7 +239,7 @@ let pdf_of_json json =
| `List [`Int objnum; o] -> | `List [`Int objnum; o] ->
begin match objnum with begin match objnum with
| -1 -> params := object_of_json ~utf8:false o; read_utf8 (); None | -1 -> params := object_of_json ~utf8:false o; read_utf8 (); None
| 0 -> trailerdict := object_of_json ~utf8:!utf8 o; None | 0 -> trailerdict := object_of_json ~utf8:false o; None (* utf8 false since /IDs are not PdfDocencoding, so don't get transformed *)
| n when n < 0 -> None | n when n < 0 -> None
| n -> Some (n, object_of_json ~utf8:!utf8 o) | n -> Some (n, object_of_json ~utf8:!utf8 o)
end end
@ -476,7 +476,7 @@ let rec ppstring_single_object pdf = function
(* Do all objects, but skip the trailer dictionary since may mess up /ID if it (* Do all objects, but skip the trailer dictionary since may mess up /ID if it
happens to begin with UTF16BE BOM *) happens to begin with UTF16BE BOM *)
let preprocess_strings pdf = let preprocess_strings pdf =
Pdf.objselfmap (ppstring_single_object pdf) pdf Pdf.objselfmap (ppstring_single_object pdf) pdf
let json_of_pdf let json_of_pdf
~utf8 ~parse_content ~no_stream_data ~decompress_streams ~clean_strings ~utf8 ~parse_content ~no_stream_data ~decompress_streams ~clean_strings
@ -489,7 +489,8 @@ let json_of_pdf
(fun _ obj -> match obj with Pdf.Stream _ -> Pdfcodec.decode_pdfstream_until_unknown pdf obj | _ -> ()) (fun _ obj -> match obj with Pdf.Stream _ -> Pdfcodec.decode_pdfstream_until_unknown pdf obj | _ -> ())
pdf; pdf;
Pdf.remove_unreferenced pdf; Pdf.remove_unreferenced pdf;
let trailerdict = (0, json_of_object ~utf8 pdf (fun x -> ()) ~no_stream_data ~parse_content:false pdf.P.trailerdict) in (* Not UTF8, because /ID strings are not actually in PDFDocEncoding *)
let trailerdict = (0, json_of_object ~utf8:false pdf (fun x -> ()) ~no_stream_data ~parse_content:false pdf.P.trailerdict) in
let parameters = let parameters =
(-1, json_of_object ~utf8 pdf (fun x -> ()) ~no_stream_data:false ~parse_content:false (-1, json_of_object ~utf8 pdf (fun x -> ()) ~no_stream_data:false ~parse_content:false
(Pdf.Dictionary [("/CPDFJSONformatversion", Pdf.Integer 3); (Pdf.Dictionary [("/CPDFJSONformatversion", Pdf.Integer 3);