ikan Uploader :
Directory : /usr/share/emacs/25.2/lisp/vc/
Upload File : |
| Current File : //usr/share/emacs/25.2/lisp/vc/vc-rcs.elc |
;ELC
;;; Compiled
;;; in Emacs version 25.2.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\306\301&\210\310\320\312\313\321DD\322\316\323\304\324\306\301& \210\310\325\312\313\326DD\327\316\330\304\324\306\301& \210\310\331\312\313\332DD\333\316\334\304\305\306\301& \210\310\335\312\313\336DD\337\316\340\306\301&\210\310\341\312\313\342DD\343\316\344\304\324\306\301& \207" [custom-declare-group vc-rcs nil "VC RCS backend." :version "24.1" :group vc custom-declare-variable vc-rcs-release funcall function #[0 "\300\207" [nil] 1] "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 #[0 "\300\207" [nil] 1] "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 #[0 "\300\207" [nil] 1] "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 #[0 "\300\207" [("$Id$")] 1] "Header keywords to be inserted by `vc-insert-headers'." (repeat string) vc-rcsdiff-knows-brief #[0 "\300\207" [nil] 1] "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 #[0 "\300\301!\207" [purecopy ("%sRCS/%s,v" "%s%s,v" "%sRCS/%s")] 2] "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 #[0 "\300\207" [file] 1])
#@58 RCS-specific version of `vc-checkout-model'.
(fn FILES)
(defalias 'vc-rcs-checkout-model #[257 "\211:\203\n \211@\202 \211\301\203 \302\303\301#\210\304!\210\305\303\"\262\211\206, \306!\210\305\303\"\207" [vc-consult-headers nil vc-file-setprop vc-checkout-model vc-rcs-consult-headers vc-file-getprop vc-rcs-fetch-master-state] 7 (#$ . 2723)])
(defalias 'vc-rcs-registered #[257 "\300\301\"\207" [vc-default-registered RCS] 4 "\n\n(fn F)"])
#@50 Implementation of `vc-state' for RCS.
(fn FILE)
(defalias 'vc-rcs-state #[257 "\301!\204 \302\207\303\304!\204 \203 \305!\210\306\307\310\"\"\211\311=\204' \211\202? \312!\2031 \311\202? \313C!\314=\203> \315\202? \316\207" [vc-consult-headers 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-rcs-workfile-unchanged-p vc-rcs-checkout-model locking unlocked-changes edited] 6 (#$ . 3183)])
(autoload 'vc-expand-dirs "vc")
(defalias 'vc-rcs-dir-status-files #[771 "\204 \300C\301\"\262\302\211\2037 \211@\303!\304!\305!\301=\203. \306=\204. \211DB\262\266A\266\202\202
\210!\207" [vc-expand-dirs RCS nil vc-state file-relative-name vc-backend up-to-date] 10 "\n\n(fn DIR FILES UPDATE-FUNCTION)"])
#@59 RCS-specific version of `vc-working-revision'.
(fn FILE)
(defalias 'vc-rcs-working-revision #[257 "\203 \301!\203 \302\303\"\206 \304!\210\302\303\"\207" [vc-consult-headers vc-rcs-consult-headers vc-file-getprop vc-working-revision vc-rcs-fetch-master-state] 4 (#$ . 4022)])
(autoload 'vc-master-name "vc-filewise")
#@157 Return non-nil if workfile version of FILE is the latest on its branch.
When VERSION is given, perform check for that version.
(fn FILE &optional VERSION)
(defalias 'vc-rcs-latest-on-branch-p #[513 "\211\204 \302!\262\303\304!r\211q\210\305\306\307\310\311!\312\"\313$\216\314!\203@ \315\316!\317\"\210\320\321eb\210\322 \323\324#\205< \325!*\202L \315\316!\326\"\210\327\330!!\230*\207" [i pattern vc-working-revision generate-new-buffer " *temp*" make-byte-code 0 "\301\300!\205 \302\300!\207" vconcat vector [buffer-name kill-buffer] 2 vc-rcs-trunk-p vc-insert-file vc-master-name "^[0-9]" "^head[ \n]+\\([^;]+\\);" 1 re-search-forward nil t match-string "^desc" vc-rcs-find-most-recent-rev vc-branch-part] 9 (#$ . 4355)])
#@61 Has FILE remained unchanged since last checkout?
(fn FILE)
(defalias 'vc-rcs-workfile-unchanged-p #[257 "\301\302!P\303=\203 \304\305\306\307%\202 \304\305\310\307\311&\211\310=\203@ \2049 \303\304\305\306\307%\262\202F \312\313!\210\202F \204F \314\211\315U\207" [vc-rcsdiff-knows-brief "-r" vc-working-revision no vc-do-command "*vc*" 1 "rcsdiff" 2 "--brief" error "rcsdiff failed" yes 0] 9 (#$ . 5102)])
#@30 Create a new RCS repository.
(defalias 'vc-rcs-create-repo #[0 "\300\301!\207" [make-directory "RCS"] 2 (#$ . 5535)])
(autoload 'vc-switches "vc")
#@319 Register FILES into the RCS version-control system.
Automatically retrieve a read-only version of the file with keywords expanded.
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.
(fn FILES &optional COMMENT)
(defalias 'vc-rcs-register #[513 "\300\211\211\205\232 \211@\301\302\303\304!\"\211\262!\204, \305\304!\300\306\307$\204, \310\311!\203, \312!\210\313\314\315\316\317\320\321!\2059 \322\323\324
\206A \325P\326\327\330\"& \210r\315q\210eb\210\331\332\333!P!\205] \334\335!\211\262\204j \336!\210\202\202 \337\340\341!\203x \202\200 \302\304!\"#\210)\337\342\343\344\300\307#\205\221 \334\335!#\210A\266\202\202 \262\207" [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" "-t-" "" vc-switches RCS register looking-at "^\\(.*\\) <-- " file-name-nondirectory match-string 1 vc-rcs-registered vc-file-setprop vc-master-name file-name-absolute-p vc-working-revision re-search-forward "^initial revision: \\([0-9.]+\\).*\n"] 18 (#$ . 5689)])
#@87 Return non-nil if RCS thinks it would be responsible for registering FILE.
(fn FILE)
(defalias 'vc-rcs-responsible-p #[257 "\300\301\302\300!\203
\202 \303!\"!\207" [file-directory-p expand-file-name "RCS" file-name-directory] 6 (#$ . 6933)])
#@56 Implementation of receive-file for RCS.
(fn FILE REV)
(defalias 'vc-rcs-receive-file #[514 "\300C!\301\302\"\210\211\303=\203 \304!\210\305\306P\"\207" [vc-rcs-checkout-model vc-rcs-register "" implicit vc-rcs-set-non-strict-locking vc-rcs-set-default-branch ".1"] 7 (#$ . 7188)])
#@116 Unregister FILE from RCS.
If this leaves the RCS subdirectory empty, ask the user
whether to remove it.
(fn FILE)
(defalias 'vc-rcs-unregister #[257 "\300!\301>?\205e \302!\303!\304!\211\204 \305!\210\202D \306@\307#\210\211A\211\203C \211@\31017 \305!0\202; \210\202< \210A\266\202\202& \210\311\312!!\313\230\205c \314\315\316#?\205c \317\320\321\"!\205c \322!\266\203\207" [vc-state (nil unregistered) vc-master-name file-name-directory find-backup-file-name delete-file rename-file ok-if-already-exists (error) file-name-nondirectory directory-file-name "RCS" directory-files nil "^\\([^.]\\|\\.[^.]\\|\\.\\.[^.]\\).*" yes-or-no-p format "Directory %s is empty; remove it? " delete-directory] 8 (#$ . 7483)])
#@81 RCS-specific version of `vc-backend-checkin'.
(fn FILES COMMENT &optional REV)
(defalias 'vc-rcs-checkin #[770 "\300\301\302\"\303\301\"\211\205\307 \211@\304!\305\306\307\"\2048 \211\2038 \310\311\312!\313Q\"\2038 \211\211\262\2038 \314B\262\204F \203F \315!\262\316\317\320\321\322\323 !\324\325!\205V \326\327P\330P& \210\331\304\305#\210\320q\210eb\210\332\333\305\334#\204 \332\335\305\334#\203\212 \336\337!\262\331\304#\210\203\276 \203\276 \315!\315!\230\204\276 \340\341!?\205\250 \315!\"\210\324\342!\204\276 \317\320\337\343\323!\327P%\210\266A\266\202\202 \262\207" [vc-switches RCS checkin vc-expand-dirs vc-working-revision nil vc-file-getprop vc-rcs-default-branch string-match "^" regexp-quote "\\." "-f" vc-branch-part apply vc-do-command "*vc*" 0 "ci" vc-master-name vc-rcs-release-p "5.6.4" "-j" "-u" "-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"] 19 (#$ . 8217)])
(defalias 'vc-rcs-find-revision #[771 "\300\301\206 \302\303\304\305!\306\307 P\310\311\312\"&\207" [apply vc-do-command "*vc*" 0 "co" vc-master-name "-q" "-p" vc-switches RCS checkout] 14 "\n\n(fn FILE REV BUFFER)"])
#@153 Retrieve a copy of a saved version of FILE. If FILE is a directory,
attempt the checkout for all registered files beneath it.
(fn FILE &optional REV)
(defalias 'vc-rcs-checkout #[513 "\303!\203 \304\305\306C\307\"\"\207\310!\311\312\313\"\210\212\203 q\210\314\307\315\"\262\212\316!\311\203= \317\230\203= \320\311\"\210\321\322\323\324\325\326\n!\327 C!\330=\205Q \331\332 ;\203_ \333\fP\202\207 \334
!\211\205\205 \333
\204q \202\204 \335!\204} \336!\202\204 \320\311\"\210\317P\262\n& \210r\323q\210\337\340eb\210\341\n\311\342#\205\242 \343 !*\262)\344\334#\210\203\320 \317\230\204\320 \320\345\"\203\315 \335!?\205\316 \336!\202\316 \"\210\210)\312\346\"*\207" [default-directory i pattern file-directory-p mapc vc-rcs-checkout vc-expand-dirs RCS get-file-buffer nil message "Checking out %s..." vc-switches checkout file-name-directory "" vc-rcs-set-default-branch apply vc-do-command "*vc*" 0 "co" vc-master-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"] 18 (#$ . 9519)])
#@145 Revert FILE to the version it was based on. If FILE is a directory,
revert all registered files beneath it.
(fn FILE &optional CONTENTS-DONE)
(defalias 'vc-rcs-revert #[513 "\300!\203 \301\302\303C\304\"\"\207\305\306\307\310\311!\312\313!\314=\203% \315\202& \316\317 !P&\207" [file-directory-p mapc vc-rcs-revert vc-expand-dirs RCS vc-do-command "*vc*" 0 "co" vc-master-name "-f" vc-state edited "-u" "-r" vc-working-revision] 11 (#$ . 10740)])
#@66 Accept a file merge request, prompting for revisions.
(fn FILE)
(defalias 'vc-rcs-merge-file #[257 "\300\301\302QC\303#\304\305\230\203 \306\307!\210\2027 \310!\204/ \300\311C\303\304\312!\313P%\262\2027 \262\312!\262\314#\207" [vc-read-revision "Merge " " from branch or revision: " RCS nil "" error "A starting RCS revision is required" vc-branch-p "Second RCS revision: " vc-branch-part "." vc-rcs-merge] 10 (#$ . 11204)])
#@158 Merge changes into current working copy of FILE.
The changes are between FIRST-VERSION and SECOND-VERSION.
(fn FILE FIRST-VERSION &optional SECOND-VERSION)
(defalias 'vc-rcs-merge #[770 "\300\301\302\303\304!\305\306P\205 \306P&\207" [vc-do-command "*vc*" 1 "rcsmerge" vc-master-name "-kk" "-r"] 12 (#$ . 11654)])
#@200 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.
(fn FILE &optional REV)
(defalias 'vc-rcs-steal-lock #[513 "\301!\203 \302\303\304C\305\"\"\207\306\307\310\311\312!\313\314P&\210\306\307\310\315\312!\316\317P&\210\2064 \320!\211\203J \321 \212\322 \210)\323!\262\202U \324!q\210\322 \210\325!\207" [buffer-file-name file-directory-p mapc vc-rcs-steal-lock vc-expand-dirs RCS vc-do-command "*vc*" 0 "rcs" vc-master-name "-M" "-u" "co" "-f" "-l" find-buffer-visiting vc-buffer-context vc-rcs-clear-headers vc-restore-buffer-context find-file-noselect kill-buffer] 10 (#$ . 11986)])
#@173 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.
(fn FILES REV COMMENT)
(defalias 'vc-rcs-modify-change-comment #[771 "\300\301\"\211\205! \211@\302\303\304\305\306!\307 \310\nR%\210A\266\202\202 \207" [vc-expand-dirs RCS vc-do-command "*vc*" 0 "rcs" vc-master-name "-m" ":"] 14 (#$ . 12720)])
(defalias 'vc-rcs-print-log-cleanup #[0 "\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])
#@247 Print commit log associated with FILES into specified BUFFER.
Remaining arguments are ignored.
If FILE is a directory the operation is applied to all registered
files beneath it.
(fn FILES BUFFER &optional SHORTLOG START-REVISION-IGNORED LIMIT)
(defalias 'vc-rcs-print-log #[1282 "\300\206 \301\302\303\304\305\306 \307\"\"$\210r\206 \301q\210\310 \210)\211\205# \311\207" [vc-do-command "*vc*" 0 "rlog" mapcar vc-master-name vc-expand-dirs RCS vc-rcs-print-log-cleanup limit-unsupported] 14 (#$ . 13370)])
#@113 Get a difference report using RCS between two sets of files.
(fn FILES &optional OLDVERS NEWVERS BUFFER ASYNC)
(defalias 'vc-rcs-diff #[1281 "\300\301\206 \302\303\304\305\n\306\"\307\310 \205 \311\fP \205\" \311\fPE\312\306\313\"\"&\207" [apply vc-do-command "*vc-diff*" 1 "rcsdiff" vc-expand-dirs RCS append "-q" "-r" vc-switches diff] 16 (#$ . 13890)])
#@57 Return the administrative directory of FILE.
(fn FILE)
(defalias 'vc-rcs-find-admin-dir #[257 "\300\301\"\207" [vc-find-root "RCS"] 4 (#$ . 14262)])
#@77 Return a string with all log entries stored in BACKEND for FILE.
(fn FILE)
(defalias 'vc-rcs-comment-history #[257 "r\300q\210\301\302!\303C#\210\304db\210\305y\210\306\307!\203( \310\311\225\311\224Z!\210\305y\210\202 eb\210\306\312!\2039 \310\311\225\311\224Z!\210eb\210\313\314\315#\210e`|\210\313\314\315#\203W \311\224\311\225|\210\202F \210\316 )\207" ["*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] 6 (#$ . 14419)])
#@140 Annotate FILE, inserting the results in BUFFER.
Optional arg REVISION is a revision to annotate from.
(fn FILE BUFFER &optional REVISION)
(defalias 'vc-rcs-annotate-command #[770 "\300!\210\301\302!r\211q\210\303\304\305\306\307!\310\"\311$\216\312\313!!\210\314 *\262\315\236A\316\317\236A\236A\320\"AC\321\211\211\211\211\211C\n\204C \262 \320 \n\"\204R \322\323\f\"\210\n\321\211\324!\262\324!\211\262\203\213 \325\320\"A\236A\262\324@!\230\204 \211A\262\202o @BB\262\202V \266 q\210\326\242\236Ac\210\327 \240\210\330\242\236A\211\262\n\203R\331\230\204R\204\310 \203\300 @@\202\302 \242\230\205\315 \211\"\262\320\n\f\"A\240\210\332\242\236A\211\203N\211@eb\210\211A\262\242Sy\210`\262 \211A\262\242\211\333=\203(\334\n@y\210`\"\262 \203 \335\n\336\n#BB\262 `|\210\202F\211\337=\203F@\262 \203B GBB\262c\210\210A\266\202\202\340 \210\202\232 \340ed\336\f\"$\210\211\203\203\211@\211A\262\242b\210\211;\203x\211c\210\202|\341!\210A\266\202\202_\210\203\211A\262\242A\240\210\320\242\f\"A\240\210\321\262\332\242\236A\211\203\363\211@eb\210\211A\262\242Sy\210\211A\262\242\211\333=\203\317`@y\210`|\210\202\353\211\337=\203\353\335@\336 \206\350 \"\211\262 #c\210\210A\266\202\202\246\210\203\376@@\202 \242\230?\330\n\242\236A\240\210\204\222\202\204\266 \342\343\344\"\345 \304\346\321\211\211db\210o\204_\347y\210\350`\336\"\262\351\"\204#\311H\262\205E\211\230\262\352\211\304HGG\\\211\262 #\210]\262\202#\353\354\"\303\355\356\306\307!\357\"\360\361%\362\363\203\212\303\364\365\306\307#\366\"\367\370%\202\233\303\364\371\306\307#\372\"\373\370% \"\266m?\205\265\351\350`\336\"\"c\210\374y\210\202\240\207" [vc-setup-buffer generate-new-buffer " *temp*" make-byte-code 0 "\301\300!\205 \302\300!\207" vconcat vector [buffer-name kill-buffer] 2 insert-file-contents vc-rcs-registered vc-rcs-parse revisions head headers assoc nil error "No such revision: %s" vc-branch-part branches text #[514 "\300\242\301\242\236A\302\242\236A#\207" [vector date author] 7 "\n\n(fn META PRE)"] 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 t -1 get-text-property gethash puthash make-string 32 257 "\301\300\"\207" [substring-no-properties] 4 "\n\n(fn W)" #[385 "\300\301\302\303\304\305H\"\306\307H%\310\311\312%\207" [propertize apply concat format-time-string "%Y-%m-%d" 1 " " 0 :vc-annotate-prefix t :vc-rcs-r/d/a] 9 "\n\n(fn RDA &rest LS)"] maphash 514 "\303\302\301!\304#\300#\207" [puthash ": "] 8 "\n\n(fn RDA W)" "\303\302\304\301!\304\305H\306&\300#\207" [puthash " " 2 ": "] 11 1] 23 (#$ . 15045)])
#@96 Return the current time, based at midnight of the current day, and
encoded as fractional days.
(defalias 'vc-rcs-annotate-current-time #[0 "\300\301\302\303\211\211\304\305 \233%!\207" [vc-annotate-convert-time apply encode-time 0 3 decode-time] 8 (#$ . 17874)])
#@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 #[0 "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 (#$ . 18144)])
(defalias 'vc-rcs-annotate-extract-revision-at-line #[0 "\300`\301\"\302H\207" [get-text-property :vc-rcs-r/d/a 0] 3])
(autoload 'vc-tag-precondition "vc")
(defalias 'vc-rcs-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 "RCS 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\302\303\304\305!\306\300\307Q%\207" vconcat vector [vc-do-command "*vc*" 0 "rcs" vc-master-name "-n" ":"] 9 "\n\n(fn F)"] 12 "\n\n(fn DIR NAME BRANCHP)"])
#@55 Return t if REV is a revision on the trunk.
(fn REV)
(defalias 'vc-rcs-trunk-p #[257 "\300\301\"\302=?\207" [string-match "\\`[0-9]+\\.[0-9]+\\'" nil] 4 (#$ . 19085)])
#@70 Return the minor revision number of a revision number REV.
(fn REV)
(defalias 'vc-rcs-minor-part #[257 "\300\301\"\210\211\302\224\302\225O\207" [string-match "[0-9]+\\'" 0] 4 (#$ . 19261)])
#@218 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.
(fn FILE REV)
(defalias 'vc-rcs-previous-revision #[514 "\300!\301\302!!\205& \211\303V\203 \304\305S!Q\202& \306!?\205& \300!\207" [vc-branch-part string-to-number vc-rcs-minor-part 1 "." number-to-string vc-rcs-trunk-p] 8 (#$ . 19461)])
#@214 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.
(fn FILE REV)
(defalias 'vc-rcs-next-revision #[514 "\211\300!\230?\205 \301!\302\303!!\304\305T!Q\266\202\207" [vc-working-revision vc-branch-part string-to-number vc-rcs-minor-part "." number-to-string] 8 (#$ . 19918)])
#@63 Path to the `rcs2log' program (normally in `exec-directory').
(defvar vc-rcs-rcs2log-program (byte-code "\302\303\304\305\"\211\262!\203 \211\202\" \303\304\306 \"\211\262!\203! \211\202\" \305\207" [exec-directory source-directory nil file-executable-p expand-file-name "rcs2log" "lib-src/rcs2log"] 5) (#$ . 20351))
(autoload 'vc-buffer-sync "vc-dispatcher")
#@106 Default implementation of update-changelog.
Uses `rcs2log' which only works for RCS and CVS.
(fn FILES)
(defalias 'vc-rcs-update-changelog #[257 "\306 \307\310\311 \206 \n\"! \206 \312\313\314\315 !\"\f\206- \316 \206- \303 \206- \312\313\314\315 !\"
\2063 2\317!\210\320 \210\321 \210\322 \210eb\210\323 \210\324\325!\210\324\326\327\330\331\332\333 \"\334\"\335$\216\336\3373\340\341\nD\340\342
\343
\344\344\260\345\327\346\347\332\333!\350\"\351\352%\"&\n\330=\203\222 \353\202\241 \354\355\356!!\210\357 \210\360!\210\361)\"\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" make-byte-code 0 "\303\300!\304\301!\207" vconcat vector [default-directory file-name-directory delete-file] 2 apply call-process nil t "-c" "-u" " " mapcar 257 "\301\302\300\"!\207" [file-relative-name expand-file-name] 5 "\n\n(fn F)" "done" pop-to-buffer get-buffer-create "*vc*" erase-buffer insert-file-contents "failed" user-mail-address vc-rcs-rcs2log-program] 26 (#$ . 20722)])
#@50 Check if the current file has any headers in it.
(defalias 'vc-rcs-check-headers #[0 "\212eb\210\300\301\302\303#)\207" [re-search-forward "\\$[A-Za-z\300-\326\330-\366\370-\377]+\\(: [ -#%-~\240-\377]*\\)?\\$" nil t] 4 (#$ . 22085)])
#@31 Clear RCS header value parts.
(defalias 'vc-rcs-clear-headers #[0 "\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 (#$ . 22327)])
(autoload 'vc-rename-master "vc-filewise")
(defalias 'vc-rcs-rename-file #[514 "\301\302!#\207" [vc-rcs-master-templates vc-rename-master vc-master-name] 6 "\n\n(fn OLD NEW)"])
(defalias 'vc-rcs-find-file-hook #[0 "\302\303\";\205 \304\211\207" [buffer-file-name buffer-read-only vc-state RCS t] 3])
#@146 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.
(fn FILE)
(defalias 'vc-rcs-workfile-is-newer #[257 "\300\301!8\300\301\302!!8@@V\206# @@U\205# A@A@V\207" [5 file-attributes vc-master-name] 6 (#$ . 22954)])
#@51 Find most recent revision on BRANCH.
(fn BRANCH)
(defalias 'vc-rcs-find-most-recent-rev #[257 "eb\210\300\301\302\303\304!\305Q\301\306#\203) \307\310\311!!W\203% \211\262\310\312!\262\210\202 \211\2060 \313!\207" [-1 nil re-search-forward "^\\(" regexp-quote "\\.\\([0-9]+\\)\\)\ndate[ ]+[0-9.]+;" t string-to-number match-string 2 1 vc-branch-part] 7 (#$ . 23262)])
#@357 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.
(fn FILE &optional WORKING-REVISION)
(defalias 'vc-rcs-fetch-master-state #[513 "\302!\205(\303!\205(\304\305!r\211q\210\306\307\310\311\312!\313\"\314$\216\315\303!\316\"\2031 eb\210\317\320!\2048 \321\322\303!\"\210\323\324\325eb\210\326 \323\327#\205K \330!*\331\332#\210\204\237 \211\203` \211\333\230\203{ \334\325eb\210\326 \323\327#\205r \330!*\262\327\262\202\230 \335\336\"\203\210 \211\262\202\230 \315\303!\337\"\210\340!\262\327\262\331\341#\210eb\210\331\342\326\343\323\327#\203\261 \344\202\262 \345#\210eb\210\346\347!\350Q\325eb\210\326 \323\327#\205\316 \330!*\211\204\350 \204\340 \351\"\203\344 \352\202!\353\202!\211;\203\211\354!\230\203\355\342\"\344=\204
\204
\351\"\203\356\202!\357\202!\211;\203 \211\202!\321\360!\262\266\202*\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 "^[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"] 12 (#$ . 23646)])
#@243 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
(fn FILE)
(defalias 'vc-rcs-consult-headers #[257 "\300!\204 \301\207\301\211r\300!q\210\212eb\210\302\303\301\304#\203\" \305\306!\2043 eb\210\302\307\301\304#\203^ \305\306!\203^ \310\225b\210\311\312!\262\305\313!\203\227 \310\225b\210\305\314!\203R \315\262\202\227 \305\316!\203\227 \315\262\202\227 \317\320\301\304#\203\227 \311\312!\262eb\210\317\321\301\304#\203\224 \305\322!\203\202 \315\262\202\227 \305\323!\203\216 \315\262\202\227 \315\262\202\227 \324\262*\203\242 \325\326#\210\207" [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:]+\\)? [^ ]+ [^ ]+ " "\\$" rev-and-lock "\\([^ ]+\\) \\$" re-search-forward "\\$Revision: \\([0-9.]+\\) \\$" "\\$Locker:" " \\([^ ]+\\) \\$" " *\\$" rev vc-file-setprop vc-working-revision] 7 (#$ . 25582)])
#@537 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).
(fn R1 R2)
(defalias 'vc-release-greater-or-equal #[514 "\300\211\211\211\3012\207 \302\303\"\203s \304\225\211\262\203s \305\306\307\"!\211\262\203s \302\303\"\203s \304\225\211\262\203s \305\306\307\"!\211\262\203s V\203O \310\301\311\"\202k W\203\\ \310\301\300\"\202k \310\301\312\300O\300O\"\"\203s \310\301\311\"\210\302\303\"\203\202 \310\301\300\"\206\206 \310\301\311\"0\207" [nil done string-match "^\\.?\\([0-9]+\\)" 0 string-to-number match-string 1 throw t vc-release-greater-or-equal] 13 (#$ . 26747)])
#@54 Return t if we have RELEASE or better.
(fn RELEASE)
(defalias 'vc-rcs-release-p #[257 "\300 \211\205 \211\301=?\205 \302\"\207" [vc-rcs-system-release unknown vc-release-greater-or-equal] 5 (#$ . 27819)])
#@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 #[0 "\206/ \303\304\305\306\305\307%\310U\203, r\311\304!q\210\312\313eb\210\314\n\305\315#\205( \316 !+\206- \317\211\207" [vc-rcs-release i pattern vc-do-command "*vc*" nil "rcs" "-V" 0 get-buffer "^RCS version \\([0-9.]+ *.*\\)" 1 re-search-forward t match-string unknown] 6 (#$ . 28036)])
(defalias 'vc-rcs-set-non-strict-locking #[257 "\300\301\302\303\304%\210\305\306\307#\210\310\311\312!\313\"\"\207" [vc-do-command "*vc*" 0 "rcs" "-U" vc-file-setprop vc-checkout-model implicit set-file-modes logior file-modes 128] 7 "\n\n(fn FILE)"])
(defalias 'vc-rcs-set-default-branch #[514 "\300\301\302\303\304!\305P%\210\306\307#\207" [vc-do-command "*vc*" 0 "rcs" vc-master-name "-b" vc-file-setprop vc-rcs-default-branch] 9 "\n\n(fn FILE BRANCH)"])
#@1930 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.
(fn &optional BUFFER)
(defalias 'vc-rcs-parse #[256 "\211C\211\300\242\206\n p!\240\210\211\242q\210\301\211C\301\211C\301C\301C\301C\301C\302\303\304\305\306\307\310\311\n\n\"\312\"\313$\305\306\314\310\311 #\315\"\316$\305\317\320\310\311&\321\"\322\323%\305\324\325\310\311\"\326\"\327\330%\331\305\306\332\310\311$\326\"\316$\333\212eb\210\334\240\210\335\211\336#\210 \337\"\203\236 \211\337#\210\211\340#\210\211\341\305\306\342\310\311\"\343\"\327$$\210\211\344#\266\345\n\345\"\205\326 \346\347!\210\350B\242B\240\210\351\"\203\372 \351$\242B\240\210\346\347!\210\352\"\203\352$\242B\240\210\346\347!\210\211\242\237\240\210 \210\353\240\210\354\355!\203m \356\305\306\357\310\311\"\360\"\327$\"\361\362\363\"\364\305\306\365\310\311\"\366\"\316$\"\367!D\"BBB\262 \210\202'\237\262 \210\370\240\210\211\370$\262\301\211\211\211\211\211C\301C\305\371\372\310\311#\373\"\374\375% \203\257m\204\257 \240\210\376\242\"\206\302\377\201@ \242\"\211\262\203\257\f\201A $\211AB\241\266\f\201B \350%\211AB\241\266\242\336\242\236A\230\203A@ \242\242\242#\241\210\202\237\242\203+\242\237\240\210\240\210\2021\201C \240\210\242b\210\301\262`\242W\203\233\201D u\210`Sf\262\201E p!\262\201E p!\262\201D u\210\201F =\203o\201G E\202\223\201H =\203\211T\201I \242`y\210`\"E\202\223\377\201J \242#B\262\2029\242Tb\210A\201K B\240\210\202\237\266)\334\242BB\201L BD\262\262\262\262\262\262\262\262\262\262\266\210\207" [get-buffer nil #[0 "\300\301w\207" [" \n" nil] 2] #[514 "\212\211\300\242!)=\207" [read] 5 "\n\n(fn BUFFER TAG)"] #[0 "\300`\301y\210`S\"\207" [buffer-substring-no-properties 1] 3] make-byte-code 0 "\300`\240\210\301\302\303!\210`S\240\207" vconcat vector [search-forward ";"] 3 "\302\303\240\210\300\304\305!\210`\240\210\301\304\305!\203. \303f\306U\203. \302`\302\242B\240\210\307u\210\302`\302\242B\240\210\202
`S\240\207" [nil search-forward "@" 64 1] 4 770 "\302\306\300\242!\240=\204 \307\310\301\242#\210\305 \210 \210\302\242\203# \202) \311\303\242\304\242\"B\207" [read error "Missing `%s' while parsing %s" buffer-substring-no-properties] 7 "\n\n(fn SET-B+E NAME &optional PROC)" 513 "\301\300#\207" #1=[] 6 "\n\n(fn NAME &optional PROC)" #[771 "\300C\"B\301\203 \302A@@\"B\262AA\262\202 \303\304\"\207" [append nil buffer-substring-no-properties apply concat] 8 "\n\n(fn B E @-HOLES)"] "\303\300\242\301\242\302\242#\207" #[1284 "\203 \300\202\f #\207" [#[0 "\300\207" [t] 1]] 9 "\n\n(fn --CL-TO-ONE@-- --CL-TOK+VAL-- --CL-GATHER1-- NAME &optional LATER)"] headers #[1027 "\"\242B\240\207" #1# 8 "\n\n(fn HEADERS --CL-K-SEMI-- NAME &optional PROC)"] head branch access symbols "\302\303\304\305\300\242\301\242\"!\"\207" [mapcar #[257 "\300\301\"\211\302@!\240\210\211A@\241\210\211\207" [split-string ":" intern] 5 "\n\n(fn TOGETHER)"] split-string buffer-substring-no-properties] locks strict search-forward ";" t comment expand rev-headers looking-at "[0-9]" date "\302\303\304\305\300\242\301\242\"\306\"\"\211@\307W\203 \211\310@\\\240\210\311\312\237\"\207" [mapcar string-to-number split-string buffer-substring-no-properties "\\." 100 1900 apply encode-time] append mapcar (author state) branches "\302\303\300\242\301\242\"!\207" [split-string buffer-substring-no-properties] next desc 514 "\303\301\242\203- \301\242@W\203- \301\242\301\211\242A\240\210\242B\262\301\242\301\211\242A\240\210\242B\262\202 \301\242\2046 \302\304\240\210\300#\207" [nil buffer-substring-no-properties] 9 "\n\n(fn BEG END)" 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] 35 (#$ . 29147)])
(provide 'vc-rcs)
Kontol Shell Bypass