comparison lisp/vc-sccs.el @ 35823:9396894025fa

(vc-sccs-diff-switches): New customization option. (vc-sccs-diff): Use it via vc-diff-switches-list. (vc-sccs-workfile-unchanged-p): Return correct status.

35822:cd59c63d4aac

;; 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.6 2001/01/08 16:26:44 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

;; Boston, MA 02111-1307, USA.

;;; Commentary:

;;; Code:

;;; 
;;; Customization options
;;;

(defcustom vc-sccs-register-switches nil
  "*Extra switches for registering a file in SCCS.
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"

  "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)))))


;;;
;;; State-changing functions
;;;

(defun vc-sccs-diff (file &optional oldvers newvers)
  "Get a difference report using SCCS between two versions of FILE."
  (setq oldvers (vc-sccs-lookup-triple file oldvers))
  (setq newvers (vc-sccs-lookup-triple file newvers))
  (let* ((diff-switches-list (if (listp diff-switches)
                                diff-switches
                              (list diff-switches)))
	 (options (append (list "-q"
				(and oldvers (concat "-r" oldvers))
				(and newvers (concat "-r" newvers)))
			  diff-switches-list)))
    (apply 'vc-do-command t 1 "vcdiff" (vc-name file) options)))


;;;
;;; Snapshot system
;;;

35823:9396894025fa

;; 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.7 2001/01/09 14:55:30 fx 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

;; Boston, MA 02111-1307, USA.

;;; Commentary:

;;; Code:

(eval-when-compile 
  (require 'vc))

;;; 
;;; Customization options
;;;

(defcustom vc-sccs-register-switches nil
  "*Extra switches for registering a file in SCCS.
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-diff-switches nil
  "*A string or list of strings specifying extra switches for `vcdiff',
the diff utility used for SCCS under VC."
    :type '(choice (const :tag "None" nil)
		 (string :tag "Argument String")
		 (repeat :tag "Argument List"
			 :value ("")
			 string))
  :version "21.1"

  "SCCS-specific version of `vc-checkout-model'."
  'locking)

(defun vc-sccs-workfile-unchanged-p (file)
  "SCCS-specific implementation of vc-workfile-unchanged-p."
  (zerop (apply 'vc-do-command nil 1 "vcdiff" (vc-name file)
                (list "--brief" "-q"
                      (concat "-r" (vc-workfile-version file))))))


;;;
;;; State-changing functions
;;;

(defun vc-sccs-diff (file &optional oldvers newvers)
  "Get a difference report using SCCS between two versions of FILE."
  (setq oldvers (vc-sccs-lookup-triple file oldvers))
  (setq newvers (vc-sccs-lookup-triple file newvers))
  (apply 'vc-do-command t 1 "vcdiff" (vc-name file) 
         (append (list "-q"
                       (and oldvers (concat "-r" oldvers))
                       (and newvers (concat "-r" newvers)))
                 (vc-diff-switches-list sccs))))


;;;
;;; Snapshot system
;;;