From e1dc48c178c2db1a75b119e40ec25819de214570 Mon Sep 17 00:00:00 2001
From: John Whitington <john@coherentgraphics.co.uk>
Date: Mon, 30 Sep 2024 13:10:22 +0100
Subject: [PATCH] more scaffolding

---
 cpdfcommand.ml | 15 +++++++++++++--
 1 file changed, 13 insertions(+), 2 deletions(-)

diff --git a/cpdfcommand.ml b/cpdfcommand.ml
index 1933387..8e03fa6 100644
--- a/cpdfcommand.ml
+++ b/cpdfcommand.ml
@@ -4495,8 +4495,19 @@ let go () =
       let pdf = get_single_pdf args.op false in
         write_pdf false (Cpdfbookmarks.bookmarks_open_to_level n pdf)
   | Some CreatePDF ->
-      let pdf = Cpdfcreate.blank_document_paper args.createpdf_pagesize args.createpdf_pages in
-        write_pdf false pdf
+      begin match args.subformat with
+      | Some Cpdfua.PDFUA1 ->
+          begin match args.title with None -> error "Provide -title" | _ -> () end;
+          let pdf = Cpdfua.create_cpdfua1 (unopt args.title) args.createpdf_pagesize args.createpdf_pages in
+            write_pdf false pdf
+      | Some Cpdfua.PDFUA2 ->
+          begin match args.title with None -> error "Provide -title" | _ -> () end;
+          let pdf = Cpdfua.create_cpdfua2 (unopt args.title) args.createpdf_pagesize args.createpdf_pages in
+            write_pdf false pdf
+      | None ->
+          let pdf = Cpdfcreate.blank_document_paper args.createpdf_pagesize args.createpdf_pages in
+            write_pdf false pdf
+      end
   | Some RemoveAllText ->
       let pdf = get_single_pdf args.op false in
       let range = parse_pagespec_allow_empty pdf (get_pagespec ()) in