gdminus

-file("/usr/local/lib/erlang24/lib/parsetools-2.3/include/leexinc.hrl", 0).
%% The source of this file is part of leex distribution, as such it
%% has the same Copyright as the other files in the leex
%% distribution. The Copyright is defined in the accompanying file
%% COPYRIGHT. However, the resultant scanner generated by leex is the
%% property of the creator of the scanner and is not covered by that
%% Copyright.

-module(gdminus_scan).

-export([string/1,string/2,token/2,token/3,tokens/2,tokens/3]).
-export([format_error/1]).

%% User code. This is placed here to allow extra attributes.
-file("/usr/home/lincoln/gdminus/src/gdminus_scan.xrl", 47).
-export([is_keyword/1]).
-export([normalize/1]).

% The gdminus scanner will produce multiple levels of indentation per token,
% this function will flatten the results such that multiple indent or dedent
% tokens are printed per script line
normalize(List) ->
	% The resulting list will be built backwards and deep
	lists:reverse(lists:flatten(normalize(List, []))).

normalize([], Acc) ->
	erlang:erase(mode),
	erlang:erase(s_tabstop),
	erlang:erase(s_indent),
	Acc;
normalize([{Type, Line, Number} | T ], Acc) when Type == indent; Type == dedent ->
	%io:format("Found an indent or dedent token~n"),
	Result = explode({Type, Line, Number}),
	%io:format("Exploded tokens, result: ~p~n", [Result]),
	% Attach the resulting head to the accumulator 
	normalize(T, [ Result | Acc ]);
normalize([H|T], Acc) ->
	% Do nothing with lines that don't match indent or dedent
	%io:format("Doing nothing with line ~p~n", [H]),
	normalize(T, [ H |Acc]).


explode({Type, Line, Number}) ->
	explode({Type, Line, Number}, []).

explode({_Type, _Line, Number}, Acc) when Number == 0 ->
	Acc;
explode({Type, Line, Number}, Acc) ->
	NewAcc = [ {Type, Line} | Acc ],
	explode({Type, Line, Number - 1}, NewAcc).
	

tab_or_space([Head|Rest]) when Head == 10 ->
	tab_or_space(Rest);
tab_or_space(["\t"|_Rest]) ->
	tab;
tab_or_space("\t") ->
	tab;
tab_or_space(_) ->
	space.
	

evaluate_indent_level(Chars, Line) ->
	% Yet more abuse of the process dictionary
	% We should set the mode the first time we encounter a indent token
	case get(mode) of
		undefined ->
			% Remove the initial newline
			case tab_or_space(Chars) of
				tab ->
					put(mode,tab),
					evaluate_indent_level_tab(Chars, Line);
				space ->
					put(mode,space),
					evaluate_indent_level_space(Chars, Line)
			end;
		space ->
			evaluate_indent_level_space(Chars,Line);
		tab ->
			evaluate_indent_level_tab(Chars, Line)
	end.

evaluate_indent_level_space(Chars, Line) ->
	% Represents the indentation level. The regex match looks for a newline
	% followed by any number of \s chars
	Level = length(Chars) - 1,
    % the first time we encounter indentation greater than 0, we record its
    % length to set the tab stop
    TabStop = 
        case get(tabstop_s) of
            undefined -> 
                case Level > 0 of
                    true ->
                        put(tabstop_s, Level),
                        Level;
                    false -> 1 %?
                end;
            T ->
                T
        end,

    CurLevel = Level div TabStop,

	% Compare the existing level to this one
	PrevLevel = 
		case get(indent_s) of
			undefined ->
				0;
			L -> L
		end,
	% Update with the current level
    put(indent_s, CurLevel),

	scope_token(PrevLevel, CurLevel, Line).

evaluate_indent_level_tab(Chars, Line) ->
	% Represents the indentation level. The regex match looks for a newline
	% followed by any number of \t chars
	CurLevel = length(Chars) - 1,

	% Compare the existing level to this one
	PrevLevel = 
		case get(tablev) of
			undefined ->
				0;
			L -> L
		end,
	% Update with the current level
    put(tablev, CurLevel),

	scope_token(PrevLevel, CurLevel, Line).

% If the previous level > current level, emit one or more dedent tokens
scope_token(PrevLevel, CurLevel, Line) when PrevLevel > CurLevel ->
	HowMany = PrevLevel - CurLevel,
	% Put the dedents on the previous line
	{token, {dedent, Line, HowMany}}; 
% If the current level > the previous level, emit an indent token
scope_token(PrevLevel, CurLevel, Line) when CurLevel > 0 ->
	HowMany = CurLevel - PrevLevel,
	{token, {indent, Line + 1, HowMany}};
scope_token(_PrevLevel, CurLevel, _Line) when CurLevel =:= 0 ->
	skip_token.

name_token(Cs, L) ->
    case catch {ok,list_to_binary(Cs)} of
    {ok,Name} ->
        case is_keyword(Name) of
        true -> {token,{name_string(Name),L}};
        false -> {token,{name,L,binary:bin_to_list(Name)}}
        end;
    _ -> {error,"illegal name"}
    end.

name_string(Name) ->
    binary_to_atom(Name, latin1).

%type_token(Cs, L) ->
%    case catch {ok,list_to_binary(Cs)} of
%    {ok,Type} ->
%        case is_type(Type) of
%        true -> {token,{type_string(Type),L}};
%        false -> {token,{type,L,binary:bin_to_list(Type)}}
%        end;
%    _ -> {error,"illegal type"}
%    end.
%
%type_string(Type) ->
%    binary_to_atom(Type, latin1).

string_token(Cs0, Len, L) ->
    Cs1 = string:substr(Cs0, 2, Len - 2),   %Strip quotes
	{token, {string, L, Cs1}}.

handle_float(TokenChars) -> 
    [H|_T] = TokenChars,
    case H of 
        % ASCII '.' symbol
        46 -> 
            list_to_float("0" ++ TokenChars);
        _ ->
            list_to_float(TokenChars)
    end.

%% Logical
is_keyword(<<"and">>) -> true;
is_keyword(<<"or">>) -> true;
is_keyword(<<"not">>) -> true;
%% Control flow
is_keyword(<<"if">>) -> true;
is_keyword(<<"elif">>) -> true;
is_keyword(<<"else">>) -> true;
is_keyword(<<"for">>) -> true;
is_keyword(<<"while">>) -> true;
is_keyword(<<"break">>) -> true;
is_keyword(<<"continue">>) -> true;
is_keyword(<<"pass">>) -> true;
is_keyword(<<"return">>) -> true;
is_keyword(<<"match">>) -> true;
%% Other keywords
is_keyword(<<"as">>) -> true;
is_keyword(<<"assert">>) -> true;
is_keyword(<<"wait">>) -> true;
is_keyword(<<"await">>) -> true;
is_keyword(<<"breakpoint">>) -> true;
is_keyword(<<"class">>) -> true;
is_keyword(<<"class_name">>) -> true;
is_keyword(<<"const">>) -> true;
is_keyword(<<"enum">>) -> true;
is_keyword(<<"extends">>) -> true;
is_keyword(<<"func">>) -> true;
is_keyword(<<"in">>) -> true;
is_keyword(<<"is">>) -> true;
is_keyword(<<"namespace">>) -> true;
is_keyword(<<"preload">>) -> true;
is_keyword(<<"self">>) -> true;
is_keyword(<<"signal">>) -> true;
is_keyword(<<"static">>) -> true;
is_keyword(<<"super">>) -> true;
is_keyword(<<"trait">>) -> true;
is_keyword(<<"var">>) -> true;
is_keyword(<<"void">>) -> true;
is_keyword(<<"yield">>) -> true;
%% Constants
is_keyword(<<"NaN">>) -> true;

is_keyword(_) -> false.

% Builtin types
%is_type(<<"null">>) -> true;
%is_type(<<"int">>) -> true;
%is_type(<<"float">>) -> true;
%is_type(<<"bool">>) -> true;
%is_type(<<"String">>) -> true;
%is_type(<<"Vector2">>) -> true;
%is_type(<<"Rect2">>) -> true;
%is_type(<<"Vector3">>) -> true;
%is_type(<<"Transform2D">>) -> true;
%is_type(<<"Plane">>) -> true;
%is_type(<<"Quat">>) -> true;
%is_type(<<"AABB">>) -> true;
%is_type(<<"Basis">>) -> true;
%is_type(<<"Transform">>) -> true;
%is_type(<<"Color">>) -> true;
%is_type(<<"NodePath">>) -> true;
%is_type(<<"RID">>) -> true;
%is_type(<<"Object">>) -> true;
%is_type(<<"Array">>) -> true;
%is_type(<<"Dictionary">>) -> true;
% 
%is_type(_) -> false.

-file("/usr/local/lib/erlang24/lib/parsetools-2.3/include/leexinc.hrl", 14).

format_error({illegal,S}) -> ["illegal characters ",io_lib:write_string(S)];
format_error({user,S}) -> S.

string(String) -> string(String, 1).

string(String, Line) -> string(String, Line, String, []).

%% string(InChars, Line, TokenChars, Tokens) ->
%% {ok,Tokens,Line} | {error,ErrorInfo,Line}.
%% Note the line number going into yystate, L0, is line of token
%% start while line number returned is line of token end. We want line
%% of token start.

string([], L, [], Ts) ->                     % No partial tokens!
    {ok,yyrev(Ts),L};
string(Ics0, L0, Tcs, Ts) ->
    case yystate(yystate(), Ics0, L0, 0, reject, 0) of
        {A,Alen,Ics1,L1} ->                  % Accepting end state
            string_cont(Ics1, L1, yyaction(A, Alen, Tcs, L0), Ts);
        {A,Alen,Ics1,L1,_S1} ->              % Accepting transistion state
            string_cont(Ics1, L1, yyaction(A, Alen, Tcs, L0), Ts);
        {reject,_Alen,Tlen,_Ics1,L1,_S1} ->  % After a non-accepting state
            {error,{L0,?MODULE,{illegal,yypre(Tcs, Tlen+1)}},L1};
        {A,Alen,Tlen,_Ics1,L1,_S1} ->
            Tcs1 = yysuf(Tcs, Alen),
            L2 = adjust_line(Tlen, Alen, Tcs1, L1),
            string_cont(Tcs1, L2, yyaction(A, Alen, Tcs, L0), Ts)
    end.

%% string_cont(RestChars, Line, Token, Tokens)
%% Test for and remove the end token wrapper. Push back characters
%% are prepended to RestChars.

-dialyzer({nowarn_function, string_cont/4}).

string_cont(Rest, Line, {token,T}, Ts) ->
    string(Rest, Line, Rest, [T|Ts]);
string_cont(Rest, Line, {token,T,Push}, Ts) ->
    NewRest = Push ++ Rest,
    string(NewRest, Line, NewRest, [T|Ts]);
string_cont(Rest, Line, {end_token,T}, Ts) ->
    string(Rest, Line, Rest, [T|Ts]);
string_cont(Rest, Line, {end_token,T,Push}, Ts) ->
    NewRest = Push ++ Rest,
    string(NewRest, Line, NewRest, [T|Ts]);
string_cont(Rest, Line, skip_token, Ts) ->
    string(Rest, Line, Rest, Ts);
string_cont(Rest, Line, {skip_token,Push}, Ts) ->
    NewRest = Push ++ Rest,
    string(NewRest, Line, NewRest, Ts);
string_cont(_Rest, Line, {error,S}, _Ts) ->
    {error,{Line,?MODULE,{user,S}},Line}.

%% token(Continuation, Chars) ->
%% token(Continuation, Chars, Line) ->
%% {more,Continuation} | {done,ReturnVal,RestChars}.
%% Must be careful when re-entering to append the latest characters to the
%% after characters in an accept. The continuation is:
%% {token,State,CurrLine,TokenChars,TokenLen,TokenLine,AccAction,AccLen}

token(Cont, Chars) -> token(Cont, Chars, 1).

token([], Chars, Line) ->
    token(yystate(), Chars, Line, Chars, 0, Line, reject, 0);
token({token,State,Line,Tcs,Tlen,Tline,Action,Alen}, Chars, _) ->
    token(State, Chars, Line, Tcs ++ Chars, Tlen, Tline, Action, Alen).

%% token(State, InChars, Line, TokenChars, TokenLen, TokenLine,
%% AcceptAction, AcceptLen) ->
%% {more,Continuation} | {done,ReturnVal,RestChars}.
%% The argument order is chosen to be more efficient.

token(S0, Ics0, L0, Tcs, Tlen0, Tline, A0, Alen0) ->
    case yystate(S0, Ics0, L0, Tlen0, A0, Alen0) of
        %% Accepting end state, we have a token.
        {A1,Alen1,Ics1,L1} ->
            token_cont(Ics1, L1, yyaction(A1, Alen1, Tcs, Tline));
        %% Accepting transition state, can take more chars.
        {A1,Alen1,[],L1,S1} ->                  % Need more chars to check
            {more,{token,S1,L1,Tcs,Alen1,Tline,A1,Alen1}};
        {A1,Alen1,Ics1,L1,_S1} ->               % Take what we got
            token_cont(Ics1, L1, yyaction(A1, Alen1, Tcs, Tline));
        %% After a non-accepting state, maybe reach accept state later.
        {A1,Alen1,Tlen1,[],L1,S1} ->            % Need more chars to check
            {more,{token,S1,L1,Tcs,Tlen1,Tline,A1,Alen1}};
        {reject,_Alen1,Tlen1,eof,L1,_S1} ->     % No token match
            %% Check for partial token which is error.
            Ret = if Tlen1 > 0 -> {error,{Tline,?MODULE,
                                          %% Skip eof tail in Tcs.
                                          {illegal,yypre(Tcs, Tlen1)}},L1};
                     true -> {eof,L1}
                  end,
            {done,Ret,eof};
        {reject,_Alen1,Tlen1,Ics1,L1,_S1} ->    % No token match
            Error = {Tline,?MODULE,{illegal,yypre(Tcs, Tlen1+1)}},
            {done,{error,Error,L1},Ics1};
        {A1,Alen1,Tlen1,_Ics1,L1,_S1} ->       % Use last accept match
            Tcs1 = yysuf(Tcs, Alen1),
            L2 = adjust_line(Tlen1, Alen1, Tcs1, L1),
            token_cont(Tcs1, L2, yyaction(A1, Alen1, Tcs, Tline))
    end.

%% token_cont(RestChars, Line, Token)
%% If we have a token or error then return done, else if we have a
%% skip_token then continue.

-dialyzer({nowarn_function, token_cont/3}).

token_cont(Rest, Line, {token,T}) ->
    {done,{ok,T,Line},Rest};
token_cont(Rest, Line, {token,T,Push}) ->
    NewRest = Push ++ Rest,
    {done,{ok,T,Line},NewRest};
token_cont(Rest, Line, {end_token,T}) ->
    {done,{ok,T,Line},Rest};
token_cont(Rest, Line, {end_token,T,Push}) ->
    NewRest = Push ++ Rest,
    {done,{ok,T,Line},NewRest};
token_cont(Rest, Line, skip_token) ->
    token(yystate(), Rest, Line, Rest, 0, Line, reject, 0);
token_cont(Rest, Line, {skip_token,Push}) ->
    NewRest = Push ++ Rest,
    token(yystate(), NewRest, Line, NewRest, 0, Line, reject, 0);
token_cont(Rest, Line, {error,S}) ->
    {done,{error,{Line,?MODULE,{user,S}},Line},Rest}.

%% tokens(Continuation, Chars, Line) ->
%% {more,Continuation} | {done,ReturnVal,RestChars}.
%% Must be careful when re-entering to append the latest characters to the
%% after characters in an accept. The continuation is:
%% {tokens,State,CurrLine,TokenChars,TokenLen,TokenLine,Tokens,AccAction,AccLen}
%% {skip_tokens,State,CurrLine,TokenChars,TokenLen,TokenLine,Error,AccAction,AccLen}

tokens(Cont, Chars) -> tokens(Cont, Chars, 1).

tokens([], Chars, Line) ->
    tokens(yystate(), Chars, Line, Chars, 0, Line, [], reject, 0);
tokens({tokens,State,Line,Tcs,Tlen,Tline,Ts,Action,Alen}, Chars, _) ->
    tokens(State, Chars, Line, Tcs ++ Chars, Tlen, Tline, Ts, Action, Alen);
tokens({skip_tokens,State,Line,Tcs,Tlen,Tline,Error,Action,Alen}, Chars, _) ->
    skip_tokens(State, Chars, Line, Tcs ++ Chars, Tlen, Tline, Error, Action, Alen).

%% tokens(State, InChars, Line, TokenChars, TokenLen, TokenLine, Tokens,
%% AcceptAction, AcceptLen) ->
%% {more,Continuation} | {done,ReturnVal,RestChars}.

tokens(S0, Ics0, L0, Tcs, Tlen0, Tline, Ts, A0, Alen0) ->
    case yystate(S0, Ics0, L0, Tlen0, A0, Alen0) of
        %% Accepting end state, we have a token.
        {A1,Alen1,Ics1,L1} ->
            tokens_cont(Ics1, L1, yyaction(A1, Alen1, Tcs, Tline), Ts);
        %% Accepting transition state, can take more chars.
        {A1,Alen1,[],L1,S1} ->                  % Need more chars to check
            {more,{tokens,S1,L1,Tcs,Alen1,Tline,Ts,A1,Alen1}};
        {A1,Alen1,Ics1,L1,_S1} ->               % Take what we got
            tokens_cont(Ics1, L1, yyaction(A1, Alen1, Tcs, Tline), Ts);
        %% After a non-accepting state, maybe reach accept state later.
        {A1,Alen1,Tlen1,[],L1,S1} ->            % Need more chars to check
            {more,{tokens,S1,L1,Tcs,Tlen1,Tline,Ts,A1,Alen1}};
        {reject,_Alen1,Tlen1,eof,L1,_S1} ->     % No token match
            %% Check for partial token which is error, no need to skip here.
            Ret = if Tlen1 > 0 -> {error,{Tline,?MODULE,
                                          %% Skip eof tail in Tcs.
                                          {illegal,yypre(Tcs, Tlen1)}},L1};
                     Ts == [] -> {eof,L1};
                     true -> {ok,yyrev(Ts),L1}
                  end,
            {done,Ret,eof};
        {reject,_Alen1,Tlen1,_Ics1,L1,_S1} ->
            %% Skip rest of tokens.
            Error = {L1,?MODULE,{illegal,yypre(Tcs, Tlen1+1)}},
            skip_tokens(yysuf(Tcs, Tlen1+1), L1, Error);
        {A1,Alen1,Tlen1,_Ics1,L1,_S1} ->
            Token = yyaction(A1, Alen1, Tcs, Tline),
            Tcs1 = yysuf(Tcs, Alen1),
            L2 = adjust_line(Tlen1, Alen1, Tcs1, L1),
            tokens_cont(Tcs1, L2, Token, Ts)
    end.

%% tokens_cont(RestChars, Line, Token, Tokens)
%% If we have an end_token or error then return done, else if we have
%% a token then save it and continue, else if we have a skip_token
%% just continue.

-dialyzer({nowarn_function, tokens_cont/4}).

tokens_cont(Rest, Line, {token,T}, Ts) ->
    tokens(yystate(), Rest, Line, Rest, 0, Line, [T|Ts], reject, 0);
tokens_cont(Rest, Line, {token,T,Push}, Ts) ->
    NewRest = Push ++ Rest,
    tokens(yystate(), NewRest, Line, NewRest, 0, Line, [T|Ts], reject, 0);
tokens_cont(Rest, Line, {end_token,T}, Ts) ->
    {done,{ok,yyrev(Ts, [T]),Line},Rest};
tokens_cont(Rest, Line, {end_token,T,Push}, Ts) ->
    NewRest = Push ++ Rest,
    {done,{ok,yyrev(Ts, [T]),Line},NewRest};
tokens_cont(Rest, Line, skip_token, Ts) ->
    tokens(yystate(), Rest, Line, Rest, 0, Line, Ts, reject, 0);
tokens_cont(Rest, Line, {skip_token,Push}, Ts) ->
    NewRest = Push ++ Rest,
    tokens(yystate(), NewRest, Line, NewRest, 0, Line, Ts, reject, 0);
tokens_cont(Rest, Line, {error,S}, _Ts) ->
    skip_tokens(Rest, Line, {Line,?MODULE,{user,S}}).

%%skip_tokens(InChars, Line, Error) -> {done,{error,Error,Line},Ics}.
%% Skip tokens until an end token, junk everything and return the error.

skip_tokens(Ics, Line, Error) ->
    skip_tokens(yystate(), Ics, Line, Ics, 0, Line, Error, reject, 0).

%% skip_tokens(State, InChars, Line, TokenChars, TokenLen, TokenLine, Tokens,
%% AcceptAction, AcceptLen) ->
%% {more,Continuation} | {done,ReturnVal,RestChars}.

skip_tokens(S0, Ics0, L0, Tcs, Tlen0, Tline, Error, A0, Alen0) ->
    case yystate(S0, Ics0, L0, Tlen0, A0, Alen0) of
        {A1,Alen1,Ics1,L1} ->                  % Accepting end state
            skip_cont(Ics1, L1, yyaction(A1, Alen1, Tcs, Tline), Error);
        {A1,Alen1,[],L1,S1} ->                 % After an accepting state
            {more,{skip_tokens,S1,L1,Tcs,Alen1,Tline,Error,A1,Alen1}};
        {A1,Alen1,Ics1,L1,_S1} ->
            skip_cont(Ics1, L1, yyaction(A1, Alen1, Tcs, Tline), Error);
        {A1,Alen1,Tlen1,[],L1,S1} ->           % After a non-accepting state
            {more,{skip_tokens,S1,L1,Tcs,Tlen1,Tline,Error,A1,Alen1}};
        {reject,_Alen1,_Tlen1,eof,L1,_S1} ->
            {done,{error,Error,L1},eof};
        {reject,_Alen1,Tlen1,_Ics1,L1,_S1} ->
            skip_tokens(yysuf(Tcs, Tlen1+1), L1, Error);
        {A1,Alen1,Tlen1,_Ics1,L1,_S1} ->
            Token = yyaction(A1, Alen1, Tcs, Tline),
            Tcs1 = yysuf(Tcs, Alen1),
            L2 = adjust_line(Tlen1, Alen1, Tcs1, L1),
            skip_cont(Tcs1, L2, Token, Error)
    end.

%% skip_cont(RestChars, Line, Token, Error)
%% Skip tokens until we have an end_token or error then return done
%% with the original rror.

-dialyzer({nowarn_function, skip_cont/4}).

skip_cont(Rest, Line, {token,_T}, Error) ->
    skip_tokens(yystate(), Rest, Line, Rest, 0, Line, Error, reject, 0);
skip_cont(Rest, Line, {token,_T,Push}, Error) ->
    NewRest = Push ++ Rest,
    skip_tokens(yystate(), NewRest, Line, NewRest, 0, Line, Error, reject, 0);
skip_cont(Rest, Line, {end_token,_T}, Error) ->
    {done,{error,Error,Line},Rest};
skip_cont(Rest, Line, {end_token,_T,Push}, Error) ->
    NewRest = Push ++ Rest,
    {done,{error,Error,Line},NewRest};
skip_cont(Rest, Line, skip_token, Error) ->
    skip_tokens(yystate(), Rest, Line, Rest, 0, Line, Error, reject, 0);
skip_cont(Rest, Line, {skip_token,Push}, Error) ->
    NewRest = Push ++ Rest,
    skip_tokens(yystate(), NewRest, Line, NewRest, 0, Line, Error, reject, 0);
skip_cont(Rest, Line, {error,_S}, Error) ->
    skip_tokens(yystate(), Rest, Line, Rest, 0, Line, Error, reject, 0).

-compile({nowarn_unused_function, [yyrev/1, yyrev/2, yypre/2, yysuf/2]}).

yyrev(List) -> lists:reverse(List).
yyrev(List, Tail) -> lists:reverse(List, Tail).
yypre(List, N) -> lists:sublist(List, N).
yysuf(List, N) -> lists:nthtail(N, List).

%% adjust_line(TokenLength, AcceptLength, Chars, Line) -> NewLine
%% Make sure that newlines in Chars are not counted twice.
%% Line has been updated with respect to newlines in the prefix of
%% Chars consisting of (TokenLength - AcceptLength) characters.

-compile({nowarn_unused_function, adjust_line/4}).

adjust_line(N, N, _Cs, L) -> L;
adjust_line(T, A, [$\n|Cs], L) ->
    adjust_line(T-1, A, Cs, L-1);
adjust_line(T, A, [_|Cs], L) ->
    adjust_line(T-1, A, Cs, L).

%% yystate() -> InitialState.
%% yystate(State, InChars, Line, CurrTokLen, AcceptAction, AcceptLen) ->
%% {Action, AcceptLen, RestChars, Line} |
%% {Action, AcceptLen, RestChars, Line, State} |
%% {reject, AcceptLen, CurrTokLen, RestChars, Line, State} |
%% {Action, AcceptLen, CurrTokLen, RestChars, Line, State}.
%% Generated state transition functions. The non-accepting end state
%% return signal either an unrecognised character or end of current
%% input.

-file("/usr/home/lincoln/gdminus/src/gdminus_scan.erl", 543).
yystate() -> 39.

yystate(42, Ics, Line, Tlen, _, _) ->
    {15,Tlen,Ics,Line};
yystate(41, [9|Ics], Line, Tlen, _, _) ->
    yystate(41, Ics, Line, Tlen+1, 29, Tlen);
yystate(41, Ics, Line, Tlen, _, _) ->
    {29,Tlen,Ics,Line,41};
yystate(40, Ics, Line, Tlen, _, _) ->
    {12,Tlen,Ics,Line};
yystate(39, [125|Ics], Line, Tlen, Action, Alen) ->
    yystate(35, Ics, Line, Tlen+1, Action, Alen);
yystate(39, [123|Ics], Line, Tlen, Action, Alen) ->
    yystate(31, Ics, Line, Tlen+1, Action, Alen);
yystate(39, [95|Ics], Line, Tlen, Action, Alen) ->
    yystate(19, Ics, Line, Tlen+1, Action, Alen);
yystate(39, [93|Ics], Line, Tlen, Action, Alen) ->
    yystate(27, Ics, Line, Tlen+1, Action, Alen);
yystate(39, [91|Ics], Line, Tlen, Action, Alen) ->
    yystate(23, Ics, Line, Tlen+1, Action, Alen);
yystate(39, [62|Ics], Line, Tlen, Action, Alen) ->
    yystate(15, Ics, Line, Tlen+1, Action, Alen);
yystate(39, [61|Ics], Line, Tlen, Action, Alen) ->
    yystate(7, Ics, Line, Tlen+1, Action, Alen);
yystate(39, [60|Ics], Line, Tlen, Action, Alen) ->
    yystate(0, Ics, Line, Tlen+1, Action, Alen);
yystate(39, [58|Ics], Line, Tlen, Action, Alen) ->
    yystate(8, Ics, Line, Tlen+1, Action, Alen);
yystate(39, [47|Ics], Line, Tlen, Action, Alen) ->
    yystate(24, Ics, Line, Tlen+1, Action, Alen);
yystate(39, [46|Ics], Line, Tlen, Action, Alen) ->
    yystate(28, Ics, Line, Tlen+1, Action, Alen);
yystate(39, [45|Ics], Line, Tlen, Action, Alen) ->
    yystate(32, Ics, Line, Tlen+1, Action, Alen);
yystate(39, [44|Ics], Line, Tlen, Action, Alen) ->
    yystate(36, Ics, Line, Tlen+1, Action, Alen);
yystate(39, [43|Ics], Line, Tlen, Action, Alen) ->
    yystate(40, Ics, Line, Tlen+1, Action, Alen);
yystate(39, [42|Ics], Line, Tlen, Action, Alen) ->
    yystate(42, Ics, Line, Tlen+1, Action, Alen);
yystate(39, [41|Ics], Line, Tlen, Action, Alen) ->
    yystate(38, Ics, Line, Tlen+1, Action, Alen);
yystate(39, [40|Ics], Line, Tlen, Action, Alen) ->
    yystate(34, Ics, Line, Tlen+1, Action, Alen);
yystate(39, [39|Ics], Line, Tlen, Action, Alen) ->
    yystate(30, Ics, Line, Tlen+1, Action, Alen);
yystate(39, [37|Ics], Line, Tlen, Action, Alen) ->
    yystate(14, Ics, Line, Tlen+1, Action, Alen);
yystate(39, [35|Ics], Line, Tlen, Action, Alen) ->
    yystate(10, Ics, Line, Tlen+1, Action, Alen);
yystate(39, [34|Ics], Line, Tlen, Action, Alen) ->
    yystate(2, Ics, Line, Tlen+1, Action, Alen);
yystate(39, [33|Ics], Line, Tlen, Action, Alen) ->
    yystate(13, Ics, Line, Tlen+1, Action, Alen);
yystate(39, [32|Ics], Line, Tlen, Action, Alen) ->
    yystate(21, Ics, Line, Tlen+1, Action, Alen);
yystate(39, [13|Ics], Line, Tlen, Action, Alen) ->
    yystate(25, Ics, Line, Tlen+1, Action, Alen);
yystate(39, [10|Ics], Line, Tlen, Action, Alen) ->
    yystate(33, Ics, Line+1, Tlen+1, Action, Alen);
yystate(39, [C|Ics], Line, Tlen, Action, Alen) when C >= 48, C =< 57 ->
    yystate(12, Ics, Line, Tlen+1, Action, Alen);
yystate(39, [C|Ics], Line, Tlen, Action, Alen) when C >= 65, C =< 90 ->
    yystate(19, Ics, Line, Tlen+1, Action, Alen);
yystate(39, [C|Ics], Line, Tlen, Action, Alen) when C >= 97, C =< 122 ->
    yystate(19, Ics, Line, Tlen+1, Action, Alen);
yystate(39, Ics, Line, Tlen, Action, Alen) ->
    {Action,Alen,Tlen,Ics,Line,39};
yystate(38, Ics, Line, Tlen, _, _) ->
    {18,Tlen,Ics,Line};
yystate(37, [32|Ics], Line, Tlen, _, _) ->
    yystate(37, Ics, Line, Tlen+1, 29, Tlen);
yystate(37, Ics, Line, Tlen, _, _) ->
    {29,Tlen,Ics,Line,37};
yystate(36, Ics, Line, Tlen, _, _) ->
    {24,Tlen,Ics,Line};
yystate(35, Ics, Line, Tlen, _, _) ->
    {28,Tlen,Ics,Line};
yystate(34, Ics, Line, Tlen, _, _) ->
    {17,Tlen,Ics,Line};
yystate(33, [32|Ics], Line, Tlen, _, _) ->
    yystate(37, Ics, Line, Tlen+1, 29, Tlen);
yystate(33, [9|Ics], Line, Tlen, _, _) ->
    yystate(41, Ics, Line, Tlen+1, 29, Tlen);
yystate(33, Ics, Line, Tlen, _, _) ->
    {29,Tlen,Ics,Line,33};
yystate(32, Ics, Line, Tlen, _, _) ->
    {14,Tlen,Ics,Line};
yystate(31, Ics, Line, Tlen, _, _) ->
    {27,Tlen,Ics,Line};
yystate(30, [92|Ics], Line, Tlen, _, _) ->
    yystate(26, Ics, Line, Tlen+1, 22, Tlen);
yystate(30, [39|Ics], Line, Tlen, _, _) ->
    yystate(22, Ics, Line, Tlen+1, 22, Tlen);
yystate(30, [10|Ics], Line, Tlen, _, _) ->
    yystate(18, Ics, Line+1, Tlen+1, 22, Tlen);
yystate(30, [C|Ics], Line, Tlen, _, _) when C >= 0, C =< 9 ->
    yystate(18, Ics, Line, Tlen+1, 22, Tlen);
yystate(30, [C|Ics], Line, Tlen, _, _) when C >= 11, C =< 38 ->
    yystate(18, Ics, Line, Tlen+1, 22, Tlen);
yystate(30, [C|Ics], Line, Tlen, _, _) when C >= 40, C =< 91 ->
    yystate(18, Ics, Line, Tlen+1, 22, Tlen);
yystate(30, [C|Ics], Line, Tlen, _, _) when C >= 93 ->
    yystate(18, Ics, Line, Tlen+1, 22, Tlen);
yystate(30, Ics, Line, Tlen, _, _) ->
    {22,Tlen,Ics,Line,30};
yystate(29, Ics, Line, Tlen, _, _) ->
    {32,Tlen,Ics,Line};
yystate(28, [C|Ics], Line, Tlen, _, _) when C >= 48, C =< 57 ->
    yystate(20, Ics, Line, Tlen+1, 23, Tlen);
yystate(28, Ics, Line, Tlen, _, _) ->
    {23,Tlen,Ics,Line,28};
yystate(27, Ics, Line, Tlen, _, _) ->
    {26,Tlen,Ics,Line};
yystate(26, [10|Ics], Line, Tlen, Action, Alen) ->
    yystate(18, Ics, Line+1, Tlen+1, Action, Alen);
yystate(26, [C|Ics], Line, Tlen, Action, Alen) when C >= 0, C =< 9 ->
    yystate(18, Ics, Line, Tlen+1, Action, Alen);
yystate(26, [C|Ics], Line, Tlen, Action, Alen) when C >= 11 ->
    yystate(18, Ics, Line, Tlen+1, Action, Alen);
yystate(26, Ics, Line, Tlen, Action, Alen) ->
    {Action,Alen,Tlen,Ics,Line,26};
yystate(25, [10|Ics], Line, Tlen, _, _) ->
    yystate(29, Ics, Line+1, Tlen+1, 32, Tlen);
yystate(25, Ics, Line, Tlen, _, _) ->
    {32,Tlen,Ics,Line,25};
yystate(24, Ics, Line, Tlen, _, _) ->
    {16,Tlen,Ics,Line};
yystate(23, Ics, Line, Tlen, _, _) ->
    {25,Tlen,Ics,Line};
yystate(22, Ics, Line, Tlen, _, _) ->
    {1,Tlen,Ics,Line};
yystate(21, [32|Ics], Line, Tlen, _, _) ->
    yystate(21, Ics, Line, Tlen+1, 30, Tlen);
yystate(21, Ics, Line, Tlen, _, _) ->
    {30,Tlen,Ics,Line,21};
yystate(20, [C|Ics], Line, Tlen, _, _) when C >= 48, C =< 57 ->
    yystate(20, Ics, Line, Tlen+1, 4, Tlen);
yystate(20, Ics, Line, Tlen, _, _) ->
    {4,Tlen,Ics,Line,20};
yystate(19, [95|Ics], Line, Tlen, _, _) ->
    yystate(19, Ics, Line, Tlen+1, 2, Tlen);
yystate(19, [C|Ics], Line, Tlen, _, _) when C >= 48, C =< 57 ->
    yystate(19, Ics, Line, Tlen+1, 2, Tlen);
yystate(19, [C|Ics], Line, Tlen, _, _) when C >= 65, C =< 90 ->
    yystate(19, Ics, Line, Tlen+1, 2, Tlen);
yystate(19, [C|Ics], Line, Tlen, _, _) when C >= 97, C =< 122 ->
    yystate(19, Ics, Line, Tlen+1, 2, Tlen);
yystate(19, Ics, Line, Tlen, _, _) ->
    {2,Tlen,Ics,Line,19};
yystate(18, [92|Ics], Line, Tlen, Action, Alen) ->
    yystate(26, Ics, Line, Tlen+1, Action, Alen);
yystate(18, [39|Ics], Line, Tlen, Action, Alen) ->
    yystate(22, Ics, Line, Tlen+1, Action, Alen);
yystate(18, [10|Ics], Line, Tlen, Action, Alen) ->
    yystate(18, Ics, Line+1, Tlen+1, Action, Alen);
yystate(18, [C|Ics], Line, Tlen, Action, Alen) when C >= 0, C =< 9 ->
    yystate(18, Ics, Line, Tlen+1, Action, Alen);
yystate(18, [C|Ics], Line, Tlen, Action, Alen) when C >= 11, C =< 38 ->
    yystate(18, Ics, Line, Tlen+1, Action, Alen);
yystate(18, [C|Ics], Line, Tlen, Action, Alen) when C >= 40, C =< 91 ->
    yystate(18, Ics, Line, Tlen+1, Action, Alen);
yystate(18, [C|Ics], Line, Tlen, Action, Alen) when C >= 93 ->
    yystate(18, Ics, Line, Tlen+1, Action, Alen);
yystate(18, Ics, Line, Tlen, Action, Alen) ->
    {Action,Alen,Tlen,Ics,Line,18};
yystate(17, Ics, Line, Tlen, _, _) ->
    {5,Tlen,Ics,Line};
yystate(16, [C|Ics], Line, Tlen, Action, Alen) when C >= 48, C =< 57 ->
    yystate(20, Ics, Line, Tlen+1, Action, Alen);
yystate(16, Ics, Line, Tlen, Action, Alen) ->
    {Action,Alen,Tlen,Ics,Line,16};
yystate(15, [61|Ics], Line, Tlen, _, _) ->
    yystate(11, Ics, Line, Tlen+1, 10, Tlen);
yystate(15, Ics, Line, Tlen, _, _) ->
    {10,Tlen,Ics,Line,15};
yystate(14, Ics, Line, Tlen, _, _) ->
    {13,Tlen,Ics,Line};
yystate(13, [61|Ics], Line, Tlen, Action, Alen) ->
    yystate(17, Ics, Line, Tlen+1, Action, Alen);
yystate(13, Ics, Line, Tlen, Action, Alen) ->
    {Action,Alen,Tlen,Ics,Line,13};
yystate(12, [46|Ics], Line, Tlen, _, _) ->
    yystate(16, Ics, Line, Tlen+1, 3, Tlen);
yystate(12, [C|Ics], Line, Tlen, _, _) when C >= 48, C =< 57 ->
    yystate(12, Ics, Line, Tlen+1, 3, Tlen);
yystate(12, Ics, Line, Tlen, _, _) ->
    {3,Tlen,Ics,Line,12};
yystate(11, Ics, Line, Tlen, _, _) ->
    {8,Tlen,Ics,Line};
yystate(10, [C|Ics], Line, Tlen, _, _) when C >= 0, C =< 9 ->
    yystate(6, Ics, Line, Tlen+1, 19, Tlen);
yystate(10, [C|Ics], Line, Tlen, _, _) when C >= 11 ->
    yystate(6, Ics, Line, Tlen+1, 19, Tlen);
yystate(10, Ics, Line, Tlen, _, _) ->
    {19,Tlen,Ics,Line,10};
yystate(9, [92|Ics], Line, Tlen, Action, Alen) ->
    yystate(1, Ics, Line, Tlen+1, Action, Alen);
yystate(9, [34|Ics], Line, Tlen, Action, Alen) ->
    yystate(5, Ics, Line, Tlen+1, Action, Alen);
yystate(9, [10|Ics], Line, Tlen, Action, Alen) ->
    yystate(9, Ics, Line+1, Tlen+1, Action, Alen);
yystate(9, [C|Ics], Line, Tlen, Action, Alen) when C >= 0, C =< 9 ->
    yystate(9, Ics, Line, Tlen+1, Action, Alen);
yystate(9, [C|Ics], Line, Tlen, Action, Alen) when C >= 11, C =< 33 ->
    yystate(9, Ics, Line, Tlen+1, Action, Alen);
yystate(9, [C|Ics], Line, Tlen, Action, Alen) when C >= 35, C =< 91 ->
    yystate(9, Ics, Line, Tlen+1, Action, Alen);
yystate(9, [C|Ics], Line, Tlen, Action, Alen) when C >= 93 ->
    yystate(9, Ics, Line, Tlen+1, Action, Alen);
yystate(9, Ics, Line, Tlen, Action, Alen) ->
    {Action,Alen,Tlen,Ics,Line,9};
yystate(8, Ics, Line, Tlen, _, _) ->
    {20,Tlen,Ics,Line};
yystate(7, [61|Ics], Line, Tlen, _, _) ->
    yystate(3, Ics, Line, Tlen+1, 11, Tlen);
yystate(7, Ics, Line, Tlen, _, _) ->
    {11,Tlen,Ics,Line,7};
yystate(6, [C|Ics], Line, Tlen, _, _) when C >= 0, C =< 9 ->
    yystate(6, Ics, Line, Tlen+1, 31, Tlen);
yystate(6, [C|Ics], Line, Tlen, _, _) when C >= 11 ->
    yystate(6, Ics, Line, Tlen+1, 31, Tlen);
yystate(6, Ics, Line, Tlen, _, _) ->
    {31,Tlen,Ics,Line,6};
yystate(5, Ics, Line, Tlen, _, _) ->
    {0,Tlen,Ics,Line};
yystate(4, Ics, Line, Tlen, _, _) ->
    {7,Tlen,Ics,Line};
yystate(3, Ics, Line, Tlen, _, _) ->
    {6,Tlen,Ics,Line};
yystate(2, [92|Ics], Line, Tlen, _, _) ->
    yystate(1, Ics, Line, Tlen+1, 21, Tlen);
yystate(2, [34|Ics], Line, Tlen, _, _) ->
    yystate(5, Ics, Line, Tlen+1, 21, Tlen);
yystate(2, [10|Ics], Line, Tlen, _, _) ->
    yystate(9, Ics, Line+1, Tlen+1, 21, Tlen);
yystate(2, [C|Ics], Line, Tlen, _, _) when C >= 0, C =< 9 ->
    yystate(9, Ics, Line, Tlen+1, 21, Tlen);
yystate(2, [C|Ics], Line, Tlen, _, _) when C >= 11, C =< 33 ->
    yystate(9, Ics, Line, Tlen+1, 21, Tlen);
yystate(2, [C|Ics], Line, Tlen, _, _) when C >= 35, C =< 91 ->
    yystate(9, Ics, Line, Tlen+1, 21, Tlen);
yystate(2, [C|Ics], Line, Tlen, _, _) when C >= 93 ->
    yystate(9, Ics, Line, Tlen+1, 21, Tlen);
yystate(2, Ics, Line, Tlen, _, _) ->
    {21,Tlen,Ics,Line,2};
yystate(1, [10|Ics], Line, Tlen, Action, Alen) ->
    yystate(9, Ics, Line+1, Tlen+1, Action, Alen);
yystate(1, [C|Ics], Line, Tlen, Action, Alen) when C >= 0, C =< 9 ->
    yystate(9, Ics, Line, Tlen+1, Action, Alen);
yystate(1, [C|Ics], Line, Tlen, Action, Alen) when C >= 11 ->
    yystate(9, Ics, Line, Tlen+1, Action, Alen);
yystate(1, Ics, Line, Tlen, Action, Alen) ->
    {Action,Alen,Tlen,Ics,Line,1};
yystate(0, [61|Ics], Line, Tlen, _, _) ->
    yystate(4, Ics, Line, Tlen+1, 9, Tlen);
yystate(0, Ics, Line, Tlen, _, _) ->
    {9,Tlen,Ics,Line,0};
yystate(S, Ics, Line, Tlen, Action, Alen) ->
    {Action,Alen,Tlen,Ics,Line,S}.

%% yyaction(Action, TokenLength, TokenChars, TokenLine) ->
%% {token,Token} | {end_token, Token} | skip_token | {error,String}.
%% Generated action function.

yyaction(0, TokenLen, YYtcs, TokenLine) ->
    TokenChars = yypre(YYtcs, TokenLen),
    yyaction_0(TokenChars, TokenLen, TokenLine);
yyaction(1, TokenLen, YYtcs, TokenLine) ->
    TokenChars = yypre(YYtcs, TokenLen),
    yyaction_1(TokenChars, TokenLen, TokenLine);
yyaction(2, TokenLen, YYtcs, TokenLine) ->
    TokenChars = yypre(YYtcs, TokenLen),
    yyaction_2(TokenChars, TokenLine);
yyaction(3, TokenLen, YYtcs, TokenLine) ->
    TokenChars = yypre(YYtcs, TokenLen),
    yyaction_3(TokenChars, TokenLine);
yyaction(4, TokenLen, YYtcs, TokenLine) ->
    TokenChars = yypre(YYtcs, TokenLen),
    yyaction_4(TokenChars, TokenLine);
yyaction(5, TokenLen, YYtcs, TokenLine) ->
    TokenChars = yypre(YYtcs, TokenLen),
    yyaction_5(TokenChars, TokenLine);
yyaction(6, TokenLen, YYtcs, TokenLine) ->
    TokenChars = yypre(YYtcs, TokenLen),
    yyaction_6(TokenChars, TokenLine);
yyaction(7, TokenLen, YYtcs, TokenLine) ->
    TokenChars = yypre(YYtcs, TokenLen),
    yyaction_7(TokenChars, TokenLine);
yyaction(8, TokenLen, YYtcs, TokenLine) ->
    TokenChars = yypre(YYtcs, TokenLen),
    yyaction_8(TokenChars, TokenLine);
yyaction(9, TokenLen, YYtcs, TokenLine) ->
    TokenChars = yypre(YYtcs, TokenLen),
    yyaction_9(TokenChars, TokenLine);
yyaction(10, TokenLen, YYtcs, TokenLine) ->
    TokenChars = yypre(YYtcs, TokenLen),
    yyaction_10(TokenChars, TokenLine);
yyaction(11, _, _, TokenLine) ->
    yyaction_11(TokenLine);
yyaction(12, _, _, TokenLine) ->
    yyaction_12(TokenLine);
yyaction(13, _, _, TokenLine) ->
    yyaction_13(TokenLine);
yyaction(14, _, _, TokenLine) ->
    yyaction_14(TokenLine);
yyaction(15, _, _, TokenLine) ->
    yyaction_15(TokenLine);
yyaction(16, _, _, TokenLine) ->
    yyaction_16(TokenLine);
yyaction(17, _, _, TokenLine) ->
    yyaction_17(TokenLine);
yyaction(18, _, _, TokenLine) ->
    yyaction_18(TokenLine);
yyaction(19, _, _, TokenLine) ->
    yyaction_19(TokenLine);
yyaction(20, _, _, TokenLine) ->
    yyaction_20(TokenLine);
yyaction(21, _, _, TokenLine) ->
    yyaction_21(TokenLine);
yyaction(22, _, _, TokenLine) ->
    yyaction_22(TokenLine);
yyaction(23, _, _, TokenLine) ->
    yyaction_23(TokenLine);
yyaction(24, _, _, TokenLine) ->
    yyaction_24(TokenLine);
yyaction(25, _, _, TokenLine) ->
    yyaction_25(TokenLine);
yyaction(26, _, _, TokenLine) ->
    yyaction_26(TokenLine);
yyaction(27, _, _, TokenLine) ->
    yyaction_27(TokenLine);
yyaction(28, _, _, TokenLine) ->
    yyaction_28(TokenLine);
yyaction(29, TokenLen, YYtcs, TokenLine) ->
    TokenChars = yypre(YYtcs, TokenLen),
    yyaction_29(TokenChars, TokenLine);
yyaction(30, _, _, _) ->
    yyaction_30();
yyaction(31, _, _, _) ->
    yyaction_31();
yyaction(32, _, _, _) ->
    yyaction_32();
yyaction(_, _, _, _) -> error.

-compile({inline,yyaction_0/3}).
-file("/usr/home/lincoln/gdminus/src/gdminus_scan.xrl", 11).
yyaction_0(TokenChars, TokenLen, TokenLine) ->
     string_token (TokenChars, TokenLen, TokenLine) .

-compile({inline,yyaction_1/3}).
-file("/usr/home/lincoln/gdminus/src/gdminus_scan.xrl", 12).
yyaction_1(TokenChars, TokenLen, TokenLine) ->
     string_token (TokenChars, TokenLen, TokenLine) .

-compile({inline,yyaction_2/2}).
-file("/usr/home/lincoln/gdminus/src/gdminus_scan.xrl", 13).
yyaction_2(TokenChars, TokenLine) ->
     name_token (TokenChars, TokenLine) .

-compile({inline,yyaction_3/2}).
-file("/usr/home/lincoln/gdminus/src/gdminus_scan.xrl", 14).
yyaction_3(TokenChars, TokenLine) ->
     { token, { number, TokenLine, list_to_integer (TokenChars) } } .

-compile({inline,yyaction_4/2}).
-file("/usr/home/lincoln/gdminus/src/gdminus_scan.xrl", 15).
yyaction_4(TokenChars, TokenLine) ->
     { token, { number, TokenLine, handle_float (TokenChars) } } .

-compile({inline,yyaction_5/2}).
-file("/usr/home/lincoln/gdminus/src/gdminus_scan.xrl", 16).
yyaction_5(TokenChars, TokenLine) ->
     { token, { '!=', TokenLine, TokenChars } } .

-compile({inline,yyaction_6/2}).
-file("/usr/home/lincoln/gdminus/src/gdminus_scan.xrl", 17).
yyaction_6(TokenChars, TokenLine) ->
     { token, { '==', TokenLine, TokenChars } } .

-compile({inline,yyaction_7/2}).
-file("/usr/home/lincoln/gdminus/src/gdminus_scan.xrl", 18).
yyaction_7(TokenChars, TokenLine) ->
     { token, { '<=', TokenLine, TokenChars } } .

-compile({inline,yyaction_8/2}).
-file("/usr/home/lincoln/gdminus/src/gdminus_scan.xrl", 19).
yyaction_8(TokenChars, TokenLine) ->
     { token, { '>=', TokenLine, TokenChars } } .

-compile({inline,yyaction_9/2}).
-file("/usr/home/lincoln/gdminus/src/gdminus_scan.xrl", 20).
yyaction_9(TokenChars, TokenLine) ->
     { token, { '<', TokenLine, TokenChars } } .

-compile({inline,yyaction_10/2}).
-file("/usr/home/lincoln/gdminus/src/gdminus_scan.xrl", 21).
yyaction_10(TokenChars, TokenLine) ->
     { token, { '>', TokenLine, TokenChars } } .

-compile({inline,yyaction_11/1}).
-file("/usr/home/lincoln/gdminus/src/gdminus_scan.xrl", 22).
yyaction_11(TokenLine) ->
     { token, { '=', TokenLine } } .

-compile({inline,yyaction_12/1}).
-file("/usr/home/lincoln/gdminus/src/gdminus_scan.xrl", 23).
yyaction_12(TokenLine) ->
     { token, { '+', TokenLine } } .

-compile({inline,yyaction_13/1}).
-file("/usr/home/lincoln/gdminus/src/gdminus_scan.xrl", 24).
yyaction_13(TokenLine) ->
     { token, { '%', TokenLine } } .

-compile({inline,yyaction_14/1}).
-file("/usr/home/lincoln/gdminus/src/gdminus_scan.xrl", 25).
yyaction_14(TokenLine) ->
     { token, { '-', TokenLine } } .

-compile({inline,yyaction_15/1}).
-file("/usr/home/lincoln/gdminus/src/gdminus_scan.xrl", 26).
yyaction_15(TokenLine) ->
     { token, { '*', TokenLine } } .

-compile({inline,yyaction_16/1}).
-file("/usr/home/lincoln/gdminus/src/gdminus_scan.xrl", 27).
yyaction_16(TokenLine) ->
     { token, { '/', TokenLine } } .

-compile({inline,yyaction_17/1}).
-file("/usr/home/lincoln/gdminus/src/gdminus_scan.xrl", 28).
yyaction_17(TokenLine) ->
     { token, { '(', TokenLine } } .

-compile({inline,yyaction_18/1}).
-file("/usr/home/lincoln/gdminus/src/gdminus_scan.xrl", 29).
yyaction_18(TokenLine) ->
     { token, { ')', TokenLine } } .

-compile({inline,yyaction_19/1}).
-file("/usr/home/lincoln/gdminus/src/gdminus_scan.xrl", 30).
yyaction_19(TokenLine) ->
     { token, { '#', TokenLine } } .

-compile({inline,yyaction_20/1}).
-file("/usr/home/lincoln/gdminus/src/gdminus_scan.xrl", 31).
yyaction_20(TokenLine) ->
     { token, { ':', TokenLine } } .

-compile({inline,yyaction_21/1}).
-file("/usr/home/lincoln/gdminus/src/gdminus_scan.xrl", 32).
yyaction_21(TokenLine) ->
     { token, { '"', TokenLine } } .

-compile({inline,yyaction_22/1}).
-file("/usr/home/lincoln/gdminus/src/gdminus_scan.xrl", 33).
yyaction_22(TokenLine) ->
     { token, { quote, TokenLine } } .

-compile({inline,yyaction_23/1}).
-file("/usr/home/lincoln/gdminus/src/gdminus_scan.xrl", 34).
yyaction_23(TokenLine) ->
     { token, { '.', TokenLine } } .

-compile({inline,yyaction_24/1}).
-file("/usr/home/lincoln/gdminus/src/gdminus_scan.xrl", 35).
yyaction_24(TokenLine) ->
     { token, { ',', TokenLine } } .

-compile({inline,yyaction_25/1}).
-file("/usr/home/lincoln/gdminus/src/gdminus_scan.xrl", 36).
yyaction_25(TokenLine) ->
     { token, { '[', TokenLine } } .

-compile({inline,yyaction_26/1}).
-file("/usr/home/lincoln/gdminus/src/gdminus_scan.xrl", 37).
yyaction_26(TokenLine) ->
     { token, { ']', TokenLine } } .

-compile({inline,yyaction_27/1}).
-file("/usr/home/lincoln/gdminus/src/gdminus_scan.xrl", 38).
yyaction_27(TokenLine) ->
     { token, { '{', TokenLine } } .

-compile({inline,yyaction_28/1}).
-file("/usr/home/lincoln/gdminus/src/gdminus_scan.xrl", 39).
yyaction_28(TokenLine) ->
     { token, { '}', TokenLine } } .

-compile({inline,yyaction_29/2}).
-file("/usr/home/lincoln/gdminus/src/gdminus_scan.xrl", 40).
yyaction_29(TokenChars, TokenLine) ->
     evaluate_indent_level (TokenChars, TokenLine) .

-compile({inline,yyaction_30/0}).
-file("/usr/home/lincoln/gdminus/src/gdminus_scan.xrl", 41).
yyaction_30() ->
     skip_token .

-compile({inline,yyaction_31/0}).
-file("/usr/home/lincoln/gdminus/src/gdminus_scan.xrl", 42).
yyaction_31() ->
     skip_token .

-compile({inline,yyaction_32/0}).
-file("/usr/home/lincoln/gdminus/src/gdminus_scan.xrl", 43).
yyaction_32() ->
     skip_token .

-file("/usr/local/lib/erlang24/lib/parsetools-2.3/include/leexinc.hrl", 313).