Lines Matching +defs:vc +defs:find +defs:version
0 ;;; vc-mcvs.el --- VC backend for the Meta-CVS version-control system
5 ;; Author: FSF (see vc.el for full credits)
12 ;; the Free Software Foundation; either version 2, or (at your option)
13 ;; any later version.
27 ;; The home page of the Meta-CVS version control system is at
31 ;; This is derived from vc-cvs.el as follows:
32 ;; - cp vc-cvs.el vc-mcvs.el
49 ;; - M-x vc-rename-file RET
58 (eval-when-compile (require 'vc))
59 (require 'vc-cvs)
65 (defcustom vc-mcvs-global-switches nil
72 :version "22.1"
73 :group 'vc)
75 (defcustom vc-mcvs-register-switches nil
78 \\[vc-register]."
84 :version "22.1"
85 :group 'vc)
87 (defcustom vc-mcvs-diff-switches nil
94 :version "22.1"
95 :group 'vc)
97 (defcustom vc-mcvs-header (or (cdr (assoc 'MCVS vc-header-alist))
98 vc-cvs-header)
99 "*Header keywords to be inserted by `vc-insert-headers'."
100 :version "22.1"
102 :group 'vc)
104 (defcustom vc-mcvs-use-edit vc-cvs-use-edit
109 :version "22.1"
110 :group 'vc)
116 ;;;###autoload (defun vc-mcvs-registered (file)
117 ;;;###autoload (if (vc-find-root file "MCVS/CVS")
119 ;;;###autoload (load "vc-mcvs")
120 ;;;###autoload (vc-mcvs-registered file))))
122 (defun vc-mcvs-root (file)
124 (or (vc-file-getprop file 'mcvs-root)
125 (vc-file-setprop file 'mcvs-root (vc-find-root file "MCVS/CVS"))))
127 (defun vc-mcvs-read (file)
134 (defun vc-mcvs-map-file (dir file)
135 (let ((map (vc-mcvs-read (expand-file-name "MCVS/MAP" dir)))
140 (defun vc-mcvs-registered (file)
142 (when (and (setq root (vc-mcvs-root file))
143 (setq inode (vc-mcvs-map-file
145 (vc-file-setprop file 'mcvs-inode inode)
146 ;; Avoid calling `mcvs diff' in vc-workfile-unchanged-p.
147 (vc-file-setprop file 'vc-checkout-time
148 (if (vc-cvs-registered
150 (vc-file-getprop cvsfile 'vc-checkout-time)
156 (defun vc-mcvs-state (file)
158 ;; (vc-mcvs-cvs state file))
159 "Meta-CVS-specific version of `vc-state'."
160 (if (vc-stay-local-p file)
161 (let ((state (vc-file-getprop file 'vc-state)))
165 (vc-mcvs-state-heuristic file)
168 (setq default-directory (vc-mcvs-root file))
169 (vc-mcvs-command t 0 file "status")
170 (vc-cvs-parse-status t))))
173 (defalias 'vc-mcvs-state-heuristic 'vc-cvs-state-heuristic)
175 (defun vc-mcvs-dir-state (dir)
179 (if (vc-stay-local-p dir)
180 (vc-mcvs-dir-state-heuristic dir)
185 (setq default-directory (vc-mcvs-root dir))
186 (vc-mcvs-command t 0 nil "status" "-l")
190 (vc-cvs-parse-status)
194 (defun vc-mcvs-workfile-version (file)
195 (vc-cvs-workfile-version
196 (expand-file-name (vc-file-getprop file 'mcvs-inode)
197 (vc-file-getprop file 'mcvs-root))))
199 (defalias 'vc-mcvs-checkout-model 'vc-cvs-checkout-model)
205 (defun vc-mcvs-register (file &optional rev comment)
206 "Register FILE into the Meta-CVS version-control system.
209 `vc-register-switches' and `vc-mcvs-register-switches' are passed to
214 (root (vc-mcvs-root file))
217 (types (vc-mcvs-read types-file)))
222 (vc-checkout map-file t))
224 (vc-checkout types-file t))
234 (with-current-buffer (find-file-noselect types-file)
241 (prog1 (apply 'vc-mcvs-command nil 0 file
245 (vc-switches 'MCVS 'register))
247 ;; prop of the file, things break later on in vc-mode-line that
248 ;; ends up calling vc-mcvs-workfile-version.
249 ;; We also need to set vc-checkout-time so that vc-workfile-unchanged-p
251 (vc-mcvs-registered file)))
253 (defalias 'vc-mcvs-responsible-p 'vc-mcvs-root
256 (defalias 'vc-cvs-could-register 'vc-cvs-responsible-p
260 (defun vc-mcvs-checkin (file rev comment)
261 "Meta-CVS-specific version of `vc-backend-checkin'."
262 (unless (or (not rev) (vc-mcvs-valid-version-number-p rev))
263 (if (not (vc-mcvs-valid-symbolic-tag-name-p rev))
270 (apply 'vc-mcvs-command nil 0 file "tag" "-b" (list rev))
271 (apply 'vc-mcvs-command nil 0 file "update" "-r" (list rev))
272 (vc-file-setprop file 'vc-mcvs-sticky-tag rev)
277 (let ((status (apply 'vc-mcvs-command nil 1 file
279 (vc-switches 'MCVS 'checkin))))
280 (set-buffer "*vc*")
286 (vc-file-setprop file 'vc-state 'needs-merge)
289 "type \\[vc-next-action] to merge in changes"))))
296 (vc-file-setprop
297 file 'vc-workfile-version
298 (vc-parse-buffer "^\\(new\\|initial\\) revision: \\([0-9.]+\\)" 2))
302 ;; vc-mcvs-checkout-model).
303 (vc-file-setprop file 'vc-checkout-model nil)
307 (if (and rev (not (vc-mcvs-valid-symbolic-tag-name-p rev)))
308 (vc-mcvs-command nil 0 file "update" "-A"))))
310 (defun vc-mcvs-find-version (file rev buffer)
311 (apply 'vc-mcvs-command
318 (vc-switches 'MCVS 'checkout)))
320 (defun vc-mcvs-checkout (file &optional editable rev)
323 (vc-call update file editable rev (vc-switches 'MCVS 'checkout)))
324 (vc-mode-line file)
327 (defun vc-mcvs-update (file editable rev switches)
331 (and editable (not (eq (vc-mcvs-checkout-model file) 'implicit))
332 (if vc-mcvs-use-edit
333 (vc-mcvs-command nil 0 file "edit")
336 ;; Check out a particular version (or recreate the file).
337 (vc-file-setprop file 'vc-workfile-version nil)
338 (apply 'vc-mcvs-command nil 0 file
348 (defun vc-mcvs-rename-file (old new)
349 (vc-mcvs-command nil 0 new "move" (file-relative-name old)))
351 (defun vc-mcvs-revert (file &optional contents-done)
352 "Revert FILE to the version it was based on."
353 (vc-default-revert 'MCVS file contents-done)
354 (unless (eq (vc-checkout-model file) 'implicit)
355 (if vc-mcvs-use-edit
356 (vc-mcvs-command nil 0 file "unedit")
360 (defun vc-mcvs-merge (file first-version &optional second-version)
363 (vc-mcvs-command nil 0 file
365 (concat "-j" first-version)
366 (concat "-j" second-version))
367 (vc-file-setprop file 'vc-state 'edited)
368 (with-current-buffer (get-buffer "*vc*")
374 (defun vc-mcvs-merge-news (file)
377 ;; (vc-file-setprop file 'vc-workfile-version nil)
378 (vc-file-setprop file 'vc-checkout-time 0)
379 (vc-mcvs-command nil 0 file "update")
382 (with-current-buffer (get-buffer "*vc*")
384 ;; get new workfile version
387 (vc-file-setprop file 'vc-workfile-version (match-string 1))
388 (vc-file-setprop file 'vc-workfile-version nil))
403 (vc-file-setprop file 'vc-state 'up-to-date)
404 (vc-file-setprop file 'vc-checkout-time
409 (vc-file-setprop file 'vc-state 'edited)
413 (vc-file-setprop file 'vc-state 'edited)
416 (pop-to-buffer "*vc*")
424 (defun vc-mcvs-print-log (file &optional buffer)
426 (let ((default-directory (vc-mcvs-root file)))
429 (vc-mcvs-command
431 (if (and (vc-stay-local-p file) (fboundp 'start-process)) 'async 0)
434 (defun vc-mcvs-diff (file &optional oldvers newvers buffer)
436 (if (string= (vc-workfile-version file) "0")
443 (apply 'vc-do-command (or buffer "*vc-diff*")
445 (append (vc-switches nil 'diff) '("/dev/null")))
448 (let* ((async (and (not vc-disable-async-diff)
449 (vc-stay-local-p file)
453 (default-directory (vc-mcvs-root file))
455 (apply 'vc-mcvs-command (or buffer "*vc-diff*")
460 (vc-switches 'MCVS 'diff))))
463 (defun vc-mcvs-diff-tree (dir &optional rev1 rev2)
465 (with-current-buffer "*vc-diff*"
468 (setq default-directory (vc-mcvs-root dir))
471 (apply 'vc-mcvs-command "*vc-diff*" 1 dir "diff"
474 (vc-switches 'MCVS 'diff)))))
476 (defun vc-mcvs-annotate-command (file buffer &optional version)
478 Optional arg VERSION is a version to annotate from."
479 (vc-mcvs-command
481 (if (and (vc-stay-local-p file) (fboundp 'start-process)) 'async 0)
482 file "annotate" (if version (concat "-r" version)))
488 (defalias 'vc-mcvs-annotate-current-time 'vc-cvs-annotate-current-time)
489 (defalias 'vc-mcvs-annotate-time 'vc-cvs-annotate-time)
495 (defun vc-mcvs-create-snapshot (dir name branchp)
496 "Assign to DIR's current version a given NAME.
500 (vc-mcvs-command nil 0 dir "tag" "-c" name)
501 (vc-mcvs-command nil 0 dir "branch" name)
502 (vc-mcvs-command nil 0 dir "switch" name)))
504 (defun vc-mcvs-retrieve-snapshot (dir name update)
508 (with-current-buffer (get-buffer-create "*vc*")
513 (vc-mcvs-command t 0 nil "update")
514 (vc-mcvs-command t 0 nil "update" "-r" name)
522 (buffer (find-buffer-visiting file)))
527 (vc-file-setprop file 'vc-state 'up-to-date)
528 (vc-file-setprop file 'vc-workfile-version nil)
529 (vc-file-setprop file 'vc-checkout-time
533 (vc-file-setprop file 'vc-state 'edited)
534 (vc-file-setprop file 'vc-workfile-version nil)
535 (vc-file-setprop file 'vc-checkout-time 0)))
536 (vc-file-setprop file 'vc-mcvs-sticky-tag sticky-tag)
537 (vc-resynch-buffer file t t))))
545 (defalias 'vc-mcvs-make-version-backups-p 'vc-stay-local-p
546 "Return non-nil if version backups should be made for FILE.")
547 (defalias 'vc-mcvs-check-headers 'vc-cvs-check-headers)
554 (defun vc-mcvs-command (buffer okstatus file &rest flags)
555 "A wrapper around `vc-do-command' for use in vc-mcvs.el.
556 The difference to vc-do-command is that this function always invokes `mcvs',
557 and that it passes `vc-mcvs-global-switches' to it before FLAGS."
559 (if (stringp vc-mcvs-global-switches)
560 (cons vc-mcvs-global-switches flags)
561 (append vc-mcvs-global-switches flags)))))
564 (apply 'vc-do-command buffer okstatus "mcvs" file args)
568 ;; (assert (equal default-directory (vc-mcvs-root file)))
569 (vc-do-command
579 (defun vc-mcvs-repository-hostname (dirname)
580 (vc-cvs-repository-hostname (vc-mcvs-root dirname)))
582 (defun vc-mcvs-dir-state-heuristic (dir)
585 (vc-cvs-get-entries dir)
591 (unless (vc-file-getprop file 'vc-state)
592 (vc-cvs-parse-entry file t))))
595 (defalias 'vc-mcvs-valid-symbolic-tag-name-p 'vc-cvs-valid-symbolic-tag-name-p)
596 (defalias 'vc-mcvs-valid-version-number-p 'vc-cvs-valid-version-number-p)
598 (provide 'vc-mcvs)
601 ;;; vc-mcvs.el ends here