lexer.l

%{
/*
 * Lexer for IMP language
 */
#define _POSIX_C_SOURCE 200809L
#include <stdlib.h>
#include <string.h>
#include "ast.h"
#include "parser.h"

extern int yylineno;

static char *my_strdup(const char *s) {
    char *d = malloc(strlen(s) + 1);
    if (d == NULL) return NULL;
    strcpy(d, s);
    return d;
}
%}

%option noyywrap
%option yylineno

%%

"PROGRAM"       { return PROGRAM; }
"PROCEDURE"     { return PROCEDURE; }
"IS"            { return IS; }
"IN"            { return IN; }
"END"           { return END; }
"IF"            { return IF; }
"THEN"          { return THEN; }
"ELSE"          { return ELSE; }
"ENDIF"         { return ENDIF; }
"WHILE"         { return WHILE; }
"DO"            { return DO; }
"ENDWHILE"      { return ENDWHILE; }
"REPEAT"        { return REPEAT; }
"UNTIL"         { return UNTIL; }
"FOR"           { return FOR; }
"FROM"          { return FROM; }
"TO"            { return TO; }
"DOWNTO"        { return DOWNTO; }
"ENDFOR"        { return ENDFOR; }
"READ"          { return READ; }
"WRITE"         { return WRITE; }
"T"             { return T; }
"I"             { return I; }
"O"             { return O; }

":="            { return ASSIGN; }
"+"             { return PLUS; }
"-"             { return MINUS; }
"*"             { return TIMES; }
"/"             { return DIVIDE; }
"%"             { return MOD; }
"="             { return EQ; }
"!="            { return NEQ; }
"<"             { return LT; }
">"             { return GT; }
"<="            { return LEQ; }
">="            { return GEQ; }

"("             { return LPAREN; }
")"             { return RPAREN; }
"["             { return LBRACKET; }
"]"             { return RBRACKET; }
":"             { return COLON; }
";"             { return SEMICOLON; }
","             { return COMMA; }

[_a-z]+         { yylval.str = my_strdup(yytext); return PIDENTIFIER; }
[0-9]+          { yylval.num = atoll(yytext); return NUM; }

#.*             { /* comment - ignore */ }
[ \t\r\n]+      { /* whitespace - ignore */ }

.               { fprintf(stderr, "Błąd leksykalny w linii %d: nieznany znak '%s'\n", yylineno, yytext); exit(1); }

%%