From d879c50204d1cff4ea8735f0b7db94cf50e28fdb Mon Sep 17 00:00:00 2001 From: John Whitington Date: Sat, 15 Apr 2023 15:38:34 +0100 Subject: [PATCH] more --- cpdfcomposition.ml | 13 ++++++++++--- 1 file changed, 10 insertions(+), 3 deletions(-) diff --git a/cpdfcomposition.ml b/cpdfcomposition.ml index e8d3b6d..489ccea 100644 --- a/cpdfcomposition.ml +++ b/cpdfcomposition.ml @@ -117,23 +117,30 @@ let compressed_size pdf objnums = objnums; !streams + Pdfio.bytes_size (Pdfcodec.encode_flate (Pdfio.bytes_of_string (Buffer.contents b))) +(* If no object streams, calculate the size of the xref table. If streams, the xref stream total *) +let compressed_xref_table_size pdf = + 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)) + (* First go: images, fonts, content streams, structure info, link annotations, embedded files *) let show_composition_json filesize pdf = 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 images, fonts, content_streams, structure_info, embedded_files = + let images, fonts, content_streams, structure_info, embedded_files, xref_table = compressed_size pdf o_images, compressed_size pdf o_fonts, compressed_size pdf o_content_streams, compressed_size pdf o_structure_info, - compressed_size pdf o_embedded_files + compressed_size pdf o_embedded_files, + compressed_xref_table_size pdf in - let r = images + fonts + content_streams + structure_info + embedded_files in + let r = images + fonts + content_streams + structure_info + embedded_files + xref_table in `List [`Tuple [`String "Images"; `Int images; `Float (perc images)]; `Tuple [`String "Fonts"; `Int fonts; `Float (perc fonts)]; `Tuple [`String "Content streams"; `Int content_streams; `Float (perc content_streams)]; `Tuple [`String "Structure Info"; `Int structure_info; `Float (perc structure_info)]; `Tuple [`String "Embedded Files"; `Int embedded_files; `Float (perc embedded_files)]; + `Tuple [`String "XRef Table"; `Int xref_table; `Float (perc xref_table)]; `Tuple [`String "Unclassified"; `Int (filesize - r); `Float (perc (filesize - r))]] let show_composition filesize json pdf =