Lines Matching defs:lex
135 (defvar ebnf-bnf-lex nil
136 "Value returned by `ebnf-bnf-lex' function.")
153 (setq token (ebnf-bnf-lex))
172 (let ((header ebnf-bnf-lex)
178 (or (eq (ebnf-bnf-lex) 'equal)
185 (cons (ebnf-bnf-lex)
202 (let ((token (ebnf-bnf-lex))
220 (let ((exception (ebnf-repeat (ebnf-bnf-lex))))
251 (let ((times ebnf-bnf-lex)
253 (or (eq (ebnf-bnf-lex) 'repeat)
255 (setq token (ebnf-bnf-lex))
257 (setq upper ebnf-bnf-lex
258 token (ebnf-bnf-lex)))
270 (setq token (ebnf-bnf-lex)))
274 (cons (ebnf-bnf-lex)
292 (setq token (ebnf-bnf-lex))
297 (ebnf-bnf-lex)
321 (ebnf-make-terminal ebnf-bnf-lex))
324 (ebnf-make-non-terminal ebnf-bnf-lex))
327 (ebnf-make-special ebnf-bnf-lex))
422 (aset ebnf-bnf-token-table ebnf-lex-comment-char 'comment)
424 (aset ebnf-bnf-token-table ebnf-lex-eop-char 'period)))
432 (defun ebnf-bnf-lex ()
437 See documentation for variable `ebnf-bnf-lex'."
472 (ebnf-bnf-lex)
477 (setq ebnf-bnf-lex (ebnf-buffer-substring "0-9"))
481 (setq ebnf-bnf-lex (concat (and ebnf-special-show-delimiter "?")
487 (setq ebnf-bnf-lex (ebnf-unescape-string (ebnf-get-string)))
491 (setq ebnf-bnf-lex (ebnf-buffer-substring ebnf-bnf-non-terminal-chars))
496 ebnf-bnf-lex))
498 (= (match-end 0) (length ebnf-bnf-lex)))