fenix/cpdf-source
1
0
Fork 0
mirror of https://github.com/johnwhitington/cpdf-source.git synced 2025-06-05 22:09:39 +02:00
Code Issues Packages Projects Releases Wiki Activity

Adds -mark-as-artifact

Browse Source
This commit is contained in:
John Whitington
2025-03-11 16:01:31 +00:00
parent 7032722ad6
commit 03dfcdfd3c
2 changed files with 10 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files

9
cpdfcommand.ml
View File

@ -230,6 +230,7 @@ type op =
| ExtractStructTree | ExtractStructTree
| ReplaceStructTree of string | ReplaceStructTree of string
| RemoveStructTree | RemoveStructTree
| MarkAsArtifact
| SetLanguage of string | SetLanguage of string
| Redact | Redact
| Rasterize | Rasterize
@ -387,6 +388,7 @@ let string_of_op = function
| ExtractStructTree -> "ExtractStructTree" | ExtractStructTree -> "ExtractStructTree"
| ReplaceStructTree _ -> "ReplaceStructTree" | ReplaceStructTree _ -> "ReplaceStructTree"
| RemoveStructTree -> "RemoveStructTree" | RemoveStructTree -> "RemoveStructTree"
| MarkAsArtifact -> "MarkAsArtifact"
| SetLanguage _ -> "SetLanguage" | SetLanguage _ -> "SetLanguage"
| Redact -> "Redact" | Redact -> "Redact"
| Rasterize -> "Rasterize" | Rasterize -> "Rasterize"
@ -961,7 +963,7 @@ let banned banlist = function
| OCGRename | OCGList | OCGOrderAll | PrintFontEncoding _ | TableOfContents | Typeset _ | Composition _ | OCGRename | OCGList | OCGOrderAll | PrintFontEncoding _ | TableOfContents | Typeset _ | Composition _
| TextWidth _ | SetAnnotations _ | CopyAnnotations _ | ExtractStream _ | ReplaceStream _ | PrintObj _ | ReplaceObj _ | TextWidth _ | SetAnnotations _ | CopyAnnotations _ | ExtractStream _ | ReplaceStream _ | PrintObj _ | ReplaceObj _
| Verify _ | MarkAs _ | RemoveMark _ | ExtractStructTree | ReplaceStructTree _ | SetLanguage _ | Verify _ | MarkAs _ | RemoveMark _ | ExtractStructTree | ReplaceStructTree _ | SetLanguage _
| PrintStructTree | Rasterize | OutputImage | RemoveStructTree | PrintStructTree | Rasterize | OutputImage | RemoveStructTree | MarkAsArtifact
-> false (* Always allowed *) -> false (* Always allowed *)
(* Combine pages is not allowed because we would not know where to get the (* Combine pages is not allowed because we would not know where to get the
-recrypt from -- the first or second file? *) -recrypt from -- the first or second file? *)
@ -3033,6 +3035,7 @@ let specs =
("-extract-struct-tree", Arg.Unit (fun () -> setop ExtractStructTree ()), " Extract structure tree in JSON format"); ("-extract-struct-tree", Arg.Unit (fun () -> setop ExtractStructTree ()), " Extract structure tree in JSON format");
("-replace-struct-tree", Arg.String (fun s -> setop (ReplaceStructTree s) ()), " Replace structure tree from JSON"); ("-replace-struct-tree", Arg.String (fun s -> setop (ReplaceStructTree s) ()), " Replace structure tree from JSON");
("-remove-struct-tree", Arg.Unit (fun () -> setop RemoveStructTree ()), " Remove entire structure tree"); ("-remove-struct-tree", Arg.Unit (fun () -> setop RemoveStructTree ()), " Remove entire structure tree");
("-mark-as-artifact", Arg.Unit (fun () -> setop MarkAsArtifact ()), " Mark whole file as artifact");
("-redact", Arg.Unit (fun () -> setop Redact ()), " Redact entire pages"); ("-redact", Arg.Unit (fun () -> setop Redact ()), " Redact entire pages");
("-rasterize", Arg.Unit (fun () -> setop Rasterize ()), " Rasterize pages"); ("-rasterize", Arg.Unit (fun () -> setop Rasterize ()), " Rasterize pages");
("-rasterize-gray", Arg.Unit (fun () -> args.rast_device <- "pnggray"), " Rasterize in grayscale"); ("-rasterize-gray", Arg.Unit (fun () -> args.rast_device <- "pnggray"), " Rasterize in grayscale");
@ -4899,6 +4902,10 @@ let go () =
let pdf = get_single_pdf args.op false in let pdf = get_single_pdf args.op false in
let pdf = Cpdfpage.remove_struct_tree pdf in let pdf = Cpdfpage.remove_struct_tree pdf in
write_pdf false pdf write_pdf false pdf
| Some MarkAsArtifact ->
let pdf = get_single_pdf args.op false in
let pdf = Cpdfpage.mark_all_as_artifact pdf in
write_pdf false pdf
| Some (SetLanguage s) -> | Some (SetLanguage s) ->
let pdf = get_single_pdf args.op false in let pdf = get_single_pdf args.op false in
Cpdfmetadata.set_language pdf s; Cpdfmetadata.set_language pdf s;

3
cpdfmanual.tex
View File

@ -1,4 +1,5 @@
%Edit -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
%Document -mark-as-artifact
%\DocumentMetadata{lang=en, pdfversion=2.0, pdfstandard=ua-2, pdfstandard=a-4f, testphase={phase-III, title, table, math, firstaid}} %\DocumentMetadata{lang=en, pdfversion=2.0, pdfstandard=ua-2, pdfstandard=a-4f, testphase={phase-III, title, table, math, firstaid}}
\documentclass{book} \documentclass{book}
% Edit here to produce cpdfmanual.pdf, cpdflibmanual.pdf, pycpdfmanual.pdf, % Edit here to produce cpdfmanual.pdf, cpdflibmanual.pdf, pycpdfmanual.pdf,