Variable: ebnf-yac-token-table

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

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