From 33d17cd9a558c67fe60dd24ebaac7cb6a38878b8 Mon Sep 17 00:00:00 2001
From: John Whitington <john@coherentgraphics.co.uk>
Date: Fri, 1 Oct 2021 12:53:21 +0100
Subject: [PATCH] Beginnings of JSON reader

---
 cpdfJSON.ml | 25 +++++++++++++++++++++++--
 1 file changed, 23 insertions(+), 2 deletions(-)

diff --git a/cpdfJSON.ml b/cpdfJSON.ml
index 0ea16d8..f092e6f 100644
--- a/cpdfJSON.ml
+++ b/cpdfJSON.ml
@@ -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))))