%PDF- %PDF- Mini Shell
Mini Shell

Direktori : /usr/local/share/emacs/27.2/lisp/vc/
Current File : //usr/local/share/emacs/27.2/lisp/vc/vc-sccs.elc
;ELC
;;; Compiled
;;; in Emacs version 27.2
;;; 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 "\300!\205;\301!\205;\302\303!r\211q\210\304\305\306\307\310!\311\"\312$\216\313\301!\314\"\210\315\316eb\210\317\320\321#\2056\322!\266\202*\262\207" [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 (#$ . 3935)])
#@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 (#$ . 4502)])
#@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 (#$ . 4888)])
#@31 Create a new SCCS repository.
(defalias 'vc-sccs-create-repo #[0 "\300\301!\207" [make-directory "SCCS"] 2 (#$ . 5081)])
(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 (#$ . 5238)])
#@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 (#$ . 6051)])
#@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 (#$ . 6378)])
#@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 (#$ . 6772)])
#@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 (#$ . 7051)])
#@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 (#$ . 7887)])
#@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 (#$ . 8329)])
#@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 (#$ . 8749)])
#@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 (#$ . 9093)])
(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\371\211@\334\335!\336C\337\327\340\341\342\"\343\"\344$\216\345#\210\n\203\256\345\346\335!\240
#\210\311\211\347B\311\350\351\352\336\311\336\314\315\306\316\"\353\n!	\242\206\321\354\f!D\"&\211\250\204\335\355\262\250\203\355\211V\203\355\211\262,\210)\266A\266\202\202}\210\250\203\356V\203,\312p!\327H\357=\204\360p!\210eb\210\361 \210\355\362\250\203)\320\363\"\202*#\210\2036\331\364#\210\365\366\352$\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-nearby-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 make-temp-file "LC_MESSAGES=C" apply process-file "diff" file-local-name 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 (#$ . 9581)])
(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 (#$ . 11304)])
#@17 

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

(fn FILE REV)
(defalias 'vc-sccs-next-revision #[514 "\300\301\302$\207" [vc-call-backend RCS next-revision] 7 (#$ . 11876)])
#@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 (#$ . 12012)])
(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 (#$ . 12235)])
(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 (#$ . 12806)])
#@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 (#$ . 13373)])
#@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 (#$ . 13635)])
#@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 (#$ . 13971)])
#@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\301H\211\302Y\205\211\303X\262\203\207\304\305!r\211q\210\306\301\307\310\311!\312\"\313$\216\314\315\316\317!!\"!\210\320\321R\322eb\210\323\324\325#\205I\326!\266\202*\207" [vc-sccs-name-assoc-file 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 (#$ . 14277)])
(provide 'vc-sccs)
Zerion Mini Shell 1.0