Function: wisent-parse-start

wisent-parse-start is a byte-compiled function defined in wisent.el.gz.

Signature

(wisent-parse-start START STARTS)

Documentation

Return the first lexical token to shift for START symbol.

STARTS is the table of allowed start symbols or nil if the LALR automaton has only one entry point.

Source Code

;; Defined in /usr/src/emacs/lisp/cedet/semantic/wisent/wisent.el.gz
(defsubst wisent-parse-start (start starts)
  "Return the first lexical token to shift for START symbol.
STARTS is the table of allowed start symbols or nil if the LALR
automaton has only one entry point."
  (if (null starts)
      ;; Only one entry point, return the first lexical token
      ;; available in input.
      (wisent-lexer)
    ;; Multiple start symbols defined, return the internal lexical
    ;; token associated to START.  By default START is the first
    ;; nonterminal defined in STARTS.
    (let ((token (cdr (if start (assq start starts) (car starts)))))
      (if token
          (list token (symbol-name token))
        (error "Invalid start symbol %s" start)))))