c6.l

%{
#include <stdlib.h>
#include "calc3.h"
#include "y.tab.h"


void yyerror(char *);
%}

%%

0	        { yylval.iValue = atol(yytext);
              return INTEGER;
	        }
[1-9][0-9]* { yylval.iValue = atol(yytext);
              return INTEGER;
	        }
    /* character */
'.'	{ yylval.iValue = (long) yytext[1];
      return INTEGER;
	}
    /* operator */
">=" { return GE; }
"<=" { return LE; }
"==" { return EQ; }
"!=" { return NE; }

"&&" { return AND; }
"||" { return OR; }
    /* keyword */
"for"   { return FOR;   }
"while" { return WHILE; }
"if"    { return IF;    }
"else"  { return ELSE;  }

"print" { return PRINT; }
"puti"  { return PRINT; }
"puti_" { return PUTI_; }
"puts"  { return PUTS;  }
"puts_" { return PUTS_; }
"putc"  { return PUTC;  }
"putc_" { return PUTC_; }

"read" { return READ; }
"geti" { return READ; }
"getc" { return GETC; }
"gets" { return GETS; }

"array"  { return ARRAY; }
"func"   { return FUNC;  }
"return" { return RETURN; }

[-()<>=+*/;{}.%\[\],@] { return *yytext; }
    /* string */
\".+\"	{ yytext[yyleng-1]=0;
          yylval.iValue = (long) yytext+1;
          return STRING;
        }
    /* identifier */
[[:alpha:]][[:alnum:]]* { yylval.iValue = (long) yytext;
                          return VARIABLE;
                        }

\/\/.*\n   { /* skip comments */     }
[ \t\n\r]+ { /* ignore whitespace */ } /* Pay attention to `\r` on Windows. */
.          { yyerror("unknown character");
             // printf("ASCII of unknown character:");
             // for (int i = 0; i < yyleng; i++) {
             //     printf(" %d", yytext[i]);
             // }
             // printf("\n");
           }

%%

int yywrap(void) {
    return 1;
}