;ELC
;;; Compiled
;;; in Emacs version 28.2
;;; with all optimizations.



(require 'semantic/lex)
#@64 The number of expected shift/reduce conflicts in this grammar.
(defconst semantic-scm-by--expected-conflicts nil (#$ . 108))
#@29 Table of language keywords.
(defconst semantic-scm-by--keyword-table (semantic-lex-make-keyword-table '(("define" . DEFINE) ("define-module" . DEFINE-MODULE) ("module" . MODULE) ("load" . LOAD)) '(("load" summary "Function: (load \"filename\")") ("define-module" summary "Function: (define-module (name arg1 ...)) ") ("define" summary "Function: (define symbol expression)"))) (#$ . 239))
#@26 Table of lexical tokens.
(defconst semantic-scm-by--token-table (semantic-lex-make-type-table '(("close-paren" (CLOSEPAREN . ")")) ("open-paren" (OPENPAREN . "("))) nil) (#$ . 634))
#@15 Parser table.
(defconst semantic-scm-by--parse-table (byte-code "\300\301\302\303DD\304\305\306\307\310FD\307\311\312\313\314F\311\315\316\317F\320\315\321E\322\312\323E\324\325\326E\312\327\330E\331C\257\315\302\332DD\333\305\306\334\335FD\334\312\334\336E\337CE\340BBBBBBB\207" [(bovine-toplevel (scheme)) scheme semantic-list #[771 "\300@@@A\301\302\211\303\304\206\305$\"A\242\266\205\211\306
\211A@\262

=\266\202\203\\\211\211@\262
\307\310@@@A\311\305$\302\211\312\313\314\315\316	\317\n@\320\fA\f&\f\266\205\202]\211\262
D\"\207" [append scheme-list nil semantic-parse-stream semantic-lex 1 module "module" semantic-parse-region scheme apply semantic-tag type :type :members :superclasses :interfaces] 23 "\n\n(fn VALS START END)"] scheme-list open-paren "(" scheme-in-list #[771 "\300A@D\"\207" [append] 7 "\n\n(fn VALS START END)"] DEFINE symbol expression #[771 "\300A@\301\3028\301\303\304\305\306\307&\266\204D\"\207" [append nil 2 apply semantic-tag variable :type :default-value] 17 "\n\n(fn VALS START END)"] name-args opt-doc #[771 "\300A@@\301A@A\301\302\303\304\305\306&\266\204D\"\207" [append nil apply semantic-tag function :type :arguments] 17 "\n\n(fn VALS START END)"] DEFINE-MODULE #[771 "\300A@GA@8\301\211\302\303\304\305&\266\203D\"\207" [append nil apply semantic-tag package :detail] 14 "\n\n(fn VALS START END)"] MODULE #[771 "\300@\301\302\303D\304!\303\211\257\266\203D\"\207" [append module :members nil semantic-tag-make-plist] 12 "\n\n(fn VALS START END)"] LOAD string #[771 "\300\301\302A@!!\302A@!\303\304\305\306\307&\266\203D\"\207" [append file-name-nondirectory read nil apply semantic-tag include :system-flag] 14 "\n\n(fn VALS START END)"] sequence #[771 "\300@\301\211\302\303\304\305&\266\203D\"\207" [append nil apply semantic-tag code :detail] 14 "\n\n(fn VALS START END)"] #[771 "\300\301\302\303\304!\303\211\257\266\203D\"\207" [append "Bad Tag in Sexp" error nil semantic-tag-make-plist] 12 "\n\n(fn VALS START END)"] #[771 "@@@A\300\301\211\302\303\206\304$\"A\242\207" [name-arg-list nil semantic-parse-stream semantic-lex 1] 14 "\n\n(fn VALS START END)"] name-arg-list name-arg-expand #[771 "\300A@D\"\207" [append] 7 "\n\n(fn VALS START END)"] #[771 "\300@A@BD\"\207" [append] 7 "\n\n(fn VALS START END)"] #[771 "\300D!\207" [append] 6 "\n\n(fn VALS START END)"] ((opt-doc (string) nil) (sequence (expression sequence) (expression)) (expression (symbol) (semantic-list) (string) (number)))] 12) (#$ . 822))
#@28 Setup the Semantic Parser.
(defalias 'semantic-scm-by--install-parser #[0 "\306\307\310
\211	\207" [semantic-scm-by--parse-table semantic--parse-table semantic-debug-parser-source semantic-debug-parser-class semantic-debug-parser-debugger-source semantic-scm-by--keyword-table "scheme.by" semantic-bovine-debug-parser semantic/bovine/debug semantic-flex-keywords-obarray] 2 (#$ . 3410)])
(provide 'semantic/bovine/scm-by)