Lines Matching defs:lex
94 (defvar ebnf-yac-lex nil
95 "Value returned by `ebnf-yac-lex' function.")
126 (setq token (ebnf-yac-lex))
131 (setq token (ebnf-yac-lex))
159 (setq token (ebnf-yac-lex))
161 (or (eq (ebnf-yac-lex) 'non-terminal)
163 (or (eq (ebnf-yac-lex) 'close-angle)
165 (setq token (ebnf-yac-lex)))
172 (or (eq (ebnf-yac-lex) 'non-terminal)
174 (ebnf-yac-lex))
177 (ebnf-yac-lex))
185 (let ((header ebnf-yac-lex)
191 (or (eq (ebnf-yac-lex) 'colon)
198 (cons (ebnf-yac-lex)
217 (while (setq token (ebnf-yac-lex)
237 (ebnf-make-terminal ebnf-yac-lex))
240 (ebnf-make-non-terminal ebnf-yac-lex))
243 (ebnf-make-special ebnf-yac-lex))
256 (setq names (cons ebnf-yac-lex names)
257 token (ebnf-yac-lex))
259 (or (eq (ebnf-yac-lex) 'non-terminal)
315 (defun ebnf-yac-lex ()
320 See documentation for variable `ebnf-yac-lex'."
353 (setq ebnf-yac-lex (ebnf-get-string))
357 (setq ebnf-yac-lex (ebnf-string " -&(-~" ?\' "terminal"))
361 (setq ebnf-yac-lex (ebnf-buffer-substring "0-9A-Za-z_."))
362 (cond ((member ebnf-yac-lex ebnf-yac-token-list)
364 ((string= ebnf-yac-lex "error")