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

-revision and -revisions now work

This commit is contained in:
John Whitington 2014-12-22 13:20:20 +00:00
parent b381a02c77
commit 201538e168
1 changed files with 3 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
cpdfcommand.ml
View File

@ -3,7 +3,7 @@ let demo = false
let noncomp = false let noncomp = false
let major_version = 2 let major_version = 2
let minor_version = 2 let minor_version = 2
let version_date = "(build of 11th December 2014)" let version_date = "(build of 22nd December 2014)"
open Pdfutil open Pdfutil
open Pdfio open Pdfio
@ -1212,7 +1212,8 @@ let setrevision n =
match args.inputs with match args.inputs with
(a, b, c, d, e, _)::more -> (a, b, c, d, e, _)::more ->
args.inputs <- (a, b, c, d, e, Some n) :: more args.inputs <- (a, b, c, d, e, Some n) :: more
| [] -> Printf.eprintf "Warning. -revision ignored.\n" | [] ->
Printf.eprintf "Warning. -revision ignored. Put it after the filename.\n"
let setoutline () = let setoutline () =
args.outline <- true args.outline <- true