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

Extract stream now takes a chain

Browse Source
This commit is contained in:
John Whitington
2024-12-31 17:00:24 +00:00
parent 723435b0d4
commit 8c22c19415
1 changed files with 16 additions and 13 deletions
Download Patch File Download Diff File Expand all files Collapse all files

27
cpdfcommand.ml
View File

@@ -3645,20 +3645,14 @@ let build_enc () =
chain. *) chain. *)
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 json pdf objspec = let find_obj 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 =
write (if obj = 0 then pdf.Pdf.trailerdict else Pdf.lookup_obj pdf obj) if obj = 0 then pdf.Pdf.trailerdict else Pdf.lookup_obj 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 -> write x | Some x -> x
| None -> raise (Pdf.PDFError "Chain not found") | None -> raise (Pdf.PDFError "Chain not found")
in in
match explode objspec with match explode objspec with
@@ -3675,6 +3669,13 @@ let print_obj json pdf objspec =
let digits, rest = cleavewhile isdigit l in let digits, rest = cleavewhile isdigit l in
chain_obj (int_of_string (implode digits)) (split_chain (implode rest)) chain_obj (int_of_string (implode digits)) (split_chain (implode rest))
let print_obj json pdf objspec =
let obj = find_obj pdf objspec 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)
let print_version () = let print_version () =
flprint flprint
("cpdf " ^ (if agpl then "AGPL " else "") ^ "Version " ^ string_of_int major_version ^ "." ^ string_of_int minor_version ^ (if minor_minor_version = 0 then "" else "." ^ string_of_int minor_minor_version) ^ " " ^ version_date ^ "\n") ("cpdf " ^ (if agpl then "AGPL " else "") ^ "Version " ^ string_of_int major_version ^ "." ^ string_of_int minor_version ^ (if minor_minor_version = 0 then "" else "." ^ string_of_int minor_minor_version) ^ " " ^ version_date ^ "\n")
@@ -3687,9 +3688,11 @@ let replace_obj pdf objspec obj =
with with
e -> Pdfe.log "Chain not found"; exit 2 e -> Pdfe.log "Chain not found"; exit 2
let extract_stream pdf decomp objnum = let extract_stream_find_obj pdf objspec =
let objnum = int_of_string objnum in (* maybe objspec in the future... *) int_of_string objspec
let obj = Pdf.lookup_obj pdf objnum in
let extract_stream pdf decomp objspec =
let obj = find_obj pdf objspec in
Pdf.getstream obj; Pdf.getstream obj;
if decomp then Pdfcodec.decode_pdfstream_until_unknown pdf obj; if decomp then Pdfcodec.decode_pdfstream_until_unknown pdf obj;
let data = let data =