Variable: ebnf-iso-token-table

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

Value

Large 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.")