Lines Matching defs:sccs
1 ;;; vc-sccs.el --- support for SCCS version-control
39 (defcustom vc-sccs-register-switches nil
42 \\[vc-sccs-register]."
51 (defcustom vc-sccs-diff-switches nil
62 (defcustom vc-sccs-header (or (cdr (assoc 'SCCS vc-header-alist)) '("%W%"))
68 (defcustom vc-sccs-master-templates
69 '("%sSCCS/s.%s" "%ss.%s" vc-sccs-search-project-dir)
73 ("%sSCCS/s.%s" "%ss.%s" vc-sccs-search-project-dir))
86 (defconst vc-sccs-name-assoc-file "VC-names")
94 ;;; The autoload cookie below places vc-sccs-registered directly into
95 ;;; loaddefs.el, so that vc-sccs.el does not need to be loaded for
99 ;;;###autoload (defun vc-sccs-registered(f) (vc-default-registered 'SCCS f))
100 (defun vc-sccs-registered (f) (vc-default-registered 'SCCS f))
102 (defun vc-sccs-state (file)
105 (if (vc-insert-file (vc-sccs-lock-file file))
106 (let* ((locks (vc-sccs-parse-locks))
118 (defun vc-sccs-state-heuristic (file)
138 (vc-sccs-state file))))
139 (vc-sccs-state file)))
141 (defun vc-sccs-workfile-version (file)
151 (defun vc-sccs-checkout-model (file)
155 (defun vc-sccs-workfile-unchanged-p (file)
167 (defun vc-sccs-register (file &optional rev comment)
172 `vc-register-switches' and `vc-sccs-register-switches' are passed to
179 (project-file (vc-sccs-search-project-dir dirname basename)))
182 (format (car vc-sccs-master-templates) dirname basename))))
193 (defun vc-sccs-responsible-p (file)
195 ;; TODO: check for all the patterns in vc-sccs-master-templates
197 (stringp (vc-sccs-search-project-dir (or (file-name-directory file) "")
200 (defun vc-sccs-checkin (file rev comment)
209 (defun vc-sccs-find-version (file rev buffer)
216 (vc-sccs-lookup-triple file rev)))
219 (defun vc-sccs-checkout (file &optional editable rev)
244 (and rev (concat "-r" (vc-sccs-lookup-triple file rev)))
248 (defun vc-sccs-revert (file &optional contents-done)
257 (defun vc-sccs-cancel-version (file editable)
267 (defun vc-sccs-steal-lock (file &optional rev)
278 (defun vc-sccs-print-log (file &optional buffer)
282 (defun vc-sccs-logentry-check ()
288 (defun vc-sccs-diff (file &optional oldvers newvers buffer)
290 (setq oldvers (vc-sccs-lookup-triple file oldvers))
291 (setq newvers (vc-sccs-lookup-triple file newvers))
304 (defun vc-sccs-assign-name (file name)
306 (vc-sccs-add-triple name file (vc-workfile-version file)))
314 (defun vc-sccs-check-headers ()
320 (defun vc-sccs-rename-file (old new)
322 (vc-rename-master (vc-name old) new vc-sccs-master-templates)
326 (expand-file-name vc-sccs-name-assoc-file
343 ;; a (autoload 'vc-sccs-search-project-dir "vc-sccs") which would not
344 ;; help us avoid loading vc-sccs.
346 (progn (defun vc-sccs-search-project-dir (dirname basename)
363 (defun vc-sccs-lock-file (file)
371 (defun vc-sccs-parse-locks ()
383 (defun vc-sccs-add-triple (name file rev)
386 (expand-file-name vc-sccs-name-assoc-file
393 (defun vc-sccs-lookup-triple (file name)
402 (expand-file-name vc-sccs-name-assoc-file
406 (provide 'vc-sccs)
409 ;;; vc-sccs.el ends here