HOME

;ELC
;;; Compiled
;;; in Emacs version 26.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 (#$ . 2013)])
(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 (#$ . 2745)])
(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 (#$ . 3389)])
(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 (#$ . 3996))
(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!\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\262
A\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# match-string obarrayp intern-soft symbol semantic-flex-keywords-obarray] 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	@	A\311BC\206DE	\nBF\306G\ndV\2034\312\313\nd#\210\314 pHI\315\216\316J!\210	b\210`\nW\203!K\203X\fGKX\203!\317\320!\203e\311\225A\202\270\317\321!\203r\311\225A\202\270\317\322!\203\304\323\311!\211\324L!\205\215\211;\205\215\325
L\"\262
\211\262\205\227\211J\262
\206\235\326\311\224\311\225BB\fB\211@\211\211A@\247\204\270\211AA\262
\202\274\211A\262
A\262
A\202\270\317\327!\203\362\330\311\224\311\225BB\fB\211@\211\211A@\247\204\346\211AA\262
\202\352\211A\262
A\262
A\202\270\317\331!\203\215
E\203
BEW\2032
BTB\332\311\224\311\225BB\fB\211@\211\211A@\247\204&
\211AA\262
\202*
\211A\262
A\262
A\202\270\333\311\224\212M\203H
N\203H
\334\335!\210`\202i
\3361U
\334\335!\210`0\202i
\210\333O
F@FA#b\210`\211A\262
)BB\fB\211@\211\211A@\247\204\201
\211AA\262
\202\205
\211A\262
A\262
A\202\270\317\337!\203\300
BSB\340\311\224\311\225BB\fB\211@\211\211A@\247\204\264
\211AA\262
\202\270
\211A\262
A\262
A\202\270\317\341!\203 \342`\212M\203\333
N\203\333
\343\335!\210`\202\374
\3441\350
\343\335!\210`0\202\374
\210\342O
F@FA#b\210`\211A\262
)BB\fB\211@\211\211A@\247\204\211AA\262
\202\211A\262
A\262
A\202\270\317P!\203W`Q\345\335!\210`Q=\203>\346\347\350 \"\210\202En\203E\351u\210`Q=\203P\312\352!\210`A)\202\270\317\353!\203\205\354\311\224\311\225BB\fB\211@\211\211A@\247\204y\211AA\262
\202}\211A\262
A\262
A\202\270\317R!\203\264\355\311\224\311\225BB\fB\211@\211\211A@\247\204\250\211AA\262
\202\254\211A\262
A\262
A\202\270\312\356!\210A@=\203\310\312\357@\f@#\210A@Ab\210S\203\362\360 \204\354r\361T!q\210\212Tb\210\362 *\203\362\363S\364\"\210\f@U\205\306C\365\311\366\367\370!\371\"\372$\216
\203\211\373!\240\210\374\375\376B#!)\262
\266\202E+
\203b
\211A\242\211V\211W\203L\377\201XW@WA@#\210
\211A\242\211W\2044V@O
F@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-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 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 make-byte-code "\300\242\205	\301\300\242!\207" vconcat vector [semantic-overlay-delete] 2 semantic-lex-highlight-token semantic-read-event format "%S :: Depth: %d :: SPC - continue" message 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-lex-number-expression semantic-current-input-throw-symbol semantic--on-input-start-marker semantic-lex-debug last blk "semantic-scheme-lexer: `%s' block from %S is unterminated"] 9 (#$ . 4930)])
#@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 (#$ . 8819)])
(provide 'semantic/bovine/scm)