From 3a30496d3139774ef7b59ddfcb529065afc05459 Mon Sep 17 00:00:00 2001
From: John Whitington <john@coherentgraphics.co.uk>
Date: Wed, 17 Jan 2024 20:10:07 +0000
Subject: [PATCH] First -obj implementation

---
 cpdfcommand.ml | 8 +++++++-
 cpdfmanual.tex | 4 ++--
 2 files changed, 9 insertions(+), 3 deletions(-)

diff --git a/cpdfcommand.ml b/cpdfcommand.ml
index 4dad789..d239d54 100644
--- a/cpdfcommand.ml
+++ b/cpdfcommand.ml
@@ -3564,7 +3564,13 @@ let extract_stream pdf objnum decomp =
   ()
 
 let print_obj pdf objnum =
-  ()
+  let obj =
+    if objnum = 0 then
+      pdf.Pdf.trailerdict
+    else
+      Pdf.lookup_obj pdf objnum
+  in
+    Printf.printf "%S\n" (Pdfwrite.string_of_pdf obj)
 
 (* Main function *)
 let go () =
diff --git a/cpdfmanual.tex b/cpdfmanual.tex
index ed5c7fc..899df54 100644
--- a/cpdfmanual.tex
+++ b/cpdfmanual.tex
@@ -13,8 +13,8 @@
 %Document -pages -fast
 %Document -page-info changes
 %Document -png -jpeg -jbig2 by extension
-%Document -extract-stream
-%Document -obj
+%Document -extract-stream - check enc
+%Document -obj - check enc
 \documentclass{book}
 % Edit here to produce cpdfmanual.pdf, cpdflibmanual.pdf, pycpdfmanual.pdf,
 % dotnetcpdflibmanual.pdf, jcpdflibmanual.pdf jscpdflibmanual.pdf etc.