comparison lisp/vc-sccs.el @ 31404:f2ab9420390f

2000-09-05 Stefan Monnier <[e-mail]> * vc.el: (toplevel): Don't require `dired' at run-time. (vc-dired-resynch-file): Remove autoload cookie. 2000-09-05 Andre Spiegel <[e-mail]> * vc.el: Made several backend functions optional. (vc-default-responsible-p): New function. (vc-merge): Use RET for first version to trigger merge-news, not prefix arg. (vc-annotate): Handle backends that do not support annotation. (vc-default-merge-news): Removed. The existence of a merge-news implementation is now checked on caller sites. * vc-hooks.el (vc-default-mode-line-string): Removed CVS special case. * vc-cvs.el (vc-cvs-mode-line-string): New function, handles the special case that has been removed from the default in vc-hooks.el. 2000-09-05 Stefan Monnier <[e-mail]> * vc.el (vc-log-edit): Properly handle the case where FILE is nil. 2000-09-05 Andre Spiegel <[e-mail]> * vc-hooks.el: Require vc during compilation. (vc-file-setprop): Use `vc-touched-properties' if bound by the new macro `with-vc-properties' in vc.el. (vc-file-getprop): Doc fix. (vc-after-save): Call `vc-dired-resynch-file' only if vc is loaded. * vc.el: Require dired-aux during compilation. (vc-name-assoc-file): Moved to vc-sccs.el. (with-vc-properties): New macro. (vc-checkin, vc-checkout, vc-revert, vc-cancel-version, vc-finish-steal): Use it. (vc-cancel-version): Moved RCS-specific code to vc-rcs.el. The call to the backend-specific function is now supposed to do the checkout, too. (vc-log-edit): Handle FILE being nil and added a FIXME for log-edit. * vc-cvs.el (vc-cvs-checkin, vc-cvs-checkout): Don't bother to set file properties; that gets done in the generic code now. * vc-rcs.el (vc-rcs-uncheck): Renamed to `vc-rcs-cancel-version'. Changed parameter list, added code from vc.el that does the checkout, possibly with a double-take. * vc-sccs.el (vc-sccs-name-assoc-file): Moved here from vc.el. (vc-sccs-add-triple, vc-sccs-rename-file, vc-sccs-lookup-triple): Use the above under the new name. (vc-sccs-uncheck): Renamed to `vc-sccs-cancel-version'. Changed parameter list, added checkout command. (vc-sccs-checkin, vc-sccs-checkout): Don't bother to set file properties; that gets done in the generic code now. 2000-09-05 Stefan Monnier <[e-mail]> * vc.el: Docstring fixes (courtesy of checkdoc). 2000-09-05 Stefan Monnier <[e-mail]> * vc.el (vc-checkout-writable-buffer-hook) (vc-checkout-writable-buffer): Remove. (vc-start-entry): Always call vc-log-edit, never vc-log-mode. (vc-log-mode): Make it into a clean derived major mode. (vc-log-edit): Mark buffer unmodified (as vc-log-mode did) and use vc-log-mode if log-edit is not available. (vc-dired-mode-map): Don't set-keymap-parent yet. (vc-dired-mode): Do set-keymap-parent here. (vc-dired-buffers-for-dir): Nop if dired is not loaded.

31403:736bba059dd4

;; Copyright (C) 1992,93,94,95,96,97,98,99,2000 Free Software Foundation, Inc.

;; Author:     FSF (see vc.el for full credits)
;; Maintainer: Andre Spiegel <[e-mail]>

;; $Id: vc-sccs.el,v 1.35 2000/08/13 11:52:19 spiegel Exp $

;; This file is part of GNU Emacs.

;; GNU Emacs is free software; you can redistribute it and/or modify
;; it under the terms of the GNU General Public License as published by

		 (repeat :tag "User-specified"
			 (choice string
				 function)))
  :version "20.5"
  :group 'vc)

;;;###autoload
(progn (defun vc-sccs-registered (f) (vc-default-registered 'SCCS f)))

(defun vc-sccs-state (file)

;; Named-configuration support

(defun vc-sccs-add-triple (name file rev)
  (with-current-buffer
      (find-file-noselect
       (expand-file-name vc-name-assoc-file
			 (file-name-directory (vc-name file))))
    (goto-char (point-max))
    (insert name "\t:\t" file "\t" rev "\n")
    (basic-save-buffer)
    (kill-buffer (current-buffer))))

  ;; Move the master file (using vc-rcs-master-templates).
  (vc-rename-master (vc-name old) new vc-sccs-master-templates)
  ;; Update the snapshot file.
  (with-current-buffer
      (find-file-noselect
       (expand-file-name vc-name-assoc-file
			 (file-name-directory (vc-name old))))
    (goto-char (point-min))
    ;; (replace-regexp (concat ":" (regexp-quote old) "$") (concat ":" new))
    (while (re-search-forward (concat ":" (regexp-quote old) "$") nil t)
      (replace-match (concat ":" new) nil nil))

	  (let ((firstchar (aref name 0)))
	    (and (>= firstchar ?0) (<= firstchar ?9))))
      name
    (with-temp-buffer
      (vc-insert-file
       (expand-file-name vc-name-assoc-file
			 (file-name-directory (vc-name file))))
      (vc-parse-buffer (concat name "\t:\t" file "\t\\(.+\\)") 1))))

(defun vc-sccs-merge (file first-version &optional second-version)
  (error "Merging not implemented for SCCS"))

(defun vc-sccs-steal-lock (file &optional rev)
  "Steal the lock on the current workfile for FILE and revision REV."
  (vc-do-command nil 0 "unget" (vc-name file) "-n" (if rev (concat "-r" rev)))
  (vc-do-command nil 0 "get" (vc-name file) "-g" (if rev (concat "-r" rev))))

(defun vc-sccs-uncheck (file target)
  "Undo the checkin of FILE's revision TARGET."
  (vc-do-command nil 0 "rmdel" (vc-name file) (concat "-r" target)))

(defun vc-sccs-revert (file)
  "Revert FILE to the version it was based on."
  (vc-do-command nil 0 "unget" (vc-name file))
  (vc-do-command nil 0 "get" (vc-name file))

		    vc-checkin-switches)))
    (apply 'vc-do-command nil 0 "delta" (vc-name file)
	   (if rev (concat "-r" rev))
	   (concat "-y" comment)
	   switches)
    (vc-file-setprop file 'vc-state 'up-to-date)
    (vc-file-setprop file 'vc-workfile-version nil)
    (if vc-keep-workfiles
	(vc-do-command nil 0 "get" (vc-name file)))))

(defun vc-sccs-latest-on-branch-p (file)
  "Return t iff the current workfile version of FILE is the latest on

		  (and failed (file-exists-p filename)
		       (delete-file filename))))
	    (apply 'vc-do-command nil 0 "get" (vc-name file)
		   (if writable "-e")
		   (and rev (concat "-r" (vc-sccs-lookup-triple file rev)))
		   switches)
	    (vc-file-setprop file 'vc-workfile-version nil))
	  (unless workfile
	    (if writable
		(vc-file-setprop file 'vc-state 'edited))
	    (vc-file-setprop file
			     'vc-checkout-time (nth 5 (file-attributes file))))
	  (message "Checking out %s...done" filename))))))

(defun vc-sccs-update-changelog (files)
  (error "Sorry, generating ChangeLog entries is not implemented for SCCS."))

(provide 'vc-sccs)

31404:f2ab9420390f

;; Copyright (C) 1992,93,94,95,96,97,98,99,2000 Free Software Foundation, Inc.

;; Author:     FSF (see vc.el for full credits)
;; Maintainer: Andre Spiegel <[e-mail]>

;; $Id: vc-sccs.el,v 1.1 2000/09/04 19:48:23 gerd Exp $

;; This file is part of GNU Emacs.

;; GNU Emacs is free software; you can redistribute it and/or modify
;; it under the terms of the GNU General Public License as published by

		 (repeat :tag "User-specified"
			 (choice string
				 function)))
  :version "20.5"
  :group 'vc)

(defconst vc-sccs-name-assoc-file "VC-names")

;;;###autoload
(progn (defun vc-sccs-registered (f) (vc-default-registered 'SCCS f)))

(defun vc-sccs-state (file)

;; Named-configuration support

(defun vc-sccs-add-triple (name file rev)
  (with-current-buffer
      (find-file-noselect
       (expand-file-name vc-sccs-name-assoc-file
			 (file-name-directory (vc-name file))))
    (goto-char (point-max))
    (insert name "\t:\t" file "\t" rev "\n")
    (basic-save-buffer)
    (kill-buffer (current-buffer))))

  ;; Move the master file (using vc-rcs-master-templates).
  (vc-rename-master (vc-name old) new vc-sccs-master-templates)
  ;; Update the snapshot file.
  (with-current-buffer
      (find-file-noselect
       (expand-file-name vc-sccs-name-assoc-file
			 (file-name-directory (vc-name old))))
    (goto-char (point-min))
    ;; (replace-regexp (concat ":" (regexp-quote old) "$") (concat ":" new))
    (while (re-search-forward (concat ":" (regexp-quote old) "$") nil t)
      (replace-match (concat ":" new) nil nil))

	  (let ((firstchar (aref name 0)))
	    (and (>= firstchar ?0) (<= firstchar ?9))))
      name
    (with-temp-buffer
      (vc-insert-file
       (expand-file-name vc-sccs-name-assoc-file
			 (file-name-directory (vc-name file))))
      (vc-parse-buffer (concat name "\t:\t" file "\t\\(.+\\)") 1))))

(defun vc-sccs-merge (file first-version &optional second-version)
  (error "Merging not implemented for SCCS"))

(defun vc-sccs-steal-lock (file &optional rev)
  "Steal the lock on the current workfile for FILE and revision REV."
  (vc-do-command nil 0 "unget" (vc-name file) "-n" (if rev (concat "-r" rev)))
  (vc-do-command nil 0 "get" (vc-name file) "-g" (if rev (concat "-r" rev))))

(defun vc-sccs-cancel-version (file writable)
  "Undo the most recent checkin of FILE.  
WRITABLE non-nil means previous version should be locked."
  (vc-do-command nil 0 "rmdel" 
		 (vc-name file) 
		 (concat "-r" (vc-workfile-version file)))
  (vc-do-command nil 0 "get"
		 (vc-name file)
		 (if writable "-e")))

(defun vc-sccs-revert (file)
  "Revert FILE to the version it was based on."
  (vc-do-command nil 0 "unget" (vc-name file))
  (vc-do-command nil 0 "get" (vc-name file))

		    vc-checkin-switches)))
    (apply 'vc-do-command nil 0 "delta" (vc-name file)
	   (if rev (concat "-r" rev))
	   (concat "-y" comment)
	   switches)
    (if vc-keep-workfiles
	(vc-do-command nil 0 "get" (vc-name file)))))

(defun vc-sccs-latest-on-branch-p (file)
  "Return t iff the current workfile version of FILE is the latest on

		  (and failed (file-exists-p filename)
		       (delete-file filename))))
	    (apply 'vc-do-command nil 0 "get" (vc-name file)
		   (if writable "-e")
		   (and rev (concat "-r" (vc-sccs-lookup-triple file rev)))
		   switches)))))
    (message "Checking out %s...done" filename)))

(defun vc-sccs-update-changelog (files)
  (error "Sorry, generating ChangeLog entries is not implemented for SCCS."))

(provide 'vc-sccs)