lexer.l

Go to the documentation of this file.

/*
 
  $Id: lexer.l 23065 2016-03-02 09:05:50Z coelho $
 
  Copyright 1989-2016 MINES ParisTech
 
  This file is part of PIPS.
 
  PIPS is free software: you can redistribute it and/or modify it
  under the terms of the GNU General Public License as published by
  the Free Software Foundation, either version 3 of the License, or
  any later version.
 
  PIPS is distributed in the hope that it will be useful, but WITHOUT ANY
  WARRANTY; without even the implied warranty of MERCHANTABILITY or
  FITNESS FOR A PARTICULAR PURPOSE.
 
  See the GNU General Public License for more details.
 
  You should have received a copy of the GNU General Public License
  along with PIPS.  If not, see <http://www.gnu.org/licenses/>.
 
*/
 
%option nounput
%option noinput
 
%{
//%option debug
#ifdef HAVE_CONFIG_H
    #include "pips_config.h"
#endif
#include <stdlib.h>
#include <string.h>
 
#include "genC.h"
#include "linear.h"
#include "ri.h"
 
#include "resources.h"
 
#include "ri-util.h"
#include "sac.h"
#include "patterns.h"
 
%}
%%
"REFERENCE"               return REFERENCE_TOK;
"QI_REF"                return QI_REF_TOK;
"HI_REF"                return HI_REF_TOK;
"SI_REF"                return SI_REF_TOK;
"DI_REF"                return DI_REF_TOK;
"SF_REF"                return SF_REF_TOK;
"DF_REF"                return DF_REF_TOK;
"SC_REF"                return SC_REF_TOK;
"DC_REF"                return DC_REF_TOK;
"LOG_REF"               return LOG_REF_TOK;
"CONSTANT"              return CONSTANT_TOK;
"="                     return ASSIGN_OPERATOR_TOK;
"+"                     return PLUS_OPERATOR_TOK;
"-"                     return MINUS_OPERATOR_TOK;
"UNARY_MINUS"           return UNARY_MINUS_OPERATOR_TOK;
"*"                     return MULTIPLY_OPERATOR_TOK;
"__PIPS_SAC_MULADD"     return MULADD_OPERATOR_TOK;
"/"                     return DIVIDE_OPERATOR_TOK;
"INVERSE"               return INVERSE_OPERATOR_TOK;
"^"                     return POWER_OPERATOR_TOK;
"%"                     return MODULO_OPERATOR_TOK;
"MIN"                   return MIN_OPERATOR_TOK;
"COS"                   return COS_OPERATOR_TOK;
"SIN"                   return SIN_OPERATOR_TOK;
"MIN0"                  return MIN0_OPERATOR_TOK;
"AMIN1"                 return AMIN1_OPERATOR_TOK;
"DMIN1"                 return DMIN1_OPERATOR_TOK;
"MAX"                   return MAX_OPERATOR_TOK;
"MAX0"                  return MAX0_OPERATOR_TOK;
"AMAX1"                 return AMAX1_OPERATOR_TOK;
"DMAX1"                 return DMAX1_OPERATOR_TOK;
"ABS"                   return ABS_OPERATOR_TOK;
"IABS"                  return IABS_OPERATOR_TOK;
"DABS"                  return DABS_OPERATOR_TOK;
"CABS"                  return CABS_OPERATOR_TOK;
"&"                     return AND_OPERATOR_TOK;
"|"                     return OR_OPERATOR_TOK;
"!"                     return NOT_OPERATOR_TOK;
"!="                    return NON_EQUAL_OPERATOR_TOK;
"EQUIV"                 return EQUIV_OPERATOR_TOK;
"NON_EQUIV"             return NON_EQUIV_OPERATOR_TOK;
"TRUE"                  return TRUE_OPERATOR_TOK;
"FALSE"                 return FALSE_OPERATOR_TOK;
">="            return GREATER_OR_EQUAL_OPERATOR_TOK;
">"                     return GREATER_THAN_OPERATOR_TOK;
"<="                return LESS_OR_EQUAL_OPERATOR_TOK;
"<"                     return LESS_THAN_OPERATOR_TOK;
"=="                    return EQUAL_OPERATOR_TOK;
"?"                             return PHI_TOK;
[0-9.-]+                  { yylval.iVal = atoi(yytext); return INTEGER_TOK; }
[A-Za-z][0-9A-Za-z_]*   { yylval.strVal = strdup(yytext); return IDENTIFIER_TOK; }
[ \t]                   ;
[\n]                                    { sac_lineno ++; }
"#".*                   ;
.                       return *yytext;
%%