Linux server.edchosting.com 4.18.0-553.79.1.lve.el7h.x86_64 #1 SMP Wed Oct 15 16:34:46 UTC 2025 x86_64
LiteSpeed
Server IP : 75.98.162.185 & Your IP : 216.73.216.163
Domains :
Cant Read [ /etc/named.conf ]
User : goons4good
Terminal
Auto Root
Create File
Create Folder
Localroot Suggester
Backdoor Destroyer
Readme
/
usr /
share /
emacs /
24.3 /
lisp /
vc /
Delete
Unzip
Name
Size
Permission
Date
Action
add-log.elc
35.97
KB
-rw-r--r--
2023-06-07 04:15
compare-w.elc
9.89
KB
-rw-r--r--
2023-06-07 04:15
cvs-status.elc
21.51
KB
-rw-r--r--
2023-06-07 04:15
diff-mode.elc
63.77
KB
-rw-r--r--
2023-06-07 04:15
diff.elc
5.9
KB
-rw-r--r--
2023-06-07 04:15
ediff-diff.elc
35.48
KB
-rw-r--r--
2023-06-07 04:15
ediff-help.elc
11.36
KB
-rw-r--r--
2023-06-07 04:15
ediff-hook.elc
6.49
KB
-rw-r--r--
2023-06-07 04:19
ediff-init.elc
58.7
KB
-rw-r--r--
2023-06-07 04:15
ediff-merg.elc
9.68
KB
-rw-r--r--
2023-06-07 04:15
ediff-mult.elc
60.23
KB
-rw-r--r--
2023-06-07 04:15
ediff-ptch.elc
19.55
KB
-rw-r--r--
2023-06-07 04:15
ediff-util.elc
119.83
KB
-rw-r--r--
2023-06-07 04:15
ediff-vers.elc
5
KB
-rw-r--r--
2023-06-07 04:15
ediff-wind.elc
30.84
KB
-rw-r--r--
2023-06-07 04:15
ediff.elc
38.37
KB
-rw-r--r--
2023-06-07 04:15
emerge.elc
76.85
KB
-rw-r--r--
2023-06-07 04:15
log-edit.elc
32.25
KB
-rw-r--r--
2023-06-07 04:15
log-view.elc
18.21
KB
-rw-r--r--
2023-06-07 04:15
pcvs-defs.elc
15.6
KB
-rw-r--r--
2023-06-07 04:15
pcvs-info.elc
23.49
KB
-rw-r--r--
2023-06-07 04:15
pcvs-parse.elc
15.33
KB
-rw-r--r--
2023-06-07 04:15
pcvs-util.elc
24.08
KB
-rw-r--r--
2023-06-07 04:15
pcvs.elc
85.47
KB
-rw-r--r--
2023-06-07 04:15
smerge-mode.elc
37.72
KB
-rw-r--r--
2023-06-07 04:15
vc-annotate.elc
25.01
KB
-rw-r--r--
2023-06-07 04:15
vc-arch.elc
18.12
KB
-rw-r--r--
2023-06-07 04:15
vc-bzr.elc
41.49
KB
-rw-r--r--
2023-06-07 04:15
vc-cvs.elc
33.48
KB
-rw-r--r--
2023-06-07 04:15
vc-dav.elc
5.25
KB
-rw-r--r--
2023-06-07 04:15
vc-dir.elc
40.26
KB
-rw-r--r--
2023-06-07 04:15
vc-dispatcher.elc
16.33
KB
-rw-r--r--
2023-06-07 04:15
vc-git.elc
46.72
KB
-rw-r--r--
2023-06-07 04:15
vc-hg.elc
25.34
KB
-rw-r--r--
2023-06-07 04:15
vc-hooks.elc
31.95
KB
-rw-r--r--
2023-06-07 04:19
vc-mtn.elc
13.72
KB
-rw-r--r--
2023-06-07 04:15
vc-rcs.elc
35.34
KB
-rw-r--r--
2023-06-07 04:15
vc-sccs.elc
15.26
KB
-rw-r--r--
2023-06-07 04:15
vc-svn.elc
21.91
KB
-rw-r--r--
2023-06-07 04:15
vc.elc
68.74
KB
-rw-r--r--
2023-06-07 04:15
Save
Rename
;ELC ;;; Compiled by mockbuild@buildfarm06.corp.cloudlinux.com on Wed Jun 7 08:15:37 2023 ;;; from file /builddir/build/BUILD/emacs-24.3/lisp/vc/vc-rcs.el ;;; in Emacs version 24.3.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\302\312\313\314\306\301&\210\310\315\302\316\313\317\304\320\306\301& \210\310\321\302\322\313\323\304\320\306\301& \210\310\324\325\326\313\327\304\305\306\301& \210\310\330\302\331\313\332\306\301&\210\310\333\334\335\313\336\304\320\306\301& \207" [custom-declare-group vc-rcs nil "VC RCS backend." :version "24.1" :group vc custom-declare-variable vc-rcs-release "The release number of your RCS installation, as a string.\nIf nil, VC itself computes this value when it is first needed." :type (choice (const :tag "Auto" nil) (string :tag "Specified") (const :tag "Unknown" unknown)) vc-rcs-register-switches "Switches for registering a file in RCS.\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." (choice (const :tag "Unspecified" nil) (const :tag "None" t) (string :tag "Argument String") (repeat :tag "Argument List" :value (#1="") string)) "21.1" vc-rcs-diff-switches "String or list of strings specifying switches for RCS 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-rcs-header '("$Id$") "Header keywords to be inserted by `vc-insert-headers'." (repeat string) vc-rcsdiff-knows-brief "Indicates whether rcsdiff understands the --brief option.\nThe value is either `yes', `no', or nil. If it is nil, VC tries\nto use --brief and sets this variable to remember whether it worked." (choice (const :tag "Work out" nil) (const yes) (const no)) vc-rcs-master-templates (purecopy '("%sRCS/%s,v" "%s%s,v" "%sRCS/%s")) "Where to look for RCS master files.\nFor a description of possible values, see `vc-check-master-templates'." (choice (const :tag "Use standard RCS file names" '("%sRCS/%s,v" "%s%s,v" "%sRCS/%s")) (repeat :tag "User-specified" (choice string function)))] 10) (defalias 'vc-rcs-revision-granularity #[nil "\300\207" [file] 1]) #@46 RCS-specific version of `vc-checkout-model'. (defalias 'vc-rcs-checkout-model #[(files) ":\203\n @\202 \304 \203! \305\n\306\304#\210\307\n!\210\310\n\306\" \206- \311\n!\210\310\n\306\"*\207" [files result file vc-consult-headers nil vc-file-setprop vc-checkout-model vc-rcs-consult-headers vc-file-getprop vc-rcs-fetch-master-state] 4 (#$ . 2649)]) (defalias 'vc-rcs-registered #[(f) "\301\302\"\207" [f vc-default-registered RCS] 3]) #@39 Implementation of `vc-state' for RCS. (defalias 'vc-rcs-state #[(file) "\303!\204 \304\207\305\306!\204 \203 \307!\210\310\311\312\"\"\211\313=\204( \n\202@ \314!\2032 \313\202@ \315C!\316=\203? \317\202@ \320)\207" [file vc-consult-headers state vc-rcs-registered unregistered boundp vc-rcs-headers-result vc-rcs-consult-headers vc-rcs-fetch-master-state vc-file-getprop vc-working-revision up-to-date vc-workfile-unchanged-p vc-rcs-checkout-model locking unlocked-changes edited] 6 (#$ . 3100)]) #@26 State heuristic for RCS. (defalias 'vc-rcs-state-heuristic #[(file) "\306 \203a \307\n!\211\203a \310=\203a \311\n\312\"\211\313=\203\\ \314\n!\204\\ \315\n!\203\\ \316\317\320\321\n!8\"\203K \322\n\323\324#\210\325\n!\203F \326\202G \313\202\\ \316\327\320\321\n!8\"\203\\ \322\n\323\330#\210 )\202\306 \314\n!\204\303 \321\n\331\" \332\f8 \320\f8\211 \203\213 \316\327 \"\203\213 \322\n\323\330#\210\313\202\277 \203\274 \316\317 \"\203\274 \333\n!\330=\203\256 \334\n!\203\252 \326\202\277 \202\277 \325\n!\203\270 \326\202\277 \313\202\277 \335\n!+\202\306 \335\n!)\207" [vc-rcs-headers-result vc-consult-headers file state attributes owner-name nil vc-rcs-consult-headers rev-and-lock vc-file-getprop vc-state up-to-date vc-mistrust-permissions file-exists-p string-match ".rw..-..-." 8 file-attributes vc-file-setprop vc-checkout-model implicit vc-rcs-workfile-is-newer edited ".r-..-..-." locking string 2 vc-rcs-checkout-model file-ownership-preserved-p vc-rcs-state permissions] 6 (#$ . 3615)]) (defalias 'vc-rcs-dir-status #[(dir update-function) "\306C!\307\211\307\211 \2039 \f@\310 !\311 ! \312 !\313=\2031 \314=\2041 D B*\fA\211\204 * !*\207" [dir result flist file --dolist-tail-- frel vc-expand-dirs nil vc-state file-relative-name vc-backend RCS up-to-date state update-function] 4]) #@48 RCS-specific version of `vc-working-revision'. (defalias 'vc-rcs-working-revision #[(file) "\203 \302 !\203 \303 \304\"\206 \305 !\210\303 \304\"\207" [vc-consult-headers file vc-rcs-consult-headers vc-file-getprop vc-working-revision vc-rcs-fetch-master-state] 3 (#$ . 4950)]) #@128 Return non-nil if workfile version of FILE is the latest on its branch. When VERSION is given, perform check for that version. (defalias 'vc-rcs-latest-on-branch-p #[(file &optional version) "\204 \305 !\306\307!r\nq\210\310\216\311!\2036 \312\313 !\314\"\210\315\316 eb\210\317\f\320\321#\2052 \322 !*\202B \312\313 !\323\"\210\324\325!!\230+\207" [version file #1=#:temp-buffer i pattern vc-working-revision generate-new-buffer " *temp*" ((byte-code "\301!\203\n \302!\210\301\207" [#1# buffer-name kill-buffer] 2)) vc-rcs-trunk-p vc-insert-file vc-name "^[0-9]" "^head[ \n]+\\([^;]+\\);" 1 re-search-forward nil t match-string "^desc" vc-rcs-find-most-recent-rev vc-branch-part] 5 (#$ . 5239)]) #@59 RCS-specific implementation of `vc-workfile-unchanged-p'. (defalias 'vc-rcs-workfile-unchanged-p #[(file) "\304\305!P\n\306=\203 \307\310\311\312 %\202 \307\310\313\312\314 &\211\313=\203> \n\2047 \306\307\310\311\312 %\202D \315\316!\210\202D \n\204D \317\320 !*\207" [file version vc-rcsdiff-knows-brief status "-r" vc-working-revision no vc-do-command "*vc*" 1 "rcsdiff" 2 "--brief" error "rcsdiff failed" yes zerop] 8 (#$ . 5954)]) #@30 Create a new RCS repository. (defalias 'vc-rcs-create-repo #[nil "\300\301!\207" [make-directory "RCS"] 2 (#$ . 6408)]) #@408 Register FILES into the RCS version-control system. REV is the optional revision number for the files. COMMENT can be used to provide an initial description for each FILES. Passes either `vc-rcs-register-switches' or `vc-register-switches' to the RCS command. Automatically retrieve a read-only version of the file with keywords expanded if `vc-keep-workfiles' is non-nil, otherwise, delete the workfile. (defalias 'vc-rcs-register #[(files &optional rev comment) "\306\211\n\203 \204 \307\f\306 \211 ,\205\264 ,@\310\311\312\313 !\"\211!\204= \314\313 !\306\315\316$\204= \317\320!\203= \321 !\210\322\323\324\325\326 \327\330!\205J \331-\203S \332\202T \333\nP \205] \334 P\335\336\337\"& \210r\324q\210eb\210\340\341\342 !P!\205x \343\344!\211\204\204 \345 !\210\202\231 \346 \347\350!\203\221 \202\227 \311\313 !\"#\210)\346 \351\352\353\306\316#\205\250 \343\344!#\210,A\211,\204 \306,\207" [name subdir rev comment files file nil "" file-exists-p expand-file-name "RCS" file-name-directory directory-files ".*,v$" t yes-or-no-p "Create RCS subdirectory? " make-directory apply vc-do-command "*vc*" 0 "ci" vc-rcs-release-p "5.6.4" "-i" "-u" "-r" "-t-" vc-switches RCS register looking-at "^\\(.*\\) <-- " file-name-nondirectory match-string 1 vc-rcs-registered vc-file-setprop vc-name file-name-absolute-p vc-working-revision re-search-forward "^initial revision: \\([0-9.]+\\).*\n" --dolist-tail-- vc-keep-workfiles] 13 (#$ . 6535)]) #@76 Return non-nil if RCS thinks it would be responsible for registering FILE. (defalias 'vc-rcs-responsible-p #[(file) "\301\302\303\301!\203 \202 \304!\"!\207" [file file-directory-p expand-file-name "RCS" file-name-directory] 5 (#$ . 8001)]) #@41 Implementation of receive-file for RCS. (defalias 'vc-rcs-receive-file #[(file rev) "\303C!\304\n\305#\210 \306=\203 \307!\210\310\n\311P\")\207" [file checkout-model rev vc-rcs-checkout-model vc-rcs-register "" implicit vc-rcs-set-non-strict-locking vc-rcs-set-default-branch ".1"] 4 (#$ . 8253)]) #@105 Unregister FILE from RCS. If this leaves the RCS subdirectory empty, ask the user whether to remove it. (defalias 'vc-rcs-unregister #[(file) "\306!\307 !\310 !\211\204 \311 !\210\2027 \312 @\313#\210 A\314 \211 \2036 @\314\315\316\217\210 A\211\204' *\317\320\n!!\321\230\205V \322\n\314\323#?\205V \324\325\326\n\"!\205V \327\n!+\207" [file master dir backup-info f --dolist-tail-- vc-name file-name-directory find-backup-file-name delete-file rename-file ok-if-already-exists nil (delete-file f) ((error)) file-name-nondirectory directory-file-name "RCS" directory-files "^\\([^.]\\|\\.[^.]\\|\\.\\.[^.]\\).*" yes-or-no-p format "Directory %s is empty; remove it? " delete-directory] 5 (#$ . 8565)]) #@47 RCS-specific version of `vc-backend-checkin'. (defalias 'vc-rcs-checkin #[(files rev comment) "\306\307\310\"\311 !\312\211\205\327 @\313\n!\312\314\n\315\" +,\204? \f\203? \316\317\320+!\321Q\f\"\203? \f\211,\203? \322B,\204O +\203O \323+!,\324\325\326\327\330\331\n!\332\333!\205^ \334-\203g \335\202h \336,P\337.P& \210\340\n\313\312#\210\326q\210eb\210\341\342\312\343#\204\217 \341\344\312\343#\203\231 \345\346!\340\n\313 #\210+\203\316 \203\316 \323+!\323 !\230\204\316 \347\n\350 !?\205\271 \323 !\"\210\332\351!\204\316 \325\326\346\352\331\n!\335+P%\210+ A\211\204 \312+\207" [switches files file --dolist-tail-- default-branch new-version vc-switches RCS checkin vc-expand-dirs nil vc-working-revision vc-file-getprop vc-rcs-default-branch string-match "^" regexp-quote "\\." "-f" vc-branch-part apply vc-do-command "*vc*" 0 "ci" vc-name vc-rcs-release-p "5.6.4" "-j" "-u" "-r" "-m" vc-file-setprop re-search-forward "new revision: \\([0-9.]+\\);" t "reverting to previous revision \\([0-9.]+\\)" match-string 1 vc-rcs-set-default-branch vc-rcs-trunk-p "5.6.2" "rcs" old-version rev vc-keep-workfiles comment] 11 (#$ . 9283)]) (defalias 'vc-rcs-find-revision #[(file rev buffer) "\303\304\206 \305\306\307\310 !\311\312\nP\313\314\315\"&\207" [buffer file rev apply vc-do-command "*vc*" 0 "co" vc-name "-q" "-p" vc-switches RCS checkout] 11]) #@128 Retrieve a copy of a saved version of FILE. If FILE is a directory, attempt the checkout for all registered files beneath it. (defalias 'vc-rcs-checkout #[(file &optional editable rev) "\306!\203 \307\310\311C!\"\207\312!\313\314\315\"\210\212\n\203! \nq\210\316\317\320\" \212\321!\313 \203> \322\230\203> \323\313\"\210\324\325\326\327\330\331!\332C!\333=\205P \334*\205V \335 ;\203a \336 P\202\212 \337!\211 +\205\211 \336 \204t +\202\210 \340+!\204\202 \341+!\202\210 \323\313\"\210\322P) & \210r\326q\210\342\343 , -eb\210\344-\313\345#\205\250 \346,!*)\347\337\f#\210 \203\324 \322\230\204\324 \323\350\f\"\203\321 \340\f!?\205\322 \341\f!\202\322 \f\"\210*\314\351\",\207" [file switches file-buffer default-directory new-version rev file-directory-p mapc vc-rcs-checkout vc-expand-dirs get-file-buffer nil message "Checking out %s..." vc-switches RCS checkout file-name-directory "" vc-rcs-set-default-branch apply vc-do-command "*vc*" 0 "co" vc-name vc-rcs-checkout-model implicit "-f" "-l" "-r" vc-working-revision vc-rcs-trunk-p vc-branch-part "^revision \\([0-9.]+\\).*\n" 1 re-search-forward t match-string vc-file-setprop vc-rcs-latest-on-branch-p "Checking out %s...done" editable workrev i pattern] 13 (#$ . 10674)]) #@117 Roll back, undoing the most recent checkins of FILES. Directories are expanded to all registered subfiles in them. (defalias 'vc-rcs-rollback #[(files) "\204 \306\307!\210\310!\311\211\205c \n@\312 !\313 !\203# \314\202& \315 ! \316 \311 \317\320\321 #!\204; \306\322!\210\323\324 #\210\325\326\327\330\331 !\332 P%\210 \204Z \333\334\335\217\210\202M ,\nA\211\204 \311*\207" [files file --dolist-tail-- discard previous config error "RCS backend doesn't support directory-level rollback" vc-expand-dirs nil vc-working-revision vc-rcs-trunk-p "" vc-branch-part current-window-configuration yes-or-no-p format "Remove version %s from %s history? " "Aborted" message "Removing revision %s from %s." vc-do-command "*vc*" 0 "rcs" vc-name "-o" err (byte-code "\303\304\305\306\307!\310\311 P&\210\312\303\207" [file previous done vc-do-command "*vc*" 0 "co" vc-name "-f" "-u" t] 8) ((error (byte-code "\304q\210eb\210\305\306\307\310#\203 \311!\312 \"\210\313\n!\210\202% \314 @ A\"\210\307\207" [previous file config err "*vc*" search-forward "no side branches present for" nil t vc-branch-part vc-rcs-set-default-branch set-window-configuration signal] 4))) done] 8 (#$ . 11945)]) #@110 Revert FILE to the version it was based on. If FILE is a directory, revert all registered files beneath it. (defalias 'vc-rcs-revert #[(file &optional contents-done) "\301!\203 \302\303\304C!\"\207\305\306\307\310\311!\312\313!\314=\203\" \315\202# \316\317!P&\207" [file file-directory-p mapc vc-rcs-revert vc-expand-dirs vc-do-command "*vc*" 0 "co" vc-name "-f" vc-state edited "-u" "-r" vc-working-revision] 9 (#$ . 13152)]) #@108 Merge changes into current working copy of FILE. The changes are between FIRST-VERSION and SECOND-VERSION. (defalias 'vc-rcs-merge #[(file first-version &optional second-version) "\303\304\305\306\307!\310\311 P\n\205 \311\nP&\207" [file first-version second-version vc-do-command "*vc*" 1 "rcsmerge" vc-name "-kk" "-r"] 9 (#$ . 13595)]) #@175 Steal the lock on the current workfile for FILE and revision REV. If FILE is a directory, steal the lock on all registered files beneath it. Needs RCS 5.6.2 or later for -M. (defalias 'vc-rcs-steal-lock #[(file &optional rev) "\302!\203 \303\304\305C!\"\207\306\307\310\311\312!\313\314 P&\210\306\307\310\315\312!\316\317 P&\207" [file rev file-directory-p mapc vc-rcs-steal-lock vc-expand-dirs vc-do-command "*vc*" 0 "rcs" vc-name "-M" "-u" "co" "-f" "-l"] 8 (#$ . 13943)]) #@149 Modify the change comments change on FILES on a specified REV. If FILE is a directory the operation is applied to all registered files beneath it. (defalias 'vc-rcs-modify-change-comment #[(files rev comment) "\305!\306\211\205# \n@\307\310\311\312\313 !\314 \315\fR%\210\nA\211\204\n \306*\207" [files file --dolist-tail-- rev comment vc-expand-dirs nil vc-do-command "*vc*" 0 "rcs" vc-name "-m" ":"] 10 (#$ . 14433)]) (defalias 'vc-rcs-print-log-cleanup #[nil "\301db\210\302y\210\303\304!\203 \305\306\225\306\224Z!\210\302y\210\202 eb\210\303\307!\205, \305\306\225\306\224Z!)\207" [inhibit-read-only t -1 looking-at "=*\n" delete-char 0 "[ \n \f ]+"] 3]) #@123 Get change log associated with FILE. If FILE is a directory the operation is applied to all registered files beneath it. (defalias 'vc-rcs-print-log #[(files buffer &optional shortlog start-revision-ignored limit) "\303\206 \304\305\306\307\310\311 !\"$\210r\206 \304q\210\312 \210)\n\205! \313\207" [buffer files limit vc-do-command "*vc*" 0 "rlog" mapcar vc-name vc-expand-dirs vc-rcs-print-log-cleanup limit-unsupported] 8 (#$ . 15111)]) #@62 Get a difference report using RCS between two sets of files. (defalias 'vc-rcs-diff #[(files &optional oldvers newvers buffer) "\304\305\206 \306\307\310\311 !\312\313\n\205 \314\nP \205 \314 PE\315\316\317\"\"&\207" [buffer files oldvers newvers apply vc-do-command "*vc-diff*" 1 "rcsdiff" vc-expand-dirs append "-q" "-r" vc-switches RCS diff] 11 (#$ . 15563)]) #@66 Return a string with all log entries stored in BACKEND for FILE. (defalias 'vc-rcs-comment-history #[(file) "r\302q\210\303\304!\305C#\210\306db\210\307y\210\310\311!\203) \312\313\225\313\224Z!\210\307y\210\202 eb\210\310\314!\203: \312\313\225\313\224Z!\210eb\210\315 \316\317#\210e`|\210\315 \316\317#\203X \313\224\313\225|\210\202G )\320 )\207" [file separator "*vc*" vc-call-backend vc-backend print-log "^-+\nrevision [0-9.]+\ndate: .*\n\\(branches: .*;\n\\)?\\(\\*\\*\\* empty log message \\*\\*\\*\n\\)?" -1 looking-at "=*\n" delete-char 0 "[ \n \f ]+" re-search-forward nil t buffer-string] 4 (#$ . 15937)]) #@103 Annotate FILE, inserting the results in BUFFER. Optional arg REVISION is a revision to annotate from. (defalias 'vc-rcs-annotate-command #[(file buffer &optional revision) "\306!\210\307\310!r q\210\311\216\312\313\n!!\210\314 +\304 \236A \315\316 \236A\236A \317 \f\"A 4\320\211 5 6\320\211 7 8\320\211 9 :;\204F ;\317;\f\"\204T \321\322;\"\210;\320\211 < = >\323>!=\323=!\211>\203\232 \324\317>\f\"A\236A<=\323<@!\230\204\214 <A<\202y ><@B7B7\202^ +q\210\3254\236Ac\210\326 ? :\3274\236A\211\203l \330\230\204l8\204\330 7\203\320 7\211 @@@)\202\322 ;:\230\205\333 ? 8\317 \f\"A4\3314\236A\320 A\211 B\203hB@Aeb\210A\211AA@Sy\210`5A\211AA@\211 C\332=\203>\3335A@y\210`\"68\20365\3346\3358#B9B95`|\210\202^C\336=\203^A@68\203Z56GB9B96c\210)BA\211B\204\362 *\202\250 \337ed\335? $\2109\320 A\211 B\203\250B@\211A\211AA@b\210A;\203\232Ac\210\202\237\340A!\210BA\211B\204\200*7\203F7\211A7@A:\317:\f\"A4\3208\3314\236A\320 A\211 B\203\"B@Aeb\210A\211AA@Sy\210A\211AA@\211 D\332=\203\376`A@y\210`|\210\202D\336=\203\334A@\3358\206? \2118#c\210)BA\211B\204\321*7\20337\211 @@@)\2025;:\230?\3274\236A:\204\270\202\251. \341\342\343\"\344 \345\346\320\211\211 E F G H I J Kdb\210o\204\250\347y\210\350`\335\"G\351GK\"\204dG\352HEH\205\212EJ\230H\353G\211\345HGEG\\\211FK#\210FI]I\202d\354I\355\" L\356\357 M N\360H\203\277\361\202\300\362K\"\210+m?\205\332\351\350`\335\"K\"c\210\363y\210\202\305.\207" [buffer #1=#:temp-buffer file tree revisions cur vc-setup-buffer generate-new-buffer " *temp*" ((byte-code "\301!\203\n \302!\210\301\207" [#1# buffer-name kill-buffer] 2)) insert-file-contents vc-rcs-registered vc-rcs-parse head headers assoc nil error "No such revision: %s" vc-branch-part branches text #[nil "\302\303 \236A\304 \236A#\207" [pre meta vector date author] 5] next "" :insn k buffer-substring-no-properties propertize :vc-rcs-r/d/a i put-text-property delete-char make-hash-table :test eq user-login-name 0 t -1 get-text-property gethash 2 puthash make-string 32 #[(w) "\302 \"\207" [padding w substring-no-properties] 3] #[(rda &rest ls) "\302\303\304\305\306\307H\"\310\311H %\312\313\314%\207" [rda ls propertize apply concat format-time-string "%Y-%m-%d" 1 " " 0 :vc-annotate-prefix t :vc-rcs-r/d/a] 7 "\n\n(fn RDA &rest LS)"] maphash #[(rda w) "\305 \n !\306#\f#\207" [rda #2=#:--cl-render-- #3=#:--cl-pad-- w ht puthash ": "] 6] #[(rda w) "\305 \306\n !\306\307H\310&\f#\207" [rda #2# #3# w ht puthash " " 2 ": "] 9] 1 meta p s nbls prda path pre revision kids bpt par #4=#:--cl-r/d/a-- x insn --dolist-tail-- #5=#:val #6=#:val a w rda all-me maxw me ht padding #2# #3#] 8 (#$ . 16568)]) #@96 Return the current time, based at midnight of the current day, and encoded as fractional days. (defalias 'vc-rcs-annotate-current-time #[nil "\300\301\302\303\211\211\304\305\306 !\233%!\207" [vc-annotate-convert-time apply encode-time 0 3 decode-time current-time] 9 (#$ . 19353)]) #@121 Return the time of the next annotation (as fraction of days) systime, or nil if there is none. Also, reposition point. (defalias 'vc-rcs-annotate-time #[nil "m?\205 \300\301`\302\"\303H!\304`\305\"b\210\207" [vc-annotate-convert-time get-text-property :vc-rcs-r/d/a 1 next-single-property-change :vc-annotate-prefix] 4 (#$ . 19643)]) (defalias 'vc-rcs-annotate-extract-revision-at-line #[nil "\300`\301\"\302H\207" [get-text-property :vc-rcs-r/d/a 0] 3]) (defalias 'vc-rcs-create-tag #[(dir name branchp) "\203 \303\304!\210\305 !\211;\203 \303\306\n\"\202 \307 \310\")\207" [branchp dir result error "RCS backend does not support module branches" vc-tag-precondition "File %s is not up-to-date" vc-file-tree-walk #[(f) "\302\303\304\305\306!\307 \310Q%\207" [f name vc-do-command "*vc*" 0 "rcs" vc-name "-n" ":"] 8]] 4]) #@45 Return t if REV is a revision on the trunk. (defalias 'vc-rcs-trunk-p #[(rev) "\301\302\"\303=?\207" [rev string-match "\\`[0-9]+\\.[0-9]+\\'" nil] 3 (#$ . 20479)]) #@60 Return the minor revision number of a revision number REV. (defalias 'vc-rcs-minor-part #[(rev) "\301\302\"\210\303\224\303\225O\207" [rev string-match "[0-9]+\\'" 0] 3 (#$ . 20651)]) #@203 Return the revision number immediately preceding REV for FILE, or nil if there is no previous revision. This default implementation works for MAJOR.MINOR-style revision numbers as used by RCS and CVS. (defalias 'vc-rcs-previous-revision #[(file rev) "\303!\304\305!!\211\205( \306V\203 \n\307\310 S!Q\202( \311!?\205( \303\n!*\207" [rev minor-num branch vc-branch-part string-to-number vc-rcs-minor-part 1 "." number-to-string vc-rcs-trunk-p] 5 (#$ . 20844)]) #@199 Return the revision number immediately following REV for FILE, or nil if there is no next revision. This default implementation works for MAJOR.MINOR-style revision numbers as used by RCS and CVS. (defalias 'vc-rcs-next-revision #[(file rev) "\304 !\230?\205 \305!\306\307!!\211\310\311\nT!Q*\207" [rev file minor-num branch vc-working-revision vc-branch-part string-to-number vc-rcs-minor-part "." number-to-string] 5 (#$ . 21319)]) #@63 Path to the `rcs2log' program (normally in `exec-directory'). (defvar vc-rcs-rcs2log-program (byte-code "\303\304\305\306 \"\211!\203 \202! \304\305\307\n\"\211!\203 \202! \306)\207" [exe exec-directory source-directory nil file-executable-p expand-file-name "rcs2log" "lib-src/rcs2log"] 4) (#$ . 21766)) #@94 Default implementation of update-changelog. Uses `rcs2log' which only works for RCS and CVS. (defalias 'vc-rcs-update-changelog #[(files) "\306 \307\310\311 \206 \n\"! \206 \312\313\314\315 !\"\f\206- \316 \206- \303 \206- \312\313\314\315 !\" \2063 ) * + , - . /\317.!\210\320 \210\321 \210\322 \210eb\210\323 \210\324\325!\210\324\326\327\216/\330\3310\332\333-D\332\334.\335,\336+\336*\260\337\3401\"&\n\341=\203\206 \342\202\225 \343\344\345!!\210\346 \210\347-!\210\350)\".\207" [default-directory small-temporary-file-directory temporary-file-directory user-login-name add-log-full-name add-log-mailing-address find-change-log make-temp-file expand-file-name "vc" format "uid%d" number-to-string user-uid user-full-name find-file-other-window barf-if-buffer-read-only vc-buffer-sync undo-boundary push-mark message "Computing change log entries..." "Computing change log entries... %s" ((byte-code "\303!\304\n!\207" [changelog default-directory tempfile file-name-directory delete-file] 2)) apply call-process nil t "-c" "-u" " " mapcar #[(f) "\302\303 \"!\207" [f odefault file-relative-name expand-file-name] 4] 0 "done" pop-to-buffer get-buffer-create "*vc*" erase-buffer insert-file-contents "failed" user-mail-address mailing-address full-name login-name tempfile changelog odefault vc-rcs-rcs2log-program files] 16 (#$ . 22084)]) #@50 Check if the current file has any headers in it. (defalias 'vc-rcs-check-headers #[nil "\212eb\210\300\301\302\303#)\207" [re-search-forward "\\$[A-Za-z\300-\326\330-\366\370-\377]+\\(: [ -#%-~\240-\377]*\\)?\\$" nil t] 4 (#$ . 23453)]) #@45 Implementation of vc-clear-headers for RCS. (defalias 'vc-rcs-clear-headers #[nil "\301eb\210\302\303\301\304#\205 \305\306!\210\202 )\207" [case-fold-search nil re-search-forward "\\$\\(Author\\|Date\\|Header\\|Id\\|Locker\\|Name\\|RCSfile\\|Revision\\|Source\\|State\\): [^$\n]+\\$" t replace-match "$\\1$"] 4 (#$ . 23697)]) (defalias 'vc-rcs-rename-file #[(old new) "\303\304! \n#\207" [old new vc-rcs-master-templates vc-rename-master vc-name] 4]) (defalias 'vc-rcs-find-file-hook #[nil "\302\303\";\205 \304\211\207" [buffer-file-name buffer-read-only vc-state RCS t] 3]) #@135 Return non-nil if FILE is newer than its RCS master. This likely means that FILE has been changed with respect to its master version. (defalias 'vc-rcs-workfile-is-newer #[(file) "\303\304!8\303\304\305!!8\211@ @V\206% \n@ @U\205% \nA@ A@V*\207" [file master-time file-time 5 file-attributes vc-name] 6 (#$ . 24288)]) #@38 Find most recent revision on BRANCH. (defalias 'vc-rcs-find-most-recent-rev #[(branch) "eb\210\304\305\306\307\310\n!\311Q\305\312#\203* \313\314\315!! W\203& \314\316!)\202 \2061 \317\n!*\207" [value latest-rev branch rev -1 nil re-search-forward "^\\(" regexp-quote "\\.\\([0-9]+\\)\\)\ndate[ ]+[0-9.]+;" t string-to-number match-string 2 1 vc-branch-part] 4 (#$ . 24616)]) #@319 Compute the master file's idea of the state of FILE. If a WORKING-REVISION is given, compute the state of that version, otherwise determine the workfile version based on the master file. This function sets the properties `vc-working-revision' and `vc-checkout-model' to their correct values, based on the master file. (defalias 'vc-rcs-fetch-master-state #[(file &optional working-revision) "\306\307!rq\210\310\216\311\312 !\313\"\203 eb\210\314\315!\204# \316\317\312 !\"\210\320\321\322eb\210\323 \320\324#\2056 \325\n!* \326 \327\f#\210.\204\212 \f\203N \f\330\230\203h \331\322eb\210\323 \320\324#\205` \325\n!*.\324\202\203 \332\333\f\"\203u \f.\202\203 \311\312 !\334\"\210\335\f!.\324\326 \336.#\210eb\210\326 \337\323\340\320\324#\203\234 \341\202\235 \342#\210eb\210\343\344.!\345Q\322eb\210\323 \320\324#\205\272 \325\n!*\211 /\204\325 \204\315 \346 .\"\203\321 \347\202\350\202/;\203/\351 !\230\203\352 \337\"\341=\204\371 \204\371 \346 .\"\203\375 \353\202\354\202/;\203\f/\202\316\355!.\207" [#1=#:temp-buffer file i pattern default-branch workfile-is-latest generate-new-buffer " *temp*" ((byte-code "\301!\203\n \302!\210\301\207" [#1# buffer-name kill-buffer] 2)) vc-insert-file vc-name "^[0-9]" looking-at "^head[ \n]+[^;]+;$" error "File %s is not an RCS master file" nil "^branch[ \n]+\\([^;]*\\);" 1 re-search-forward t match-string vc-file-setprop vc-rcs-default-branch "" "^head[ \n]+\\([^;]+\\);" string-match "^[0-9]+\\.[0-9]+\\(\\.[0-9]+\\.[0-9]+\\)*$" "^desc" vc-rcs-find-most-recent-rev vc-working-revision vc-checkout-model ";[ \n]*strict;" locking implicit "^locks[ \n]+[^;]*[ \n]+\\([^:]+\\):" regexp-quote "[^0-9.]" vc-rcs-latest-on-branch-p up-to-date needs-update vc-user-login-name vc-file-getprop edited needs-merge "Error getting state of RCS file" working-revision locking-user] 8 (#$ . 25009)]) #@232 Search for RCS headers in FILE, and set properties accordingly. Returns: nil if no headers were found 'rev if a workfile revision was found 'rev-and-lock if revision and lock info was found (defalias 'vc-rcs-consult-headers #[(file) "\304!\204 \305\207\305\211\211r\304!q\210\212eb\210\306\307\305\310#\203& \311\312!\2047 eb\210\306\313\305\310#\203e \311\312!\203e \314\225b\210\315\316!\311\317!\203\241 \314\225b\210\311\320!\203V \321\322\202\241 \311\323!\203\241 \315\316!\322\202\241 \324\325\305\310#\203\241 \315\316!eb\210\324\326\305\310#\203\237 \311\327!\203\213 \315\316!\322\202\241 \311\330!\203\230 \321\322\202\241 \321\322\202\241 \331* \203\254 \332\333\n#\210 \322=\203\373 \332\334 \321=\203\277 \335\202\314 \336!\230\203\313 \337\202\314 #\203\373 \340!\204\373 \334!)\335=\203\373 \341\342\343\344!8\"\203\365 \332\345\346#\210\202\373 \332\345\347#\210 +\207" [file locking-user version status get-file-buffer nil search-forward "$Id: " t looking-at "[^ ]+ \\([0-9.]+\\) " "$Header: " 0 match-string-no-properties 1 "[0-9]+[/-][01][0-9][/-][0-3][0-9] [0-2][0-9]:[0-5][0-9]+:[0-6][0-9]+\\([+-][0-9:]+\\)? [^ ]+ [^ ]+ " "\\$" none rev-and-lock "\\([^ ]+\\) \\$" re-search-forward "\\$Revision: \\([0-9.]+\\) \\$" "\\$Locker:" " \\([^ ]+\\) \\$" " *\\$" rev vc-file-setprop vc-working-revision vc-state up-to-date vc-user-login-name edited vc-mistrust-permissions string-match ".r-..-..-." 8 file-attributes vc-checkout-model locking implicit] 6 (#$ . 26900)]) #@525 Compare release numbers, represented as strings. Release components are assumed cardinal numbers, not decimal fractions (5.10 is a higher release than 5.9). Omitted fields are considered lower (5.6.7 is earlier than 5.6.7.1). Comparison runs till the end of the string is found, or a non-numeric component shows up (5.6.7 is earlier than "5.6.7 beta", which is probably not what you want in some cases). This code is suitable for existing RCS release numbers. CVS releases are handled reasonably, too (1.3 < 1.4* < 1.5). (defalias 'vc-release-greater-or-equal #[(r1 r2) "\304\211\211\211\305\306\215,\207" [i2 i1 v2 v1 nil done (byte-code "\306\307\"\203a \310\225\211\203a \311\312\313\"!\211\203a \306\307 \"\203a \310\225\211\203a \311\312\313 \"!\211\203a \n V\203? \314\315\316\"\202Y \n W\203L \314\315\317\"\202Y \314\315\320 \317O \f\317O\"\"\203a \314\315\316\"\210\306\307 \"\203o \314\315\317\"\206s \314\315\316\"\207" [r1 i1 v1 r2 i2 v2 string-match "^\\.?\\([0-9]+\\)" 0 string-to-number match-string 1 throw done t nil vc-release-greater-or-equal] 7)] 4 (#$ . 28464)]) #@40 Return t if we have RELEASE or better. (defalias 'vc-rcs-release-p #[(release) "\302 \211\205 \303=?\205 \304 \")\207" [installation release vc-rcs-system-release unknown vc-release-greater-or-equal] 4 (#$ . 29568)]) #@305 Return the RCS release installed on this system, as a string. Return symbol `unknown' if the release cannot be deducted. The user can override this using variable `vc-rcs-release'. If the user has not set variable `vc-rcs-release' and it is nil, variable `vc-rcs-release' is set to the returned value. (defalias 'vc-rcs-system-release #[nil "\206/ \303\304\305\306\307\306\310%!\203, r\311\305!q\210\312\313eb\210\314\n\306\315#\205( \316 !+\206- \317\211\207" [vc-rcs-release i pattern zerop vc-do-command "*vc*" nil "rcs" "-V" get-buffer "^RCS version \\([0-9.]+ *.*\\)" 1 re-search-forward t match-string unknown] 7 (#$ . 29797)]) (defalias 'vc-rcs-set-non-strict-locking #[(file) "\301\302\303\304\305%\210\306\307\310#\210\311\312\313!\314\"\"\207" [file vc-do-command "*vc*" 0 "rcs" "-U" vc-file-setprop vc-checkout-model implicit set-file-modes logior file-modes 128] 6]) (defalias 'vc-rcs-set-default-branch #[(file branch) "\302\303\304\305\306!\307 P%\210\310\311 #\207" [file branch vc-do-command "*vc*" 0 "rcs" vc-name "-b" vc-file-setprop vc-rcs-default-branch] 7]) #@1907 Parse current buffer, presumed to be in RCS-style masterfile format. Optional arg BUFFER specifies another buffer to parse. Return an alist of two elements, w/ keys `headers' and `revisions' and values in turn sub-alists. For `headers', the values unless otherwise specified are strings and the keys are: desc -- description head -- latest revision branch -- the branch the "head revision" lies on; absent if the head revision lies on the trunk access -- ??? symbols -- sub-alist of (SYMBOL . REVISION) elements locks -- if file is checked out, something like "ttn:1.7" strict -- t if "strict locking" is in effect, otherwise nil comment -- may be absent; typically something like "# " or "; " expand -- may be absent; ??? For `revisions', the car is REVISION (string), the cdr a sub-alist, with string values (unless otherwise specified) and keys: date -- a time value (like that returned by `encode-time'); as a special case, a year value less than 100 is augmented by 1900 author -- username state -- typically "Exp" or "Rel" branches -- list of revisions that begin branches from this revision next -- on the trunk: the chronologically-preceding revision, or ""; on a branch: the chronologically-following revision, or "" log -- change log entry text -- for the head revision on the trunk, the body of the file; other revisions have `:insn' instead :insn -- for non-head revisions, a list of parsed instructions in one of two forms, in both cases START meaning "first go to line START": - `(START k COUNT)' -- kill COUNT lines - `(START i TEXT)' -- insert TEXT (a string) The list is in descending order by START. The `:insn' key is a keyword to distinguish it as a vc-rcs.el extension. (defalias 'vc-rcs-parse #[(&optional buffer) "\306\206 p!\211q\210\307\211\211\211\211\211\211\211 ; *\310 <\311 =\312 >\313 ?\314 @\315 A\316 B\317 C\320 D\212eb\210\321\322\211 E\323!\210=\324!\203R E\324!\210E\325!\210E\326\327\"\210E\330!\210)\331=\331!\205p \332\333!\210\334BB=\335!\203\212 D\335!B\332\333!\210=\336!\203\236 D\336!B\332\333!\210\237< \210\337\340\341!\203\326 > B\342\343\"\344\345B\346\"B\347\350\"B\351!D\"BB;B;< \210\202\251 ;\237;< \210\352D\352!*\307\211\211\211\211\211\211 F G H I J K L\353 M< \203\333m\204\333> \354 ;\"\206\355\356 \"\211K\203\333D\357! NK\211 ONOAB\241\210*D\360\334\" PK\211 QPQAB\241\210* \323\236A\230\203bK\211 RA@)C \241\210\202\377 \203q \237GMF\202t\361F b\210\307L`\nW\203\313\362u\210`SfJ\363p!I\363p!H\362u\210J\364=\203\245I\365HE\202\303J\366=\203\275IT\367F`Hy\210`\"E\202\303\355\370J #LBL\202z\nTb\210KA\371LB\240\210\202\377 . \321*BB\372;.BD\207" [buffer @-holes e b tok context get-buffer nil #[nil "\300\301w\207" [" \n" nil] 2] #[(tag) "\212\302 !)=\207" [tag buffer read] 3] #[nil "\300`\301y\210`S\"\207" [buffer-substring-no-properties 1] 3] #[nil "`\302\303!\210`S\211\207" [b e search-forward ";"] 2] #[nil "\303\304\305!\210`\304\305!\203$ \303f\306U\203$ `B\307u\210`B\211\204 `S\211\207" [@-holes b e nil search-forward "@" 64 1] 2] #[(set-b+e name &optional proc) "\306 !\211=\204 \307\310 #\210\f \210 \210\n\n\203\" \n \202( \311 \f\"B\207" [name buffer tok context #1=#:--cl-sw-- set-b+e read error "Missing `%s' while parsing %s" buffer-substring-no-properties proc b e] 4] #[(name &optional proc) " \n #\207" [#2=#:--cl-tok+val-- #3=#:--cl-to-semi-- name proc] 4] #[nil "\306 \nC\"B\307\211 \203& \310\f\211 A@)\f@\" B\f\211 AA)\211\204 \311\312 \"*\207" [e @-holes b acc pairs x append nil buffer-substring-no-properties apply concat] 5] #[(name &optional later) " \n \203 \305\202\f \f#\207" [#2# #4=#:--cl-to-one@-- name later #5=#:--cl-gather-- #[nil "\300\207" [t] 1]] 4] headers #[(name &optional proc) " \n\" B\211\207" [#6=#:--cl-k-semi-- name proc headers] 3] head branch access symbols #[nil "\302\303\304\305 \"!\"\207" [b e mapcar #[(together) "\303\304\"\211\305 @!\240\210 \211\211A@)\241\210 )\207" [together two x split-string ":" intern] 4] split-string buffer-substring-no-properties] 6] locks strict search-forward ";" t comment expand rev-headers looking-at "[0-9]" date #[nil "\303\304\305\306 \"\307\"\"\211@\310W\203 \n\311\n@\\\240\210\312\313\n\237\")\207" [b e ls mapcar string-to-number split-string buffer-substring-no-properties "\\." 100 1900 apply encode-time] 7] append mapcar (author state) branches #[nil "\302\303 \"!\207" [b e split-string buffer-substring-no-properties] 4] next desc #[(beg end) " \306 \203 @ W\203 \211A@\nB\202 \204# \307 +\207" [beg end @-holes e b asc nil buffer-substring-no-properties sub #5#] 3] assoc error "Rev `%s' has body but no head" log text buffer-substring-no-properties 1 read 100 k 97 i "Bad command `%c' in `text' for rev `%s'" :insn revisions revs #1# #7=#:--cl-at-- #8=#:--cl-to-eol-- #3# #4# #2# #6# #5# #9=#:--cl-k-one@-- #10=#:--cl-hpush-- sub asc act start cmd rev acc #11=#:--cl-incg-- #12=#:v #13=#:v #14=#:v #15=#:v x] 9 (#$ . 30896)]) (provide 'vc-rcs)