Function: ebnf-iso-syntax-rule

ebnf-iso-syntax-rule is a byte-compiled function defined in ebnf-iso.el.gz.

Signature

(ebnf-iso-syntax-rule TOKEN)

Source Code

;; Defined in /usr/src/emacs/lisp/progmodes/ebnf-iso.el.gz
;;; syntax rule = meta identifier, '=', definition list, ';';

(defun ebnf-iso-syntax-rule (token)
  (let ((header ebnf-iso-lex)
	(action ebnf-action)
	body)
    (setq ebnf-action nil)
    (or (eq token 'non-terminal)
	(error "Invalid meta identifier syntax rule"))
    (or (eq (ebnf-iso-lex) 'equal)
	(error "Invalid syntax rule: missing `='"))
    (setq body (ebnf-iso-definition-list))
    (or (eq (car body) 'period)
	(error "Invalid syntax rule: missing `;' or `.'"))
    (setq body (cdr body))
    (ebnf-eps-add-production header)
    (cons (ebnf-iso-lex)
	  (ebnf-make-production header body action))))