Function: ebnf-yac-name-list

ebnf-yac-name-list is a byte-compiled function defined in ebnf-yac.el.gz.

Signature

(ebnf-yac-name-list TOKEN)

Source Code

;; Defined in /usr/src/emacs/lisp/progmodes/ebnf-yac.el.gz
;;; Name-List = { Name || "," }*.

(defun ebnf-yac-name-list (token)
  (let (names)
    (when (eq token 'non-terminal)
      (while (progn
	       (setq names (cons ebnf-yac-lex names)
		     token (ebnf-yac-lex))
	       (eq token 'comma))
	(or (eq (ebnf-yac-lex) 'non-terminal)
	    (error "Missing token name"))))
    (cons token names)))