Lexer DFA for object pascal

objpas-lexer.txt

[[a[nd
   |rray
   |s
   |sm]
 |b[egin]
 |c[ase
   |lass
   |onst[
        |ructor]]
 |d[e[structor
     |fault]
   |i[sp[interface
        |pose]
     |v]
   |o[
     |wnto]]
 |e[lse
   |nd
   |x[cept
     |it
     |ports]]
 |f[alse
   |i[le
     |nal[ization
         |ly]]
   |or
   |unction]
 |goto
 |i[f
   |mplementation
   |n[
     |herited
     |itialization
     |line
     |terface]
   |s]
 |l[abel
   |ibrary]
 |mod
 |n[ew
   |il
   |ot]
 |o[bject
   |f
   |n
   |perator
   |r
   |ut]
 |p[acked
   |ro[cedure
      |gram
      |perty]]
 |r[aise
   |e[cord
     |peat
     |sourcestring]]
 |s[e[lf
     |et]
   |h[l
     |r]
   |tring]
 |t[h[en
     |readvar]
   |o
   |r[ue
     |y]
   |ype]
 |u[n[it
     |til]
   |ses]
 |var
 |w[hile
   |ith]
 |xor]
 (a..z)+ -> iden]