(vc-cvs-after-dir-status, vc-cvs-dir-status): Add

alternative implementation based on "cvs update".

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 5607a501ef3b9639c91774144b118280ec95a286..7370d00820d57cac3a67ef30ea5796b39e3332b5 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,8 @@
+2008-04-15  Dan Nicolaescu  <dann@ics.uci.edu>
+
+       * vc-cvs.el (vc-cvs-after-dir-status, vc-cvs-dir-status): Add
+       alternative implementation based on "cvs update".
+
 2008-04-15  Tassilo Horn  <tassilo@member.fsf.org>
 
        * doc-view.el: Changed requirements section to tell that only one

diff --git a/lisp/vc-cvs.el b/lisp/vc-cvs.el
index dc60d6a17382ff9daa427a92ba7991b5aab0fb4e..61d93ebfeec5f6e562fadbae92ac50a3314d19e1 100644 (file)
--- a/lisp/vc-cvs.el
+++ b/lisp/vc-cvs.el
@@ -908,15 +908,88 @@ state."
              (push (list file status) result))))))
       (goto-char (point-max))
       (widen))
-      (funcall update-function result)))
+      (funcall update-function result))
+  ;; Alternative implementation: use the "update" command instead of
+  ;; the "status" command.
+  ;; (let ((result nil)
+  ;;   (translation '((?? . unregistered)
+  ;;                  (?A . added)
+  ;;                  (?C . conflict)
+  ;;                  (?M . edited)
+  ;;                  (?P . needs-merge)
+  ;;                  (?R . removed)
+  ;;                  (?U . needs-patch))))
+  ;;   (goto-char (point-min))
+  ;;   (while (not (eobp))
+  ;;     (if (looking-at "^[ACMPRU?] \\(.*\\)$")
+  ;;     (push (list (match-string 1) 
+  ;;                 (cdr (assoc (char-after) translation))) 
+  ;;           result)
+  ;;   (cond
+  ;;    ((looking-at "cvs update: warning: \\(.*\\) was lost")
+  ;;     ;; Format is:
+  ;;     ;; cvs update: warning: FILENAME was lost
+  ;;     ;; U FILENAME
+  ;;     (push (list (match-string 1) 'missing) result)
+  ;;     ;; Skip the "U" line
+  ;;     (forward-line 1))
+  ;;    ((looking-at "cvs update: New directory `\\(.*\\)' -- ignored")
+  ;;     (push (list (match-string 1) 'unregistered) result))))
+  ;;     (forward-line 1))
+  ;;   (funcall update-function result)))
+  )
 
 ;; XXX Experimental function for the vc-dired replacement.
 (defun vc-cvs-dir-status (dir update-function)
   "Create a list of conses (file . state) for DIR."
   (vc-cvs-command (current-buffer) 'async dir "status")
+  ;; Alternative implementation: use the "update" command instead of
+  ;; the "status" command.
+  ;; (vc-cvs-command (current-buffer) 'async
+  ;;             (file-relative-name dir)
+  ;;             "-f" "-n" "update" "-d" "-P")
   (vc-exec-after
    `(vc-cvs-after-dir-status (quote ,update-function))))
 
+(defun vc-cvs-after-dir-status (update-function)
+  ;; Heavily inspired by vc-cvs-parse-status. AKA a quick hack.
+  ;; It needs a lot of testing.
+  (let ((result nil)
+       (translation '((?? . unregistered)
+                      (?A . added)
+                      (?C . conflict)
+                      (?M . edited)
+                      (?P . needs-merge)
+                      (?R . removed)
+                      (?U . needs-patch))))
+    (goto-char (point-min))
+    (while (not (eobp))
+      (if (looking-at "^[ACMPRU?] \\(.*\\)$")
+         (push (list (match-string 1) 
+                     (cdr (assoc (char-after) translation))) 
+               result)
+       (cond
+        ((looking-at "cvs update: warning: \\(.*\\) was lost")
+         ;; Format is:
+         ;; cvs update: warning: FILENAME was lost
+         ;; U FILENAME
+         (push (list (match-string 1) 'missing) result)
+         ;; Skip the "U" line
+         (forward-line 1))
+        ((looking-at "cvs update: New directory `\\(.*\\)' -- ignored")
+         (push (list (match-string 1) 'unregistered) result))))
+      (forward-line 1))
+    (funcall update-function result)))
+
+(defun vc-cvs-dir-status (dir update-function)
+  "Create a list of conses (file . state) for DIR."
+  (vc-cvs-command (current-buffer) 'async
+                 (file-relative-name dir)
+                 "-f" "-n" "update" "-d" "-P")
+  (vc-exec-after
+   `(vc-cvs-after-dir-status (quote ,update-function))))
+
+
 (defun vc-cvs-get-entries (dir)
   "Insert the CVS/Entries file from below DIR into the current buffer.
 This function ensures that the correct coding system is used for that,