;;;; mother modular generic compiler project
; (c)2001,2002/GPL Oskar Schirmer <oskar@scara.com>
; see file COPYING for GPL license details

; finite automaton scanner description for ebnf

(
  (initial
    ((#\space #\newline #\tab #\return #\page)
                  #f get  #f initial #f)
    ((#\A . #\Z) #t  get pos word    #f)
    ((#\a . #\z) #t  get pos word    #f)
    (#\"          #f get pos string  #f)
    (#\|          #f get pos initial bar)
    (#\:          #f get pos initial colon)
    (#\(          #f get pos initial lparen)
    (#\)          #f get pos initial rparen)
    (#\[          #f get pos initial lbracket)
    (#\]          #f get pos initial rbracket)
    (#\{          #f get pos initial lbrace)
    (#\}          #f get pos initial rbrace)
    (#\.          #f get pos initial period)
    (else         #f  #f  #f #f      #f)
  )
  (word
    ((#\A . #\Z) #t  get  #f word    #f)
    ((#\a . #\z) #t  get  #f word    #f)
    ((#\0 . #\9) #t  get  #f word    #f)
    (else         #f  #f  #f initial nonterm)
  )
  (string
    (#\"          #f get  #f initial terminal)
    (else        #t  get  #f string  #f)
  )
)

