kalzium/src/solver/lexer.mll

   1 (***************************************************************************
   2  *   Copyright (C) 2004 by Thomas Nagy                                     *
   3  *   tnagy2^8@yahoo.fr                                                     *
   4  *                                                                         *
   5  *   This program is free software; you can redistribute it and/or modify  *
   6  *   it under the terms of the GNU General Public License as published by  *
   7  *   the Free Software Foundation; either version 2 of the License, or     *
   8  *   (at your option) any later version.                                   *
   9  *                                                                         *
  10  *   This program is distributed in the hope that it will be useful,       *
  11  *   but WITHOUT ANY WARRANTY; without even the implied warranty of        *
  12  *   MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the         *
  13  *   GNU General Public License for more details.                          *
  14  *                                                                         *
  15  *   You should have received a copy of the GNU General Public License     *
  16  *   along with this program; if not, write to the                         *
  17  *   Free Software Foundation, Inc.,                                       *
  18  *   51 Franklin Street, Fifth Floor, Boston, MA 02110-1301, USA.             *
  19  ***************************************************************************)
  20
  21 (* File lexer.mll*)
  22 {
  23         open Parser;;
  24         exception IllegalChar
  25 }
  26
  27 rule token = parse
  28 [' ' '\t' '\n']   {token lexbuf} (* ignore whitespaces *)
  29 | ['0'-'9']+      { INT(int_of_string(Lexing.lexeme lexbuf)) }
  30 | ['A'-'Z']       { CAPITAL(Lexing.lexeme lexbuf) }
  31 | ['a'-'z']+      { MINOR(Lexing.lexeme lexbuf) }
  32 | '+'             { PLUS }
  33 | '-'             { MINUS }
  34 | '('             { LPAREN }
  35 | ')'             { RPAREN }
  36 | '['             { LBRACKET }
  37 | ']'             { RBRACKET }
  38 | "->"            { ARROW }
  39 | _               { raise IllegalChar; }
  40 | eof             { EOF }
  41