fenix/cpdf-source
1
0
Fork 0
mirror of https://github.com/johnwhitington/cpdf-source.git synced 2025-06-05 22:09:39 +02:00
Code Issues Packages Projects Releases Wiki Activity

Added -revision switch, but not implemented yet

Browse Source
This commit is contained in:
John Whitington
2014-12-11 18:19:57 +00:00
parent 2d3f2e672d
commit 67e399a7be
1 changed files with 9 additions and 0 deletions
Download Patch File Download Diff File Expand all files Collapse all files

9
cpdfcommand.ml
View File

@ -1208,6 +1208,12 @@ let setrange spec =
args.inputs <- (StdIn, spec, c, d, e, f) :: more args.inputs <- (StdIn, spec, c, d, e, f) :: more
| x -> () | x -> ()
let setrevision n =
match args.inputs with
(a, b, c, d, e, _)::more ->
args.inputs <- (a, b, c, d, e, Some n) :: more
| [] -> Printf.eprintf "Warning. -revision ignored"
let setoutline () = let setoutline () =
args.outline <- true args.outline <- true
@ -1353,6 +1359,9 @@ and specs =
("-range", ("-range",
Arg.String setrange, Arg.String setrange,
" Explicitly add a range"); " Explicitly add a range");
("-revision",
Arg.Int setrevision,
" Set the revision to read for the file just named.");
("-change-id", ("-change-id",
Arg.Unit (setop ChangeId), Arg.Unit (setop ChangeId),
" Change the file's /ID tag"); " Change the file's /ID tag");