Variable: ebnf-yac-token-table

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

Value

Large value
[error error error error error error error error error space space
       error form-feed space error error error error error error error
       error error error error error error error error error error
       error space character string character character yac-pragma
       character terminal character character character character
       comma character character slash character character character
       character character character character character character
       character colon period open-angle character close-angle
       character 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 character 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 yac-code alternative error 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 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 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 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]

Documentation

Vector used to map characters to a lexical token.

Source Code

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


;;; Name = "[A-Za-z][A-Za-z0-9_.]*".
;;;
;;; Comment = "/*" "any character, but the sequence \"*/\"" "*/"
;;;         | "//" "any character" "\\n".

(defconst ebnf-yac-token-table
  ;; control character & 8-bit character are set to `error'
  (let ((table (make-vector 256 'error)))
    ;; upper & lower case letters:
    (mapc
     (lambda (char)
       (aset table char 'non-terminal))
     "ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz")
    ;; printable characters:
    (mapc
     (lambda (char)
       (aset table char 'character))
     "!#$&()*+-.0123456789=?@[\\]^_`~")
    ;; Override space characters:
    (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 ?<  'open-angle)
    (aset table ?>  'close-angle)
    (aset table ?,  'comma)
    (aset table ?%  'yac-pragma)
    (aset table ?/  'slash)
    (aset table ?\{ 'yac-code)
    (aset table ?\" 'string)
    (aset table ?\' 'terminal)
    (aset table ?:  'colon)
    (aset table ?|  'alternative)
    (aset table ?\; 'period)
    table)
  "Vector used to map characters to a lexical token.")