;; Author: Vinicius Jose Latorre <vinicius@cpqd.com.br>
;; Maintainer: Vinicius Jose Latorre <vinicius@cpqd.com.br>
;; Keywords: wp, ebnf, PostScript
-;; Time-stamp: <2001/09/18 21:03:57 vinicius>
-;; Version: 1.6
+;; Time-stamp: <2003-02-10 10:29:48 jbarranquero>
+;; Version: 1.7
;; This file is part of GNU Emacs.
\f
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
-;; Syntatic analyzer
+;; Syntactic analyzer
;;; EBNF = {production}+.
(aset ebnf-bnf-token-table ebnf-lex-eop-char 'period)))
+;; replace the range "\240-\377" (see `ebnf-range-regexp').
+(defconst ebnf-bnf-non-terminal-chars
+ (ebnf-range-regexp "!#%&'*-,0-:<>@-Z\\\\^-z~" ?\240 ?\377))
+
+
(defun ebnf-bnf-lex ()
"Lexical analyser for EBNF.
'terminal)
;; non-terminal or terminal
((eq token 'non-terminal)
- ;; replace the range "\240-\377" (see `ebnf-range-regexp').
- (setq ebnf-bnf-lex (ebnf-buffer-substring
- (ebnf-range-regexp "!#%&'*-,0-:<>@-Z\\\\^-z~"
- ?\240 ?\377)))
+ (setq ebnf-bnf-lex (ebnf-buffer-substring ebnf-bnf-non-terminal-chars))
(let ((case-fold-search ebnf-case-fold-search)
match)
(if (and ebnf-terminal-regexp
(provide 'ebnf-bnf)
+;;; arch-tag: 3b1834d3-8367-475b-80d5-8e0bbd00ce50
;;; ebnf-bnf.el ends here