%option fast

%option outfile=AsciiLexerImpl.hpp

%option namespace=ccl::rslang::detail::asciilex
%option lexer=AsciiLexerImpl
%option token-type=ccl::rslang::TokenID

%option noindent
%option noline
%option nodefault
%option noyywrap

%top{

#pragma once
#include "ccl/rslang/RSToken.h"

%}

%class{
public:
  [[nodiscard]] StrRange Range() const { 
   // Note: returning byte position, not code point! Assume input is ASCII
    return StrRange{
        static_cast<StrPos>(matcher().first()),
        static_cast<StrPos>(matcher().last())
    };
  }
%}

ws          [ \t\r\n]+
digit       [0-9]
upper       [A-Z]
lower       [a-z]
alpha       ({upper}|{lower})
alnum       (_|{digit}|{alpha})
number      {digit}+
index       {number}(,{number})*

global_id   [||{upper}--[B]]{alnum}*
local_id    (_|{lower}){alnum}*

%%

"\A"                { return TokenID::FORALL; }
"\E"                { return TokenID::EXISTS; }

"\neg"              { return TokenID::NOT; }
"\and"              { return TokenID::AND; }
"\or"               { return TokenID::OR; }
"\impl"             { return TokenID::IMPLICATION; }
"\equiv"            { return TokenID::EQUIVALENT; }

"\plus"             { return TokenID::PLUS; }
"\minus"            { return TokenID::MINUS; }
"\multiply"         { return TokenID::MULTIPLY; }
"\gr"               { return TokenID::GREATER; }
"\ls"               { return TokenID::LESSER; }
"\ge"               { return TokenID::GREATER_OR_EQ; }
"\le"               { return TokenID::LESSER_OR_EQ; }

"\eq"               { return TokenID::EQUAL; }
"\noteq"            { return TokenID::NOTEQUAL; }

"\in"               { return TokenID::IN; }
"\notin"            { return TokenID::NOTIN; }
"\subseteq"         { return TokenID::SUBSET_OR_EQ; }
"\subset"           { return TokenID::SUBSET; }
"\notsubset"        { return TokenID::NOTSUBSET; }

"*"                 { return TokenID::DECART; }
"\union"            { return TokenID::UNION; }
"\intersect"        { return TokenID::INTERSECTION; }
"\setminus"         { return TokenID::SET_MINUS; }
"\symmdiff"         { return TokenID::SYMMINUS; }
"B"                 { return TokenID::BOOLEAN; }

pr{index}           { return TokenID::SMALLPR; }
Pr{index}           { return TokenID::BIGPR; }
Fi{index}           { return TokenID::FILTER; }
card                { return TokenID::CARD; }
bool                { return TokenID::BOOL; }
red                 { return TokenID::REDUCE; }
debool              { return TokenID::DEBOOL; }

D                   { return TokenID::DECLARATIVE; }
R                   { return TokenID::RECURSIVE; }
I                   { return TokenID::IMPERATIVE; }

Z                   { return TokenID::LIT_INTSET; }
"{}"                { return TokenID::LIT_EMPTYSET; }
{number}            { return TokenID::LIT_INTEGER; }

F{number}           { return TokenID::ID_FUNCTION; }
P{number}           { return TokenID::ID_PREDICATE; }
R{number}           { return TokenID::ID_RADICAL; }

{global_id}         { return TokenID::ID_GLOBAL; }
{local_id}          { return TokenID::ID_LOCAL; }

"\assign"           { return TokenID::ASSIGN; }
"\from"             { return TokenID::ITERATE; }
"\defexpr"          { return TokenID::PUNC_DEFINE; }
"\deftype"          { return TokenID::PUNC_STRUCT; }
"("                 { return TokenID::PUNC_PL; }
")"                 { return TokenID::PUNC_PR; }
"{"                 { return TokenID::PUNC_CL; }
"}"                 { return TokenID::PUNC_CR; }
"["                 { return TokenID::PUNC_SL; }
"]"                 { return TokenID::PUNC_SR; }
"|"                 { return TokenID::PUNC_BAR; }
","                 { return TokenID::PUNC_COMMA; }
";"                 { return TokenID::PUNC_SEMICOLON; }

{ws}                ;
<<EOF>>             { return TokenID::END; }
.                   { return TokenID::INTERRUPT; }

%%