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

Beginnings of JSON reader

This commit is contained in:
John Whitington 2021-10-01 12:53:21 +01:00
parent b874221aca
commit 33d17cd9a5
1 changed files with 23 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

25
cpdfJSON.ml
View File

@ -238,7 +238,27 @@ let json_of_pdf parse_content no_stream_data pdf =
(fun (objnum, jsonobj) -> J.Array [J.Number (soi objnum); jsonobj])
pairs_parsed)
(* FIXME Proper streaming to output, rather than making a big string first. *)
let pdf_of_json json =
let major = 0 in
let minor = 1 in
let root = 2 in
let objmap = P.pdfobjmap_empty () in
let objects =
{P.maxobjnum = 0;
P.parse = None;
P.pdfobjects = objmap;
P.object_stream_ids = Hashtbl.create 0}
in
let trailerdict = P.Null in
{P.major;
P.minor;
P.root;
P.objects;
P.trailerdict;
P.was_linearized = false;
P.saved_encryption = None}
(* FIXME Proper streaming to output / from input, rather than making a big string first. *)
let to_output o parse_content no_stream_data pdf =
let b = Buffer.create 256 in
let formatter = Format.formatter_of_buffer b in
@ -246,4 +266,5 @@ let to_output o parse_content no_stream_data pdf =
Format.pp_print_flush formatter ();
o.Pdfio.output_string (Buffer.contents b)
let of_input i = Pdf.empty ()
let of_input i =
pdf_of_json (J.parse (Pdfio.string_of_bytes (Pdfio.bytes_of_input i 0 (i.Pdfio.in_channel_length))))