;ELC ;;; Compiled ;;; in Emacs version 28.2 ;;; with all optimizations. (byte-code "\304\305!\210\304\306!\210\304\307!\210\304\310!\210\304\311!\210\312\300\313\314\315DD\316\317\320\317\305\321\322\323\324& \210\325\326BC\327\330#\210\331\332\333\"\330\"\266\334\326\330\335!\336\204Y \211\262\204Y\n\262 \205W\337 \"\262\203\204\211\204\204\303N\203s\337\303N\"\211\262\204Y\211\340N\206}\211\341N\262\262\202Y\266\203\342\343#\210\334\326\330\300#\207" [semantic-default-scheme-path mode-local-active-mode major-mode mode-local-symbol-table require semantic semantic/bovine semantic/bovine/scm-by semantic/format semantic/dep custom-declare-variable funcall function #[0 "\300\207" [("/usr/share/guile/")] 1 ""] "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 #[514 "\300\"\210\211\301\302BC\303\304#\210\305\306\307\"\304\"\266\310\311!\205\"\305\311\304\"\207" [set-default mode-local-bind semantic-dependency-system-include-path #1=(mode-variable-flag t) scheme-mode mode-local-map-mode-buffers make-closure #[0 "\302\301!\210\300\211\207" [V0 semantic-dependency-system-include-path make-local-variable] 2] fboundp semantic-decoration-unparsed-include-do-reset] 7 "\n\n(fn SYM VAL)"] mode-local-bind semantic-dependency-system-include-path #1# scheme-mode mode-local-map-mode-buffers make-closure #[0 "\302\301!\210\300\211\207" [V0 semantic-dependency-system-include-path make-local-variable] 2] put symbol-name nil intern-soft mode-local-parent derived-mode-parent variable-documentation "System path to search for include files."] 12) #@156 Return a prototype for the Emacs Lisp nonterminal TAG. Override `semantic-format-tag-prototype' in `scheme-mode' buffers. (fn TAG &optional PARENT COLOR) (defalias 'semantic-format-tag-prototype-scheme-mode #[769 "\211A@\262\300!\301=\203\211@\262\302\303\304\305#\306R\207\307#\207" [semantic-tag-components function " (" mapconcat #[257 "\207" [] 2 "\n\n(fn A)"] " " ")" semantic-format-tag-prototype-default] 11 (#$ . 1757)]) (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) #@176 Return the documentation string for TAG. Optional argument NOSNARF is ignored. Override `semantic-documentation-for-tag' in `scheme-mode' buffers. (fn TAG &optional NOSNARF) (defalias 'semantic-documentation-for-tag-scheme-mode #[513 "\300!\211\203\211G\301V\203\211\301H\302U\203\211\303\304O\207\207" [semantic-tag-docstring 0 42 1 nil] 6 (#$ . 2483)]) (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) #@172 Insert TAG from TAGFILE at point. Attempts a simple prototype for calling or using TAG. Override `semantic-insert-foreign-tag' in `scheme-mode' buffers. (fn TAG TAGFILE) (defalias 'semantic-insert-foreign-tag-scheme-mode #[514 "\211A@\262\300=\203\301\211@\262\302\261\210\303u\207\211@\262c\207" [function "(" " )" -1] 5 (#$ . 3134)]) (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. (defconst semantic-lex-scheme-symbol '((looking-at "\\(\\sw\\|\\s_\\)+") (semantic-lex-push-token (semantic-lex-token (or (semantic-lex-keyword-p (match-string 0)) 'symbol) (match-beginning 0) (match-end 0)))) (#$ . 3755)) #@46 Detect and create symbol and keyword tokens. (defalias 'semantic-lex-scheme-symbol #[0 "\306``dB\307\310\311!\203Z\312\307!\211\313!\205'\211;\205'\314\"\262\211\262\2051\211J\262\2067\315\307\224\307\225BB B\211@\211\211A@\247\204R\211AA\262\202V\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 "\\(\\sw\\|\\s_\\)+" match-string obarrayp intern-soft symbol semantic-flex-keywords-obarray] 6 (#$ . 4029)]) #@237 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. (fn START END &optional DEPTH LENGTH) (defalias 'semantic-scheme-lexer #[1026 "\306\307\310#\210`\306\211\211\311\206 =B>\306?dV\203.\312\313d#\210\314 p\315\316#\216\317@!\210b\210`W\203\370\203R GX\203\370\320\321!\203^\311\225\202\234\320\322!\203j\311\225\202\234\320\323!\203\273\324\311!\211\325A!\205\205\211;\205\205\326A\"\262\211\262\205\217\211J\262\206\225\327\311\224\311\225BB B\211@\211\211A@\247\204\260\211AA\262\202\264\211A\262A\262\202\234\320\330!\203\350\331\311\224\311\225BB B\211@\211\211A@\247\204\335\211AA\262\202\341\211A\262A\262\202\234\320\332!\203}=\203\372\f=W\203$\fT\333\311\224\311\225BB B\211@\211\211A@\247\204\211AA\262\202\211A\262A\262\202\234\334\311\224\212B\203:C\203:\335\336!\210`\202Z\3371G\335\336!\210`0\202Z\210\334D>@>A#b\210`\211\262)BB B\211@\211\211A@\247\204r\211AA\262\202v\211A\262A\262\202\234\320\340!\203\255\fS\341\311\224\311\225BB B\211@\211\211A@\247\204\242\211AA\262\202\246\211A\262A\262\202\234\320\342!\203 \343`\212B\203\310C\203\310\344\336!\210`\202\350\3451\325\344\336!\210`0\202\350\210\343D>@>A#b\210`\211\262)BB B\211@\211\211A@\247\204\211AA\262\202\211A\262A\262\202\234\320E!\203=`\346\336!\210`=\203&\347\350\351 \"\210\202-n\203-\352u\210`=\2037\312\353!\210`\210\202\234\320\354!\203j\355\311\224\311\225BB B\211@\211\211A@\247\204_\211AA\262\202c\211A\262A\262\202\234\320F!\203\230\356\311\224\311\225BB B\211@\211\211A@\247\204\215\211AA\262\202\221\211A\262A\262\202\234\312\357!\210 =\203\251\312\360 @#\210 \262 b\210G\203\321\361 \204\313r\362H!q\210\212Hb\210\363 *\203\321\364G\365\"\210 @I\205\363\306C\315\366\"\216\203\351\211\367!\240\210\370\371\372\f#!)\262\266\202@)\266\n\203/\n\211A\242\211\211\203\373\374@A@#\210\n\211A\242\262\202@D>@>A#b\210`\211\266b\210 \237.\207" [semantic-lex-block-streams semantic-lex-token-stream semantic-lex-block-stack semantic-lex-end-point semantic-lex-current-depth semantic-lex-depth nil run-hook-with-args semantic-lex-reset-functions 0 error "semantic-scheme-lexer: end (%d) > point-max (%d)" syntax-table make-closure #[0 "r\301q\210\302\300!)\207" [V0 V1 set-syntax-table] 2] set-syntax-table looking-at "\\s-+" "\\s-*\\(\n\\|\\s>\\)" "\\(\\sw\\|\\s_\\)+" match-string obarrayp 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 #[0 "\300\242\205 \301\300\242!\207" [V0 delete-overlay] 2] semantic-lex-highlight-token read-event format "%S :: Depth: %d :: SPC - continue" message "semantic-scheme-lexer: `%s' block from %S is unterminated" semantic-lex-maximum-depth semantic-lex-analysis-bounds parse-sexp-lookup-properties semantic-lex-syntax-table semantic-flex-keywords-obarray debug-on-error semantic-lex-debug-analyzers semantic-lex-unterminated-syntax-end-function semantic-lex-comment-regex semantic-lex-number-expression semantic-current-input-throw-symbol semantic--on-input-start-marker semantic-lex-debug] 16 (#$ . 4610)]) #@56 Setup hook function for Emacs Lisp files and Semantic. (defalias 'semantic-default-scheme-setup #[0 "\303 \210\304\305\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] 2 (#$ . 8307)]) (provide 'semantic/bovine/scm)