fenix
/
cpdf-source
mirror of https://github.com/johnwhitington/cpdf-source.git
1
0
Fork 0
Code Issues Packages Projects Releases Wiki Activity

Subformats finished and tested

This commit is contained in:
John Whitington 2023-11-01 20:47:52 +00:00
parent 3162f53a2d
commit 05b4201585
2 changed files with 5 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
cpdfcommand.ml
View File

@ -3498,9 +3498,11 @@ let go () =
else (if ida ^ idb = "" then Printf.printf "ID: None" else Printf.printf "ID: %s %s\n" ida idb); else (if ida ^ idb = "" then Printf.printf "ID: None" else Printf.printf "ID: %s %s\n" ida idb);
let pdf = decrypt_if_necessary input (Some Info) pdf in let pdf = decrypt_if_necessary input (Some Info) pdf in
if args.format_json then if args.format_json then
Cpdfmetadata.output_info ~json Cpdfmetadata.UTF8 pdf; begin
Cpdfmetadata.output_xmp_info ~json Cpdfmetadata.UTF8 pdf; Cpdfmetadata.output_info ~json Cpdfmetadata.UTF8 pdf;
flprint (Cpdfyojson.Safe.pretty_to_string (`Assoc (rev !json))) Cpdfmetadata.output_xmp_info ~json Cpdfmetadata.UTF8 pdf;
flprint (Cpdfyojson.Safe.pretty_to_string (`Assoc (rev !json)))
end
else else
begin begin
Cpdfmetadata.output_info args.encoding pdf; Cpdfmetadata.output_info args.encoding pdf;

1
cpdfmetadata.ml
View File

@ -129,7 +129,6 @@ let print_metadata pdf =
Printf.printf "%c" (char_of_int (bget data x)) Printf.printf "%c" (char_of_int (bget data x))
done done
let get_info raw pdf = let get_info raw pdf =
let infodict = let infodict =
match Pdf.lookup_direct pdf "/Info" pdf.Pdf.trailerdict with match Pdf.lookup_direct pdf "/Info" pdf.Pdf.trailerdict with