Add artifacting to combine_pages

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

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}

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