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



(byte-code "\300\301!\210\300\302!\210\303\304\305\306\307DD\310\311\312\313\314&\210\303\315\305\306\316DD\317\311\312\313\320&\207" [require pcvs-util pcvs-info custom-declare-variable cvs-update-prog-output-skip-regexp funcall function #[0 "\300\207" ["$"] 1 #1=""] "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 #[0 "\300\207" [("Executing ssh-askpass to query the password.*$" ".*Remote host denied X11 forwarding.*$")] 1 #1#] "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") (#$ . 1105))
#@575 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.
DCD 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.

(fn PARSE-SPEC DCD &optional SUBDIR)
(defalias 'cvs-parse-buffer #[770 "eb\210\305\306\305\206\f\306m\204R\211\307=\204R\310!\311
!\f>\203-\211B\266\202\202\211:\203D\311
@!\f>\203D\312
\"\266\202\202\211\204N\266\307\202\210\202\211\237,\207" [cvs-current-subdir case-fold-search cvs-current-dir dont-change-disc cl-struct-cvs-fileinfo-tags nil "" t cvs-parse-run-table type-of append] 8 (#$ . 1284)])
(defalias 'cvs-parse-msg #[0 "`S{\207" [cvs-start] 2])
(byte-code "\300\301\302\303#\304\301\305\306#\207" [function-put cvs-parse-msg speed -1 put byte-optimizer byte-compile-inline-expand] 5)
#@196 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').

(fn RE &rest MATCHES)
(defalias 'cvs-match '(macro . #[385 "\300\301\302\"BB\207" [cvs-do-match mapcar #[257 "\300\301@DA@E\207" [cons quote] 4 "\n\n(fn MATCH)"]] 7 (#$ . 2451)]))
#@114 Internal function for the `cvs-match' macro.
Match RE and if successful, execute MATCHES.

(fn RE &rest MATCHES)
(defalias 'cvs-do-match #[385 "\300!\205;\301\225b\210l\203`dW\203\302u\210\211\211\2038\211@\211A
@
\250\203-\303!\202.
L\266
A\266\202\202\304\262
\207" [looking-at 0 nil match-string t] 8 (#$ . 2815)])
#@75 Try each one of the ALTS alternatives until one matches.

(fn &rest ALTS)
(defalias 'cvs-or '(macro . #[128 "\300\301\302\303\304\"BE\207" [let ((-cvs-parse-point (point))) or mapcar #[257 "\300
\301BB\207" [or ((ignore (goto-char -cvs-parse-point)))] 4 "\n\n(fn ES)"]] 7 (#$ . 3152)]))
(put 'cvs-or 'edebug-form-spec t)
#@72 Run PARSE-SPEC and provide sensible default behavior.

(fn PARSE-SPEC)
(defalias 'cvs-parse-run-table #[257 "n\204\303y\210``
 \206Q\211b\210\30422	\211\205/\211@\305
!\203(\306\304\307\"\210
A\266\202\202\262
0\206Q\211b\210\305\310!\203M\311\312\n\313`S{\314\315&\206Q\211b\210\316\262
)\207" [cvs-start cvs-parse-ignored-messages cvs-current-dir 1 --cl-block-nil-- cvs-do-match throw t ".*$" cvs-create-fileinfo MESSAGE " " :subtype ERROR nil] 9 (#$ . 3480)])
#@722 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'.

(fn TYPE PATH &optional DIRECTORY &rest KEYS)
(defalias 'cvs-parsed-fileinfo #[898 "
;\204\303!\206\205\304\262\305!\262
:\203#@\202$:\205-A\2033\306\307	\206=P\n`S{\310\f&\207" [cvs-current-dir cvs-current-subdir cvs-start file-name-directory "" file-name-nondirectory apply cvs-create-fileinfo :subtype] 17 (#$ . 3964)])
#@51 Table of message objects for `cvs-parse-process'.
(defalias 'cvs-parse-table #[0 "\306\211\211\211\211\211`\307 \206\304\211b\210\310 \206\304\211b\210\311 \206\304\211b\210\312\313\305\314B\302\315B#\203\256
\316H\317
\320\267\202\245\321\202\246\322\202\246\323\202\246\324\202\246@\204T\325\202\246\326\327\330\"r\211q\210\331\332\"\216\3331m\334\n!0\210\202r\210\202r\210eb\210\335\336\306\330#\203\201\325\202\202\337*\262
\202\246\337\202\246@\203\225\340\202\246\341\342=\203\240\343\202\241\344B\202\246\306\n\345#\262
\206\304\211b\210\312\346\303\314B\"\203\301\211A\206\304\211b\210\330B\312\347!)\203\241`\312\350\303\315B\"\203\357\351\230\203\342\352\202\345\353!\317\354\351#)\206\234\211b\210\312\355\303\314B\"\203K
\35618
\326\327\330\"r\211q\210\331\357\"\216\3601
\334\361\362\363!\"!0\210\202\"
\210\202\"
\210eb\210\335\364\365\366!!\367Q\306\330#*\262
0\202<
\210\202C
\203C
\330\202\234\317\370\330#\206\234\211b\210`\312\371\304\314B\"\206\200
\211b\210\312\372\304\314B\"\206\200
\211b\210\312\373\304\314B\"\206\200
\211b\210\312\374\304\314B\"\206\200
\211b\210\306\262
\203\225
\317@\203\217
\375\202\220
\376\f\"\206\234\211b\210`\312\377\302\314B\"\206\264
\211b\210\312\201E\302\314B\"\206\264
\211b\210\306\262
\203\300
\317\322\n\"\206\234\211b\210\312\201F\302\314B\301\315B#\203\337
\317\201G\n\306\201H	%\206\234\211b\210\312\201I\302\314B\"\203\364
\317\376\n\"\206\234\211b\210\312\201J\304\314B\"\203	\317\323\f\"\206\234\211b\210\312\201K\302\314B\"\203:\312\201L\365\n!\201MQ!\203:\317@\2032\201N\2025\201O\n\"\206\234\211b\210\312\201P!\203\224`\312\201Q\302\314B\300\323B#\206z\211b\210\312\201R\302\314B\300\322B#\206z\211b\210\312\201S\302\314B\300\321B#\206z\211b\210\306\262
\203\224\312\201T\365\n!P!\203\224\317\325B\n\"\206\234\211b\210`\312\201U\304\314B\"\206\303\211b\210\312\201V\304\314B\"\206\303\211b\210\312\201W\304\314B\"\206\303\211b\210\306\262
\203\321\317\201X\f\"\206\234\211b\210\312\201Y\302\314B\"\203\346\317\324\n\"\206\234\211b\210\312\201Z\304\314B\"\203\373\317\337\f\"\206\234\211b\210\312\201[!\203#C\204#\330\211C\203#\201\\\201X\352\201]\201^$\206\234\211b\210\312\201_!\206\234\211b\210\312\201`!\206\234\211b\210\312\201a!\206\234\211b\210\312\201b\302\314B\"\203Z\317\376\n\345#\206\234\211b\210\312\201c!\206\234\211b\210\312\201d!\206\234\211b\210\312\201e!\206\234\211b\210\312\201f!\206\234\211b\210\312\201g!\203\230\335D!\206\234\211b\210\306\262
\206\304\211b\210\312\201h!\203\265\317\201X\352\"\206\304\211b\210\312\201i!\206\304\211b\210\306\262
.\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 #s(hash-table size 8 test eq rehash-size 1.5 rehash-threshold 0.8125 purecopy t data (77 59 65 63 82 67 63 71 67 75 74 136 80 140 85 140)) MODIFIED ADDED REMOVED UNKNOWN CONFLICT generate-new-buffer " *temp*" t make-closure #[0 "\301\300!\205	\302\300!\207" [V0 buffer-name kill-buffer] 2] (error) insert-file-contents re-search-forward "^<<<<<<< " NEED-MERGE 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) #[0 "\301\300!\205	\302\300!\207" [V0 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$" "`\\(.*\\)' is no longer in the repository$" "\\(.*\\) is no longer in the repository$" (NEED-UPDATE . REMOVED) DEAD "scheduling file `\\(.*\\)' for addition.*$" dont-change-disc cvs-current-subdir case-fold-search cvs-execute-single-dir cvs-update-prog-output-skip-regexp "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$"] 8 (#$ . 5005)])
(defalias 'cvs-parse-merge #[0 "\305\211\211\211\306\307!\205\331\306\310\302\311B\"\205\331\306\310\301\311B\"\205\331\306\312\303\311B\"\205\331`\306\313\300\314B\"\2067\211b\210\315\262
\205\331`\306\316!\203n`\306\317\303\311B\300\314B#\206i\211b\210\306\320!\206i\211b\210\306\321\303\311B\"\206i\211b\210\305\262
\206r\211b\210\315\262
\205\331\322!`\306\323\324Q\303\311B\300\314B#\203\235`\306\325\324Q!\206\230\211b\210\315\262
\204\301\211b\210\306\326\324Q\303\311B\"\204\301\211b\210\306\327\330Q\303\311B\300\331B#\204\301\211b\210\210\332\f\203\313\333\202\320\206\320\334\305\335\n	B%\262
,\207" [type head-rev base-rev path dont-change-disc 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] 8])
(defalias 'cvs-parse-status #[0 "\305\211\211\211\211\306\307!\205m
\306\310\304\311B\303\312B#\205m
`\306\313\300\f\203(\314\202)\315B\"\206\246\211b\210\306\316\300\f\203<\317\202=\320B\"\206\246\211b\210\306\321\300\322B\"\206\246\211b\210\306\323\300\324B\"\206\246\211b\210\306\325\300\326B\"\206\246\211b\210\306\327\300\330B\"\206\246\211b\210\306\331\300\322B\"\206\246\211b\210\306\332\300\333B\"\206\246\211b\210\306\334\300\335B\"\206\246\211b\210\306\336\300\337B\"\206\246\211b\210\305\262
\205m
\306\340!\205m
`\306\341\302\311B\"\206\324\211b\210\306\342\302\311B\"\206\324\211b\210\306\343!\206\324\211b\210\305\262
\205m
`\306\344\301\311B\"\206\374\211b\210\306\345\301\311B\"\206\374\211b\210\306\346!\206\374\211b\210\305\262
\205m
`\306\347!\206\f
\211b\210\350\262
\205m
`\306\351!\206
\211b\210\350\262
\205m
`\306\352!\2034
\306\353!\2034
\306\354!\2068
\211b\210\350\262
\205m
`\306\355!\206H
\211b\210\350\262
\205m
\306\340!\205m
`\306\356!\206^
\211b\210\350\262
\205m
\357\305\360\n\361	&-\207" [type head-rev base-rev path nofile 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 #[0 "\304\211\211\211``\305\306\303\307B\"\206\211b\210\310\262
\203\203\305\311\302\312B\"\203\203`\305\313\300\314B\301\312B#\206T\211b\210\305\315\300\316B\301\312B#\206T\211b\210\305\317\300\320B\301\312B#\206T\211b\210\304\262
\203\203`\305\321!\206d\211b\210\310\262
\203\203\322\323\206p\n!!\210\324\325B\206|\n\326\327	%\206\220\211b\210\305\330!\206\220\211b\210\304\262
,\207" [subtype base-rev file path 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$"] 7])
(provide 'pcvs-parse)