295 |
(cons (car except) |
(cons (car except) |
296 |
(ebnf-make-except (cdr term) (cdr except)))) |
(ebnf-make-except (cdr term) (cdr except)))) |
297 |
term))) |
term))) |
298 |
|
|
299 |
|
|
300 |
|
|
301 |
;;; term ::= factor ('*' | '+' | '?')? |
;;; term ::= factor ('*' | '+' | '?')? |
416 |
|
|
417 |
|
|
418 |
(defun ebnf-ebx-lex () |
(defun ebnf-ebx-lex () |
419 |
"Lexical analyser for EBNFX. |
"Lexical analyzer for EBNFX. |
420 |
|
|
421 |
Return a lexical token. |
Return a lexical token. |
422 |
|
|
503 |
(error "Missing end of constraint `]'")) |
(error "Missing end of constraint `]'")) |
504 |
(forward-char) |
(forward-char) |
505 |
t) |
t) |
506 |
|
|
507 |
|
|
508 |
|
|
509 |
(defun ebnf-ebx-skip-end-of-rule () |
(defun ebnf-ebx-skip-end-of-rule () |