Lines Matching +defs:table +defs:string
372 (defconst ebnf-bnf-token-table (make-vector 256 'error)
377 "Initialize EBNF token table."
382 (aset ebnf-bnf-token-table char 'non-terminal)
386 (aset ebnf-bnf-token-table char 'integer)
390 (aset ebnf-bnf-token-table char 'non-terminal)
395 (aset ebnf-bnf-token-table char 'non-terminal)
398 (aset ebnf-bnf-token-table ?\013 'space) ; [VT] vertical tab
399 (aset ebnf-bnf-token-table ?\n 'space) ; [NL] linefeed
400 (aset ebnf-bnf-token-table ?\r 'space) ; [CR] carriage return
401 (aset ebnf-bnf-token-table ?\t 'space) ; [HT] horizontal tab
402 (aset ebnf-bnf-token-table ?\ 'space) ; [SP] space
404 (aset ebnf-bnf-token-table ?\f 'form-feed) ; [FF] form feed
406 (aset ebnf-bnf-token-table ?\" 'terminal)
407 (aset ebnf-bnf-token-table ?\? 'special)
408 (aset ebnf-bnf-token-table ?\( 'begin-group)
409 (aset ebnf-bnf-token-table ?\) 'end-group)
410 (aset ebnf-bnf-token-table ?* 'repeat)
411 (aset ebnf-bnf-token-table ?- 'except)
412 (aset ebnf-bnf-token-table ?= 'equal)
413 (aset ebnf-bnf-token-table ?\[ 'begin-optional)
414 (aset ebnf-bnf-token-table ?\] 'end-optional)
415 (aset ebnf-bnf-token-table ?\{ 'begin-list)
416 (aset ebnf-bnf-token-table ?| 'alternative)
417 (aset ebnf-bnf-token-table ?\} 'end-list)
418 (aset ebnf-bnf-token-table ?/ 'list)
419 (aset ebnf-bnf-token-table ?+ 'one-or-more)
420 (aset ebnf-bnf-token-table ?$ 'default)
422 (aset ebnf-bnf-token-table ebnf-lex-comment-char 'comment)
424 (aset ebnf-bnf-token-table ebnf-lex-eop-char 'period)))
446 (setq token (aref ebnf-bnf-token-table (following-char)))
469 (if (memq (aref ebnf-bnf-token-table (following-char))
482 (ebnf-string " ->@-~" ?\? "special")
485 ;; terminal: "string"
487 (setq ebnf-bnf-lex (ebnf-unescape-string (ebnf-get-string)))
495 (setq match (string-match ebnf-terminal-regexp
544 (setq ebnf-action (aref ebnf-comment-table (following-char)))
563 (defun ebnf-unescape-string (str)
580 (let ((new (make-string (- len n-esc) ?\ ))
591 ;; remaining string has no escape