/*     Lexical Analyzer with Flex (1.6.0)     */
/*       The Translators - Spring 2025        */

%option noyywrap
%option header-file="flex.h"
%option yylineno
%{
  #include <stdbool.h>
  #include "../tmp/grammar.tab.h"
  #include "../src/symbol_table.h"
  #ifndef DEBUG
    #define DEBUG 0
  #endif
  extern SymbolTable * cur;
  extern FILE* tok_flag;
  extern void incr(int lnum,int cnum, int tok);
  extern void print_tok(int tok);

  int line_number = 1, column_number = 1;
  int yycolumn = 1;
  #define YY_USER_ACTION { \
  yylloc.first_line = yylineno; \
  yylloc.last_line = yylineno; \
  yylloc.first_column = yycolumn; \
  yylloc.last_column = yycolumn + yyleng - 1; \
  yycolumn += yyleng; }
%}

STARCOM [^\*]|\*+[^\)\*]+
PARENCOM [^\)]|[^\*\)]+\)+
COMMENT \(\*{STARCOM}*\*\)|\(\*{PARENCOM}*\*\)
ID [A-Za-z_][0-9A-Za-z_]*
DIGIT [0-9]
CHAR \\n|\\t|\\'|[^'\n\t\\]|\\\\
SCHAR \\n|\\t|\\\"|[^\"\n\\]

%%

"integer"        {if(DEBUG) {printf( "T_INTEGER:    %s  (%d)\n", yytext, T_INTEGER);}       else {if(tok_flag != NULL){print_tok(T_INTEGER);}incr(line_number,column_number,T_INTEGER);return T_INTEGER;}}
"address"        {if(DEBUG) {printf( "T_ADDRESS:    %s  (%d)\n", yytext, T_ADDRESS);}       else {if(tok_flag != NULL){print_tok(T_ADDRESS);}incr(line_number,column_number,T_ADDRESS);return T_ADDRESS;}}
"Boolean"        {if(DEBUG) {printf( "T_BOOLEAN:    %s  (%d)\n", yytext, T_BOOLEAN);}       else {if(tok_flag != NULL){print_tok(T_INTEGER);}incr(line_number,column_number,T_INTEGER);return T_BOOLEAN;}}
"character"      {if(DEBUG) {printf( "T_CHARACTER:  %s  (%d)\n", yytext, T_CHARACTER);}     else {if(tok_flag != NULL){print_tok(T_CHARACTER);}incr(line_number,column_number,T_CHARACTER);return T_CHARACTER;}}

"while"          {if(DEBUG) {printf( "WHILE:        %s  (%d)\n", yytext, WHILE);}           else {if(tok_flag != NULL){print_tok(WHILE);}incr(line_number,column_number,WHILE);return WHILE;}}
"if"             {if(DEBUG) {printf( "IF:           %s  (%d)\n", yytext, IF);}              else {if(tok_flag != NULL){print_tok(IF);}incr(line_number,column_number,IF);return IF;}}
"then"           {if(DEBUG) {printf( "THEN:         %s  (%d)\n", yytext, THEN);}            else {if(tok_flag != NULL){print_tok(THEN);}incr(line_number,column_number,THEN);return THEN;}}
"else"           {if(DEBUG) {printf( "ELSE:         %s  (%d)\n", yytext, ELSE);}            else {if(tok_flag != NULL){print_tok(ELSE);}incr(line_number,column_number,ELSE);return ELSE;}}
"type"           {if(DEBUG) {printf( "TYPE:         %s  (%d)\n", yytext, TYPE);}            else {if(tok_flag != NULL){print_tok(TYPE);}incr(line_number,column_number,TYPE);return TYPE;}}
"function"       {if(DEBUG) {printf( "FUNCTION:     %s  (%d)\n", yytext, FUNCTION);}        else {if(tok_flag != NULL){print_tok(FUNCTION);}incr(line_number,column_number,FUNCTION);return FUNCTION;}}
"return"         {if(DEBUG) {printf( "RETURN:       %s  (%d)\n", yytext, RETURN);}          else {if(tok_flag != NULL){print_tok(RETURN);}incr(line_number,column_number,RETURN);return RETURN;}}
"external"       {if(DEBUG) {printf( "EXTERNAL:     %s  (%d)\n", yytext, EXTERNAL);}        else {if(tok_flag != NULL){print_tok(EXTERNAL);}incr(line_number,column_number,EXTERNAL);return EXTERNAL;}}
"as"             {if(DEBUG) {printf( "AS:           %s  (%d)\n", yytext, AS);}              else {if(tok_flag != NULL){print_tok(AS);}incr(line_number,column_number,AS);return AS;}}

"release"        {if(DEBUG) {printf( "RELEASE:      %s  (%d)\n", yytext, RELEASE);}         else {if(tok_flag != NULL){print_tok(RELEASE);}incr(line_number,column_number,RELEASE);return RELEASE;}}
"reserve"        {if(DEBUG) {printf( "RESERVE:      %s  (%d)\n", yytext, RESERVE);}         else {if(tok_flag != NULL){print_tok(RESERVE);}incr(line_number,column_number,RESERVE);return RESERVE;}}

"+"              {if(DEBUG) {printf( "ADD:          %s  (%d)\n", yytext, ADD);}             else {if(tok_flag != NULL){print_tok(ADD);}incr(line_number,column_number,ADD);return ADD;}}
"-"              {if(DEBUG) {printf( "SUB_OR_NEG:   %s  (%d)\n", yytext, SUB_OR_NEG);}      else {if(tok_flag != NULL){print_tok(SUB_OR_NEG);}incr(line_number,column_number,SUB_OR_NEG);return SUB_OR_NEG;}}
"*"              {if(DEBUG) {printf( "MUL:          %s  (%d)\n", yytext, MUL);}             else {if(tok_flag != NULL){print_tok(MUL);}incr(line_number,column_number,MUL);return  MUL;}}
"/"              {if(DEBUG) {printf( "DIV:          %s  (%d)\n", yytext, DIV);}             else {if(tok_flag != NULL){print_tok(DIV);}incr(line_number,column_number,DIV);return DIV;}}
"%"              {if(DEBUG) {printf( "REM:          %s  (%d)\n", yytext, REM);}             else {if(tok_flag != NULL){print_tok(REM);}incr(line_number,column_number,REM);return REM;}}
"<"              {if(DEBUG) {printf( "LESS_THAN:    %s  (%d)\n", yytext, LESS_THAN);}       else {if(tok_flag != NULL){print_tok(LESS_THAN);}incr(line_number,column_number,LESS_THAN);return LESS_THAN;}}
"="              {if(DEBUG) {printf( "EQUAL_TO:     %s  (%d)\n", yytext, EQUAL_TO);}        else {if(tok_flag != NULL){print_tok(EQUAL_TO);}incr(line_number,column_number,EQUAL_TO);return EQUAL_TO;}}
":="             {if(DEBUG) {printf( "ASSIGN:       %s  (%d)\n", yytext, ASSIGN);}          else {if(tok_flag != NULL){print_tok(ASSIGN);}incr(line_number,column_number,ASSIGN);return ASSIGN;}}
"!"              {if(DEBUG) {printf( "NOT:          %s  (%d)\n", yytext, NOT);}             else {if(tok_flag != NULL){print_tok(NOT);}incr(line_number,column_number,NOT);return NOT;}}
"&"              {if(DEBUG) {printf( "AND:          %s  (%d)\n", yytext, AND);}             else {if(tok_flag != NULL){print_tok(AND);}incr(line_number,column_number,AND);return AND;}}
"|"              {if(DEBUG) {printf( "OR:           %s  (%d)\n", yytext, OR);}              else {if(tok_flag != NULL){print_tok(OR);}incr(line_number,column_number,OR);return OR;}}
"."              {if(DEBUG) {printf( "DOT:          %s  (%d)\n", yytext, DOT);}             else {if(tok_flag != NULL){print_tok(DOT);}incr(line_number,column_number,DOT);return DOT;}}

";"              {if(DEBUG) {printf( "SEMI_COLON:   %s  (%d)\n", yytext, SEMI_COLON);}      else {if(tok_flag != NULL){print_tok(SEMI_COLON);}incr(line_number,column_number,SEMI_COLON);return SEMI_COLON;}}
":"              {if(DEBUG) {printf( "COLON:        %s  (%d)\n", yytext, COLON);}           else {if(tok_flag != NULL){print_tok(COLON);}incr(line_number,column_number,COLON);return COLON;}}
","              {if(DEBUG) {printf( "COMMA:        %s  (%d)\n", yytext, COMMA);}           else {if(tok_flag != NULL){print_tok(COMMA);}incr(line_number,column_number,COMMA);return COMMA;}}
"->"             {if(DEBUG) {printf( "ARROW:        %s  (%d)\n", yytext, ARROW);}           else {if(tok_flag != NULL){print_tok(ARROW);}incr(line_number,column_number,ARROW);return ARROW;}}

{DIGIT}+         {if(DEBUG) {printf( "C_INTEGER:    %s  (%d)\n", yytext, C_INTEGER);}       else {if(tok_flag != NULL){print_tok(C_INTEGER);}incr(line_number,column_number,C_INTEGER);return C_INTEGER;}}
'{CHAR}'         {if(DEBUG) {printf( "C_CHARACTER:  %s  (%d)\n", yytext, C_CHARACTER);}     else {if(tok_flag != NULL){print_tok(C_CHARACTER);}incr(line_number,column_number,C_CHARACTER);return C_CHARACTER;}}
\"{SCHAR}*\"     {if(DEBUG) {printf( "C_STRING:     %s  (%d)\n", yytext, C_STRING);}        else {if(tok_flag != NULL){print_tok(C_STRING);}incr(line_number,column_number,C_STRING);return C_STRING;}}
{COMMENT}        {if(DEBUG) {printf( "COMMENT:      %s  (%d)\n", yytext, COMMENT);}         else {if(tok_flag != NULL){print_tok(COMMENT);}incr(line_number,column_number,COMMENT);/*return COMMENT;*/}}

"("              {if(DEBUG) {printf( "L_PAREN:      %s  (%d)\n", yytext, L_PAREN);}         else {if(tok_flag != NULL){print_tok(L_PAREN);}incr(line_number,column_number,L_PAREN);return L_PAREN;}}
")"              {if(DEBUG) {printf( "R_PAREN:      %s  (%d)\n", yytext, R_PAREN);}         else {if(tok_flag != NULL){print_tok(R_PAREN);}incr(line_number,column_number,R_PAREN);return R_PAREN;}}
"["              {if(DEBUG) {printf( "L_BRACKET:    %s  (%d)\n", yytext, L_BRACKET);}       else {if(tok_flag != NULL){print_tok(L_BRACKET);}incr(line_number,column_number,L_BRACKET);return L_BRACKET;}}
"]"              {if(DEBUG) {printf( "R_BRACKET:    %s  (%d)\n", yytext, R_BRACKET);}       else {if(tok_flag != NULL){print_tok(R_BRACKET);}incr(line_number,column_number,R_BRACKET);return R_BRACKET;}}
"{"              {if(DEBUG) {printf( "L_BRACE:      %s  (%d)\n", yytext, L_BRACE);}         else {if(tok_flag != NULL){print_tok(L_BRACE);}incr(line_number,column_number,L_BRACE);return L_BRACE;}}
"}"              {if(DEBUG) {printf( "R_BRACE:      %s  (%d)\n", yytext, R_BRACE);}         else {if(tok_flag != NULL){print_tok(R_BRACE);}incr(line_number,column_number,R_BRACE);return R_BRACE;}}

"true"           {if(DEBUG) {printf( "C_TRUE:       %s  (%d)\n", yytext, C_TRUE);}          else {if(tok_flag != NULL){print_tok(C_TRUE);}incr(line_number,column_number,C_TRUE);return C_TRUE;}}
"false"          {if(DEBUG) {printf( "C_FALSE:      %s  (%d)\n", yytext, C_FALSE);}         else {if(tok_flag != NULL){print_tok(C_FALSE);}incr(line_number,column_number,C_FALSE);return C_FALSE;}}
"null"           {if(DEBUG) {printf( "C_NULL:       %s  (%d)\n", yytext, C_NULL);}          else {if(tok_flag != NULL){print_tok(C_NULL);}incr(line_number,column_number,C_NULL);return C_NULL;}}

{ID}             {if(DEBUG) {printf( "ID:           %s  (%d)\n", yytext, ID);}              else {if(tok_flag != NULL){print_tok(ID);}incr(line_number,column_number,ID);yylval.words = strdup(yytext); return ID;}}

\n               {yycolumn=1;incr(line_number,column_number,0);}
\t               {incr(line_number,column_number,0);}
" "              {incr(line_number,column_number,0);}
.                {incr(line_number,column_number,0);}

%%