First -obj implementation

This commit is contained in:
John Whitington
2024-01-17 20:10:07 +00:00
parent dfd59fb8a3
commit 3a30496d31
2 changed files with 9 additions and 3 deletions

View File

@@ -3564,7 +3564,13 @@ let extract_stream pdf objnum decomp =
() ()
let print_obj pdf objnum = 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 *) (* Main function *)
let go () = let go () =

View File

@@ -13,8 +13,8 @@
%Document -pages -fast %Document -pages -fast
%Document -page-info changes %Document -page-info changes
%Document -png -jpeg -jbig2 by extension %Document -png -jpeg -jbig2 by extension
%Document -extract-stream %Document -extract-stream - check enc
%Document -obj %Document -obj - check enc
\documentclass{book} \documentclass{book}
% Edit here to produce cpdfmanual.pdf, cpdflibmanual.pdf, pycpdfmanual.pdf, % Edit here to produce cpdfmanual.pdf, cpdflibmanual.pdf, pycpdfmanual.pdf,
% dotnetcpdflibmanual.pdf, jcpdflibmanual.pdf jscpdflibmanual.pdf etc. % dotnetcpdflibmanual.pdf, jcpdflibmanual.pdf jscpdflibmanual.pdf etc.