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

Finish skeleton for -chop

This commit is contained in:
John Whitington 2023-11-15 17:34:14 +00:00
parent 6357f8f610
commit 04353276f3
1 changed files with 7 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
cpdfcommand.ml
View File

@ -1716,6 +1716,10 @@ let setimposespacing f =
let setimposelinewidth f = let setimposelinewidth f =
args.impose_linewidth <- f args.impose_linewidth <- f
let setchop s =
let x, y = Cpdfcoord.parse_coordinate empty s in
setop (Chop (int_of_float x, int_of_float y)) ()
let setreplacedictentry s = let setreplacedictentry s =
setop (ReplaceDictEntry s) () setop (ReplaceDictEntry s) ()
@ -2323,6 +2327,9 @@ and specs =
("-impose-linewidth", ("-impose-linewidth",
Arg.Float setimposelinewidth, Arg.Float setimposelinewidth,
" Imposition divider line width (0=none)"); " Imposition divider line width (0=none)");
("-chop",
Arg.String setchop,
" Chop x by y");
("-pad-before", ("-pad-before",
Arg.Unit (setop PadBefore), Arg.Unit (setop PadBefore),
" Add a blank page before the given pages"); " Add a blank page before the given pages");