This commit is contained in:
John Whitington 2024-09-27 13:20:11 +01:00
parent d0ef176c68
commit bb7fa84ead
3 changed files with 7 additions and 5 deletions

View File

@ -1711,7 +1711,7 @@ let setprintfontencoding s =
let settypeset s = let settypeset s =
setop (Typeset s) () setop (Typeset s) ()
let settypesetsubformat s = let setsubformat s =
args.subformat <- Some (Cpdfua.subformat_of_string s) args.subformat <- Some (Cpdfua.subformat_of_string s)
let settableofcontentstitle s = let settableofcontentstitle s =
@ -2822,9 +2822,9 @@ let specs =
("-typeset", ("-typeset",
Arg.String settypeset, Arg.String settypeset,
" Typeset a text file as a PDF"); " Typeset a text file as a PDF");
("-typeset-subformat", ("-subformat",
Arg.String settypesetsubformat, Arg.String setsubformat,
" Set subformat for typesetting"); " Set subformat");
("-composition", ("-composition",
Arg.Unit (setop (Composition false)), Arg.Unit (setop (Composition false)),
" Show composition of PDF"); " Show composition of PDF");

View File

@ -662,7 +662,7 @@ let rec find_tree_contents a level = function
if level = 1 then (rev a, t) else find_tree_contents a (level - 1) t if level = 1 then (rev a, t) else find_tree_contents a (level - 1) t
| h::t -> find_tree_contents (h::a) level t | h::t -> find_tree_contents (h::a) level t
let mstdebug = ref true let mstdebug = ref false
let rec make_structure_tree pageobjnums (pn, ns, ei) pdf = function let rec make_structure_tree pageobjnums (pn, ns, ei) pdf = function
| [] -> [] | [] -> []

View File

@ -1,3 +1,5 @@
%Document -subformat for -jpg, -png etc.
%Document -subformat for -typeset
\documentclass{book} \documentclass{book}
% Edit here to produce cpdfmanual.pdf, cpdflibmanual.pdf, pycpdfmanual.pdf, % Edit here to produce cpdfmanual.pdf, cpdflibmanual.pdf, pycpdfmanual.pdf,
% dotnetcpdflibmanual.pdf, jcpdflibmanual.pdf jscpdflibmanual.pdf etc. % dotnetcpdflibmanual.pdf, jcpdflibmanual.pdf jscpdflibmanual.pdf etc.