%% Author: Manuel Rubio <manuel@altenwald.com>

-define(IS_SPACE(X), (X =:= 32 orelse X =:= $\t orelse X =:= $\r)).
-define(IS_NEWLINE(X), X =:= $\n).
-define(IS_NUMBER(X), (X >= $0 andalso X =< $9)).
-define(IS_ALPHA(X), ((X >= $A andalso X =< $Z) orelse (X >= $a andalso X =< $z))).
-define(IS_ALPHANUM(X), (?IS_NUMBER(X) orelse ?IS_ALPHA(X))).
-define(IS_HEX(X), (?IS_NUMBER(X) orelse (X >= $A andalso X =< $F) orelse (X >= $a andalso X =< $f))).
-define(IS_OCT(X), (X >= $0 andalso X =< $7)).
-define(OR(I, X, Y), (I =:= X orelse I =:= Y)).
-define(IS_OP1_ARITH(X),
        X =:= <<"*">>
        orelse X =:= <<"/">>
        orelse X =:= <<"%">>
        orelse X =:= <<"+">>
        orelse X =:= <<"-">>
        orelse X =:= <<".">>
        orelse X =:= <<"&">>
        orelse X =:= <<"^">>
        orelse X =:= <<"|">>).
-define(IS_OP1(X),
        X =:= <<126>>
        orelse X =:= <<"@">>
        orelse X =:= <<"!">>
        orelse X =:= <<"*">>
        orelse X =:= <<"/">>
        orelse X =:= <<"%">>
        orelse X =:= <<"+">>
        orelse X =:= <<"-">>
        orelse X =:= <<".">>
        orelse X =:= <<"<">>
        orelse X =:= <<">">>
        orelse X =:= <<"&">>
        orelse X =:= <<"^">>
        orelse X =:= <<"|">>
        orelse X =:= <<"=">>).
-define(IS_OP2(X),
        X =:= <<"**">>
        orelse X =:= <<"++">>
        orelse X =:= <<"--">>
        orelse X =:= <<"<<">>
        orelse X =:= <<">>">>
        orelse X =:= <<"<=">>
        orelse X =:= <<">=">>
        orelse X =:= <<"==">>
        orelse X =:= <<"!=">>
        orelse X =:= <<"<>">>
        orelse X =:= <<"&&">>
        orelse X =:= <<"||">>
        orelse X =:= <<"??">>
        orelse X =:= <<"+=">>
        orelse X =:= <<"-=">>
        orelse X =:= <<"*=">>
        orelse X =:= <<"/=">>
        orelse X =:= <<".=">>
        orelse X =:= <<"%=">>
        orelse X =:= <<"&=">>
        orelse X =:= <<"|=">>
        orelse X =:= <<"^=">>
        orelse X =:= <<"->">>
        orelse X =:= <<"::">>).
-define(IS_OP3(X),
        X =:= <<"===">>
        orelse X =:= <<"!==">>
        orelse X =:= <<"<=>">>
        orelse X =:= <<"**=">>
        orelse X =:= <<"<<=">>
        orelse X =:= <<">>=">>).

-type parser_levels() ::
    root |
    literal |
    if_old_block |
    for_old_block |
    foreach_old_block |
    while_old_block |
    switch_old_block |
    if_block |
    for_block |
    foreach_block |
    while_block |
    switch_block |
    switch_label |
    code |
    code_block |
    code_value |
    code_statement |
    arg |
    array |
    array_curly |
    array_def |
    enclosed |
    unclosed |
    static |
    abstract.

-record(parser,
        {level = root :: parser_levels() | pos_integer(),
         row = 1 :: pos_integer(),
         col = 1 :: pos_integer(),
         filename = <<"-">> :: binary(),
         array_type = old :: old | php54,
         access :: undefined | access_types(),
         final = false :: boolean(),
         namespace = [] :: ephp_ns:namespace(),
         %% can_be could have the following contents:
         %% - true: there is no namespace still set.
         %% - false: there is not possible to set a namespace.
         %% - only_block: only block namespaces could be defined.
         %% - only_statement: only statement namespaces.
         namespace_can_be = true :: boolean() | only_block | only_statement,
         use_list = [] :: [{ephp_ns:namespace(), ephp_ns:namespace()}],
         use_ns = [] :: ephp_ns:namespace(),
         use_func_list = [] :: [{function_name(), ephp_ns:namespace()}],
         use_const_list = [] :: [{binary(), ephp_ns:namespace()}]}).

-type parser() :: #parser{}.

-record(php_n, {n :: binary(), type = int :: int | float, line :: line()}).