fenix
/
cpdf-source
mirror of https://github.com/johnwhitington/cpdf-source.git
1
0
Fork 0
Code Issues Packages Projects Releases Wiki Activity

Beginning PDF/UA marking

This commit is contained in:
John Whitington 2024-05-30 18:10:58 +01:00
parent eb121fee74
commit fb4a87bf66
2 changed files with 7 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
cpdfcommand.ml
View File

@ -2809,7 +2809,7 @@ and specs =
("-obj", Arg.Int setprintobj, "Print object"); ("-obj", Arg.Int setprintobj, "Print object");
("-json", Arg.Unit (fun () -> args.format_json <- true), "Format output as JSON"); ("-json", Arg.Unit (fun () -> args.format_json <- true), "Format output as JSON");
("-verify", Arg.String (fun s -> setop (Verify s) ()), "Verify conformance to a standard"); ("-verify", Arg.String (fun s -> setop (Verify s) ()), "Verify conformance to a standard");
("-marks-as", Arg.String (fun s -> setop (MarkAs s) ()), "Mark as conforming to a standard"); ("-mark-as", Arg.String (fun s -> setop (MarkAs s) ()), "Mark as conforming to a standard");
(* These items are undocumented *) (* These items are undocumented *)
("-debug", Arg.Unit setdebug, ""); ("-debug", Arg.Unit setdebug, "");
("-debug-crypt", Arg.Unit (fun () -> args.debugcrypt <- true), ""); ("-debug-crypt", Arg.Unit (fun () -> args.debugcrypt <- true), "");

7
cpdfua.ml
View File

@ -231,4 +231,9 @@ let test_matterhorn_json pdf =
`Assoc [("name", `String name); ("section", `String section); ("error", `String error); ("extra", extra)]) `Assoc [("name", `String name); ("section", `String section); ("error", `String error); ("extra", extra)])
(test_matterhorn pdf)) (test_matterhorn pdf))
let mark pdf = () let mark pdf =
let pdf2 = if Cpdfmetadata.get_metadata pdf = None then Cpdfmetadata.create_metadata pdf else pdf in
pdf.Pdf.objects <- pdf2.Pdf.objects;
pdf.Pdf.trailerdict <- pdf2.Pdf.trailerdict;
pdf.Pdf.root <- pdf.Pdf.root;
()