Variable: semantic-scm-by--parse-table
semantic-scm-by--parse-table is a variable defined in scm-by.el.gz.
Value
Large value
((bovine-toplevel (scheme))
(scheme
(semantic-list
#[771
"\300@@@A\301\302\211\303\304\206�\305$\"\266\205A\242\211\306A@=\266\202\203S�\211@\307\310@@@A\311\305$\302\211\312\313\314\315\316 \317\n@\320\fA\f&\f\266\206D\"\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
("/nix/store/cr364a2c0mcca19wxfy57q56hxdks5sh-emacs-31-1/share/emacs/31.1/lisp/cedet/semantic/bovine/scm-by.elc"
. 836)]))
(scheme-list
(open-paren "(" scheme-in-list
#[771 "\300A@D\"\207" [append] 7
("/nix/store/cr364a2c0mcca19wxfy57q56hxdks5sh-emacs-31-1/share/emacs/31.1/lisp/cedet/semantic/bovine/scm-by.elc"
. 836)]))
(scheme-in-list
(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
("/nix/store/cr364a2c0mcca19wxfy57q56hxdks5sh-emacs-31-1/share/emacs/31.1/lisp/cedet/semantic/bovine/scm-by.elc"
. 836)])
(DEFINE 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
("/nix/store/cr364a2c0mcca19wxfy57q56hxdks5sh-emacs-31-1/share/emacs/31.1/lisp/cedet/semantic/bovine/scm-by.elc"
. 836)])
(DEFINE-MODULE name-args
#[771
"\300A@GA@8\301\211\302\303\304\305&\266\203D\"\207"
[append nil apply semantic-tag package :detail] 14
("/nix/store/cr364a2c0mcca19wxfy57q56hxdks5sh-emacs-31-1/share/emacs/31.1/lisp/cedet/semantic/bovine/scm-by.elc"
. 836)])
(MODULE symbol
#[771
"\300@\301\302\303D\304!\303\211\257\266\203D\"\207"
[append module :members nil semantic-tag-make-plist] 12
("/nix/store/cr364a2c0mcca19wxfy57q56hxdks5sh-emacs-31-1/share/emacs/31.1/lisp/cedet/semantic/bovine/scm-by.elc"
. 836)])
(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
("/nix/store/cr364a2c0mcca19wxfy57q56hxdks5sh-emacs-31-1/share/emacs/31.1/lisp/cedet/semantic/bovine/scm-by.elc"
. 836)])
(symbol sequence
#[771
"\300@\301\211\302\303\304\305&\266\203D\"\207"
[append nil apply semantic-tag code :detail] 14
("/nix/store/cr364a2c0mcca19wxfy57q56hxdks5sh-emacs-31-1/share/emacs/31.1/lisp/cedet/semantic/bovine/scm-by.elc"
. 836)])
(#[771
"\300\301\302\303\304!\303\211\257\266\203D\"\207"
[append "Bad Tag in Sexp" error nil semantic-tag-make-plist] 12
("/nix/store/cr364a2c0mcca19wxfy57q56hxdks5sh-emacs-31-1/share/emacs/31.1/lisp/cedet/semantic/bovine/scm-by.elc"
. 836)]))
(name-args
(semantic-list
#[771
"@@@A\300\301\211\302\303\206�\304$\"A\242\207"
[name-arg-list nil semantic-parse-stream semantic-lex 1] 14
("/nix/store/cr364a2c0mcca19wxfy57q56hxdks5sh-emacs-31-1/share/emacs/31.1/lisp/cedet/semantic/bovine/scm-by.elc"
. 836)]))
(name-arg-list
(open-paren "(" name-arg-expand
#[771 "\300A@D\"\207" [append] 7
("/nix/store/cr364a2c0mcca19wxfy57q56hxdks5sh-emacs-31-1/share/emacs/31.1/lisp/cedet/semantic/bovine/scm-by.elc"
. 836)]))
(name-arg-expand
(symbol name-arg-expand
#[771 "\300@A@BD\"\207" [append] 7
("/nix/store/cr364a2c0mcca19wxfy57q56hxdks5sh-emacs-31-1/share/emacs/31.1/lisp/cedet/semantic/bovine/scm-by.elc"
. 836)])
(#[771 "D\207" [] 5
("/nix/store/cr364a2c0mcca19wxfy57q56hxdks5sh-emacs-31-1/share/emacs/31.1/lisp/cedet/semantic/bovine/scm-by.elc"
. 836)]))
(opt-doc (string) nil) (sequence (expression sequence) (expression))
(expression (symbol) (semantic-list) (string) (number)))
Documentation
Parser table.
Source Code
;; Defined in /usr/src/emacs/lisp/cedet/semantic/bovine/scm-by.el.gz
(defconst semantic-scm-by--parse-table
`(
(bovine-toplevel
(scheme)
) ;; end bovine-toplevel
(scheme
(semantic-list
,(semantic-lambda
(let
(
(expand
(semantic-bovinate-from-nonterminal
(car
(nth 0 vals))
(cdr
(nth 0 vals))
'scheme-list)))
(cond
(
(semantic-tag-of-class-p expand
'module)
(semantic-tag-new-type
(semantic-tag-name expand)
"module"
(semantic-parse-region
(car
(nth 0 vals))
(cdr
(nth 0 vals))
'scheme
1) nil))
(t expand))))
)
) ;; end scheme
(scheme-list
(open-paren
"("
scheme-in-list
,(semantic-lambda
(nth 1 vals))
)
) ;; end scheme-list
(scheme-in-list
(DEFINE
symbol
expression
,(semantic-lambda
(semantic-tag-new-variable
(nth 1 vals) nil
(nth 2 vals)))
)
(DEFINE
name-args
opt-doc
,(semantic-lambda
(semantic-tag-new-function
(car
(nth 1 vals)) nil
(cdr
(nth 1 vals))))
)
(DEFINE-MODULE
name-args
,(semantic-lambda
(semantic-tag-new-package
(nth
(length
(nth 1 vals))
(nth 1 vals)) nil))
)
(MODULE
symbol
,(semantic-lambda
(semantic-tag
(nth 0 vals)
'module :members nil))
)
(LOAD
string
,(semantic-lambda
(semantic-tag-new-include
(file-name-nondirectory
(read
(nth 1 vals)))
(read
(nth 1 vals))))
)
(symbol
sequence
,(semantic-lambda
(semantic-tag-new-code
(nth 0 vals) nil))
)
(;;EMPTY
,(semantic-lambda
(semantic-tag
"Bad Tag in Sexp"
'error))
)
) ;; end scheme-in-list
(name-args
(semantic-list
,(lambda (vals start end)
(ignore vals start end)
(semantic-bovinate-from-nonterminal
(car
(nth 0 vals))
(cdr
(nth 0 vals))
'name-arg-list))
)
) ;; end name-args
(name-arg-list
(open-paren
"("
name-arg-expand
,(semantic-lambda
(nth 1 vals))
)
) ;; end name-arg-list
(name-arg-expand
(symbol
name-arg-expand
,(semantic-lambda
(cons
(nth 0 vals)
(nth 1 vals)))
)
(;;EMPTY
,(semantic-lambda)
)
) ;; end name-arg-expand
(opt-doc
(string)
(;;EMPTY
)
) ;; end opt-doc
(sequence
(expression
sequence)
(expression)
) ;; end sequence
(expression
(symbol)
(semantic-list)
(string)
(number)
) ;; end expression
)
"Parser table.")