Variable: semantic-make-by--parse-table
semantic-make-by--parse-table is a variable defined in make-by.el.gz.
Value
Large value
((bovine-toplevel
(Makefile))
(Makefile
(bol newline
#[771 "\300E\207"
[nil]
6 "\n\n(fn VALS START END)"])
(bol variable
#[771 "\300A@D\"\207"
[append]
7 "\n\n(fn VALS START END)"])
(bol rule
#[771 "\300A@D\"\207"
[append]
7 "\n\n(fn VALS START END)"])
(bol conditional
#[771 "\300A@D\"\207"
[append]
7 "\n\n(fn VALS START END)"])
(bol include
#[771 "\300A@D\"\207"
[append]
7 "\n\n(fn VALS START END)"])
(whitespace
#[771 "\300E\207"
[nil]
6 "\n\n(fn VALS START END)"])
(newline
#[771 "\300E\207"
[nil]
6 "\n\n(fn VALS START END)"]))
(variable
(symbol opt-whitespace equals opt-whitespace element-list
#[771 "\300@\301\3028\301\303\304\305\306\307&\266\204D\"\207"
[append nil 4 apply semantic-tag variable :type :default-value]
17 "\n\n(fn VALS START END)"]))
(rule
(targets opt-whitespace colons opt-whitespace element-list commands
#[771 "\300@\301\3028\301\303\304\305\306\307&\266\204D\"\207"
[append nil 4 apply semantic-tag function :type :arguments]
17 "\n\n(fn VALS START END)"]))
(targets
(target opt-whitespace targets
#[771 "@@\3008@F\207"
[2]
7 "\n\n(fn VALS START END)"])
(target
#[771 "@@E\207"
[]
6 "\n\n(fn VALS START END)"]))
(target
(sub-target target
#[771 "@@\3008@PE\207"
[2]
6 "\n\n(fn VALS START END)"])
(sub-target
#[771 "@@E\207"
[]
6 "\n\n(fn VALS START END)"]))
(sub-target
(symbol)
(string)
(varref))
(conditional
(IF some-whitespace symbol newline
#[771 "\300E\207"
[nil]
6 "\n\n(fn VALS START END)"])
(IFDEF some-whitespace symbol newline
#[771 "\300E\207"
[nil]
6 "\n\n(fn VALS START END)"])
(IFNDEF some-whitespace symbol newline
#[771 "\300E\207"
[nil]
6 "\n\n(fn VALS START END)"])
(IFEQ some-whitespace expression newline
#[771 "\300E\207"
[nil]
6 "\n\n(fn VALS START END)"])
(IFNEQ some-whitespace expression newline
#[771 "\300E\207"
[nil]
6 "\n\n(fn VALS START END)"])
(ELSE newline
#[771 "\300E\207"
[nil]
6 "\n\n(fn VALS START END)"])
(ENDIF newline
#[771 "\300E\207"
[nil]
6 "\n\n(fn VALS START END)"]))
(expression
(semantic-list))
(include
(INCLUDE some-whitespace element-list
#[771 "\300\3018\302\211\303\304\305\306&\266\203D\"\207"
[append 2 nil apply semantic-tag include :system-flag]
14 "\n\n(fn VALS START END)"]))
(equals
(punctuation "\\`[:]\\'" punctuation "\\`[=]\\'"
#[771 "D\207"
[]
5 "\n\n(fn VALS START END)"])
(punctuation "\\`[+]\\'" punctuation "\\`[=]\\'"
#[771 "D\207"
[]
5 "\n\n(fn VALS START END)"])
(punctuation "\\`[=]\\'"
#[771 "D\207"
[]
5 "\n\n(fn VALS START END)"]))
(colons
(punctuation "\\`[:]\\'" punctuation "\\`[:]\\'"
#[771 "D\207"
[]
5 "\n\n(fn VALS START END)"])
(punctuation "\\`[:]\\'"
#[771 "D\207"
[]
5 "\n\n(fn VALS START END)"]))
(element-list
(elements newline
#[771 "\300@D\"\207"
[append]
7 "\n\n(fn VALS START END)"]))
(elements
(element some-whitespace elements
#[771 "\300@\3018D#\207"
[append 2]
8 "\n\n(fn VALS START END)"])
(element
#[771 "\300@D\"\207"
[append]
7 "\n\n(fn VALS START END)"])
nil)
(element
(sub-element element
#[771 "@@A@@PE\207"
[]
6 "\n\n(fn VALS START END)"])
nil)
(sub-element
(symbol)
(string)
(punctuation)
(semantic-list
#[771 "\300\"E\207"
[buffer-substring-no-properties]
6 "\n\n(fn VALS START END)"]))
(varref
(punctuation "\\`[$]\\'" semantic-list
#[771 "\300\"E\207"
[buffer-substring-no-properties]
6 "\n\n(fn VALS START END)"]))
(commands
(bol shell-command newline commands
#[771 "\300@CA@D#\207"
[append]
8 "\n\n(fn VALS START END)"])
(#[771 "D\207"
[]
5 "\n\n(fn VALS START END)"]))
(opt-whitespace
(some-whitespace
#[771 "\300E\207"
[nil]
6 "\n\n(fn VALS START END)"])
nil)
(some-whitespace
(whitespace some-whitespace
#[771 "\300E\207"
[nil]
6 "\n\n(fn VALS START END)"])
(whitespace
#[771 "\300E\207"
[nil]
6 "\n\n(fn VALS START END)"])))
Documentation
Parser table.
Source Code
;; Defined in /usr/src/emacs/lisp/cedet/semantic/bovine/make-by.el.gz
(defconst semantic-make-by--parse-table
`(
(bovine-toplevel
(Makefile)
) ;; end bovine-toplevel
(Makefile
(bol
newline
,(semantic-lambda
(list nil))
)
(bol
variable
,(semantic-lambda
(nth 1 vals))
)
(bol
rule
,(semantic-lambda
(nth 1 vals))
)
(bol
conditional
,(semantic-lambda
(nth 1 vals))
)
(bol
include
,(semantic-lambda
(nth 1 vals))
)
(whitespace
,(semantic-lambda
(list nil))
)
(newline
,(semantic-lambda
(list nil))
)
) ;; end Makefile
(variable
(symbol
opt-whitespace
equals
opt-whitespace
element-list
,(semantic-lambda
(semantic-tag-new-variable
(nth 0 vals) nil
(nth 4 vals)))
)
) ;; end variable
(rule
(targets
opt-whitespace
colons
opt-whitespace
element-list
commands
,(semantic-lambda
(semantic-tag-new-function
(nth 0 vals) nil
(nth 4 vals)))
)
) ;; end rule
(targets
(target
opt-whitespace
targets
,(semantic-lambda
(list
(car
(nth 0 vals))
(car
(nth 2 vals))))
)
(target
,(semantic-lambda
(list
(car
(nth 0 vals))))
)
) ;; end targets
(target
(sub-target
target
,(semantic-lambda
(list
(concat
(car
(nth 0 vals))
(car
(nth 2 vals)))))
)
(sub-target
,(semantic-lambda
(list
(car
(nth 0 vals))))
)
) ;; end target
(sub-target
(symbol)
(string)
(varref)
) ;; end sub-target
(conditional
(IF
some-whitespace
symbol
newline
,(semantic-lambda
(list nil))
)
(IFDEF
some-whitespace
symbol
newline
,(semantic-lambda
(list nil))
)
(IFNDEF
some-whitespace
symbol
newline
,(semantic-lambda
(list nil))
)
(IFEQ
some-whitespace
expression
newline
,(semantic-lambda
(list nil))
)
(IFNEQ
some-whitespace
expression
newline
,(semantic-lambda
(list nil))
)
(ELSE
newline
,(semantic-lambda
(list nil))
)
(ENDIF
newline
,(semantic-lambda
(list nil))
)
) ;; end conditional
(expression
(semantic-list)
) ;; end expression
(include
(INCLUDE
some-whitespace
element-list
,(semantic-lambda
(semantic-tag-new-include
(nth 2 vals) nil))
)
) ;; end include
(equals
(punctuation
"\\`[:]\\'"
punctuation
"\\`[=]\\'"
,(semantic-lambda)
)
(punctuation
"\\`[+]\\'"
punctuation
"\\`[=]\\'"
,(semantic-lambda)
)
(punctuation
"\\`[=]\\'"
,(semantic-lambda)
)
) ;; end equals
(colons
(punctuation
"\\`[:]\\'"
punctuation
"\\`[:]\\'"
,(semantic-lambda)
)
(punctuation
"\\`[:]\\'"
,(semantic-lambda)
)
) ;; end colons
(element-list
(elements
newline
,(semantic-lambda
(nth 0 vals))
)
) ;; end element-list
(elements
(element
some-whitespace
elements
,(semantic-lambda
(nth 0 vals)
(nth 2 vals))
)
(element
,(semantic-lambda
(nth 0 vals))
)
(;;EMPTY
)
) ;; end elements
(element
(sub-element
element
,(semantic-lambda
(list
(concat
(car
(nth 0 vals))
(car
(nth 1 vals)))))
)
(;;EMPTY
)
) ;; end element
(sub-element
(symbol)
(string)
(punctuation)
(semantic-list
,(semantic-lambda
(list
(buffer-substring-no-properties
(identity start)
(identity end))))
)
) ;; end sub-element
(varref
(punctuation
"\\`[$]\\'"
semantic-list
,(semantic-lambda
(list
(buffer-substring-no-properties
(identity start)
(identity end))))
)
) ;; end varref
(commands
(bol
shell-command
newline
commands
,(semantic-lambda
(list
(nth 0 vals))
(nth 1 vals))
)
(;;EMPTY
,(semantic-lambda)
)
) ;; end commands
(opt-whitespace
(some-whitespace
,(semantic-lambda
(list nil))
)
(;;EMPTY
)
) ;; end opt-whitespace
(some-whitespace
(whitespace
some-whitespace
,(semantic-lambda
(list nil))
)
(whitespace
,(semantic-lambda
(list nil))
)
) ;; end some-whitespace
)
"Parser table.")