From 9163fc46c1cf8ac02a3bf7a0119d3afd69789e46 Mon Sep 17 00:00:00 2001 From: "Kevin M. Rosenberg" Date: Wed, 22 Oct 2003 00:02:17 +0000 Subject: [PATCH] r8015: change dir before cvs/svn command --- debian/changelog | 6 ++++++ main.lisp | 29 +++++++++++++++-------------- 2 files changed, 21 insertions(+), 14 deletions(-) diff --git a/debian/changelog b/debian/changelog index 0b14198..6d6256a 100644 --- a/debian/changelog +++ b/debian/changelog @@ -1,3 +1,9 @@ +vcs-tree (0.2-1) unstable; urgency=low + + * New upstream + + -- Kevin M. Rosenberg Tue, 21 Oct 2003 18:01:24 -0600 + vcs-tree (0.1.1-1) unstable; urgency=low * New upstream (closes: 216366) diff --git a/main.lisp b/main.lisp index 85c3aff..342e7d0 100644 --- a/main.lisp +++ b/main.lisp @@ -100,22 +100,23 @@ Returns a list of directories managed by CVS or SVN." (defun process-vcs-directory (dir action options) (flet ((process (dir type-name) - (let ((cmd - (ecase action - (:update - (format nil "~A update" type-name)) - (:status - (format nil "~A status" type-name)) - (:commit - (format nil "~A commit~A" type-name - (aif (find "m" options :key #'car :test 'string=) - (format nil " -m \"~A\"" (cdr it)) - "")))))) + (let* ((vcs-cmd + (ecase action + (:update + (format nil "~A update" type-name)) + (:status + (format nil "~A status" type-name)) + (:commit + (format nil "~A commit~A" type-name + (aif (find "m" options :key #'car :test 'string=) + (format nil " -m \"~A\"" (cdr it)) + ""))))) + (cmd (format nil "(cd ~A; ~A)" (namestring dir) vcs-cmd))) (multiple-value-bind (output error status) - (shell-command-output cmd :directory dir :whole t) + (shell-command-output cmd :directory dir :whole t) (if (zerop status) - (format t "~A ~A: ~A~%" cmd (namestring dir) output) - (format t "~A ~A: ~A ~A ~A~%" cmd (namestring dir) output + (format t "~A ~A: ~A~%" vcs-cmd (namestring dir) output) + (format t "~A ~A: ~A ~A ~A~%" vcs-cmd (namestring dir) output error status)))))) (cond ((is-cvs-managed dir) -- 2.34.1