Gecko [ fernandoquevedodop.com ]

Name	Size	Permission
c-by.elc	35.25 KB	-rw-r--r--
c.elc	103.37 KB	-rw-r--r--
debug.elc	6.96 KB	-rw-r--r--
el.elc	36.85 KB	-rw-r--r--
gcc.elc	5.28 KB	-rw-r--r--
grammar.elc	18.3 KB	-rw-r--r--
make-by.elc	5.7 KB	-rw-r--r--
make.elc	15.83 KB	-rw-r--r--
scm-by.elc	4.19 KB	-rw-r--r--
scm.elc	9.04 KB	-rw-r--r--

Code Editor : scm-by.elc

;ELC���
;;; Compiled
;;; in Emacs version 27.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.

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

(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\211A@)*=\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)

${this.title}

Code Editor : scm-by.elc