From 57d4563913bddc89142910ada0fe9b93fed2573f Mon Sep 17 00:00:00 2001 From: John Whitington Date: Tue, 11 Mar 2025 16:33:13 +0000 Subject: [PATCH] Add artifacting to combine_pages --- Changes | 3 ++- cpdfmanual.tex | 2 +- cpdfpage.ml | 1 + 3 files changed, 4 insertions(+), 2 deletions(-) diff --git a/Changes b/Changes index 1cca564..8f77974 100644 --- a/Changes +++ b/Changes @@ -3,6 +3,7 @@ New features: * -remove-struct-tree removes whole structure tree +* -mark-as-artifact marks a whole file as an artifact Extended features: @@ -11,7 +12,7 @@ o -obj JSON output * -obj/-obj-json can explore through arrays and name/number trees * -print-dict-entry, -remove-dict-entry and -replace-dict-entry can follow a chain from each found dictionary entry -* More of the PDF/UA Matterhorn verification suite implemented +* Much more of the PDF/UA Matterhorn verification suite implemented * Font lister now returns the font itself o Allow %objnum in output name for -extract-images * -show-boxes, -trim-marks, -table-of-contents, -add-text diff --git a/cpdfmanual.tex b/cpdfmanual.tex index ce5273b..fb25c3c 100644 --- a/cpdfmanual.tex +++ b/cpdfmanual.tex @@ -1,4 +1,4 @@ -%Document -process-struct-tree with -stamp-on, -stamp-under, -combine-pages, new combine pages stuff +%Document -process-struct-tree with -stamp-on, -stamp-under, -combine-pages, new combine pages stuff (over is principal, length changes) %Document -mark-as-artifact %\DocumentMetadata{lang=en, pdfversion=2.0, pdfstandard=ua-2, pdfstandard=a-4f, testphase={phase-III, title, table, math, firstaid}} \documentclass{book} diff --git a/cpdfpage.ml b/cpdfpage.ml index 3989b4c..43d69e2 100644 --- a/cpdfpage.ml +++ b/cpdfpage.ml @@ -916,6 +916,7 @@ let equalize_pages under over = under, over let combine_pages ~process_struct_tree fast under over scaletofit swap equalize = + let over = if process_struct_tree then mark_all_as_artifact (remove_struct_tree over) else over in let debug_combine_pages = false in let debug_pdf pdf n = if debug_combine_pages then