comparison lisp/vc-git.el @ 93146:c73e70274c0c

(vc-git--empty-db-p) (vc-git-after-dir-status-stage1-empty-db): New functions. (vc-git-dir-status, vc-git-after-dir-status-stage1, vc-git-state): Add support for empty repositories.

93145:9a34bf3a4363

  (vc-git--call nil "add" "--refresh" "--" (file-relative-name file))
  (let ((diff (vc-git--run-command-string file "diff-index" "-z" "HEAD" "--")))
    (if (and diff (string-match ":[0-7]\\{6\\} [0-7]\\{6\\} [0-9a-f]\\{40\\} [0-9a-f]\\{40\\} \\([ADMU]\\)\0[^\0]+\0"
                                diff))
	(if (string= (match-string 1 diff) "A") 'added 'edited)
      'up-to-date)))

(defun vc-git--ls-files-state (state &rest args)
  "Set state to STATE on all files found with git-ls-files ARGS."
  (with-temp-buffer
    (apply 'vc-git-command (current-buffer) nil nil "ls-files" "-z" args)

  (vc-git-command (current-buffer) 'async nil "ls-files" "-z" "-o"
		  "--directory" "--no-empty-directory" "--exclude-standard")
  (vc-exec-after
   `(vc-git-after-dir-status-stage2 (quote ,update-function) ,status-buffer)))

(defun vc-git-dir-status (dir update-function status-buffer)
  "Return a list of conses (file . state) for DIR."
  ;; Further things that would have to be fixed later:
  ;; - support for an empty repository (with no initial commit)
  ;; - how to handle unregistered directories
  ;; - how to support vc-status on a subdir of the project tree
  (with-current-buffer
      (get-buffer-create
       (expand-file-name " *VC-Git* tmp status" dir))
    (set (make-local-variable 'vc-git-status-result) nil)
    (cd dir)
    (erase-buffer)
    (vc-git-command (current-buffer) 'async nil "diff-index" "-z" "HEAD")
    (vc-exec-after
     `(vc-git-after-dir-status-stage1 (quote ,update-function) ,status-buffer))
    (current-buffer)))

;;; STATE-CHANGING FUNCTIONS

(defun vc-git-create-repo ()

(defun vc-git-command (buffer okstatus file-or-list &rest flags)
  "A wrapper around `vc-do-command' for use in vc-git.el.
The difference to vc-do-command is that this function always invokes `git'."
  (apply 'vc-do-command buffer okstatus "git" file-or-list flags))

(defun vc-git--call (buffer command &rest args)
  ;; We don't need to care the arguments.  If there is a file name, it
  ;; is always a relative one.  This works also for remote
  ;; directories.
  (apply 'process-file "git" nil buffer nil command args))

93146:c73e70274c0c

  (vc-git--call nil "add" "--refresh" "--" (file-relative-name file))
  (let ((diff (vc-git--run-command-string file "diff-index" "-z" "HEAD" "--")))
    (if (and diff (string-match ":[0-7]\\{6\\} [0-7]\\{6\\} [0-9a-f]\\{40\\} [0-9a-f]\\{40\\} \\([ADMU]\\)\0[^\0]+\0"
                                diff))
	(if (string= (match-string 1 diff) "A") 'added 'edited)
      (if (vc-git--empty-db-p) 'added 'up-to-date))))

(defun vc-git--ls-files-state (state &rest args)
  "Set state to STATE on all files found with git-ls-files ARGS."
  (with-temp-buffer
    (apply 'vc-git-command (current-buffer) nil nil "ls-files" "-z" args)

  (vc-git-command (current-buffer) 'async nil "ls-files" "-z" "-o"
		  "--directory" "--no-empty-directory" "--exclude-standard")
  (vc-exec-after
   `(vc-git-after-dir-status-stage2 (quote ,update-function) ,status-buffer)))

(defun vc-git-after-dir-status-stage1-empty-db (update-function status-buffer)
  (goto-char (point-min))
  (while (re-search-forward "\\([^\0]*?\\)\0" nil t 1)
    (push (cons (match-string 1) 'added) vc-git-status-result))
  (erase-buffer)
  (vc-git-command (current-buffer) 'async nil "ls-files" "-z" "-o"
		  "--directory" "--no-empty-directory" "--exclude-standard")
  (vc-exec-after
   `(vc-git-after-dir-status-stage2 (quote ,update-function) ,status-buffer)))

(defun vc-git-dir-status (dir update-function status-buffer)
  "Return a list of conses (file . state) for DIR."
  ;; Further things that would have to be fixed later:
  ;; - how to handle unregistered directories
  ;; - how to support vc-status on a subdir of the project tree
  (with-current-buffer
      (get-buffer-create
       (expand-file-name " *VC-Git* tmp status" dir))
    (set (make-local-variable 'vc-git-status-result) nil)
    (cd dir)
    (erase-buffer)
    (if (vc-git--empty-db-p)
        (progn
          (vc-git-command (current-buffer) 'async nil "ls-files" "-z" "-c")
          (vc-exec-after
           `(vc-git-after-dir-status-stage1-empty-db (quote ,update-function) ,status-buffer)))
      (vc-git-command (current-buffer) 'async nil "diff-index" "-z" "HEAD")
      (vc-exec-after
       `(vc-git-after-dir-status-stage1 (quote ,update-function) ,status-buffer)))
    (current-buffer)))

;;; STATE-CHANGING FUNCTIONS

(defun vc-git-create-repo ()

(defun vc-git-command (buffer okstatus file-or-list &rest flags)
  "A wrapper around `vc-do-command' for use in vc-git.el.
The difference to vc-do-command is that this function always invokes `git'."
  (apply 'vc-do-command buffer okstatus "git" file-or-list flags))

(defun vc-git--empty-db-p ()
  "Check if the git db is empty (no commit done yet)."
  (not (eq 0 (vc-git--call nil "rev-parse" "--verify" "HEAD"))))

(defun vc-git--call (buffer command &rest args)
  ;; We don't need to care the arguments.  If there is a file name, it
  ;; is always a relative one.  This works also for remote
  ;; directories.
  (apply 'process-file "git" nil buffer nil command args))