From 67e399a7be985aa80915dc92c7421a30abb76273 Mon Sep 17 00:00:00 2001
From: John Whitington <john@coherentgraphics.co.uk>
Date: Thu, 11 Dec 2014 18:19:57 +0000
Subject: [PATCH] Added -revision switch, but not implemented yet

---
 cpdfcommand.ml | 9 +++++++++
 1 file changed, 9 insertions(+)

diff --git a/cpdfcommand.ml b/cpdfcommand.ml
index 9906d71..24b5f6a 100644
--- a/cpdfcommand.ml
+++ b/cpdfcommand.ml
@@ -1208,6 +1208,12 @@ let setrange spec =
       args.inputs <- (StdIn, spec, c, d, e, f) :: more
   | 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 () =
   args.outline <- true
 
@@ -1353,6 +1359,9 @@ and specs =
    ("-range",
       Arg.String setrange,
       " Explicitly add a range");
+   ("-revision",
+      Arg.Int setrevision,
+      " Set the revision to read for the file just named.");
    ("-change-id",
       Arg.Unit (setop ChangeId),
       " Change the file's /ID tag");