emacs: lisp/vc-sccs.el comparison

comparison lisp/vc-sccs.el @ 31477:1cfec89307a6

Doc fixes. (vc-sccs-register-switches, vc-sccs-master-templates): Add :version.

author	Dave Love <fx@gnu.org>
date	Thu, 07 Sep 2000 20:06:55 +0000
parents	f2ab9420390f
children	f9d2d484e1e2

comparison

equal deleted inserted replaced

-:18bf0c070870
+:1cfec89307a6
 ;; 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 <spiegel@gnu.org>
-;; $Id: vc-sccs.el,v 1.1 2000/09/04 19:48:23 gerd Exp $
+;; $Id: vc-sccs.el,v 1.2 2000/09/05 20:08:22 monnier 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
 ;;; Commentary:
 ;;; Code:
 (defcustom vc-sccs-register-switches nil
-"*A string or list of strings; extra switches for registering a file
+"*Extra switches for registering a file in SCCS.
-in |SCCS.  These are passed to the checkin program by
+A string or list of strings passed to the checkin program by
 \\[vc-sccs-register]."
 :type '(choice (const :tag "None" nil)
 		 (string :tag "Argument String")
 		 (repeat :tag "Argument List"
 			 :value ("")
 			 string))
+:version "21.1"
 :group 'vc)
 (defcustom vc-sccs-header (or (cdr (assoc 'SCCS vc-header-alist)) '("%W%"))
 "*Header keywords to be inserted by `vc-insert-headers'."
 :type 'string
 :type '(choice (const :tag "Use standard SCCS file names"
 			("%sSCCS/s.%s" "%ss.%s" vc-sccs-search-project-dir))
 		 (repeat :tag "User-specified"
 			 (choice string
 				 function)))
-:version "20.5"
+:version "21.1"
 :group 'vc)
 (defconst vc-sccs-name-assoc-file "VC-names")
 ;;;###autoload
 'up-to-date
 (if (string-match ".rw..-..-." permissions)
 (if (file-ownership-preserved-p file)
 'edited
 (vc-user-login-name owner-uid))
 ;; Strange permissions.
 ;; Fall through to real state computation.
 (vc-sccs-state file)))
 (vc-sccs-state file))))
 (defun vc-sccs-workfile-version (file)
 "SCCS-specific version of `vc-workfile-version'."
 (with-temp-buffer
 (vc-insert-file (vc-name file) "^\001e")
 (vc-parse-buffer "^\001d D \\([^ ]+\\)" 1)))
 (defun vc-sccs-checkout-model (file)
 "SCCS-specific version of `vc-checkout-model'."
 'locking)
 (defun vc-sccs-workfile-unchanged-p (file)
 "SCCS-specific implementation of vc-workfile-unchanged-p."
 (apply 'vc-do-command nil 1 "vcdiff" (vc-name file)
 (list "--brief" "-q"
 (concat "-r" (vc-workfile-version file)))))
 ;; internal code
 ;; This function is wrapped with `progn' so that the autoload cookie
 (kill-buffer (current-buffer))))
 (defun vc-sccs-lookup-triple (file name)
 "Return the numeric version corresponding to a named snapshot of FILE.
 If NAME is nil or a version number string it's just passed through."
 (if (or (null name)
 	  (let ((firstchar (aref name 0)))
 	    (and (>= firstchar ?0) (<= firstchar ?9))))
 name
 (with-temp-buffer
 (vc-insert-file
 "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")))
 	   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
+"Return t iff the current workfile version of FILE is latest on its branch."
-its branch."
 ;; Always return t; we do not support previous versions in the workfile
 ;; under SCCS.
 t)
 (defun vc-sccs-logentry-check ()
 	   (basename (file-name-nondirectory file))
 	   (project-file (vc-sccs-search-project-dir dirname basename)))
 (let ((vc-name
 	     (or project-file
 		 (format (car vc-sccs-master-templates) dirname basename)))|)
 	(apply 'vc-do-command nil 0 "admin" nil
 	       (and rev (concat "-r" rev))
 	       "-fb"
 	       (concat "-i" file)
 	       (and comment (concat "-y" comment))
 	       vc-name
 (delete-file file)
 (if vc-keep-workfiles
 	  (vc-do-command nil 0 "get" (vc-name file)))))
 (defun vc-sccs-checkout (file &optional writable rev workfile)
-"Retrieve a copy of a saved version of an SCCS controlled FILE into
+"Retrieve a copy of a saved version of SCCS controlled FILE into a WORKFILE.
-a WORKFILE.  WRITABLE non-nil means that the file should be writable.
+WRITABLE non-nil means that the file should be writable.  REV is the
-REV is the revision to check out into WORKFILE."
+revision to check out into WORKFILE."
 (let ((filename (or workfile file))
 	(file-buffer (get-file-buffer file))
 	switches)
 (message "Checking out %s..." filename)
 (save-excursion
 (with-temp-file filename
 (apply 'vc-do-command
 (current-buffer) 0 "get" (vc-name file)
 "-s" ;; suppress diagnostic output
 (if writable "-e")
 "-p"
 (and rev
 (concat "-r"
 (vc-sccs-lookup-triple file rev)))
 switches)))
 (set-file-modes filename
 (logior (file-modes (vc-name file))
 (if writable 128 0)))
 		   (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."))
+(error "Sorry, generating ChangeLog entries is not implemented for SCCS"))
 (provide 'vc-sccs)
 ;;; vc-sccs.el ends here

Mercurial > emacs

comparison lisp/vc-sccs.el @ 31477:1cfec89307a6