This commit is contained in:
John Whitington 2023-03-02 19:44:50 +00:00
parent 6b9b64fee1
commit df16849a04
2 changed files with 7 additions and 0 deletions

View File

@ -19,6 +19,7 @@ o Merge now merges structure trees (tagged PDF)
o Merge now rewrites clashing name tree entries o Merge now rewrites clashing name tree entries
o Preserve /GoTo actions in bookmarks when merging o Preserve /GoTo actions in bookmarks when merging
o UTF8 option for JSON output o UTF8 option for JSON output
o -info now shows object stream and /ID data
Fixes: Fixes:

View File

@ -3549,6 +3549,12 @@ let go () =
Printf.printf "Permissions: %s\n" (getpermissions pdf); Printf.printf "Permissions: %s\n" (getpermissions pdf);
if inname <> "" then if inname <> "" then
Printf.printf "Linearized: %b\n" (Pdfread.is_linearized (Pdfio.input_of_channel (open_in_bin inname))); Printf.printf "Linearized: %b\n" (Pdfread.is_linearized (Pdfio.input_of_channel (open_in_bin inname)));
Printf.printf "Object streams: %b\n" (length (list_of_hashtbl pdf.Pdf.objects.Pdf.object_stream_ids) > 0);
Printf.printf "ID: %s\n"
(match
Pdf.lookup_direct pdf "/ID" pdf.Pdf.trailerdict with
| Some (Pdf.Array [Pdf.String s; Pdf.String s']) -> Printf.sprintf "%s %s" (Pdfwrite.make_hex_pdf_string s) (Pdfwrite.make_hex_pdf_string s');
| _ -> "None");
let pdf = decrypt_if_necessary input (Some Info) pdf in let pdf = decrypt_if_necessary input (Some Info) pdf in
Cpdfmetadata.output_info args.encoding pdf; Cpdfmetadata.output_info args.encoding pdf;
Cpdfmetadata.output_xmp_info args.encoding pdf Cpdfmetadata.output_xmp_info args.encoding pdf