WWWWWW

Current Directory: /usr/share/emacs/24.3/lisp/cedet/srecode
Viewing File: /usr/share/emacs/24.3/lisp/cedet/srecode/extract.elc
;ELC
;;; Compiled by mockbuild@buildfarm01-new.corp.cloudlinux.com on Tue Nov 11 12:57:45 2025
;;; from file /builddir/build/BUILD/emacs-24.3/lisp/cedet/srecode/extract.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!\210\300\302!\210\300\303!\210\304\305\306\307\310$\210\311\312\313\312\314\"\"\210\315\312\306\305\316$\210\311\317\313\317\320\"\"\210\315\317\306\305\321$\210\311\322\313\322\323\"\"\210\315\322\306\305\324$\207" [require srecode srecode/compile srecode/insert eieio-defclass srecode-extract-state nil ((anchor :initform nil :documentation "The last known plain-text end location.") (lastinserter :initform nil :documentation "The last inserter with 'later extraction type.") (lastdict :initform nil :documentation "The dictionary associated with lastinserter.")) ("The current extraction state.") eieio--defalias srecode-extract-state-set eieio--defgeneric-init-form #1="Set onto the extract state ST a new inserter INS and dictionary DICT." eieio--defmethod #[(st ins dict) "\303\304	#\210\303\305\n#\207" [st ins dict eieio-oset lastinserter lastdict] 4 #1#] srecode-extract-state-set-anchor #2="Reset the anchor point on extract state ST." #[(st) "\301\302`#\207" [st eieio-oset anchor] 4 #2#] srecode-extract-state-extract #3="Perform an extraction on the extract state ST with ENDPOINT.\nIf there was no waiting inserter, do nothing." #[(st endpoint) "\303\304\"\205#\305 \306\216\307\303\304\"\303\310\"\n\303\311\"%\210*\312\313\211#\207" [st save-match-data-internal endpoint eieio-oref lastinserter match-data ((byte-code "\301\302\"\207" [save-match-data-internal set-match-data evaporate] 3)) srecode-inserter-extract anchor lastdict srecode-extract-state-set nil] 7 #3#]] 5)
#@189 Extract TEMPLATE from between START and END in the current buffer.
Uses TEMPLATE's constant strings to break up the text and guess what
the dictionary entries were for that block of text.
(defalias 'srecode-extract #[(template start end) "\212\214	}\210\305\306!\307\310!b\210\311\f\n#\210,\207" [start end state dict template srecode-create-dictionary t srecode-extract-state "state" srecode-extract-method] 4 (#$ . 2089)])
(byte-code "\300\301\302\301\303\"\"\210\304\301\305\306\307$\207" [eieio--defalias srecode-extract-method eieio--defgeneric-init-form #1="Extract template ST and store extracted text in DICTIONARY.\nOptional STARTRETURN is a symbol in which the start of the first\nplain-text match occurred." eieio--defmethod nil srecode-template #[(st dictionary state) "\303\304\305\"	\n#\207" [st dictionary state srecode-extract-code-stream eieio-oref code] 4 #1#]] 5)
#@155 Extract CODE from buffer text into DICTIONARY.
Uses string constants in CODE to split up the buffer.
Uses STATE to maintain the current extraction state.
(defalias 'srecode-extract-code-stream #[(code dictionary state) "\205[@;\203*\303	!\210\304\305@!d\306#\204\307\310!\210\311	\312\224\"\210\312\225b\210\202S\313@!\314=\203=\315	@\n#\210\202S\313@!\316=\203S\303	!\210\317@`\320\n	%\210A\211\204\320\207" [code state dictionary srecode-extract-state-set-anchor re-search-forward regexp-quote t error "Unable to extract all dictionary entries" srecode-extract-state-extract 0 srecode-inserter-do-extract-p later srecode-extract-state-set now srecode-inserter-extract nil] 7 (#$ . 2986)])
(byte-code "\300\301\302\301\303\"\"\210\304\301\305\306\307$\210\300\310\302\310\311\"\"\210\304\310\305\306\312$\210\300\301\302\301\303\"\"\210\304\301\305\313\314$\210\300\310\302\310\315\"\"\210\304\310\305\313\316$\210\300\301\302\301\303\"\"\210\304\301\305\317\320$\210\300\310\302\310\321\"\"\210\304\310\305\317\322$\210\300\301\302\301\303\"\"\210\304\301\305\323\324$\210\300\310\302\310\325\"\"\210\304\310\305\323\326$\210\327\330!\207" [eieio--defalias srecode-inserter-do-extract-p eieio--defgeneric-init-form #1="Return non-nil if this inserter can extract values." eieio--defmethod nil srecode-template-inserter #[(ins) "\300\207" [nil] 1 #1#] srecode-inserter-extract #2="Extract text from START/END and store in DICT.\nReturn nil as this inserter will extract nothing." #[(ins start end dict state) "\300\207" [nil] 1 #2#] srecode-template-inserter-variable #[(ins) "\300\207" [later] 1 "Return non-nil if this inserter can extract values."] #3="Extract text from START/END and store in VDICT.\nReturn t if something was extracted.\nReturn nil if this inserter doesn't need to extract anything." #[(ins start end vdict state) "\304\305	\306\"\307\n\"#\210\310\207" [vdict ins start end srecode-dictionary-set-value eieio-oref :object-name buffer-substring-no-properties t] 6 #3#] srecode-template-inserter-section-start #[(ins) "\300\207" [now] 1 "Return non-nil if this inserter can extract values."] #4="Extract text from START/END and store in INDICT.\nReturn the starting location of the first plain-text match.\nReturn nil if nothing was extracted." #[(ins start end indict state) "\305\306\"\307	!\310\310\311\312\217\203\nB\307	!\202\313	\f\n\237#\210+\310\207" [ins indict allsubdict subdict name eieio-oref :object-name srecode-create-dictionary nil (byte-code "\303\304\305\"	\n#\210\306\207" [ins subdict state srecode-extract-method eieio-oref template t] 4) ((error)) srecode-dictionary-set-value] 4 #4#] srecode-template-inserter-include #[(ins) "\300\207" [now] 1 "Return non-nil if this inserter can extract values."] #5="Extract text from START/END and store in DICT.\nReturn the starting location of the first plain-text match.\nReturn nil if nothing was extracted." #[(ins start end dict state) "b\210\305	\n\"\210\306	\307\"\310\230\204)\311\n\306	\307\"\"\312\313!\210\314\315\316\217\205'\202)\207\317\306	\320\"\n\f#\207" [start ins dict subdict state srecode-insert-include-lookup eieio-oref :object-name "" srecode-dictionary-add-section-dictionary error "Need to implement include w/ name extractor" nil (byte-code "\303\304\305\"	\n#\210\306\207" [ins subdict state srecode-extract-method eieio-oref includedtemplate t] 4) ((error)) srecode-extract-method includedtemplate] 5 #5#] provide srecode/extract] 5)
F1l3 Manager
