[Cl-darcs-cvs] r148 - cl-darcs/trunk

[mhenoch at common-lisp.net]

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))))))