HOME

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

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

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

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


(byte-code "\300\301!\210\300\302!\210\303\304\305\306\307\310\311\312&\210\303\313\314\315\307\310\311\316&\207" [require pcvs-util pcvs-info custom-declare-variable cvs-update-prog-output-skip-regexp "$" "A regexp that matches the end of the output from all cvs update programs.\nThat is, output from any programs that are run by CVS (by the flag -u\nin the `modules' file - see cvs(5)) when `cvs update' is performed should\nterminate with a line that this regexp matches.  It is enough that\nsome part of the line is matched.\n\nThe default (a single $) fits programs without output." :group pcl-cvs :type (regexp :value "$") cvs-parse-ignored-messages '("Executing ssh-askpass to query the password.*$" ".*Remote host denied X11 forwarding.*$") "A list of regexps matching messages that should be ignored by the parser.\nEach regexp should match a whole set of lines and should hence be terminated\nby `$'." (repeat regexp)] 8)
#@64 List of CVS commands whose output is understood by the parser.
(defconst cvs-parse-known-commands '("status" "add" "commit" "update" "remove" "checkout" "ci") (#$ . 1343))
#@550 Parse current buffer according to PARSE-SPEC.
PARSE-SPEC is a function of no argument advancing the point and returning
  either a fileinfo or t (if the matched text should be ignored) or
  nil if it didn't match anything.
DONT-CHANGE-DISC just indicates whether the command was changing the disc
  or not (useful to tell the difference between `cvs-examine' and `cvs-update'
  output.
The path names should be interpreted as relative to SUBDIR (defaults
  to the `default-directory').
Return a list of collected entries, or t if an error occurred.
(defalias 'cvs-parse-buffer #[(parse-spec dont-change-disc &optional subdir) "eb\210\306\307\306\206\307m\204U\f\310=\204U\311
!\f\312\f!
>\2030\f\fB\202Q\f:\203J\312\f@!
>\203J\313\f\f\"\202Q\f\204Q\310)\202\f\237,\207" [subdir cvs-current-subdir case-fold-search cvs-current-dir fileinfos parse-spec nil "" t cvs-parse-run-table type-of append ret cl-struct-cvs-fileinfo-tags] 4 (#$ . 1522)])
(defalias 'cvs-parse-msg #[nil "`S{\207" [cvs-start] 2])
(put 'cvs-parse-msg 'byte-optimizer 'byte-compile-inline-expand)
#@173 Try to match RE and extract submatches.
If RE matches, advance the point until the line after the match and
then assign the variables as specified in MATCHES (via `setq').
(defalias 'cvs-match '(macro . #[(re &rest matches) "\302\303\304	\"BB\207" [re matches cvs-do-match mapcar #[(match) "\301\302@DA@E\207" [match cons quote] 3]] 5 (#$ . 2625)]))
#@91 Internal function for the `cvs-match' macro.
Match RE and if successful, execute MATCHES.
(defalias 'cvs-do-match #[(re &rest matches) "\305!\205A\306\225b\210l\203`dW\203\307u\210	\307\211\203=@\211A\n@\f\250\2032\310\f!\2023\fL\210)A\211\204\307*\311\207" [re matches match --dolist-tail-- val looking-at 0 nil match-string t] 4 (#$ . 2984)])
#@58 Try each one of the ALTS alternatives until one matches.
(defalias 'cvs-or '(macro . #[(&rest alts) "\301\302\303\304\305\"BE\207" [alts let ((-cvs-parse-point (point))) or mapcar #[(es) "\301\302BB\207" [es or ((ignore (goto-char -cvs-parse-point)))] 3]] 6 (#$ . 3354)]))
(put 'cvs-or 'edebug-form-spec t)
#@55 Run PARSE-SPEC and provide sensible default behavior.
(defalias 'cvs-parse-run-table #[(parse-spec) "n\204\306y\210``\n \206_\307	b\210\206_\3102;\307\211\2059
@\311\f!\2031\312\310\313\"\210
A\211\204#\307*0\206_\307	b\210\206_\311\314!\203[\315\316\317`S{\320\321&\206_\307	b\210*\207" [cvs-start -cvs-parse-point parse-spec cvs-parse-ignored-messages re --dolist-tail-- 1 nil --cl-block-nil-- cvs-do-match throw t ".*$" cvs-create-fileinfo MESSAGE " " :subtype ERROR cvs-current-dir] 8 (#$ . 3669)])
#@675 Create a fileinfo.
TYPE can either be a type symbol or a cons of the form (TYPE . SUBTYPE).
PATH is the filename.
DIRECTORY influences the way PATH is interpreted:
- if a string, it denotes the directory in which PATH (which should then be
  a plain file name with no directory component) resides.
- if it's nil, the PATH should not be trusted: if it has a directory
  component, use it, else, assume it is relative to the current directory.
- else, the PATH should be trusted to be relative to the root directory
  (i.e. if there is no directory component, it means the file is inside
  the main directory).
The remaining KEYS are passed directly to `cvs-create-fileinfo'.
(defalias 'cvs-parsed-fileinfo #[(type path &optional directory &rest keys) "	;\204\306	!\206\205\307\310	!\f:\203#\f@\202$\f\f:\205+\fA\2034\f\311\312\f
\206?\fP\n`S{\313
&,\207" [directory path file dir type subtype file-name-directory "" file-name-nondirectory apply cvs-create-fileinfo :subtype cvs-current-dir cvs-current-subdir cvs-start keys] 9 (#$ . 4202)])
#@51 Table of message objects for `cvs-parse-process'.
(defalias 'cvs-parse-table #[nil "\306\211\211\211\211\211`@\307 \206\270\306@b\210\206\270\310 \206\270\306@b\210\206\270\311 \206\270\306@b\210\206\270\312\313\305\314B\302\315B#\203\350
\316HA\317A\320=\203S\321\202\341A\322=\203^\323\202\341A\324=\203i\325\202\341A\326=\203t\327\202\341A\330=\203\264B\204\204\331\202\341\332\333!CrCq\210\334\216\3351\233\336\n!0\202\237\210\202\240\210eb\210\337\340\306\341#\203\257\331\202\260\342+\202\341A\343=\203\277\342\202\341A\344>\203\340B\203\317\345\202\341\346A\347=\203\333\350\202\334\351B\202\341\306\n\352#)\206\270\306@b\210\206\270\312\353\303\314B\"\203\211D\206\270\306@b\210\206\270\341E\312\354!)\203\212`@\312\355\303\315B\"\2035\356\230\203(\357\202+\360!\317\361\356#)\206\206\306@b\210\206\206\312\362\303\314B\"\203\222\3631\332\333!FrFq\210\364\216\3651f\336\366\367\370!\"!0\202j\210\202k\210eb\210\337\371\372\373!!\374Q\306\341#+0\202\203\210\202\212\203\212\341\202\206\317\375\341#\206\206\306@b\210\206\206`@\312\376\304\314B\"\206\342\306@b\210\206\342\312\377\304\314B\"\206\342\306@b\210\206\342\312\201I\304\314B\"\206\342\306@b\210\206\342\312\201J\304\314B\"\206\342\306@b\210)\203\372\317B\203\362\201K\202\365\201L\f\"\206\206\306@b\210\206\206`@\312\201M\302\314B\"\206(\306@b\210\206(\312\201N\302\314B\"\206(\306@b\210)\2033\317\323\n\"\206\206\306@b\210\206\206\312\201O\302\314B\301\315B#\203W\317\201P\n\306\201Q	%\206\206\306@b\210\206\206\312\201R\302\314B\"\203s\317\201L\n\"\206\206\306@b\210\206\206\312\201S\304\314B\"\203\215\317\325\f\"\206\206\306@b\210\206\206\312\201T\302\314B\"\203\303\312\201U\372\n!\201VQ!\203\303\317B\203\273\201W\202\276\201X\n\"\206\206\306@b\210\206\206\312\201Y!\203.`@\312\201Z\302\314B\300\325B#\206\306@b\210\206\312\201[\302\314B\300\323B#\206\306@b\210\206\312\201\\\302\314B\300\321B#\206\306@b\210)\203.\312\201]\372\n!P!\203.\317\331B\n\"\206\206\306@b\210\206\206`@\312\201^\304\314B\"\206o\306@b\210\206o\312\201_\304\314B\"\206o\306@b\210\206o\312\201`\304\314B\"\206o\306@b\210)\203|\317\201a\f\"\206\206\306@b\210\206\206\312\201b\302\314B\"\203\226\317\327\n\"\206\206\306@b\210\206\206\312\201c\304\314B\"\203\260\317\342\f\"\206\206\306@b\210\206\206\312\201d!\203\335G\204\335\341\211G\203\335\201e\201a\357\201f\201g$\206\206\306@b\210\206\206\312\201h!\206\206\306@b\210\206\206\312\201i!\206\206\306@b\210\206\206\312\201j!\206\206\306@b\210\206\206\312\201k\302\314B\"\203*\317\201L\n\352#\206\206\306@b\210\206\206\312\201l!\206\206\306@b\210\206\206\312\201m!\206\206\306@b\210\206\206\312\201n!\206\206\306@b\210\206\206\312\201o!\206\206\306@b\210\206\206\312\201p!\203\201\337H!\206\206\306@b\210)\206\270\306@b\210\206\270\312\201q!\203\243\317\201a\357\"\206\270\306@b\210\206\270\312\201r!\206\270\306@b\210.\207" [subtype base-rev path dir file c nil cvs-parse-status cvs-parse-merge cvs-parse-commit cvs-do-match "\\([MARCUPNJ?]\\) \\(.*\\)$" 1 2 0 cvs-parsed-fileinfo 77 MODIFIED 65 ADDED 82 REMOVED 63 UNKNOWN 67 CONFLICT generate-new-buffer " *temp*" #[nil "\301!\205	\302!\207" [#1=#:temp-buffer buffer-name kill-buffer] 2] (error) insert-file-contents re-search-forward "^<<<<<<< " t NEED-MERGE 74 (80 85) NEED-UPDATE UP-TO-DATE 85 UPDATED PATCHED trust "pcl-cvs: descending directory \\(.*\\)$" "cvs[.a-z]* [a-z]+: " "\\(Examining\\|Updating\\) \\(.*\\)$" "." "" file-name-as-directory DIRCHANGE "New directory `\\(.*\\)' -- ignored$" (error) #[nil "\301!\205	\302!\207" [#2=#:temp-buffer buffer-name kill-buffer] 2] (error) expand-file-name ".cvsignore" file-name-directory "^" regexp-quote file-name-nondirectory "/$" (NEED-UPDATE . NEW-DIR) "warning: `\\(.*\\)' is not (any longer) pertinent$" "warning: \\(.*\\) is not (any longer) pertinent$" -cvs-parse-point code dont-change-disc #1# cvs-current-subdir case-fold-search #2# cvs-execute-single-dir cvs-update-prog-output-skip-regexp "`\\(.*\\)' is no longer in the repository$" "\\(.*\\) is no longer in the repository$" (NEED-UPDATE . REMOVED) DEAD "scheduling file `\\(.*\\)' for addition.*$" "re-adding file \\(.*\\) (in place of .*)$" "`?\\(.*?\\)'?, version \\(.*\\), resurrected$" (UP-TO-DATE . RESURRECTED) :base-rev "removed `\\(.*\\)'$" "scheduling `\\(.*\\)' for removal$" "warning: \\(.*\\) was lost$" "U " "$" MISSING (UP-TO-DATE . UPDATED) "conflict: " "removed \\(.*\\) was modified by second party$" "\\(.*\\) created independently by second party$" "\\(.*\\) is modified but no longer in the repository$" "C " "move away \\(.*\\); it is in the way$" "warning: new-born \\(.*\\) has disappeared$" "sticky tag .* for file `\\(.*\\)' is not a branch$" MESSAGE "use `.+ add' to create an entry for \\(.*\\)$" "Up-to-date check failed for `\\(.+\\)'$" ".* files with '?/'? in their name.*$" cvs-create-fileinfo " " "*** Add (setq cvs-execute-single-dir t) to your .emacs ***\n	See the FAQ file or the variable's documentation for more info." "\\[..:..:..\\] \\(waiting for\\|obtained\\) .*lock in .*$" ".* should be removed and is still there$" "use ['`].+ commit' to \\sw+ th\\sw+ files? permanently$" "nothing known about \\(.*\\)$" "checksum failure after patch to .*; will refetch$" "refetching unpatchable files$" "Rebuilding administrative file database$" "--> Using per-directory sticky tag `.*'" "Executing.*$" "cvs[.ex]* \\[[a-z]+ aborted\\]:.*$" "Directory .* added to the repository$"] 6 (#$ . 5279)])
(defalias 'cvs-parse-merge #[nil "\306\211\211\211\307\310!\205\367\307\311\302\312B\"\205\367\307\311\301\312B\"\205\367\307\313\303\312B\"\205\367`\307\314\300\315B\"\206<\306\fb\210\206<\316)\205\367`\307\317!\203{`\307\320\303\312B\300\315B#\206w\306\fb\210\206w\307\321!\206w\306\fb\210\206w\307\322\303\312B\"\206w\306\fb\210)\206\203\306\fb\210\206\203\316)\205\367\323!`\307\324
\325Q\303\312B\300\315B#\203\263`\307\326
\325Q!\206\257\306\fb\210\206\257\316)\204\337\306\fb\210\204\337\307\327
\325Q\303\312B\"\204\337\306\fb\210\204\337\307\330
\331Q\303\312B\300\332B#\204\337\fb\210)\333\203\352\334\202\357\206\357\335\306\336\n	B%),\207" [type head-rev base-rev path -cvs-parse-point qfile nil cvs-do-match "RCS file: .*$" "retrieving revision \\([0-9.]+\\)$" 1 "Merging differences between [0-9.]+ and [0-9.]+ into \\(.*\\)$" "\\(rcs\\)?merge:?\\( warning\\)?: \\(overlaps\\|conflicts\\) \\(or other problems \\)?during merge$" CONFLICT t "cvs[.ex]* [a-z]+: " "conflicts found in \\(.*\\)$" "could not merge .*$" "restoring \\(.*\\) from backup file .*$" regexp-quote "C \\(.*" "\\)$" "U \\(.*" "M \\(.*" "^\\(.*" "\\) already contains the differences between .*$" (UP-TO-DATE . MERGED) cvs-parsed-fileinfo NEED-MERGE (MODIFIED . MERGED) :merge dont-change-disc] 7])
(defalias 'cvs-parse-status #[nil "\306\211\211\211\211\307\310!\205\265\307\311\304\312B\303\313B#\205\265`\307\314\300\f\203)\315\202*\316B\"\206\313\306
b\210\206\313\307\317\300\f\203A\320\202B\321B\"\206\313\306
b\210\206\313\307\322\300\323B\"\206\313\306
b\210\206\313\307\324\300\325B\"\206\313\306
b\210\206\313\307\326\300\327B\"\206\313\306
b\210\206\313\307\330\300\331B\"\206\313\306
b\210\206\313\307\332\300\323B\"\206\313\306
b\210\206\313\307\333\300\334B\"\206\313\306
b\210\206\313\307\335\300\336B\"\206\313\306
b\210\206\313\307\337\300\340B\"\206\313\306
b\210)\205\265\307\341!\205\265`\307\342\302\312B\"\206\306
b\210\206\307\343\302\312B\"\206\306
b\210\206\307\344!\206\306
b\210)\205\265`\307\345\301\312B\"\2061\306
b\210\2061\307\346\301\312B\"\2061\306
b\210\2061\307\347!\2061\306
b\210)\205\265`\307\350!\206E\306
b\210\206E\351)\205\265`\307\352!\206Y\306
b\210\206Y\351)\205\265`\307\353!\203q\307\354!\203q\307\355!\206y\306
b\210\206y\351)\205\265`\307\356!\206\215\306
b\210\206\215\351)\205\265\307\341!\205\265`\307\357!\206\247\306
b\210\206\247\351)\205\265\360\306\361\n\362	&-\207" [type head-rev base-rev path nofile -cvs-parse-point nil cvs-do-match "===================================================================$" "File: \\(no file \\)?\\(.*[^ 	]\\)[ 	]+Status: " 1 2 "Needs \\(Checkout\\|Patch\\)$" MISSING NEED-UPDATE "Up-to-date$" (UP-TO-DATE . REMOVED) UP-TO-DATE "File had conflicts on merge$" MODIFIED ".*[Cc]onflict.*$" CONFLICT "Locally Added$" ADDED "Locally Removed$" REMOVED "Locally Modified$" "Needs Merge$" NEED-MERGE "Entry Invalid" (NEED-MERGE . REMOVED) ".*$" UNKNOWN "$" " *Version:[ 	]*\\([0-9.]+\\).*$" " *Working revision:[ 	]*-?\\([0-9.]+\\).*$" " *Working revision:.*$" " *RCS Version:[ 	]*\\([0-9.]+\\)[ 	]*.*$" " *Repository revision:[ 	]*\\([0-9.]+\\)[ 	]*\\(.*\\)$" " *Repository revision:.*" " *Expansion option:.*" t " *Commit Identifier:.*" " *Sticky Tag:[ 	]*\\(.*\\)$" " *Sticky Date:[ 	]*\\(.*\\)$" " *Sticky Options:[ 	]*\\(.*\\)$" " *Merge From:.*" " *Existing Tags:\n\\(	.*\n\\)*$" cvs-parsed-fileinfo :base-rev :head-rev] 8])
(defalias 'cvs-parse-commit #[nil "\305\211\211\211``\306\307\303\310B\"\206\305\fb\210\206\311)\203\224\306\312\302\313B\"\203\224`\306\314\300\315B\301\313B#\206b\305\fb\210\206b\306\316\300\317B\301\313B#\206b\305\fb\210\206b\306\320\300\321B\301\313B#\206b\305\fb\210)\203\224`\306\322!\206v\305\fb\210\206v\311)\203\224\323\324\206\201\n!!\210\325\326B\206\215\n\327\330	%\206\245\305\fb\210\206\245\306\331!\206\245\305\fb\210-\207" [subtype base-rev file path -cvs-parse-point nil cvs-do-match "\\(Checking in\\|Removing\\) \\(.*\\);$" 2 t ".*,v  <--  \\(.*\\)$" 1 "new revision: delete; previous revision: \\([0-9.]*\\)$" REMOVED "initial revision: \\([0-9.]*\\)$" ADDED "new revision: \\([0-9.]*\\); previous revision: .*$" COMMITTED "done$" vc-delete-automatic-version-backups expand-file-name cvs-parsed-fileinfo UP-TO-DATE trust :base-rev "RCS file: .*\ndone$"] 6])
(provide 'pcvs-parse)