QCaml/Basis/BasisLexer.mll

{
exception SyntaxError of string

open GamessParser

}

let eol = ['\n']
let white = [' ' '\t']+
let element   = ['A'-'Z' 'a'-'z']+ white? eol
let ang_mom  = ['S' 'P' 'D' 'F' 'G' 'H' 'I' 'J' 'K' 'L' 'M' 'N' 'O' 
                's' 'p' 'd' 'f' 'g' 'h' 'i' 'j' 'k' 'l' 'm' 'n' 'o' ]
               white
let integer  = ['0'-'9']+ 
let real = '-'? integer '.' integer (['e' 'E'] ('+'|'-')? integer)? 


rule read_all_rule  = parse
  | eol            { EOL }
  | white          { SPACE }
  | ang_mom as a   { ANG_MOM (a.[0]) }
  | element as e   { ELEMENT (String.trim e) }
  | integer as i   { INTEGER (int_of_string i) }
  | real    as f   { FLOAT (float_of_string f) }
  | eof            { EOF }


{
  let rec read_all lexbuf =
     match read_all_rule lexbuf with
     | SPACE -> read_all_rule lexbuf
     | x -> x
}