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

Closer with subformats

This commit is contained in:
John Whitington 2023-11-01 18:55:23 +00:00
parent 506425578f
commit 29ac4c8a64
1 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
cpdfmetadata.ml
View File

@ -326,6 +326,8 @@ let rec get_data_for namespace name = function
PDF/VT: <pdfxid:GTS_PDFXVersion>PDF/X-4</pdfxid:GTS_PDFXVersion> <pdfvtid:GTS_PDFVTVersion>PDF/VT-1</pdfvtid:GTS_PDFVTVersion> PDF/VT: <pdfxid:GTS_PDFXVersion>PDF/X-4</pdfxid:GTS_PDFXVersion> <pdfvtid:GTS_PDFVTVersion>PDF/VT-1</pdfvtid:GTS_PDFVTVersion>
-PDF/UA: <pdfuaid:part>1</pdfuaid:part> -PDF/UA: <pdfuaid:part>1</pdfuaid:part>
PDF/X: <pdfxid:GTS_PDFXVersion>PDF/X-4</pdfxid:GTS_PDFXVersion> (Fallback DID /GTS_PDFXVersion(PDF/X-1:2001)) *) PDF/X: <pdfxid:GTS_PDFXVersion>PDF/X-4</pdfxid:GTS_PDFXVersion> (Fallback DID /GTS_PDFXVersion(PDF/X-1:2001)) *)
(* FIXME Can it have multiple subformats? *)
let determine_subformat pdf = let determine_subformat pdf =
match get_metadata pdf with match get_metadata pdf with
| None -> "PDF" | None -> "PDF"
@ -335,9 +337,7 @@ let determine_subformat pdf =
flprint (string_of_xmltree tree); flprint (string_of_xmltree tree);
(* PDF/E *) (* PDF/E *)
match get_data_for pdfe "ISO_PDFEVersion" tree with match get_data_for pdfe "ISO_PDFEVersion" tree with
| Some s -> | Some s -> s
(* If also a pdfxid, print that in parentheses *)
s
| None -> | None ->
(* PDF/UA *) (* PDF/UA *)
match get_data_for pdfuaid "part" tree with match get_data_for pdfuaid "part" tree with