Variable: semantic-scm-by--parse-table

semantic-scm-by--parse-table is a variable defined in scm-by.el.gz.

Value

((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)"]))
 (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 "\n\n(fn VALS START END)"])
  (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 "\n\n(fn VALS START END)"])
  (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 "\n\n(fn VALS START END)"])
  (MODULE symbol
	  #[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)"])
  (symbol 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)"]))
 (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 "\n\n(fn VALS START END)"]))
 (name-arg-list
  (open-paren "(" name-arg-expand
	      #[771 "\300A@D\"\207"
		    [append]
		    7 "\n\n(fn VALS START END)"]))
 (name-arg-expand
  (symbol name-arg-expand
	  #[771 "\300@A@BD\"\207"
		[append]
		7 "\n\n(fn VALS START END)"])
  (#[771 "

D\207"
	 []
	 5 "\n\n(fn VALS START END)"]))
 (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.")