%PDF- %PDF- Mini Shell
Mini Shell

Direktori : /usr/local/share/emacs/27.2/lisp/cedet/semantic/bovine/
Current File : //usr/local/share/emacs/27.2/lisp/cedet/semantic/bovine/scm.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 "\305\306!\210\305\307!\210\305\310!\210\305\311!\210\305\312!\210\313\300\314\315\316\317\316\306\320\321\322\323&\210\324\325	BC\326\327#\210\330\331\327\"\210)\332\325\327\333!\334\204S\n\211\262\204S\262\f\205Q\335\f\"\262\203~\211\204~\304N\203m\335\304N\"\211\262\204S\211\336N\206w\211\337N\262\262\202S\266\203\340\341#\210\332\325\327\300#\207" [semantic-default-scheme-path #3=#:tmp0 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 '("/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-parent derived-mode-parent variable-documentation "System path to search for include files."] 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 (#$ . 2002)])
(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	\306\"\202	)\207" [tag d semantic-tag-docstring 0 42 substring 1] 4 (#$ . 2734)])
(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 (#$ . 3385)])
(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 (#$ . 3992))
(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\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# 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\325L\"\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\262A\262A\202\270\317\327!\203\362\330\311\224\311\225BB\fB\211@\211\211A@\247\204\346\211AA\262\202\352\211A\262A\262A\202\270\317\331!\203\215E\203BEW\2032BTB\332\311\224\311\225BB\fB\211@\211\211A@\247\204&\211AA\262\202*\211A\262A\262A\202\270\333\311\224\212M\203HN\203H\334\335!\210`\202i\3361U\334\335!\210`0\202i\210\333OF@FA#b\210`\211A\262)BB\fB\211@\211\211A@\247\204\201\211AA\262\202\205\211A\262A\262A\202\270\317\337!\203\300BSB\340\311\224\311\225BB\fB\211@\211\211A@\247\204\264\211AA\262\202\270\211A\262A\262A\202\270\317\341!\203 \342`\212M\203\333N\203\333\343\335!\210`\202\374\3441\350\343\335!\210`0\202\374\210\342OF@FA#b\210`\211A\262)BB\fB\211@\211\211A@\247\204\211AA\262\202\211A\262A\262A\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\262A\262A\202\270\317R!\203\264\355\311\224\311\225BB\fB\211@\211\211A@\247\204\250\211AA\262\202\254\211A\262A\262A\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@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-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 [delete-overlay] 2 semantic-lex-highlight-token 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 (#$ . 4926)])
#@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 (#$ . 8797)])
(provide 'semantic/bovine/scm)
Zerion Mini Shell 1.0