ikan Uploader :
Directory : /proc/self/root/usr/share/emacs/25.2/lisp/cedet/semantic/bovine/
Upload File : |
| Current File : //proc/self/root/usr/share/emacs/25.2/lisp/cedet/semantic/bovine/scm.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 "\306\307!\210\306\310!\210\306\311!\210\306\312!\210\306\313!\210\314\300\315\316\317\320\317\307\321\322\323\324& \210\325\326 BC\327\330#\210\331\332\330\"\210)\333\326\330\334 !\335 \n\204X $\211\204X % \205W \336
\"\n\203\202 \f\204\202 \n\337N\203q \336
\n\337N\"\211\204X \n\211\340N\206| \n\341N)\211\204\\ \f,\342\343#\210\333\326\330\300#\207" [semantic-default-scheme-path #3=#:tmp0 mode symbol bind name require semantic semantic/bovine semantic/bovine/scm-by semantic/format semantic/dep custom-declare-variable '("/usr/share/guile/") "Default set of include paths for scheme (guile) code.\nThis should probably do some sort of search to see what is\nactually on the local machine." :group scheme :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) scheme-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] mode-local-bind semantic-dependency-system-include-path #2# scheme-mode mode-local-map-mode-buffers #[nil "\302\301!\210\211\207" [#3# semantic-dependency-system-include-path make-local-variable] 2] put symbol-name nil 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)
#@122 Return a prototype for the Emacs Lisp nonterminal TAG.
Override semantic-format-tag-prototype in `scheme-mode' buffers.
(defalias 'semantic-format-tag-prototype-scheme-mode #[(tag &optional parent color) "\211A@)\305! \306=\203! \211@)\307\310\311\n\312#\313R\202& \314 \f#*\207" [tag tok args parent color semantic-tag-components function " (" mapconcat #[(a) "\207" [a] 1] " " ")" semantic-format-tag-prototype-default] 7 (#$ . 2015)])
(byte-code "\300\301\302\303#\210\304\305\306\307#\207" [put semantic-format-tag-prototype-scheme-mode definition-name semantic-format-tag-prototype mode-local-bind ((semantic-format-tag-prototype . semantic-format-tag-prototype-scheme-mode)) (override-flag t) scheme-mode] 4)
#@147 Return the documentation string for TAG.
Optional argument NOSNARF is ignored.
Override semantic-documentation-for-tag in `scheme-mode' buffers.
(defalias 'semantic-documentation-for-tag-scheme-mode #[(tag &optional nosnarf) "\302!\211\203 G\303V\203 \303H\304U\203 \305\306O\202 )\207" [tag d semantic-tag-docstring 0 42 1 nil] 4 (#$ . 2747)])
(byte-code "\300\301\302\303#\210\304\305\306\307#\207" [put semantic-documentation-for-tag-scheme-mode definition-name semantic-documentation-for-tag mode-local-bind ((semantic-documentation-for-tag . semantic-documentation-for-tag-scheme-mode)) (override-flag t) scheme-mode] 4)
#@153 Insert TAG from TAGFILE at point.
Attempts a simple prototype for calling or using TAG.
Override semantic-insert-foreign-tag in `scheme-mode' buffers.
(defalias 'semantic-insert-foreign-tag-scheme-mode #[(tag tagfile) "\211A@)\301=\203 \302\211@)\303\261\210\304u\207\211@)c\207" [tag function "(" " )" -1] 4 (#$ . 3391)])
(byte-code "\300\301\302\303#\210\304\305\306\307#\207" [put semantic-insert-foreign-tag-scheme-mode definition-name semantic-insert-foreign-tag mode-local-bind ((semantic-insert-foreign-tag . semantic-insert-foreign-tag-scheme-mode)) (override-flag t) scheme-mode] 4)
#@46 Detect and create symbol and keyword tokens.
(defvar semantic-lex-scheme-symbol nil (#$ . 3998))
(defalias 'semantic-lex-scheme-symbol #[nil "\300\207" [nil] 1])
(byte-code "\301\300\302M\207" [semantic-lex-scheme-symbol ((looking-at #1="\\(\\sw\\([:]\\|\\sw\\|\\s_\\)*\\)") (semantic-lex-push-token (semantic-lex-token (or (semantic-lex-keyword-p (match-string 0)) 'symbol) (match-beginning 0) (match-end 0)))) #[nil "\306``dB\307 \310\311!\203a \312\307!\211 \313!\205- ;\205- \314\")\211\2057 J)\206< \315\307\224\307\225BB
B\211@\211 \211 A@\247\204Z AA\202] 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# match-string arrayp intern-soft symbol name semantic-flex-keywords-obarray token] 6 "Detect and create symbol and keyword tokens."]] 2)
#@198 A simple lexical analyzer that handles simple buffers.
This lexer ignores comments and whitespace, and will return
syntax as specified by the syntax table.
See `semantic-lex' for more information.
(defalias 'semantic-scheme-lexer #[(start end &optional depth length) "\306\307\310 \n#\210`\306\211 < =\311 >?\206 @ A \nB B\306 C\ndV\2034 \312\313\nd#\210\314 p D E\315\216\316F!\210 b\210`\nW\2033G\203X \fGGX\2033\317\320!\203e \311\225=\202\321\317\321!\203r \311\225=\202\321\317\322!\203\313 \323\311!\211 H H\324I!\205\223 H;\205\223 \325HI\")\211H\205\235 HJ)\206\242 \326\311\224\311\225BB\fB\211@\211 J\211 JA@\247\204\300 JAA\202\303 JA)A)=\202\321\317\327!\203\373 \330\311\224\311\225BB\fB\211@\211 J\211 JA@\247\204\360 JAA\202\363 JA)A)=\202\321\317\331!\203\234A\203>AW\203=>T>\332\311\224\311\225BB\fB\211@\211 J\211 JA@\247\2042JAA\2025JA)A)=\202\321\333\311\224\212K\203SL\203S\334\335!\210`\202v\3361`\334\335!\210`0\202v\210\333 MNMB@BA#b\210`\211=))BB\fB\211@\211 J\211 JA@\247\204\221JAA\202\224JA)A)=\202\321\317\337!\203\321>S>\340\311\224\311\225BB\fB\211@\211 J\211 JA@\247\204\306JAA\202\311JA)A)=\202\321\317\341!\2035\342`\212K\203\354L\203\354\343\335!\210`\202\3441\371\343\335!\210`0\202\210\342 MNMB@BA#b\210`\211=))BB\fB\211@\211 J\211 JA@\247\204*JAA\202-JA)A)=\202\321\317O!\203l` P\345\335!\210`P=\203S\346\347\350 \"\210\202Zn\203Z\351u\210`P=\203e\312\352!\210`=)\202\321\317\353!\203\234\354\311\224\311\225BB\fB\211@\211 J\211 JA@\247\204\221JAA\202\224JA)A)=\202\321\317Q!\203\315\355\311\224\311\225BB\fB\211@\211 J\211 JA@\247\204\302JAA\202\305JA)A)=\202\321\312\356!\210=<=\203\341\312\357<\f@#\210=<=b\210R\203 \360 \204r\361S!q\210\212Sb\210\362 *\203 \363R\364\"\210\f@ JT\205.\306 U\365\216J\203$\366J!U\367\370\371J>#!*)\210\202E +
\203u
\211A\242\211 V\211 W\203\\\372\373W@WA@#\210
\211A\242\211W\204FV@ MNMB@BA#b\210`\211=)\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-scheme-lexer: end (%d) > point-max (%d)" syntax-table #[nil "rq\210\302 !)\207" [#1=#:buffer #2=#:table set-syntax-table] 2] set-syntax-table looking-at "\\s-+" "\\s-*\\(\n\\|\\s>\\)" "\\(\\sw\\([:]\\|\\sw\\|\\s_\\)*\\)" match-string arrayp intern-soft symbol "\\s\\+" charquote "\\s(" open-paren semantic-list forward-list 1 (error) "\\s)" close-paren "\\s\"" string forward-sexp (error) forward-comment skip-syntax-forward "-.'" point-at-eol -1 "Strange comment syntax prevents lexical analysis" "\\(\\s.\\|\\s$\\|\\s'\\)" punctuation number "Unmatched Text during Lexical Analysis" "semantic-scheme-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 "%S :: Depth: %d :: SPC - continue" message "semantic-scheme-lexer: `%s' block from %S is unterminated" 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 name semantic-flex-keywords-obarray token debug-on-error semantic-lex-debug-analyzers syntax semantic-lex-unterminated-syntax-end-function semantic-lex-comment-regex comment-start-point semantic-lex-number-expression semantic-current-input-throw-symbol semantic--on-input-start-marker semantic-lex-debug o last blk] 7 (#$ . 4918)])
#@56 Setup hook function for Emacs Lisp files and Semantic.
(defalias 'semantic-default-scheme-setup #[nil "\303 \210\304\305\211\306\211\207" [semantic-symbol->name-assoc-list imenu-create-index-function semantic-lex-analyzer semantic-scm-by--install-parser ((variable . "Variables") (function . "Functions") (include . "Loads") (package . "DefineModule")) semantic-create-imenu-index semantic-scheme-lexer] 3 (#$ . 8629)])
(provide 'semantic/bovine/scm)
Kontol Shell Bypass