Variable: ebnf-iso-token-table

ebnf-iso-token-table is a variable defined in ebnf-iso.el.gz.

Value

[error error error error error error error error error space space space form-feed space error error error error error error error error error error error error error error error error error error space character double-terminal character character character character single-terminal character end-group repeat character catenate except character character integer integer integer integer integer integer integer integer integer integer character character character equal character special character non-terminal non-terminal non-terminal non-terminal non-terminal non-terminal non-terminal non-terminal non-terminal non-terminal non-terminal non-terminal non-terminal non-terminal non-terminal non-terminal non-terminal non-terminal non-terminal non-terminal non-terminal non-terminal non-terminal non-terminal non-terminal non-terminal character character character character non-terminal character non-terminal non-terminal non-terminal non-terminal non-terminal non-terminal non-terminal non-terminal non-terminal non-terminal non-terminal non-terminal non-terminal non-terminal non-terminal non-terminal non-terminal non-terminal non-terminal non-terminal non-terminal non-terminal non-terminal non-terminal non-terminal non-terminal character character character character error error error error error error error error error error error error error error error error error error error error error error error error error error error error error error error error error non-terminal non-terminal non-terminal non-terminal non-terminal non-terminal non-terminal non-terminal non-terminal non-terminal non-terminal non-terminal non-terminal non-terminal non-terminal non-terminal non-terminal non-terminal non-terminal non-terminal non-terminal non-terminal non-terminal non-terminal non-terminal non-terminal non-terminal non-terminal non-terminal non-terminal non-terminal non-terminal non-terminal non-terminal non-terminal non-terminal non-terminal non-terminal non-terminal non-terminal non-terminal non-terminal non-terminal non-terminal non-terminal non-terminal non-terminal non-terminal non-terminal non-terminal non-terminal non-terminal non-terminal non-terminal non-terminal non-terminal non-terminal non-terminal non-terminal non-terminal non-terminal non-terminal non-terminal non-terminal non-terminal non-terminal non-terminal non-terminal non-terminal non-terminal non-terminal non-terminal non-terminal non-terminal non-terminal non-terminal non-terminal non-terminal non-terminal non-terminal non-terminal non-terminal non-terminal non-terminal non-terminal non-terminal non-terminal non-terminal non-terminal non-terminal non-terminal non-terminal non-terminal non-terminal non-terminal non-terminal]

Documentation

Vector used to map characters to a lexical token.

Source Code

;; Defined in /usr/src/emacs/lisp/progmodes/ebnf-iso.el.gz
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;; Lexical analyzer


(defconst ebnf-iso-token-table
  ;; control character & 8-bit character are set to `error'
  (let ((table (make-vector 256 'error))
	(char ?\040))
    ;; printable character
    (while (< char ?\060)
      (aset table char 'character)
      (setq char (1+ char)))
    ;; digits:
    (while (< char ?\072)
      (aset table char 'integer)
      (setq char (1+ char)))
    (while (< char ?\101)
      (aset table char 'character)
      (setq char (1+ char)))
    ;; upper case letters:
    (while (< char ?\133)
      (aset table char 'non-terminal)
      (setq char (1+ char)))
    (while (< char ?\141)
      (aset table char 'character)
      (setq char (1+ char)))
    ;; lower case letters:
    (while (< char ?\173)
      (aset table char 'non-terminal)
      (setq char (1+ char)))
    (while (< char ?\177)
      (aset table char 'character)
      (setq char (1+ char)))
    ;; European 8-bit accentuated characters:
    (setq char ?\240)
    (while (< char ?\400)
      (aset table char 'non-terminal)
      (setq char (1+ char)))
    ;; Override space characters:
    (aset table ?\013 'space)		; [VT] vertical tab
    (aset table ?\n   'space)		; [NL] linefeed
    (aset table ?\r   'space)		; [CR] carriage return
    (aset table ?\t   'space)		; [HT] horizontal tab
    (aset table ?\    'space)		; [SP] space
    ;; Override form feed character:
    (aset table ?\f 'form-feed)		; [FF] form feed
    ;; Override other lexical characters:
    (aset table ?_  'non-terminal)
    (aset table ?\" 'double-terminal)
    (aset table ?\' 'single-terminal)
    (aset table ?\? 'special)
    (aset table ?*  'repeat)
    (aset table ?,  'catenate)
    (aset table ?-  'except)
    (aset table ?=  'equal)
    (aset table ?\) 'end-group)
    table)
  "Vector used to map characters to a lexical token.")