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

more scaffolding

This commit is contained in:
John Whitington 2024-09-30 13:10:22 +01:00
parent 52caf8eced
commit e1dc48c178
1 changed files with 13 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

11
cpdfcommand.ml
View File

@ -4495,8 +4495,19 @@ let go () =
let pdf = get_single_pdf args.op false in let pdf = get_single_pdf args.op false in
write_pdf false (Cpdfbookmarks.bookmarks_open_to_level n pdf) write_pdf false (Cpdfbookmarks.bookmarks_open_to_level n pdf)
| Some CreatePDF -> | Some CreatePDF ->
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 let pdf = Cpdfcreate.blank_document_paper args.createpdf_pagesize args.createpdf_pages in
write_pdf false pdf write_pdf false pdf
end
| Some RemoveAllText -> | Some RemoveAllText ->
let pdf = get_single_pdf args.op false in let pdf = get_single_pdf args.op false in
let range = parse_pagespec_allow_empty pdf (get_pagespec ()) in let range = parse_pagespec_allow_empty pdf (get_pagespec ()) in