ikan Uploader :
Directory : /proc/thread-self/root/usr/share/emacs/25.2/lisp/cedet/semantic/bovine/
Upload File : |
| Current File : //proc/thread-self/root/usr/share/emacs/25.2/lisp/cedet/semantic/bovine/make.elc |
;ELC
;;; Compiled
;;; in Emacs version 25.2.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\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 (#$ . 604))
(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 \f\211 \fA@\247\2041 \fAA\2024 \fA)A)\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 token] 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 (#$ . 1443))
(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!\203P \307\225 \306\210\212\312u\210\310\313!)\203* \314u\210\202 \315`BB
B\211@\211 \211 A@\247\204H AA\202K A)A))
-\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 token] 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 (#$ . 2429))
(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\311 BC\206 D E \nB F\306 G\ndV\2034 \312\313\nd#\210\314 p H I\315\216\316J!\210 b\210`\nW\203(K\203X \fGKX\203(n\203\201 \317``BB\fB\211@\211 L\211 LA@\247\204y LAA\202| LA)A)A\320\321!\203\216 \311\225A\202\304\320\322!\203\324 \311\225\306\210\212\323u\210\320\324!)\203\253 \325u\210\202\227 \326 `BB\fB\211@\211 L\211 LA@\247\204\310 LAA\202\313 LA)A)A)\202\304\320\327!\203 \330\325\224\325\225BB\fB\211@\211 L\211 LA@\247\204\371 LAA\202\374 LA)A)\211A\203 \325\225b\210\320\331!\203f\f@\211 L@)\330=\203<\311\225A\f@\211 LA@\247\2041LAA\2024LA)A\241\210\202\304\330\311\224\311\225BB\fB\211@\211 L\211 LA@\247\204[LAA\202^LA)A)A\202\304\320\332!\203\226\333\325\224\325\225BB\fB\211@\211 L\211 LA@\247\204\213LAA\202\216LA)A)A\202\304\320\334!\203\357\335\311!\211 M M\336N!\205\267M;\205\267\337MN\")\211M\205\301MJ)\206\306\340\311\224\311\225BB\fB\211@\211 L\211 LA@\247\204\344LAA\202\347LA)A)A\202\304\320\341!\203 \342\311\224\311\225BB\fB\211@\211 L\211 LA@\247\204LAA\202LA)A)A\202\304\320\343!\203\300E\2032BEW\203aBTB\344\311\224\311\225BB\fB\211@\211 L\211 LA@\247\204VLAA\202YLA)A)A\202\304\345\311\224\212O\203wP\203w\346\325!\210`\202\232\3471\204\346\325!\210`0\202\232\210\345 QRQF@FA#b\210`\211A))BB\fB\211@\211 L\211 LA@\247\204\265LAA\202\270LA)A)A\202\304\320\350!\203\365BSB\351\311\224\311\225BB\fB\211@\211 L\211 LA@\247\204\352LAA\202\355LA)A)A\202\304\320\352!\203Y\353`\212O\203P\203\354\325!\210`\2023\3551 \354\325!\210`0\2023\210\353 QRQF@FA#b\210`\211A))BB\fB\211@\211 L\211 LA@\247\204NLAA\202QLA)A)A\202\304\320S!\203\220` T\356\325!\210`T=\203w\357\360\361 \"\210\202~n\203~\323u\210`T=\203\211\312\362!\210`A)\202\304\320\363!\203\300\364\311\224\311\225BB\fB\211@\211 L\211 LA@\247\204\265LAA\202\270LA)A)A\202\304\312\365!\210A@=\203\324\312\366@\f@#\210A@Ab\210U\203\376\367 \204\370r\370V!q\210\212Vb\210\371 *\203\376\372U\373\"\210\f@ LW\205#\306 X\374\216L\203\375L!X\376\377\201[ LB#!*)\210\202E +
\203n
\211A\242\211 Y\211 Z\203U\201\\ \201] Z@ZA@#\210
\211A\242\211Z\204;Y@ QRQF@FA#b\210`\211A)\210* 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 arrayp 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 #[nil "\205 \301!\207" [o semantic-overlay-delete] 2] semantic-lex-highlight-token semantic-read-event format 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 token name semantic-flex-keywords-obarray debug-on-error semantic-lex-debug-analyzers syntax 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 o last blk "%S :: Depth: %d :: SPC - continue" message "semantic-make-lexer: `%s' block from %S is unterminated"] 7 (#$ . 3143)])
#@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 (#$ . 7279)])
#@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 (#$ . 7641)])
(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 (#$ . 8216)])
(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=\203 \307P\202* \f\310=\203% \311 P\202* \312 \n#*\207" [tag parent color name class semantic-format-tag-name function ":" filename "./" semantic-format-tag-abbreviate-default] 6 (#$ . 9067)])
(byte-code "\306\307\310\311#\210\312\313\314\315#\210\316\312\317BC\320\315#\210\321\322\315\"\210)\306\317\315\323\n!\324 \204@
\211\204@ \205? \325\f\" \203j \204j \326N\203Y \325\f \326N\"\211\204@ \211\327N\206d \330N)\211\204D ,\331\332#\207" [#1=#:tmp0 mode symbol bind name mode-local-active-mode 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-symbol-table mode-local-parent derived-mode-parent variable-documentation "Separator used between dependencies to rules." major-mode] 5)
#@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=\203- \f\310\311\211\312 \313\3148)
\"+\315 #Q\202> \316=\2039 \317\fP\202> \320\n #*\207" [tag class parent color name attribute semantic-format-tag-name function ": " semantic--format-tag-arguments :arguments plist-get 2 semantic-format-tag-prototype filename "./" semantic-format-tag-prototype-default] 7 (#$ . 10436)])
(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 (#$ . 11294)])
(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 (#$ . 11973)])
(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) "\306\307!\210r\310\311\"q\210\312!\310\313\"\314\315\n>\203\202 \310\316\"@\211 \3171O
:\205K
@;\205K
A@9\205K
A@\205K \320
8<\205K \321
8<0\202Q \210\314)\203] \f\211 @)\202n \f;\203f \f\202n \f@;\205n \f@ \322\314\323P# \324\325\"+\326 \",\207" [context normal classes filetags prefix tag require semantic/analyze/complete eieio-oref buffer semantic-analyze-possible-completions-default :prefixclass nil filename :prefix (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 (#$ . 12624)])
(byte-code "\306\307\310\311#\210\312\313\314\315#\210\316\300\317\320\321\322\321\323\324\325\326\327& \210\312\330 BC\331\315#\210\332\333\315\"\210)\306\330\315\334 !\317 \n\204P #\211\204P $ \205O \335
\"\n\203z \f\204z \n\336N\203i \335
\n\336N\"\211\204P \n\211\337N\206t \n\340N)\211\204T \f,\341\342#\210\306\330\315\300#\207" [semantic-makefile-dependency-system-include-path #3=#:tmp0 mode symbol bind name 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-symbol-table mode-local-parent derived-mode-parent variable-documentation "System path to search for include files." mode-local-active-mode major-mode] 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 (#$ . 15189)])
(provide 'semantic/bovine/make)
Kontol Shell Bypass