fenix/cpdf-source
1
0
Fork 0
mirror of https://github.com/johnwhitington/cpdf-source.git synced 2025-03-02 10:38:03 +01:00
Code Issues Packages Projects Releases Wiki Activity

Added architecture for -keep-l, but not yet implemented

Browse Source
This commit is contained in:
John Whitington 2014-11-23 19:20:41 +00:00
parent 7e990bc473
commit a68f225e90
1 changed files with 10 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
cpdfcommand.ml
View File

@ -290,6 +290,7 @@ type args =
mutable inputs : input list; mutable inputs : input list;
mutable chunksize : int; mutable chunksize : int;
mutable linearize : bool; mutable linearize : bool;
mutable keeplinearize : bool;
mutable rectangle : float * float * float * float; mutable rectangle : float * float * float * float;
mutable coord : float * float; mutable coord : float * float;
mutable duration : float option; mutable duration : float option;
@ -372,6 +373,7 @@ let args =
inputs = []; inputs = [];
chunksize = 1; chunksize = 1;
linearize = false; linearize = false;
keeplinearize = false;
rectangle = 0., 0., 0., 0.; rectangle = 0., 0., 0., 0.;
coord = 0., 0.; coord = 0., 0.;
duration = None; duration = None;
@ -449,6 +451,7 @@ let reset_arguments () =
args.inputs <- []; args.inputs <- [];
args.chunksize <- 1; args.chunksize <- 1;
args.linearize <- false; args.linearize <- false;
args.keeplinearize <- false;
args.rectangle <- 0., 0., 0., 0.; args.rectangle <- 0., 0., 0., 0.;
args.coord <- 0., 0.; args.coord <- 0., 0.;
args.duration <- None; args.duration <- None;
@ -632,6 +635,9 @@ let setchunk c =
let setlinearize () = let setlinearize () =
args.linearize <- true args.linearize <- true
let setkeeplinearize () =
args.keeplinearize <- true
let fixdashes s = let fixdashes s =
let bufferdashes chars = let bufferdashes chars =
let buf = ref [] in let buf = ref [] in
@ -1383,6 +1389,10 @@ and specs =
("-l", ("-l",
Arg.Unit setlinearize, Arg.Unit setlinearize,
" Linearize output files where possible"); " Linearize output files where possible");
("-keep-l", (* Must add rentention of was-linearized to pdf data type, read
it in Pdfread module *)
Arg.Unit setkeeplinearize,
"");
("-cpdflin", ("-cpdflin",
Arg.String setcpdflin, Arg.String setcpdflin,
" Set location of 'cpdflin'"); " Set location of 'cpdflin'");