HOME

Mini Shell 1.0
Current File : //usr/share/emacs/26.1/lisp/vc/vc-sccs.elc
;ELC
;;; Compiled
;;; in Emacs version 26.1
;;; with all optimizations.

;;; This file uses dynamic docstrings, first added in Emacs 19.29.

;;; This file does not contain utf-8 non-ASCII characters,
;;; and so can be loaded in Emacs versions earlier than 23.

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;


(byte-code "\300\301\302\303\304\305\306\307&\210\310\311\312\313\314DD\315\316\317\304\320\306\301&	\210\310\321\312\313\322DD\323\316\324\304\320\306\301&	\210\310\325\312\313\326DD\327\316\330\304\305\306\301&	\210\310\331\312\313\332DD\333\316\334\304\320\306\301&	\207" [custom-declare-group vc-sccs nil "VC SCCS backend." :version "24.1" :group vc custom-declare-variable vc-sccs-register-switches funcall function #[0 "\300\207" [nil] 1] "Switches for registering a file in SCCS.\nA string or list of strings passed to the checkin program by\n\\[vc-register].  If nil, use the value of `vc-register-switches'.\nIf t, use no switches." :type (choice (const :tag "Unspecified" nil) (const :tag "None" t) (string :tag "Argument String") (repeat :tag "Argument List" :value (#1="") string)) "21.1" vc-sccs-diff-switches #[0 "\300\207" [nil] 1] "String or list of strings specifying switches for SCCS diff under VC.\nIf nil, use the value of `vc-diff-switches'.  If t, use no switches." (choice (const :tag "Unspecified" nil) (const :tag "None" t) (string :tag "Argument String") (repeat :tag "Argument List" :value (#1#) string)) vc-sccs-header #[0 "\300\207" [("%W%")] 1] "Header keywords to be inserted by `vc-insert-headers'." (repeat string) vc-sccs-master-templates #[0 "\300\301!\207" [purecopy ("%sSCCS/s.%s" "%ss.%s" vc-sccs-search-project-dir)] 2] "Where to look for SCCS master files.\nFor a description of possible values, see `vc-check-master-templates'." (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)))] 10)
(defconst vc-sccs-name-assoc-file "VC-names")
(defalias 'vc-sccs-revision-granularity #[0 "\300\207" [file] 1])
#@14 

(fn FILES)
(defalias 'vc-sccs-checkout-model #[257 "\300\207" [locking] 2 (#$ . 2158)])
#@10 

(fn F)
(defalias 'vc-sccs-registered #[257 "\300\301\"\207" [vc-default-registered SCCS] 4 (#$ . 2254)])
#@73 SCCS-specific function to compute the version control state.

(fn FILE)
(defalias 'vc-sccs-state #[257 "\300!\204\301\207\302\303!r\211q\210\304\305\306\307\310!\311\"\312$\216\313\314!!\203R\315 \316!\317\"A\211\204?\320!\203;\321\202M\322\202M\211\323!\230\203L\324\202M\211\266\203\202S\321*\207" [vc-sccs-registered unregistered generate-new-buffer " *temp*" make-byte-code 0 "\301\300!\205	\302\300!\207" vconcat vector [buffer-name kill-buffer] 2 vc-insert-file vc-sccs-lock-file vc-sccs-parse-locks vc-working-revision assoc vc-sccs-workfile-unchanged-p up-to-date unlocked-changes vc-user-login-name edited] 8 (#$ . 2368)])
(autoload 'vc-expand-dirs "vc")
#@34 

(fn DIR FILES UPDATE-FUNCTION)
(defalias 'vc-sccs-dir-status-files #[771 "\204\300C\301\"\262\302\211\2037\211@\303!\304!\305!\306=\203.\307=\204.\211DB\262\266A\266\202\202
\210!\207" [vc-expand-dirs RCS nil vc-state file-relative-name vc-backend SCCS up-to-date] 10 (#$ . 3058)])
(autoload 'vc-master-name "vc-filewise")
#@60 SCCS-specific version of `vc-working-revision'.

(fn FILE)
(defalias 'vc-sccs-working-revision #[257 "\302!\205;\303!\205;\304\305!r\211q\210\306\307\310\311\312!\313\"\314$\216\315\303!\316\"\210\317\320eb\210\321	\322\323#\2058\324!,\262\207" [i pattern file-regular-p vc-master-name generate-new-buffer " *temp*" make-byte-code 0 "\301\300!\205	\302\300!\207" vconcat vector [buffer-name kill-buffer] 2 vc-insert-file "^e\n[^s]" "^d D \\([^ ]+\\)" 1 re-search-forward nil t match-string] 8 (#$ . 3410)])
#@135 Write the SCCS version of input file FILE to output file OUTFILE.
Optional string REV is a revision.

(fn FILE OUTFILE &optional REV)
(defalias 'vc-sccs-write-revision #[770 "\300\301!r\211q\210\302\303\304\305\306!\307\"\310$\216\311\312\313\303\314\315	!\316\317	\205(\320\nPC\"&\210\321\322\211\322\323%*\207" [generate-new-buffer " *temp*" make-byte-code 0 "\301\300!\205	\302\300!\207" vconcat vector [buffer-name kill-buffer] 2 apply vc-sccs-do-command t "get" vc-master-name append ("-s" "-p" "-k") "-r" write-region nil silent] 14 (#$ . 3939)])
#@61 Has FILE remained unchanged since last checkout?

(fn FILE)
(defalias 'vc-sccs-workfile-unchanged-p #[257 "\300\301!\302\303\304\305\306!\307\"\310$\216\311\312!#\210\313\314\315\316%\303U)\207" [make-temp-file "vc-sccs" make-byte-code 0 "\301\300!\207" vconcat vector [delete-file] 2 vc-sccs-write-revision vc-working-revision vc-do-command "*vc*" 1 "cmp"] 8 (#$ . 4506)])
#@57 

(fn BUFFER OKSTATUS COMMAND FILE-OR-LIST &rest FLAGS)
(defalias 'vc-sccs-do-command #[1156 "\300\301\206\302\303&\207" [apply vc-do-command "*vc*" "sccs"] 13 (#$ . 4892)])
#@31 Create a new SCCS repository.
(defalias 'vc-sccs-create-repo #[0 "\300\301!\207" [make-directory "SCCS"] 2 (#$ . 5085)])
(autoload 'vc-switches "vc")
#@317 Register FILES into the SCCS version-control system.
Automatically retrieve a read-only version of the files with keywords expanded.
COMMENT can be used to provide an initial description of FILES.
Passes either `vc-sccs-register-switches' or `vc-register-switches'
to the SCCS command.

(fn FILES &optional COMMENT)
(defalias 'vc-sccs-register #[513 "\211\205S\211@\301!\206\302\303!\304\"\211\206\305@#\306\307\310\311\312\313\314\315
!P\2055\316P\317\320\321\"&	\266\322!\210\307\310\311\323\324!$\266A\266\202\202\207" [vc-sccs-master-templates file-name-directory "" file-name-nondirectory vc-sccs-search-project-dir format apply vc-sccs-do-command nil 0 "admin" "-fb" "-i" file-relative-name "-y" vc-switches SCCS register delete-file "get" vc-master-name] 20 (#$ . 5242)])
#@88 Return non-nil if SCCS thinks it would be responsible for registering FILE.

(fn FILE)
(defalias 'vc-sccs-responsible-p #[257 "\300\301\302\303!\"!\206\304\303!\206\305\306!\";\207" [file-directory-p expand-file-name "SCCS" file-name-directory vc-sccs-search-project-dir "" file-name-nondirectory] 6 (#$ . 6055)])
#@82 SCCS-specific version of `vc-backend-checkin'.

(fn FILES COMMENT &optional REV)
(defalias 'vc-sccs-checkin #[770 "\300\301\"\211\2057\211@\302\303\304\305\306\307!\205\310	P\311P\312\301\313\"&\210\303\304\305\314\307!$\210A\266\202\202\207" [vc-expand-dirs SCCS apply vc-sccs-do-command nil 0 "delta" vc-master-name "-r" "-y" vc-switches checkin "get"] 16 (#$ . 6382)])
#@24 

(fn FILE REV BUFFER)
(defalias 'vc-sccs-find-revision #[771 "\300\301\302\303\304!\305\306	\205\307\310\f\f\"P\311\312\313\"&	\207" [apply vc-sccs-do-command 0 "get" vc-master-name "-s" "-p" "-r" vc-sccs-lookup-triple vc-switches SCCS checkout] 15 (#$ . 6776)])
#@268 Retrieve a copy of a saved revision of SCCS controlled FILE.
If FILE is a directory, all version-controlled files beneath are checked out.
EDITABLE non-nil means that the file should be writable and
locked.  REV is the revision to check out.

(fn FILE &optional REV)
(defalias 'vc-sccs-checkout #[513 "\301!\203\302\303\304C\305\"\"\207\306!\307\310\311\"\210\212\203 q\210\312\305\313\"\262\212\314!\203?\315\230\204<;\204?\307\262\316\317\307\320\321\322	!\323	\205V\324\325\f\f\"P&\210+\310\326\"\207" [default-directory file-directory-p mapc vc-sccs-checkout vc-expand-dirs SCCS get-file-buffer nil message "Checking out %s..." vc-switches checkout file-name-directory "" apply vc-sccs-do-command 0 "get" vc-master-name "-e" "-r" vc-sccs-lookup-triple "Checking out %s...done"] 15 (#$ . 7055)])
#@125 Revert FILE to the version it was based on. If FILE is a directory,
revert all subfiles.

(fn FILE &optional CONTENTS-DONE)
(defalias 'vc-sccs-revert #[513 "\300!\203\301\302\303C\304\"\"\207\305\306\307\310\311!$\210\305\306\307\312\311!$\210\313\314\306#\207" [file-directory-p mapc vc-sccs-revert vc-expand-dirs SCCS vc-sccs-do-command nil 0 "unget" vc-master-name "get" vc-file-setprop vc-working-revision] 8 (#$ . 7891)])
#@92 Steal the lock on the current workfile for FILE and revision REV.

(fn FILE &optional REV)
(defalias 'vc-sccs-steal-lock #[513 "\300!\203\301\302\303C\304\"\"\207\305\306\307\310\311!\312\205!\313P&\210\305\306\307\314\311!\315\2056\313P&\207" [file-directory-p mapc vc-sccs-steal-lock vc-expand-dirs SCCS vc-sccs-do-command nil 0 "unget" vc-master-name "-n" "-r" "get" "-g"] 10 (#$ . 8333)])
#@104 Modify (actually, append to) the change comments for FILES on a specified REV.

(fn FILES REV COMMENT)
(defalias 'vc-sccs-modify-change-comment #[771 "\300\301\"\211\205#\211@\302\303\304\305\306!\307P\310\nP&\210A\266\202\202\207" [vc-expand-dirs SCCS vc-sccs-do-command nil 0 "cdc" vc-master-name "-y" "-r"] 13 (#$ . 8753)])
#@163 Print commit log associated with FILES into specified BUFFER.
Remaining arguments are ignored.

(fn FILES BUFFER &optional SHORTLOG START-REVISION-IGNORED LIMIT)
(defalias 'vc-sccs-print-log #[1282 "\300\301\"\262\302\303\304\305\306\n\"$\210\211\205\307\207" [vc-expand-dirs SCCS vc-sccs-do-command 0 "prs" mapcar vc-master-name limit-unsupported] 12 (#$ . 9097)])
(byte-code "\300\301\302\"\210\300\303\302\"\207" [autoload vc-setup-buffer "vc-dispatcher" vc-delistify] 3)
#@109 Get a difference report using SCCS between two filesets.

(fn FILES &optional OLDVERS NEWVERS BUFFER ASYNC)
(defalias 'vc-sccs-diff #[1281 "\305\306\"\262\307@\"\262\307@\"\262\204\310\262r\311=\2048;\203.\312 \230\2048p=\2048\313!\210\314\315\306\316\"\205F\317PC\205O\317PC#\320\321\203`\322\323\324\322#P\202a\325\326	!#\327\330p!\203s\331\332\"\210\211\203{\333!\210\211\203\367\211@\334\335!\336C\337\327\340\341\342\"\343\"\344$\216\345#\210\n\203\256\345\334\335!\240
#\210\311\211\346B\311\347\350\351\336\311\336\314\315\306\316\"		\242\206\317\352\f!D\"&\211\250\204\333\353\262\250\203\353\211V\203\353\211\262,\210)\266A\266\202\202}\210\250\203\354V\203*\312p!\327H\355=\204\356p!\210eb\210\357 \210\353\360\250\203'\320\361\"\202(#\210\2034\331\362#\210\363\364\351$\210\266\204)\207" [vc-command-messages inhibit-read-only buffer-undo-list process-environment w32-quote-process-args vc-expand-dirs SCCS vc-sccs-lookup-triple "*vc-diff*" t buffer-name vc-setup-buffer append vc-switches diff " -r" format "diff%s %s" " " mapconcat identity "" vc-delistify 0 get-buffer-process message "Running %s in foreground..." delete-process make-temp-file "vc-sccs" nil make-byte-code "\302\300!\210\301\242\205
\302\301\242!\207" vconcat vector [delete-file] 2 vc-sccs-write-revision "LC_MESSAGES=C" apply process-file "diff" file-relative-name error 1 32 pop-to-buffer shrink-window-if-larger-than-buffer "Running %s...FAILED (%s)" "status %d" "Running %s...OK = %d" run-hook-with-args vc-post-command-functions] 25 (#$ . 9585)])
(autoload 'vc-tag-precondition "vc")
#@25 

(fn DIR NAME BRANCHP)
(defalias 'vc-sccs-create-tag #[771 "\211\203\300\301!\210\302!\211;\203\300\303\"\202'\304\305\306\307\310\311	!\312\"\313\314%\"\207" [error "SCCS backend does not support module branches" vc-tag-precondition "File %s is not up-to-date" vc-file-tree-walk make-byte-code 257 "\301\300\302!#\207" vconcat vector [vc-sccs-add-triple vc-working-revision] 6 "\n\n(fn F)"] 12 (#$ . 11264)])
#@17 

(fn FILE REV)
(defalias 'vc-sccs-previous-revision #[514 "\300\301\302$\207" [vc-call-backend RCS previous-revision] 7 (#$ . 11692)])
#@17 

(fn FILE REV)
(defalias 'vc-sccs-next-revision #[514 "\300\301\302$\207" [vc-call-backend RCS next-revision] 7 (#$ . 11836)])
#@50 Check if the current file has any headers in it.
(defalias 'vc-sccs-check-headers #[0 "\212eb\210\300\301\302\303#)\207" [re-search-forward "%[A-Z]%" nil t] 4 (#$ . 11972)])
(autoload 'vc-rename-master "vc-filewise")
#@16 

(fn OLD NEW)
(defalias 'vc-sccs-rename-file #[514 "\302\303!#\210r\304\305	\306\303!!\"!q\210eb\210\307\310\311!\312Q\313\314#\2031\315\310P\313\211#\210\202\316 \210\317p!)\207" [vc-sccs-master-templates vc-sccs-name-assoc-file vc-rename-master vc-master-name find-file-noselect expand-file-name file-name-directory re-search-forward ":" regexp-quote "$" nil t replace-match basic-save-buffer kill-buffer] 8 (#$ . 12195)])
(defalias 'vc-sccs-find-file-hook #[0 "\302\303\";\205\304\211\207" [buffer-file-name buffer-read-only vc-state SCCS t] 3])
#@186 Return the name of a master file in the SCCS project directory.
Does not check whether the file exists but returns nil if it does not
find any project directory.

(fn DIRNAME BASENAME)
(defalias 'vc-sccs-search-project-dir #[514 "\300\301!\302\211\205H\303!\203\304\262\202\305\262\306\307P!\262\211\204>\203>\306@\"\262\310!\204\302\262A\262\202\211\205H\306\311P\"\207" [getenv "PROJECTDIR" nil file-name-absolute-p ("SCCS" "") ("src/SCCS" "src" "source/SCCS" "source") expand-file-name "~" file-directory-p "s."] 8 (#$ . 12766)])
#@59 Generate lock file name corresponding to FILE.

(fn FILE)
(defalias 'vc-sccs-lock-file #[257 "\300!\211\205\301\302\"\205\303\304\305\211\306%\207" [vc-master-name string-match "\\(.*/\\)\\(s\\.\\)\\(.*\\)" replace-match "p." t 2] 8 (#$ . 13333)])
#@113 Parse SCCS locks in current buffer.
The result is a list of the form ((REVISION . USER) (REVISION . USER) ...).
(defalias 'vc-sccs-parse-locks #[0 "\300eb\210\301\302\300\303#\203\304\305!\304\306!BB\262\202\211\237\207" [nil re-search-forward "^\\([0-9.]+\\) [0-9.]+ \\([^ ]+\\) .*\n?" t match-string 1 2] 5 (#$ . 13595)])
#@22 

(fn NAME FILE REV)
(defalias 'vc-sccs-add-triple #[771 "r\301\302\303\304!!\"!q\210db\210\305\306\307\261\210\310 \210\311p!)\207" [vc-sccs-name-assoc-file find-file-noselect expand-file-name file-name-directory vc-master-name "	:	" "	" "\n" basic-save-buffer kill-buffer] 9 (#$ . 13931)])
#@152 Return the numeric revision corresponding to a named tag of FILE.
If NAME is nil or a revision number string it's just passed through.

(fn FILE NAME)
(defalias 'vc-sccs-lookup-triple #[514 "\211\203\211\303H\211\304Y\205\211\305X\262\203\207\306\307!r\211q\210\310\303\311\312\313!\314\"\315$\216\316\317\320\321!!\"!\210\322\323R\324eb\210\325\n\326\327#\205K\330	!,\207" [vc-sccs-name-assoc-file i pattern 0 48 57 generate-new-buffer " *temp*" make-byte-code "\301\300!\205	\302\300!\207" vconcat vector [buffer-name kill-buffer] 2 vc-insert-file expand-file-name file-name-directory vc-master-name "	:	" "	\\(.+\\)" 1 re-search-forward nil t match-string] 9 (#$ . 14237)])
(provide 'vc-sccs)