Current File : //usr/local/share/emacs/27.2/lisp/cedet/srecode/extract.elc
;ELC
;;; Compiled
;;; in Emacs version 27.2
;;; 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!\"\210\304\310\311\307!\"\210\304\312\310\"\210\313\312\314\315#\210\316\307\317\310#\320\307\321\322\323$\207" [require srecode srecode/compile srecode/insert defalias srecode-extract-state-p eieio-make-class-predicate srecode-extract-state srecode-extract-state--eieio-childp eieio-make-child-predicate srecode-extract-state-child-p make-obsolete "use (cl-typep ... \\='srecode-extract-state) instead" "25.1" define-symbol-prop cl-deftype-satisfies eieio-defclass-internal 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.")) (:documentation "The current extraction state.")] 6)
#@60 Create a new object of class type `srecode-extract-state'.
(defalias 'srecode-extract-state #[(&rest slots) "\301\302\303#\207" [slots apply make-instance srecode-extract-state] 4 (#$ . 1270)])
(byte-code "\300\301\302\303#\300\207" [function-put srecode-extract-state compiler-macro srecode-extract-state--anon-cmacro] 4)
(defalias 'srecode-extract-state--anon-cmacro #[(whole &rest slots) "@;\204 \207\302\303\304@ @# @\305@DABB\"\207" [slots whole macroexp--warn-and-return format "Obsolete name arg %S to constructor %S" identity] 5])
(byte-code "\300\301\302\303\302\304%\210\300\305\302\306\302\307%\210\300\310\302\311\302\312%\207" [cl-generic-define-method srecode-extract-state-set nil ((st srecode-extract-state) ins dict) #[(st ins dict) "\303\304 #\210\303\305\n#\207" [st ins dict eieio-oset lastinserter lastdict] 4 "Set onto the extract state ST a new inserter INS and dictionary DICT."] srecode-extract-state-set-anchor ((st srecode-extract-state)) #[(st) "\301\302`#\207" [st eieio-oset anchor] 4 "Reset the anchor point on extract state ST."] srecode-extract-state-extract ((st srecode-extract-state) endpoint) #[(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 #[nil "\301\302\"\207" [save-match-data-internal set-match-data evaporate] 3] srecode-inserter-extract anchor lastdict srecode-extract-state-set nil] 7 "Perform an extraction on the extract state ST with ENDPOINT.\nIf there was no waiting inserter, do nothing."]] 6)
#@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 b\210\310\f \n#\210 ,\207" [start end state dict template srecode-create-dictionary t srecode-extract-state srecode-extract-method] 4 (#$ . 2872)])
(cl-generic-define-method 'srecode-extract-method nil '((st srecode-template) dictionary state) nil #[(st dictionary state) "\303\304\305\" \n#\207" [st dictionary state srecode-extract-code-stream eieio-oref code] 4 "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."])
#@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 %\210A\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 (#$ . 3674)])
(byte-code "\300\301\302\303\302\304%\210\300\305\302\306\302\307%\210\300\301\302\310\302\311%\210\300\305\302\312\302\313%\210\300\301\302\314\302\315%\210\300\305\302\316\302\317%\210\300\301\302\320\302\321%\210\300\305\302\322\302\323%\210\324\325!\207" [cl-generic-define-method srecode-inserter-do-extract-p nil ((ins srecode-template-inserter)) #[(ins) "\300\207" [nil] 1 "Return non-nil if this inserter can extract values."] srecode-inserter-extract ((ins srecode-template-inserter) start end dict state) #[(ins start end dict state) "\300\207" [nil] 1 "Extract text from START/END and store in DICT.\nReturn nil as this inserter will extract nothing."] ((ins srecode-template-inserter-variable)) #[(ins) "\300\207" [later] 1 "Return non-nil if this inserter can extract values."] ((ins srecode-template-inserter-variable) start end vdict state) #[(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 "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 srecode-template-inserter-section-start)) #[(ins) "\300\207" [now] 1 "Return non-nil if this inserter can extract values."] ((ins srecode-template-inserter-section-start) start end indict state) #[(ins start end indict state) "\306\307\"\310 !\311 \3121 \313\306\314\"
#\210\3150\202! \210\202/ \203/ \nB\310 !\202 \316 \f\n\237#\210+\311\207" [ins indict allsubdict subdict name state eieio-oref object-name srecode-create-dictionary nil (error) srecode-extract-method template t srecode-dictionary-set-value] 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 srecode-template-inserter-include)) #[(ins) "\300\207" [now] 1 "Return non-nil if this inserter can extract values."] ((ins srecode-template-inserter-include) start end dict state) #[(ins start end dict state) "b\210\305 \n\"\210\306 \307\"\310\230\204< \311\n\306 \307\"\"\312\313!\210\3141/ \315\306 \316\" \f#\210\3170\2024 \210\320\202: \205: \202 )\207\315\306 \316\"\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" (error) srecode-extract-method includedtemplate t nil] 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."] provide srecode/extract] 6)
Mini Shell