 (defn baseobject [object]
   (clojure.string/replace object #"@[0-9]+$" ""))
 
-;;;; Command-line interface options.
-;;
-;;(def cliopts
-;; [["-c" "--create"     "Create new namelist"                                                              ]
-;;  ["-f" "--format fmt" "Output in format 'fmt' (default: namelist)"   :assoc-fn assoc-f :parse-fn parse-f ]
-;;  ["-g" "--get n:k"    "Get value of key 'k' in namelist 'n'"         :assoc-fn assoc-g :parse-fn parse-g ]
-;;  ["-h" "--help"       "Show usage information"                                                           ]
-;;  ["-i" "--in file"    "Input file (default: stdin)"                  :assoc-fn assoc-i                   ]
-;;  ["-n" "--no-prefix"  "Report values without 'namelist:key=' prefix"                                     ]
-;;  ["-o" "--out file"   "Output file (default: stdout)"                :assoc-fn assoc-o                   ]
-;;  ["-s" "--set n:k=v"  "Set value of key 'k' in namelist 'n' to 'v'"  :assoc-fn assoc-s :parse-fn parse-s ]
-;;  ["-v" "--version"    "Show version information"                                                         ]])
+;; Command-line interface options.
+
+(def cliopts
+  [["-h" "--help" "Show usage information"]
+   ["-i" "--case-insensitive" "Treat regexp as case-insensitive"]
+   ["-d" "--diff-opts options" "Quoted list of options to pass to svn diff"]
+   ["-l" "--log-opts options" "Quoted list of options to pass to svn log"]])
 
 ;; A string containing the output of "diff" on the two svn revision of object.
 

  (:use [clojure.java.shell :only [sh]])
  (:use [clojure.string :only [split split-lines trim]]))

(declare matching-files svndiff uri? vpaths)

;; Suppress svn user prompts.


                          changes (map strip+- diff-lines)
                          filename (trim (first all-lines))]
                      (if (some matching-line-in? changes) filename)))))))

;; Return a sequence of revision pairs for potential comparison -- e.g. for the
;; revlist (9 8 6 4 1), return (8 9 6 8 4 6 1 4).
