Lines Matching defs:rcs
1 ;;; vc-rcs.el --- support for RCS version-control
42 (defcustom vc-rcs-release nil
50 (defcustom vc-rcs-register-switches nil
53 by \\[vc-rcs-register]."
62 (defcustom vc-rcs-diff-switches nil
72 (defcustom vc-rcs-header (or (cdr (assoc 'RCS vc-header-alist)) '("\$Id\$"))
86 (defcustom vc-rcs-master-templates
104 ;;; The autoload cookie below places vc-rcs-registered directly into
105 ;;; loaddefs.el, so that vc-rcs.el does not need to be loaded for
109 ;;;###autoload (defun vc-rcs-registered (f) (vc-default-registered 'RCS f))
110 (defun vc-rcs-registered (f) (vc-default-registered 'RCS f))
112 (defun vc-rcs-state (file)
114 (or (boundp 'vc-rcs-headers-result)
116 (vc-rcs-consult-headers file)))
119 ;; property is nil. vc-rcs-fetch-master-state knows how to
121 (vc-rcs-fetch-master-state file
132 (defun vc-rcs-state-heuristic (file)
134 (let (vc-rcs-headers-result)
136 (setq vc-rcs-headers-result
137 (vc-rcs-consult-headers file))
138 (eq vc-rcs-headers-result 'rev-and-lock))
149 (if (vc-rcs-workfile-is-newer file)
167 (if (vc-rcs-workfile-is-newer file)
173 (vc-rcs-state file))))
174 (vc-rcs-state file)))))
176 (defun vc-rcs-workfile-version (file)
179 (vc-rcs-consult-headers file)
182 (vc-rcs-fetch-master-state file)
185 (defun vc-rcs-latest-on-branch-p (file &optional version)
199 (vc-rcs-find-most-recent-rev (vc-branch-part version))))))
201 (defun vc-rcs-checkout-model (file)
206 (vc-rcs-consult-headers file)
209 (progn (vc-rcs-fetch-master-state file)
212 (defun vc-rcs-workfile-unchanged-p (file)
235 (defun vc-rcs-register (file &optional rev comment)
240 `vc-register-switches' and `vc-rcs-register-switches' are passed to
253 (and (vc-rcs-release-p "5.6.4") "-i")
265 ;; run vc-rcs-registered to get it
267 (vc-rcs-registered file)
280 (defun vc-rcs-responsible-p (file)
282 ;; TODO: check for all the patterns in vc-rcs-master-templates
285 (defun vc-rcs-receive-file (file rev)
288 (vc-rcs-register file rev "")
290 (vc-rcs-set-non-strict-locking file))
291 (vc-rcs-set-default-branch file (concat rev ".1"))))
293 (defun vc-rcs-unregister (file)
312 (defun vc-rcs-checkin (file rev comment)
316 (default-branch (vc-file-getprop file 'vc-rcs-default-branch)))
329 (and (vc-rcs-release-p "5.6.4") "-j")
351 (vc-rcs-set-default-branch file
356 (if (not (vc-rcs-release-p "5.6.2"))
359 (vc-do-command nil 1 "rcs" (vc-name file)
362 (defun vc-rcs-find-version (file rev buffer)
369 (defun vc-rcs-checkout (file &optional editable rev)
390 (vc-rcs-set-default-branch file nil))
413 (vc-rcs-set-default-branch file
424 (vc-rcs-set-default-branch
426 (if (vc-rcs-latest-on-branch-p file new-version)
432 (defun vc-rcs-revert (file &optional contents-done)
438 (defun vc-rcs-cancel-version (file editable)
445 (vc-do-command nil 0 "rcs" (vc-name file) (concat "-o" target))
459 (vc-rcs-set-default-branch file previous)
467 (defun vc-rcs-merge (file first-version &optional second-version)
475 (defun vc-rcs-steal-lock (file &optional rev)
478 (vc-do-command nil 0 "rcs" (vc-name file) "-M" (concat "-u" rev))
490 (defun vc-rcs-print-log (file &optional buffer)
494 (defun vc-rcs-diff (file &optional oldvers newvers buffer)
503 (defun vc-rcs-annotate-command (file buffer &optional revision)
526 (insert-file-contents (vc-rcs-registered file))
527 (vc-rcs-parse)))
545 ;; the text property `:vc-rcs-r/d/a' for inserts during
606 (push `(,p . ,(propertize s :vc-rcs-r/d/a prda)) path))
612 ;; For the initial revision, setting `:vc-rcs-r/d/a' directly is
615 (put-text-property (point-min) (point-max) :vc-rcs-r/d/a (r/d/a))
638 :vc-rcs-r/d/a
655 (setq rda (get-text-property (point) :vc-rcs-r/d/a))
673 :vc-rcs-r/d/a rda)))
682 (insert (gethash (get-text-property (point) :vc-rcs-r/d/a) ht))
685 (defun vc-rcs-annotate-current-time ()
691 (defun vc-rcs-annotate-time ()
696 (aref (get-text-property (point) :vc-rcs-r/d/a) 1))
699 (defun vc-rcs-annotate-extract-revision-at-line ()
700 (aref (get-text-property (point) :vc-rcs-r/d/a) 0))
708 (defun vc-rcs-assign-name (file name)
710 (vc-do-command nil 0 "rcs" (vc-name file) (concat "-n" name ":")))
718 (defun vc-rcs-check-headers ()
725 (defun vc-rcs-clear-headers ()
735 (defun vc-rcs-rename-file (old new)
736 ;; Just move the master file (using vc-rcs-master-templates).
737 (vc-rename-master (vc-name old) new vc-rcs-master-templates))
745 (defun vc-rcs-workfile-is-newer (file)
755 (defun vc-rcs-find-most-recent-rev (branch)
769 (defun vc-rcs-fetch-master-state (file &optional workfile-version)
783 (vc-file-setprop file 'vc-rcs-default-branch default-branch)
802 (vc-rcs-find-most-recent-rev default-branch))
821 (vc-rcs-latest-on-branch-p file workfile-version))
831 (vc-rcs-latest-on-branch-p file workfile-version))
844 (defun vc-rcs-consult-headers (file)
963 (defun vc-rcs-release-p (release)
965 (let ((installation (vc-rcs-system-release)))
970 (defun vc-rcs-system-release ()
973 override this using variable `vc-rcs-release'.
975 If the user has not set variable `vc-rcs-release' and it is nil,
976 variable `vc-rcs-release' is set to the returned value."
977 (or vc-rcs-release
978 (setq vc-rcs-release
979 (or (and (zerop (vc-do-command nil nil "rcs" nil "-V"))
984 (defun vc-rcs-set-non-strict-locking (file)
985 (vc-do-command nil 0 "rcs" file "-U")
989 (defun vc-rcs-set-default-branch (file branch)
990 (vc-do-command nil 0 "rcs" (vc-name file) (concat "-b" branch))
991 (vc-file-setprop file 'vc-rcs-default-branch branch))
993 (defun vc-rcs-parse (&optional buffer)
1031 The `:insn' key is a keyword to distinguish it as a vc-rcs.el extension."
1259 (provide 'vc-rcs)
1262 ;;; vc-rcs.el ends here