fenix/cpdf-source
1
0
Fork 0
mirror of https://github.com/johnwhitington/cpdf-source.git synced 2025-06-05 22:09:39 +02:00
Code Issues Packages Projects Releases Wiki Activity

Clean up docs for -obj

Browse Source
This commit is contained in:
John Whitington
2025-01-02 14:39:27 +00:00
parent 935431e52a
commit a3cbc3e365
3 changed files with 36 additions and 16 deletions
Download Patch File Download Diff File Expand all files Collapse all files

3
cpdfcommand.ml
View File

@@ -3641,10 +3641,11 @@ let build_enc () =
let print_obj json pdf objspec =
let obj = Cpdftweak.find_obj pdf objspec in
let trim s = implode (rev (tl (rev (tl (explode s))))) in
if json then
print_string (Cpdfyojson.Safe.pretty_to_string (Cpdfjson.json_of_object ~utf8:true pdf (fun _ -> ()) ~no_stream_data:false ~parse_content:false obj))
else
Printf.printf "%S\n" (Pdfwrite.string_of_pdf obj)
print_endline (trim (Printf.sprintf "%S" (Pdfwrite.string_of_pdf obj)))
let extract_stream_find_obj pdf objspec =
int_of_string objspec