From 89099e8683a4600e8eda13bac8d41d10912bb77f Mon Sep 17 00:00:00 2001 From: John Whitington Date: Thu, 19 Dec 2024 13:38:24 +0000 Subject: [PATCH] Note about Cpdfsqueeze.recompress --- cpdfcommand.ml | 4 ++-- cpdfsqueeze.ml | 8 +++++++- 2 files changed, 9 insertions(+), 3 deletions(-) diff --git a/cpdfcommand.ml b/cpdfcommand.ml index 3e14c70..2bc83df 100644 --- a/cpdfcommand.ml +++ b/cpdfcommand.ml @@ -3,8 +3,8 @@ let demo = false let agpl = true let major_version = 2 let minor_version = 8 -let minor_minor_version = 0 -let version_date = "(10th December 2024)" +let minor_minor_version = 1 +let version_date = "(devel, 19th December 2024)" open Pdfutil open Pdfio diff --git a/cpdfsqueeze.ml b/cpdfsqueeze.ml index a0d072a..c57bcda 100644 --- a/cpdfsqueeze.ml +++ b/cpdfsqueeze.ml @@ -11,7 +11,13 @@ open Pdfio flush stdout; close_in fh*) -(* Recompress anything which isn't compressed, unless it's metadata. *) +(* Recompress anything which isn't compressed (or compressed with old-fashioned + mechanisms), unless it's metadata. *) + +(* TODO The use of this function in cpdfcommand.ml actually takes some power + away from the user - maybe they don't want old-fashioned stuff + re-compressed, but only uncompressed data compressed. Consider adding a flag + -recompress-only-uncompressed and an argument to this function. *) let recompress_stream pdf = function (* If there is no compression, or bad compression with /FlateDecode *) | Pdf.Stream {contents = (dict, _)} as stream ->