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

mroe

This commit is contained in:
John Whitington 2023-03-06 15:43:47 +00:00
parent 3a59e18fd8
commit ef2ef5f6ec
1 changed files with 24 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

32
cpdfcommand.ml
View File

@ -3376,17 +3376,33 @@ let warn_prerotate range pdf =
let prerotate range pdf = let prerotate range pdf =
Cpdfpage.upright ~fast:args.fast range pdf Cpdfpage.upright ~fast:args.fast range pdf
(* Size of a single object *)
let object_size o = 0
let find_images pdf =
let imageobjs = ref [] in
let size = ref 0 in
Pdf.objiter
(fun i obj ->
match Pdf.lookup_direct pdf "/Subtype" obj with
| Some (Pdf.Name "/Image") ->
size += object_size obj;
imageobjs =| i
| _ -> ())
pdf;
(!size, !imageobjs)
let show_composition filesize json pdf = let show_composition filesize json pdf =
let perc x = int_of_float (float_of_int x /. float_of_int filesize *. 100.) in let perc x = int_of_float (float_of_int x /. float_of_int filesize *. 100.) in
let fonts = ref 0 in let marked = null_hash () in
let images = ref 0 in let images, objs = find_images pdf in
let page_data = ref 0 in iter (fun o -> Hashtbl.add marked o ()) objs;
let xmp_metadata = ref 0 in (*Printf.printf "Fonts: %i bytes (%i%%)\n" !fonts (perc !fonts);*)
Printf.printf "Fonts: %i bytes (%i%%)\n" !fonts (perc !fonts); Printf.printf "Images: %i bytes (%i%%)\n" images (perc images);
Printf.printf "Images: %i bytes (%i%%)\n" !images (perc !images); (*Printf.printf "Page data: %i bytes (%i%%)\n" !page_data (perc !page_data);
Printf.printf "Page data: %i bytes (%i%%)\n" !page_data (perc !page_data);
Printf.printf "XMP metadata: %i bytes (%i%%)\n" !xmp_metadata (perc !xmp_metadata); Printf.printf "XMP metadata: %i bytes (%i%%)\n" !xmp_metadata (perc !xmp_metadata);
let r = !fonts + !images + !page_data + !xmp_metadata in let r = !fonts + !images + !page_data + !xmp_metadata in*)
let r = images in
Printf.printf "Unclassified: %i bytes (%i%%)\n" r (perc (filesize - r)) Printf.printf "Unclassified: %i bytes (%i%%)\n" r (perc (filesize - r))
let embed_font () = let embed_font () =