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-15 21:33:15 +01:00
parent d879c50204
commit e54868a64b
1 changed files with 0 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
cpdfcomposition.ml
View File

@ -7,7 +7,6 @@ let find_composition_structure_info pdf marked =
| Some x -> | Some x ->
let l = ref [] in let l = ref [] in
let objs = Pdf.objects_referenced ["/Pg"] [] pdf x in let objs = Pdf.objects_referenced ["/Pg"] [] pdf x in
Printf.printf "Found %i struct tree items\n" (length objs);
iter iter
(fun i -> (fun i ->
match Hashtbl.find marked i with match Hashtbl.find marked i with
@ -122,7 +121,6 @@ let compressed_xref_table_size pdf =
if Hashtbl.length pdf.Pdf.objects.Pdf.object_stream_ids = 0 then 20 * Pdf.objcard pdf else if Hashtbl.length pdf.Pdf.objects.Pdf.object_stream_ids = 0 then 20 * Pdf.objcard pdf else
compressed_size pdf (map fst (list_of_hashtbl pdf.Pdf.objects.Pdf.object_stream_ids)) compressed_size pdf (map fst (list_of_hashtbl pdf.Pdf.objects.Pdf.object_stream_ids))
(* First go: images, fonts, content streams, structure info, link annotations, embedded files *)
let show_composition_json filesize pdf = let show_composition_json filesize pdf =
let perc x = float_of_int x /. float_of_int filesize *. 100. in let perc x = float_of_int x /. float_of_int filesize *. 100. in
let o_images, o_fonts, o_content_streams, o_structure_info, o_embedded_files = find_composition pdf in let o_images, o_fonts, o_content_streams, o_structure_info, o_embedded_files = find_composition pdf in