;ELC
;;; Compiled
;;; in Emacs version 28.2
;;; with all optimizations.



(byte-code "\300\301\302\303\304\305\306\307&\210\310\311\312\313\314DD\315\316\317\304\320&\210\310\321\312\313\322DD\323\316\324\304\320&\210\310\325\312\313\326DD\327\316\330\304\305&\210\310\331\312\313\332DD\333\316\334\304\320&\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 #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 #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 #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 #1#] "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)))] 8)
(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 (#$ . 1817)])
#@10 

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

(fn FILE)
(defalias 'vc-sccs-state #[257 "\300
!\204\301\207\302\303\304\"r\211q\210\305\306\"\216\307\310!!\203R\311 \312!\313
\"A\211\204=\314!\2037\266\315\202S\266\316\202S\211\317!\230\203L\266\320\202S\211\266\203\202S\315*\207" [vc-sccs-registered unregistered generate-new-buffer " *temp*" t make-closure #[0 "\301\300!\205	\302\300!\207" [V0 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 (#$ . 2027)])
(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\266
A\266\202\202
\210

!\207" [vc-expand-dirs RCS nil vc-state file-relative-name vc-backend SCCS up-to-date] 10 (#$ . 2706)])
(autoload 'vc-master-name "vc-filewise")
#@60 SCCS-specific version of `vc-working-revision'.

(fn FILE)
(defalias 'vc-sccs-working-revision #[257 "\300
!\2055\301
!\2055\302\303\304\"r\211q\210\305\306\"\216\307\301!\310\"\210\311\312eb\210\313\314\304#\2050\315
!\266\202*\262
\207" [file-regular-p vc-master-name generate-new-buffer " *temp*" t make-closure #[0 "\301\300!\205	\302\300!\207" [V0 buffer-name kill-buffer] 2] vc-insert-file "^
e\n
[^s]" "^
d D \\([^ ]+\\)" 1 re-search-forward nil match-string] 8 (#$ . 3058)])
#@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\302\"r\211q\210\303\304\"\216\305\306\302\307\310\311	!\312\313	\205\"\314\nPC\"&\210\315\316\211\316\317%*\207" [generate-new-buffer " *temp*" t make-closure #[0 "\301\300!\205	\302\300!\207" [V0 buffer-name kill-buffer] 2] apply vc-sccs-do-command 0 "get" vc-master-name append ("-s" "-p" "-k") "-r" write-region nil silent] 14 (#$ . 3555)])
#@61 Has FILE remained unchanged since last checkout?

(fn FILE)
(defalias 'vc-sccs-workfile-unchanged-p #[257 "\300\301!\302\303\"\216\304\305!#\210\306\307\310\311%\312U)\207" [make-temp-file "vc-sccs" make-closure #[0 "\301\300!\207" [V0 delete-file] 2] vc-sccs-write-revision vc-working-revision vc-do-command "*vc*" 1 "cmp" 0] 8 (#$ . 4097)])
#@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 (#$ . 4452)])
#@31 Create a new SCCS repository.
(defalias 'vc-sccs-create-repo #[0 "\300\301!\207" [make-directory "SCCS"] 2 (#$ . 4645)])
(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!$\266
A\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 (#$ . 4802)])
#@82 Return the directory if SCCS thinks it would be responsible for FILE.

(fn FILE)
(defalias 'vc-sccs-responsible-p #[257 "\300\301\302\303!\"!\203\211\206#\304\303!\206\305\306!\"\211;\205!\211\262
\207" [file-directory-p expand-file-name "SCCS" file-name-directory vc-sccs-search-project-dir "" file-name-nondirectory] 6 (#$ . 5615)])
#@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!$\210
A\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 (#$ . 5965)])
#@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 (#$ . 6359)])
#@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 (#$ . 6638)])
#@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 (#$ . 7474)])
#@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 (#$ . 7916)])
#@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&\210
A\266\202\202\207" [vc-expand-dirs SCCS vc-sccs-do-command nil 0 "cdc" vc-master-name "-y" "-r"] 13 (#$ . 8336)])
#@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 (#$ . 8680)])
(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\2048
p=\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\360\211@\334\335!\336C\337\340#\216\341#\210\n\203\245\341\342\335!\240
#\210\311\211\343B\311\344\345\346\336\311\336\314\315\306\316\"\347\n!	\242\206\310\350\f!D\"&\211\250\204\324\351\262\250\203\344\211V\203\344\211\262,\210)\266
A\266\202\202}\210
\250\203\374
\352V\203#
\312p!\327H\353=\204
\354p!\210eb\210\355 \210\351\356\250\203 
\320\357\"\202!
#\210\203-
\331\360#\210\361\362\346$\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-closure #[0 "\302\300!\210\301\242\205
\302\301\242!\207" [V0 V1 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 (#$ . 9168)])
(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\"\207\304\305\306\"\"\207" [error "SCCS backend does not support module branches" vc-tag-precondition "File %s is not up-to-date" vc-file-tree-walk make-closure #[257 "\301\300\302!#\207" [V0 vc-sccs-add-triple vc-working-revision] 6 "\n\n(fn F)"]] 9 (#$ . 10862)])
#@17 

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

(fn FILE REV)
(defalias 'vc-sccs-next-revision #[514 "\300\301\302$\207" [vc-call-backend RCS next-revision] 7 (#$ . 11394)])
#@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 (#$ . 11530)])
(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 (#$ . 11753)])
(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\262

A\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 (#$ . 12324)])
#@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 (#$ . 12891)])
#@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!B
B\262
\202\211\237\207" [nil re-search-forward "^\\([0-9.]+\\) [0-9.]+ \\([^ ]+\\) .*\n?" t match-string 1 2] 5 (#$ . 13153)])
#@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 (#$ . 13489)])
#@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\306\"r\211q\210\307\310\"\216\311\312\313\314!!\"!\210
\315\316R\317eb\210\320\321\306#\205C\322
!\266\202*\207" [vc-sccs-name-assoc-file 0 48 57 generate-new-buffer " *temp*" t make-closure #[0 "\301\300!\205	\302\300!\207" [V0 buffer-name kill-buffer] 2] vc-insert-file expand-file-name file-name-directory vc-master-name "	:	" "	\\(.+\\)" 1 re-search-forward nil match-string] 9 (#$ . 13795)])
(provide 'vc-sccs)