scanner.lex

   1 %{
   2 #include "parser.h"
   3 %}
   4
   5 %%
   6
   7  /* Quoting all string in order to facilitate for
   8     emacs's C module :-) */
   9 [ \t\n] ;                       /* skip ws */
  10 "if" { return IF; }
  11 "elsif" { return ELSIF; }
  12 "else" { return ELSE; }
  13 "while" { return WHILE; }
  14 "my" { return MY; }
  15 "write_int" { return WRT_INT; }
  16 "break" { return BREAK; }
  17 "next" { return NEXT; }
  18 "return" { return RETURN; }
  19 "shift" { return SHFT; }
  20 "==" { return EQL; }
  21 "!=" { return NE; }
  22 ">=" { return GEQL; }
  23 "<=" { return LEQL; }
  24 ">"  { return GT; }
  25 "<"  { return LT; }
  26 "||" { return OR; }
  27 "&&" { return AND; }
  28 "!"  { return NOT; }
  29
  30 [a-zA-Z_][a-zA-Z0-9_]* {
  31   yylval.fun.id = strdup(yytext);
  32   return IDENTIFIER;
  33 }
  34 [$][a-zA-Z_][a-zA-Z0-9_]* {
  35   yylval.var.id = strdup(yytext);
  36   return VARIABLE;
  37 }
  38 [0-9]+ {
  39   yylval.ival = atoi(yytext);
  40   return INTEGER;
  41 }
  42   /*[#].* { } */
  43 . { return yytext[0]; }
  44
  45 %%