{
  (* 
    Lexer specification for simple regular expressions.
  *)
 
module ReLex

open Microsoft.FSharp.Text.Lexing
open RePar;

let lexemeAsString lexbuf = 
    LexBuffer<char>.LexemeString lexbuf

}

rule Token = parse
      [' ' '\t' '\r' '\n']  { Token lexbuf }
    | '\''                  { APO }
    | "eps"                 { EPS }
    | '*'                   { STA }
    | '|'                   { BAR }
    | '('                   { LPR }
    | ')'                   { RPR }
    | eof                   { EOF }
    | '\''                  { APO }
    | "'''"                 { CHR ('\'') }
    | _                     { CHR (System.Char.Parse (lexemeAsString lexbuf)) }