%PDF- %PDF-
Mini Shell

Mini Shell

Direktori : /usr/local/share/emacs/27.2/lisp/cedet/semantic/bovine/
Upload File :
Create Path :
Current File : //usr/local/share/emacs/27.2/lisp/cedet/semantic/bovine/make.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\300\304!\210\300\305!\210\300\306!\207" [require make-mode semantic semantic/bovine semantic/bovine/make-by semantic/analyze semantic/dep] 2)
#@52 Detect and create a beginning of line token (BOL).
(defvar semantic-lex-make-backslash-no-newline nil (#$ . 602))
(defalias 'semantic-lex-make-backslash-no-newline #[nil "\300\207" [nil] 1])
(byte-code "\301\300\302M\207" [semantic-lex-make-backslash-no-newline ((and (looking-at #1="\\(\\\\\n\\s-*\\)") (semantic-lex-push-token (semantic-lex-token 'whitespace (match-beginning 1) (match-end 1))) (goto-char (match-end 1)) nil) nil) #[nil "\306``dB\307\310\311!\203>\312\313\224\313\225BB
B\211@\211\211A@\247\204.\211AA\262\2022\211A\262A\262\211\203>\313\225b\210
-\207" [semantic-lex-depth semantic-lex-maximum-depth semantic-lex-current-depth semantic-lex-analysis-bounds semantic-lex-end-point semantic-lex-token-stream nil 0 looking-at #1# whitespace 1] 6 "Detect and create a beginning of line token (BOL)."]] 2)
#@90 A command in a Makefile consists of a line starting with TAB, and ending at the newline.
(defvar semantic-lex-make-command nil (#$ . 1444))
(defalias 'semantic-lex-make-command #[nil "\300\207" [nil] 1])
(byte-code "\301\300\302M\207" [semantic-lex-make-command ((looking-at #1="^\\(	\\)") (let ((start (match-end 0))) (while (progn (end-of-line) (save-excursion (forward-char -1) (looking-at #2="\\\\"))) (forward-char 1)) (semantic-lex-push-token (semantic-lex-token 'shell-command start (point))))) #[nil "\306``dB\307\310\311!\203N\307\225\306\210\212\312u\210\310\313!)\203*\314u\210\202\315`BB
B\211@\211\211A@\247\204E\211AA\262\202I\211A\262A\262)
-\207" [semantic-lex-depth semantic-lex-maximum-depth semantic-lex-current-depth semantic-lex-analysis-bounds semantic-lex-end-point semantic-lex-token-stream nil 0 looking-at #1# -1 #2# 1 shell-command start] 6 "A command in a Makefile consists of a line starting with TAB, and ending at the newline."]] 2)
#@75 An automake conditional seems to really bog down the parser.
Ignore them.
(defvar semantic-lex-make-ignore-automake-conditional nil (#$ . 2437))
(defalias 'semantic-lex-make-ignore-automake-conditional #[nil "\300\207" [nil] 1])
(byte-code "\301\300\302M\207" [semantic-lex-make-ignore-automake-conditional ((looking-at #1="^@\\(\\w\\|\\s_\\)+@") (setq semantic-lex-end-point (match-end 0))) #[nil "\306``dB\307\310\311!\203\307\225
-\207" [semantic-lex-depth semantic-lex-maximum-depth semantic-lex-current-depth semantic-lex-analysis-bounds semantic-lex-end-point semantic-lex-token-stream nil 0 looking-at #1#] 5 "An automake conditional seems to really bog down the parser.\nIgnore them."]] 2)
#@74 Lexical analyzer for Makefiles.
See `semantic-lex' for more information.
(defalias 'semantic-make-lexer #[(start end &optional depth length) "\306\307\310	\n#\210`\306\211	@	A\311BC\206DE	\nBF\306G\ndV\2034\312\313\nd#\210\314 pHI\315\216\316J!\210	b\210`\nW\203K\203X\fGKX\203n\203\317``BB\fB\211@\211\211A@\247\204v\211AA\262\202z\211A\262A\262A\320\321!\203\214\311\225A\202\241\320\322!\203\320\311\225\306\210\212\323u\210\320\324!)\203\251\325u\210\202\225\326	`BB\fB\211@\211\211A@\247\204\303\211AA\262\202\307\211A\262A\262A)\202\241\320\327!\203\330\325\224\325\225BB\fB\211@\211\211A@\247\204\362\211AA\262\202\366\211A\262A\262\211A\203\325\225b\210\320\331!\203\\\f@\211@\262\330=\2034\311\225A\f@\211A@\247\204)\211AA\262\202-\211A\262A\241\210\202\241\330\311\224\311\225BB\fB\211@\211\211A@\247\204P\211AA\262\202T\211A\262A\262A\202\241\320\332!\203\212\333\325\224\325\225BB\fB\211@\211\211A@\247\204~\211AA\262\202\202\211A\262A\262A\202\241\320\334!\203\334\335\311!\211\336L!\205\245\211;\205\245\337L\"\262\211\262\205\257\211J\262\206\265\340\311\224\311\225BB\fB\211@\211\211A@\247\204\320\211AA\262\202\324\211A\262A\262A\202\241\320\341!\203\n\342\311\224\311\225BB\fB\211@\211\211A@\247\204\376\211AA\262\202\211A\262A\262A\202\241\320\343!\203\245E\203BEW\203JBTB\344\311\224\311\225BB\fB\211@\211\211A@\247\204>\211AA\262\202B\211A\262A\262A\202\241\345\311\224\212M\203`N\203`\346\325!\210`\202\201\3471m\346\325!\210`0\202\201\210\345OF@FA#b\210`\211A\262)BB\fB\211@\211\211A@\247\204\231\211AA\262\202\235\211A\262A\262A\202\241\320\350!\203\330BSB\351\311\224\311\225BB\fB\211@\211\211A@\247\204\314\211AA\262\202\320\211A\262A\262A\202\241\320\352!\2038\353`\212M\203\363N\203\363\354\325!\210`\202\3551\354\325!\210`0\202\210\353OF@FA#b\210`\211A\262)BB\fB\211@\211\211A@\247\204,\211AA\262\2020\211A\262A\262A\202\241\320P!\203o`Q\356\325!\210`Q=\203V\357\360\361 \"\210\202]n\203]\323u\210`Q=\203h\312\362!\210`A)\202\241\320\363!\203\235\364\311\224\311\225BB\fB\211@\211\211A@\247\204\221\211AA\262\202\225\211A\262A\262A\202\241\312\365!\210A@=\203\261\312\366@\f@#\210A@Ab\210R\203\333\367 \204\325r\370S!q\210\212Sb\210\371 *\203\333\372R\373\"\210\f@T\205\306C\374\311\375\376\377!\201W\"\201X$\216\203\211\201Y!\240\210\201Z\201[\201\\B#!)\262\266\202E+
\203Y
\211A\242\211U\211V\203C\201]\201^V@VA@#\210
\211A\242\211V\204)U@OF@FA#b\210`\211A\266*b\210\f\237.	\207" [semantic-lex-block-streams start end starting-position semantic-lex-token-stream semantic-lex-block-stack nil run-hook-with-args semantic-lex-reset-functions 0 error "semantic-make-lexer: end (%d) > point-max (%d)" syntax-table #[nil "rq\210\302	!)\207" [#1=#:buffer #2=#:table set-syntax-table] 2] set-syntax-table bol looking-at "^@\\(\\w\\|\\s_\\)+@" "^\\(	\\)" -1 "\\\\" 1 shell-command "\\(\\\\\n\\s-*\\)" whitespace "\\s-+" "\\s-*\\(\n\\|\\s>\\)" newline "\\(\\sw\\|\\s_\\)+" match-string obarrayp intern-soft symbol "\\s\\+" charquote "\\s(" open-paren semantic-list forward-list (error) "\\s)" close-paren "\\s\"" string forward-sexp (error) forward-comment skip-syntax-forward "-.'" point-at-eol "Strange comment syntax prevents lexical analysis" "\\(\\s.\\|\\s$\\|\\s'\\)" punctuation "Unmatched Text during Lexical Analysis" "semantic-make-lexer: endless loop at %d, after %S" input-pending-p marker-buffer accept-process-output throw lex make-byte-code "\300\242\205	\301\300\242!\207" vconcat vector tmp-start semantic-lex-end-point semantic-lex-current-depth depth semantic-lex-depth semantic-lex-maximum-depth semantic-lex-analysis-bounds parse-sexp-lookup-properties #1# #2# semantic-lex-syntax-table length semantic-flex-keywords-obarray debug-on-error semantic-lex-debug-analyzers semantic-lex-unterminated-syntax-end-function semantic-lex-comment-regex comment-start-point semantic-current-input-throw-symbol semantic--on-input-start-marker semantic-lex-debug last blk [delete-overlay] 2 semantic-lex-highlight-token read-event format "%S :: Depth: %d :: SPC - continue" message "semantic-make-lexer: `%s' block from %S is unterminated"] 9 (#$ . 3151)])
#@52 Expand TAG into a list of equivalent tags, or nil.
(defalias 'semantic-make-expand-tag #[(tag) "\211@)\303\211:\203Z\211A@)\304>\203Z\nG\305V\203Z\n\203g\n@\n\2061\211@)\211A@)\306\3078)!\306\3108)!\3118)\257*	B\nA\211\202 \n:\203d\n@\240\210C	*\207" [tag xpand name nil #'include 1 copy-sequence 2 3 4] 7 (#$ . 7508)])
#@183 Override `semantic-get-local-variables' so it does not throw an error.
We never have local variables in Makefiles.

Override semantic-get-local-variables in `makefile-mode' buffers.
(defalias 'semantic-get-local-variables-makefile-mode #[(&optional point) "\300\207" [nil] 1 (#$ . 7870)])
(byte-code "\300\301\302\303#\210\304\305\306\307#\207" [put semantic-get-local-variables-makefile-mode definition-name semantic-get-local-variables mode-local-bind ((semantic-get-local-variables . semantic-get-local-variables-makefile-mode)) (override-flag t) makefile-mode] 4)
#@122 List of classes that are valid to place at point.

Override semantic-ctxt-current-class-list in `makefile-mode' buffers.
(defalias 'semantic-ctxt-current-class-list-makefile-mode #[(&optional point) "\302 \211\205W\3031'\212\3041\305\306!0\202\210\202\210\307u\210\310\311!)0\202+\210\2022\2032\312\202W\313\211\211A@)	*=\203F\314\202W\315\211\211A@)	*=\205W\316)\207" [tag class semantic-current-tag (error) (error) forward-sexp -1 -2 looking-at "\\$\\s(" (variable) function #'filename variable #'filename] 3 (#$ . 8445)])
(byte-code "\300\301\302\303#\210\304\305\306\307#\207" [put semantic-ctxt-current-class-list-makefile-mode definition-name semantic-ctxt-current-class-list mode-local-bind ((semantic-ctxt-current-class-list . semantic-ctxt-current-class-list-makefile-mode)) (override-flag t) makefile-mode] 4)
#@129 Return an abbreviated string describing tag for Makefiles.

Override semantic-format-tag-abbreviate in `makefile-mode' buffers.
(defalias 'semantic-format-tag-abbreviate-makefile-mode #[(tag &optional parent color) "\211A@)\305	\n#\211\306\267\202\307P\202$\310P\202$\311	\n#*\207" [tag parent color name class semantic-format-tag-name #s(hash-table size 2 test eq rehash-size 1.5 rehash-threshold 0.8125 purecopy t data (function 19 filename 25)) ":" "./" semantic-format-tag-abbreviate-default] 6 (#$ . 9296)])
(byte-code "\304\305\306\307#\210\310\311\312\313#\210\314\310\315BC\316\313#\210\317\320\313\"\210)\304\315\313\321!\322\204<	\211\262\204<\n\262\205:\323\"\262\203g\211\204g\303N\203V\323\303N\"\211\262\204<\211\324N\206`\211\325N\262\262\202<\266\203\326\327#\207" [#1=#:tmp0 mode-local-active-mode major-mode mode-local-symbol-table put semantic-format-tag-abbreviate-makefile-mode definition-name semantic-format-tag-abbreviate mode-local-bind ((semantic-format-tag-abbreviate . semantic-format-tag-abbreviate-makefile-mode)) (override-flag t) makefile-mode " " semantic-function-argument-separator (mode-variable-flag t) mode-local-map-mode-buffers #[nil "\302\301!\210\211\207" [#1# semantic-function-argument-separator make-local-variable] 2] symbol-name nil intern-soft mode-local-parent derived-mode-parent variable-documentation "Separator used between dependencies to rules."] 9)
#@125 Return a prototype string describing tag for Makefiles.

Override semantic-format-tag-prototype in `makefile-mode' buffers.
(defalias 'semantic-format-tag-prototype-makefile-mode #[(tag &optional parent color) "\211A@)\306\n#	\307\267\2023\f\310\311\211\312\313\3148)
\"+\315#Q\2028\316\fP\2028\317\n#*\207" [tag class parent color name attribute semantic-format-tag-name #s(hash-table size 2 test eq rehash-size 1.5 rehash-threshold 0.8125 purecopy t data (function 19 filename 45)) ": " semantic--format-tag-arguments :arguments plist-get 2 semantic-format-tag-prototype "./" semantic-format-tag-prototype-default] 7 (#$ . 10749)])
(byte-code "\300\301\302\303#\210\304\305\306\307#\207" [put semantic-format-tag-prototype-makefile-mode definition-name semantic-format-tag-prototype mode-local-bind ((semantic-format-tag-prototype . semantic-format-tag-prototype-makefile-mode)) (override-flag t) makefile-mode] 4)
#@182 Return a concise prototype string describing tag for Makefiles.
This is the same as a regular prototype.

Override semantic-format-tag-concise-prototype in `makefile-mode' buffers.
(defalias 'semantic-format-tag-concise-prototype-makefile-mode #[(tag &optional parent color) "\303	\n#\207" [tag parent color semantic-format-tag-prototype] 4 (#$ . 11692)])
(byte-code "\300\301\302\303#\210\304\305\306\307#\207" [put semantic-format-tag-concise-prototype-makefile-mode definition-name semantic-format-tag-concise-prototype mode-local-bind ((semantic-format-tag-concise-prototype . semantic-format-tag-concise-prototype-makefile-mode)) (override-flag t) makefile-mode] 4)
#@174 Return a UML prototype string describing tag for Makefiles.
This is the same as a regular prototype.

Override semantic-format-tag-uml-prototype in `makefile-mode' buffers.
(defalias 'semantic-format-tag-uml-prototype-makefile-mode #[(tag &optional parent color) "\303	\n#\207" [tag parent color semantic-format-tag-prototype] 4 (#$ . 12371)])
(byte-code "\300\301\302\303#\210\304\305\306\307#\207" [put semantic-format-tag-uml-prototype-makefile-mode definition-name semantic-format-tag-uml-prototype mode-local-bind ((semantic-format-tag-uml-prototype . semantic-format-tag-uml-prototype-makefile-mode)) (override-flag t) makefile-mode] 4)
#@194 Return a list of possible completions in a Makefile.
Uses default implementation, and also gets a list of filenames.

Override semantic-analyze-possible-completions in `makefile-mode' buffers.
(defalias 'semantic-analyze-possible-completions-makefile-mode #[(context &rest flags) "\306\307!\210r\310\311\"q\210\312!\310\313\"\314\315\n>\203\202\310\304\"@\211\3161O
:\205K
@;\205K
A@9\205K
A@\205K\317
8<\205K\320
8<0\202Q\210\314)\203]\f\211@)\202n\f;\203f\f\202n\f@;\205n\f@\321\314\322P#\323\324\"+\325	\",\207" [context normal classes filetags prefix tag require semantic/analyze/complete eieio-oref buffer semantic-analyze-possible-completions-default prefixclass nil filename (error) 2 3 directory-files "^" mapcar #[(f) "\304\305\211\n\306	!\305\211\257+\207" [f attributes class name filename nil semantic-tag-make-plist] 6] append completetext default-directory files] 6 (#$ . 13022)])
(byte-code "\305\306\307\310#\210\311\312\313\314#\210\315\300\316\317\320\321\320\322\323\324\325\326&\210\311\327	BC\330\314#\210\331\332\314\"\210)\305\327\314\333!\316\204K\n\211\262\204K\262\f\205I\334\f\"\262\203v\211\204v\304N\203e\334\304N\"\211\262\204K\211\335N\206o\211\336N\262\262\202K\266\203\337\340#\210\305\327\314\300#\207" [semantic-makefile-dependency-system-include-path #3=#:tmp0 mode-local-active-mode major-mode mode-local-symbol-table put semantic-analyze-possible-completions-makefile-mode definition-name semantic-analyze-possible-completions mode-local-bind ((semantic-analyze-possible-completions . semantic-analyze-possible-completions-makefile-mode)) (override-flag t) makefile-mode custom-declare-variable nil "The system include path used by Makefiles language." :group makefile semantic :type (repeat (directory :tag "Directory")) :set #[(sym val) "\303	\"\210	\304\305\nBC\306\307#\210\310\311\307\"\210)\312\313!\205 \310\313\307\"\207" [sym val #1=#:tmp0 set-default mode-local-bind semantic-dependency-system-include-path #2=(mode-variable-flag t) makefile-mode mode-local-map-mode-buffers #[nil "\302\301!\210\211\207" [#1# semantic-dependency-system-include-path make-local-variable] 2] fboundp semantic-decoration-unparsed-include-do-reset] 4] semantic-dependency-system-include-path #2# mode-local-map-mode-buffers #[nil "\302\301!\210\211\207" [#3# semantic-dependency-system-include-path make-local-variable] 2] symbol-name intern-soft mode-local-parent derived-mode-parent variable-documentation "System path to search for include files."] 12)
#@53 Set up a Makefile buffer for parsing with semantic.
(defalias 'semantic-default-make-setup #[nil "\306 \210\307\310\311\312\313\314\211\207" [semantic-symbol->name-assoc-list semantic-case-fold semantic-tag-expand-function semantic-lex-syntax-modifications imenu-create-index-function semantic-lex-analyzer semantic-make-by--install-parser ((variable . "Variables") (function . "Rules") (include . "Dependencies") (file . "File")) t semantic-make-expand-tag ((46 "_") (61 ".") (47 "_") (36 ".") (43 ".") (92 ".")) semantic-create-imenu-index semantic-make-lexer] 2 (#$ . 15586)])
(provide 'semantic/bovine/make)

Zerion Mini Shell 1.0