+vcs-tree (0.2-1) unstable; urgency=low
+
+ * New upstream
+
+ -- Kevin M. Rosenberg <kmr@debian.org> Tue, 21 Oct 2003 18:01:24 -0600
+
vcs-tree (0.1.1-1) unstable; urgency=low
* New upstream (closes: 216366)
(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)