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

Adds -obj-json

This commit is contained in:
John Whitington 2024-11-08 14:04:05 +00:00
parent bd3b552b32
commit a09db99106
1 changed files with 15 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

20
cpdfcommand.ml
View File

@ -1944,6 +1944,10 @@ let setextractstreamdecomp s =
let setprintobj s = let setprintobj s =
args.op <- Some (PrintObj s) args.op <- Some (PrintObj s)
let setprintobjjson s =
args.format_json <- true;
args.op <- Some (PrintObj s)
let setreplaceobj s = let setreplaceobj s =
match String.split_on_char '=' s with match String.split_on_char '=' s with
| [a; b] -> args.op <- Some (ReplaceObj (a, b)) | [a; b] -> args.op <- Some (ReplaceObj (a, b))
@ -2970,6 +2974,7 @@ let specs =
("-extract-stream", Arg.String setextractstream, " Extract a stream"); ("-extract-stream", Arg.String setextractstream, " Extract a stream");
("-extract-stream-decompress", Arg.String setextractstreamdecomp, " Extract a stream, decompressing"); ("-extract-stream-decompress", Arg.String setextractstreamdecomp, " Extract a stream, decompressing");
("-obj", Arg.String setprintobj, " Print object"); ("-obj", Arg.String setprintobj, " Print object");
("-obj-json", Arg.String setprintobjjson, " Print object");
("-replace-obj", Arg.String setreplaceobj, "Replace object"); ("-replace-obj", Arg.String setreplaceobj, "Replace object");
("-json", Arg.Unit (fun () -> args.format_json <- true), " Format output as JSON"); ("-json", Arg.Unit (fun () -> args.format_json <- true), " Format output as JSON");
("-verify", Arg.String (fun s -> setop (Verify s) ()), " Verify conformance to a standard"); ("-verify", Arg.String (fun s -> setop (Verify s) ()), " Verify conformance to a standard");
@ -3591,15 +3596,20 @@ let extract_stream pdf decomp objnum =
Otherwise it's an object number (0 = trailerdict). *) Otherwise it's an object number (0 = trailerdict). *)
let split_chain str = map (fun x -> "/" ^ x) (tl (String.split_on_char '/' str)) let split_chain str = map (fun x -> "/" ^ x) (tl (String.split_on_char '/' str))
let print_obj pdf objspec = let print_obj json pdf objspec =
let write obj =
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)
in
let simple_obj obj = let simple_obj obj =
let obj = if obj = 0 then pdf.Pdf.trailerdict else Pdf.lookup_obj pdf obj in write (if obj = 0 then pdf.Pdf.trailerdict else Pdf.lookup_obj pdf obj)
Printf.printf "%S\n" (Pdfwrite.string_of_pdf obj)
in in
let chain_obj objnum chain = let chain_obj objnum chain =
let obj = if objnum = 0 then pdf.Pdf.trailerdict else Pdf.lookup_obj pdf objnum in let obj = if objnum = 0 then pdf.Pdf.trailerdict else Pdf.lookup_obj pdf objnum in
match Pdf.lookup_chain pdf obj chain with match Pdf.lookup_chain pdf obj chain with
| Some x -> Printf.printf "%S\n" (Pdfwrite.string_of_pdf x) | Some x -> write x
| None -> () | None -> ()
in in
match explode objspec with match explode objspec with
@ -4671,7 +4681,7 @@ let go () =
extract_stream pdf args.extract_stream_decompress s extract_stream pdf args.extract_stream_decompress s
| Some (PrintObj s) -> | Some (PrintObj s) ->
let pdf = get_single_pdf args.op true in let pdf = get_single_pdf args.op true in
print_obj pdf s print_obj args.format_json pdf s
| Some (ReplaceObj (a, b)) -> | Some (ReplaceObj (a, b)) ->
let pdf = get_single_pdf args.op false in let pdf = get_single_pdf args.op false in
let pdfobj = Cpdfjson.object_of_json (Cpdfyojson.Safe.from_string b) in let pdfobj = Cpdfjson.object_of_json (Cpdfyojson.Safe.from_string b) in