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

more

This commit is contained in:
John Whitington 2023-04-14 17:13:49 +01:00
parent 0400539bea
commit 6e7f6458f8
1 changed files with 14 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

20
cpdfcomposition.ml
View File

@ -3,12 +3,12 @@ open Pdfutil
let size pdf i = let size pdf i =
String.length (Pdfwrite.string_of_pdf_including_data (Pdf.lookup_obj pdf i)) String.length (Pdfwrite.string_of_pdf_including_data (Pdf.lookup_obj pdf i))
(* FIXME Add soft masks *)
let find_composition_images pdf i obj marked = let find_composition_images pdf i obj marked =
match Hashtbl.find marked i with () -> 0 | exception Not_found -> match Hashtbl.find marked i with () -> 0 | exception Not_found ->
match Pdf.lookup_direct pdf "/Subtype" obj with match Pdf.lookup_direct pdf "/Subtype" obj with
| Some (Pdf.Name "/Image") -> | Some (Pdf.Name "/Image") ->
Hashtbl.add marked i (); Hashtbl.add marked i ();
(*Printf.printf "obj = %s\n" (Pdfwrite.string_of_pdf obj);*)
String.length (Pdfwrite.string_of_pdf_including_data obj) String.length (Pdfwrite.string_of_pdf_including_data obj)
| _ -> 0 | _ -> 0
@ -29,7 +29,6 @@ let find_composition_fonts pdf i obj marked =
!l !l
| _ -> 0 | _ -> 0
(* FIXME: Add xobjects *)
let find_composition_content_streams pdf i obj marked = let find_composition_content_streams pdf i obj marked =
match Hashtbl.find marked i with () -> 0 | exception Not_found -> match Hashtbl.find marked i with () -> 0 | exception Not_found ->
match Pdf.lookup_direct pdf "/Type" obj with match Pdf.lookup_direct pdf "/Type" obj with
@ -54,6 +53,11 @@ let find_composition_content_streams pdf i obj marked =
| exception Not_found -> Hashtbl.add marked i (); l += size pdf i) | exception Not_found -> Hashtbl.add marked i (); l += size pdf i)
cs; cs;
!l !l
| _ ->
match Pdf.lookup_direct pdf "/Subtype" obj with
| Some (Pdf.Name "/Form") ->
Hashtbl.add marked i ();
size pdf i
| _ -> 0 | _ -> 0
let find_composition_structure_info pdf i obj marked = 0 let find_composition_structure_info pdf i obj marked = 0
@ -72,15 +76,17 @@ let find_composition pdf =
let embedded_files = ref 0 in let embedded_files = ref 0 in
Pdf.objiter Pdf.objiter
(fun i obj -> (fun i obj ->
(*Printf.printf "Marked objects at beginning: "; (*Printf.printf "Looking at object %i\n" i;
Printf.printf "Which is %s\n" (Pdfwrite.string_of_pdf (Pdf.lookup_obj pdf i));
Printf.printf "Marked objects at beginning: ";
Hashtbl.iter (fun k () -> Printf.printf "%i " k) marked; Hashtbl.iter (fun k () -> Printf.printf "%i " k) marked;
Printf.printf "\n";*) Printf.printf "\n";*)
match Hashtbl.find marked i with _ -> () | exception Not_found -> match Hashtbl.find marked i with _ -> () | exception Not_found ->
(*embedded_files += find_composition_embedded_files pdf i obj marked; embedded_files += find_composition_embedded_files pdf i obj marked;
images += find_composition_images pdf i obj marked;*) images += find_composition_images pdf i obj marked;
content_streams += find_composition_content_streams pdf i obj marked; content_streams += find_composition_content_streams pdf i obj marked;
(*structure_info += find_composition_structure_info pdf i obj marked; structure_info += find_composition_structure_info pdf i obj marked;
link_annotations += find_composition_link_annotations pdf i obj marked;*) link_annotations += find_composition_link_annotations pdf i obj marked;
fonts += find_composition_fonts pdf i obj marked) fonts += find_composition_fonts pdf i obj marked)
pdf; pdf;