Gecko [ goons4good.org ]

Name	Size	Permission	Date
c-by.elc	34.42 KB	-rw-r--r--	2023-06-07 04:13
c.elc	100.68 KB	-rw-r--r--	2023-06-07 04:13
debug.elc	4.23 KB	-rw-r--r--	2023-06-07 04:13
el.elc	37.21 KB	-rw-r--r--	2023-06-07 04:13
gcc.elc	5.47 KB	-rw-r--r--	2023-06-07 04:13
grammar.elc	17.06 KB	-rw-r--r--	2023-06-07 04:13
make-by.elc	5.66 KB	-rw-r--r--	2023-06-07 04:13
make.elc	15.94 KB	-rw-r--r--	2023-06-07 04:13
scm-by.elc	3.51 KB	-rw-r--r--	2023-06-07 04:13
scm.elc	9.35 KB	-rw-r--r--	2023-06-07 04:13

Rename

;ELC���
;;; Compiled by mockbuild@buildfarm06.corp.cloudlinux.com on Wed Jun  7 08:13:35 2023
;;; from file /builddir/build/BUILD/emacs-24.3/lisp/cedet/semantic/bovine/scm.el
;;; in Emacs version 24.3.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	\210)\333\326\330\334!\335\n\204Z�$\211\204Z�%\205Y�\336
\"\n\203\204�\f\204\204�\n\337N\203s�\336
\n\337N\"\211\204Z�\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\n\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 (#$ . 2180)])
(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 (#$ . 2912)])
(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 (#$ . 3556)])
(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 (#$ . 4163))
(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\211A@\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�AB	\nBC\306D\ndV\2034�\312\313\nd#\210\314 pEF\315\216\316G!\210	b\210`\nW\203\350H\203X�\fGHX\203\350\317\320!\203e�\311\225>\202\223\317\321!\203r�\311\225>\202\223\317\322!\203\313�\323\311!\211II\324J!\205\223�I;\205\223�\325IJ\")\211I\205\235�IJ)\206\242�\326\311\224\311\225BB\fB\211@\211K\211KA@\247\204\300�KAA\202\303�KA)A)>\202\223\317\327!\203\373�\330\311\224\311\225BB\fB\211@\211K\211KA@\247\204\360�KAA\202\363�KA)A)>\202\223\317\331!\203}B\203?BW\203=?T?\332\311\224\311\225BB\fB\211@\211K\211KA@\247\2042KAA\2025KA)A)>\202\223\333\311\224\212L\203SM\203S\334\335!\210`\202W\306\336\337\217)BB\fB\211@\211K\211KA@\247\204rKAA\202uKA)A)>\202\223\317\340!\203\262?S?\341\311\224\311\225BB\fB\211@\211K\211KA@\247\204\247KAA\202\252KA)A)>\202\223\317\342!\203\367\343`\212L\203\315M\203\315\344\335!\210`\202\321\306\345\346\217)BB\fB\211@\211K\211KA@\247\204\354KAA\202\357KA)A)>\202\223\317N!\203.`O\347\335!\210`O=\203\350\351\352 \"\210\202n\203\353u\210`O=\203'\312\354!\210`>)\202\223\317\355!\203^\356\311\224\311\225BB\fB\211@\211K\211KA@\247\204SKAA\202VKA)A)>\202\223\317P!\203\217\357\311\224\311\225BB\fB\211@\211K\211KA@\247\204\204KAA\202\207KA)A)>\202\223\312\360!\210>==\203\243\312\361=\f@#\210>=>b\210Q\203\300\362 \204\272\363 \203\300\364Q\365\"\210\f@KR\205\343\306S\366\216K\203\331\367K!S\370\371\372K?#!*)\210\202E�+
\203.
\211A@\211T\211U\203\373\374U@U\211VA@)#\210
\211A@\211U\204\373T@WXWC@CA#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 ((byte-code "rq\210\302	!\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 (byte-code "\300\301!\210`\207" [forward-list 1] 2) ((error (byte-code "\304	\n@\nA#b\210`\211)\207" [syntax semantic-lex-unterminated-syntax-end-function semantic-lex-analysis-bounds semantic-lex-end-point semantic-list] 4))) "\\s)" close-paren "\\s\"" string forward-sexp (byte-code "\300\301!\210`\207" [forward-sexp 1] 2) ((error (byte-code "\304	\n@\nA#b\210`\211)\207" [syntax semantic-lex-unterminated-syntax-end-function semantic-lex-analysis-bounds semantic-lex-end-point string] 4))) 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 accept-process-output throw lex ((byte-code "\203�\301!\210\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 semantic-lex-comment-regex comment-start-point semantic-lex-number-expression semantic-current-input-throw-symbol semantic-lex-debug o last blk x syntax semantic-lex-unterminated-syntax-end-function] 6 (#$ . 5083)])
#@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 (#$ . 9115)])
(provide 'semantic/bovine/scm)