Author: mhenoch
Date: Sun Nov 25 16:11:09 2007
New Revision: 148
Modified:
cl-darcs/trunk/cl-darcs.asd
cl-darcs/trunk/cmdline.lisp
Log:
Use getopt library. Use it for "init" command.
Modified: cl-darcs/trunk/cl-darcs.asd
==============================================================================
--- cl-darcs/trunk/cl-darcs.asd (original)
+++ cl-darcs/trunk/cl-darcs.asd Sun Nov 25 16:11:09 2007
@@ -22,7 +22,8 @@
;; Regexps
:cl-ppcre
;; Diff
- :cl-difflib)
+ :cl-difflib
+ :getopt)
:components
((:file "packages")
Modified: cl-darcs/trunk/cmdline.lisp
==============================================================================
--- cl-darcs/trunk/cmdline.lisp (original)
+++ cl-darcs/trunk/cmdline.lisp Sun Nov 25 16:11:09 2007
@@ -90,6 +90,20 @@
Usage: darcs whatsnew"
(diff-repo-display (find-repo)))
-(define-darcs-command init ()
- "Initialize a darcs repository in the current directory."
- (create-repo (truename *default-pathname-defaults*)))
+(define-darcs-command init (&rest args)
+ "Initialize a darcs repository in the current directory.
+
+Options:
+--repodir=DIRECTORY Use DIRECTORY instead of current directory"
+ (multiple-value-bind (operands options errors)
+ (getopt:getopt args
+ '(("repodir" :required)))
+ (declare (ignore operands))
+ (if errors
+ (progn
+ (format *error-output* "Invalid arguments: ~{ ~A ~}~%" errors)
+ 1)
+ (let ((repodir (or (cdr (assoc "repodir" options :test #'string=))
+ *default-pathname-defaults*)))
+ (format t "Creating repo in ~S...~%" repodir)
+ (create-repo (truename repodir))))))
