From be828bd24d816feb34c91c6f2139fb7a40a85b5c Mon Sep 17 00:00:00 2001
From: John Whitington <john@coherentgraphics.co.uk>
Date: Sun, 11 Sep 2022 15:19:59 +0100
Subject: [PATCH] more

---
 cpdfembed.ml | 7 ++++---
 1 file changed, 4 insertions(+), 3 deletions(-)

diff --git a/cpdfembed.ml b/cpdfembed.ml
index de9978d..362dc60 100644
--- a/cpdfembed.ml
+++ b/cpdfembed.ml
@@ -21,7 +21,7 @@ let glyphlist_table = Pdfglyphlist.reverse_glyph_hashes ()
   
 let encoding_table = Pdftext.reverse_table_of_encoding encoding
 
-let () =
+(*let () =
   iter
     (fun u ->
        Printf.printf "unicode %i --> " u;
@@ -105,8 +105,9 @@ let fontfile =
     {contents =
        (Pdf.Dictionary [("/Length", Pdf.Integer len); ("/Length1", Pdf.Integer len)],
         Pdf.Got (Pdfio.bytes_of_string fontstr))}
+*)
 
-let objects =
+(*let objects =
   [(1, Pdfread.parse_single_object "<</Type/Catalog/Pages 2 0 R>>");
    (2, Pdfread.parse_single_object "<</Type/Pages/Kids[3 0 R]/Count 1>>");
    (3, Pdfread.parse_single_object "<</Type/Page/Resources<</Font <</TT1 5 0 R>>>>/Parent 2 0 R/MediaBox[0 0 595 842]/Rotate 0/Contents[4 0 R]>>");
@@ -141,4 +142,4 @@ let pdf =
     pdf
 
 let () =
-  Pdfwrite.pdf_to_file pdf "subset.pdf"
+  Pdfwrite.pdf_to_file pdf "subset.pdf"*)