%PDF-
%PDF-
Mini Shell
Mini Shell
;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.
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
(require 'semantic/lex)
#@64 The number of expected shift/reduce conflicts in this grammar.
(defconst semantic-scm-by--expected-conflicts nil (#$ . 432))
#@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)"))) (#$ . 563))
#@26 Table of lexical tokens.
(defconst semantic-scm-by--token-table (semantic-lex-make-type-table '(("close-paren" (CLOSEPAREN . ")")) ("open-paren" (OPENPAREN . "("))) nil) (#$ . 958))
#@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 #[#1=(vals start end) "\306@@@A\307\310\211 \311\312
\f\n\206 \313 $ \"A\242-\211 \314 \211 \211 A@)*=\203n \211 @)\315\316@@@A\317\313$\310\211 \320\321 \322\323\324 \325@\326A&\f-\202p )
\fD\"\207" [vals length depth nonterm end start append scheme-list nil semantic-parse-stream semantic-lex 1 module "module" semantic-parse-region scheme apply semantic-tag type :type :members :superclasses :interfaces expand class tag attributes parents members name] 15] scheme-list open-paren "(" scheme-in-list #[#1# "\303A@ \nD\"\207" [vals start end append] 4] DEFINE symbol expression #[#1# "\306A@\307\3108\307 \311\312\f\313\314 \315\n &,
D\"\207" [vals attributes default-value type name start append nil 2 apply semantic-tag variable :type :default-value end] 10] name-args opt-doc #[#1# "\306A@@\307A@A\307 \310\311\f\312\313 \314\n &,
D\"\207" [vals attributes arg-list type name start append nil apply semantic-tag function :type :arguments end] 10] DEFINE-MODULE #[#1# "\306A@GA@8\307\211\310\311 \312\313\n &+\f
D\"\207" [vals attributes detail name start end append nil apply semantic-tag package :detail] 8] MODULE #[#1# "\306@\307\310\311D\211\n\312 !\311\211\257+\f
D\"\207" [vals attributes class name start end append module :members nil semantic-tag-make-plist] 7] LOAD string #[#1# "\306\307\310A@!!\310A@!\311\312\313 \314\315\n &+\f
D\"\207" [vals attributes system-flag name start end append file-name-nondirectory read nil apply semantic-tag include :system-flag] 8] sequence #[#1# "\306@\307\211\310\311 \312\313\n &+\f
D\"\207" [vals attributes detail name start end append nil apply semantic-tag code :detail] 8] #[#1# "\305\306\307\310\211 \311!\310\211\257+ \fD\"\207" [attributes class name start end append "Bad Tag in Sexp" error nil semantic-tag-make-plist] 7] #[(vals start end) "@@@A\306\307\211 \310\311
\f\n\206 \312 $ \"A\242-\207" [vals length depth nonterm end start name-arg-list nil semantic-parse-stream semantic-lex 1] 6] name-arg-list name-arg-expand #[#1# "\303A@ \nD\"\207" [vals start end append] 4] #[#1# "\303@A@B \nD\"\207" [vals start end append] 4] #[#1# "\302 D!\207" [start end append] 3] ((opt-doc (string) nil) (sequence (expression sequence) (expression)) (expression (symbol) (semantic-list) (string) (number)))] 12) (#$ . 1146))
#@28 Setup the Semantic Parser.
(defalias 'semantic-scm-by--install-parser #[nil "\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 (#$ . 3857)])
(provide 'semantic/bovine/scm-by)
Zerion Mini Shell 1.0