Packages
ex_cldr_numbers
1.4.2
2.38.3
2.38.2
2.38.1
2.38.0
2.37.0
2.36.0
2.35.2
2.35.1
2.35.0
2.34.1
2.34.0
2.33.6
2.33.5
2.33.4
2.33.3
2.33.2
2.33.1
2.33.0
2.32.4
2.32.3
2.32.2
2.32.1
2.32.0
retired
2.31.3
retired
2.31.2
2.31.1
2.31.0
2.30.1
2.30.0
2.29.0
2.28.0
2.27.3
2.27.2
2.27.1
2.27.0
2.26.0
2.25.2
2.25.1
2.25.0
2.24.0
2.23.3
2.23.2
2.23.1
2.23.0
2.23.0-rc.4
2.23.0-rc.3
2.23.0-rc.2
2.23.0-rc.1
2.23.0-rc.0
2.22.1
2.22.0
2.21.0
2.20.0
2.19.0
2.18.4
2.18.3
2.18.2
2.18.1
2.18.0
2.17.0
2.17.0-rc.1
2.17.0-rc.0
2.16.1
2.16.0
2.16.0-rc.0
2.15.4
2.15.3
2.15.2
2.15.1
2.15.0
2.14.0
2.13.2
2.13.1
2.13.0
2.13.0-rc.0
2.12.1
2.12.0
2.11.0
2.10.0
2.9.0
2.8.0
2.7.2
2.7.1
2.7.0
2.6.4
2.6.3
2.6.2
2.6.1
2.6.0
2.5.0
2.4.4
2.4.3
2.4.2
2.4.1
2.4.0
2.3.0
2.2.0
2.1.1
2.1.0
2.0.0
2.0.0-rc.0
1.6.0
1.5.2
1.5.1
1.5.0
1.4.4
1.4.3
1.4.2
1.4.1
1.4.0
1.3.1
1.3.0
1.3.0-rc.1
1.3.0-rc.0
retired
1.2.0
1.1.0
1.0.1
1.0.0
1.0.0-rc.0
retired
0.3.3
0.3.2
retired
0.3.1
retired
0.3.0
retired
0.2.3
0.2.2
0.2.1
0.2.0
0.1.0
Number and currency localization and formatting functions for the Common Locale Data Repository (CLDR).
Current section
Files
Jump to
Current section
Files
src/rbnf_parser.erl
-module(rbnf_parser).
-export([parse/1, parse_and_scan/1, format_error/1]).
-file("src/rbnf_parser.yrl", 58).
% Consolidate characters into a binary
append({char, _, _} = Char, {literal, Literal}) ->
{literal, list_to_binary([unwrap(Char), Literal])};
append({comma, _, _} = Char, {literal, Literal}) ->
{literal, list_to_binary([unwrap(Char), Literal])};
append({number_format, _, _} = Char, {literal, Literal}) ->
{literal, list_to_binary([unwrap(Char), Literal])};
append({literal, Literal1}, {literal, Literal2}) ->
{literal, list_to_binary([Literal2, Literal1])}.
% We will turn rule names into functions later on so
% we normalise the names to a format that is acceptable.
normalize_rule_name({_,_,[$%, $% | Name]}) ->
erlang:binary_to_atom(unicode:characters_to_binary(underscore(Name)), utf8);
normalize_rule_name({_,_,[$% | Name]}) ->
erlang:binary_to_atom(unicode:characters_to_binary(underscore(Name)), utf8).
% Return a token value as a binary
unwrap({_,_,V}) when is_list(V) -> unicode:characters_to_binary(V);
unwrap({_,_,V}) -> V.
% Substitute "_" for "-" since we will use these rule names
% as functions later on.
underscore([$-| Rest]) ->
[$_ | underscore(Rest)];
underscore([]) ->
[];
underscore([Char | Rest]) ->
[Char | underscore(Rest)].
% Convert ordinal and cardinal rules into a map
to_map(Plurals) ->
String = unwrap(Plurals),
Parts = binary:split(String, [<<"{">>,<<"}">>], [global, trim]),
Proplist = to_proplist(Parts),
maps:from_list(Proplist).
% Convert a list into a proplist
to_proplist([K,V | T]) -> [{erlang:binary_to_atom(K, utf8),V} | to_proplist(T)];
to_proplist([]) -> [].
-file("/usr/local/Cellar/erlang/20.0/lib/erlang/lib/parsetools-2.1.5/include/yeccpre.hrl", 0).
%%
%% %CopyrightBegin%
%%
%% Copyright Ericsson AB 1996-2017. All Rights Reserved.
%%
%% Licensed under the Apache License, Version 2.0 (the "License");
%% you may not use this file except in compliance with the License.
%% You may obtain a copy of the License at
%%
%% http://www.apache.org/licenses/LICENSE-2.0
%%
%% Unless required by applicable law or agreed to in writing, software
%% distributed under the License is distributed on an "AS IS" BASIS,
%% WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied.
%% See the License for the specific language governing permissions and
%% limitations under the License.
%%
%% %CopyrightEnd%
%%
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
% The parser generator will insert appropriate declarations before this line.%
-type yecc_ret() :: {'error', _} | {'ok', _}.
-spec parse(Tokens :: list()) -> yecc_ret().
parse(Tokens) ->
yeccpars0(Tokens, {no_func, no_line}, 0, [], []).
-spec parse_and_scan({function() | {atom(), atom()}, [_]}
| {atom(), atom(), [_]}) -> yecc_ret().
parse_and_scan({F, A}) ->
yeccpars0([], {{F, A}, no_line}, 0, [], []);
parse_and_scan({M, F, A}) ->
Arity = length(A),
yeccpars0([], {{fun M:F/Arity, A}, no_line}, 0, [], []).
-spec format_error(any()) -> [char() | list()].
format_error(Message) ->
case io_lib:deep_char_list(Message) of
true ->
Message;
_ ->
io_lib:write(Message)
end.
%% To be used in grammar files to throw an error message to the parser
%% toplevel. Doesn't have to be exported!
-compile({nowarn_unused_function, return_error/2}).
-spec return_error(integer(), any()) -> no_return().
return_error(Line, Message) ->
throw({error, {Line, ?MODULE, Message}}).
-define(CODE_VERSION, "1.4").
yeccpars0(Tokens, Tzr, State, States, Vstack) ->
try yeccpars1(Tokens, Tzr, State, States, Vstack)
catch
error: Error ->
Stacktrace = erlang:get_stacktrace(),
try yecc_error_type(Error, Stacktrace) of
Desc ->
erlang:raise(error, {yecc_bug, ?CODE_VERSION, Desc},
Stacktrace)
catch _:_ -> erlang:raise(error, Error, Stacktrace)
end;
%% Probably thrown from return_error/2:
throw: {error, {_Line, ?MODULE, _M}} = Error ->
Error
end.
yecc_error_type(function_clause, [{?MODULE,F,ArityOrArgs,_} | _]) ->
case atom_to_list(F) of
"yeccgoto_" ++ SymbolL ->
{ok,[{atom,_,Symbol}],_} = erl_scan:string(SymbolL),
State = case ArityOrArgs of
[S,_,_,_,_,_,_] -> S;
_ -> state_is_unknown
end,
{Symbol, State, missing_in_goto_table}
end.
yeccpars1([Token | Tokens], Tzr, State, States, Vstack) ->
yeccpars2(State, element(1, Token), States, Vstack, Token, Tokens, Tzr);
yeccpars1([], {{F, A},_Line}, State, States, Vstack) ->
case apply(F, A) of
{ok, Tokens, Endline} ->
yeccpars1(Tokens, {{F, A}, Endline}, State, States, Vstack);
{eof, Endline} ->
yeccpars1([], {no_func, Endline}, State, States, Vstack);
{error, Descriptor, _Endline} ->
{error, Descriptor}
end;
yeccpars1([], {no_func, no_line}, State, States, Vstack) ->
Line = 999999,
yeccpars2(State, '$end', States, Vstack, yecc_end(Line), [],
{no_func, Line});
yeccpars1([], {no_func, Endline}, State, States, Vstack) ->
yeccpars2(State, '$end', States, Vstack, yecc_end(Endline), [],
{no_func, Endline}).
%% yeccpars1/7 is called from generated code.
%%
%% When using the {includefile, Includefile} option, make sure that
%% yeccpars1/7 can be found by parsing the file without following
%% include directives. yecc will otherwise assume that an old
%% yeccpre.hrl is included (one which defines yeccpars1/5).
yeccpars1(State1, State, States, Vstack, Token0, [Token | Tokens], Tzr) ->
yeccpars2(State, element(1, Token), [State1 | States],
[Token0 | Vstack], Token, Tokens, Tzr);
yeccpars1(State1, State, States, Vstack, Token0, [], {{_F,_A}, _Line}=Tzr) ->
yeccpars1([], Tzr, State, [State1 | States], [Token0 | Vstack]);
yeccpars1(State1, State, States, Vstack, Token0, [], {no_func, no_line}) ->
Line = yecctoken_end_location(Token0),
yeccpars2(State, '$end', [State1 | States], [Token0 | Vstack],
yecc_end(Line), [], {no_func, Line});
yeccpars1(State1, State, States, Vstack, Token0, [], {no_func, Line}) ->
yeccpars2(State, '$end', [State1 | States], [Token0 | Vstack],
yecc_end(Line), [], {no_func, Line}).
%% For internal use only.
yecc_end({Line,_Column}) ->
{'$end', Line};
yecc_end(Line) ->
{'$end', Line}.
yecctoken_end_location(Token) ->
try erl_anno:end_location(element(2, Token)) of
undefined -> yecctoken_location(Token);
Loc -> Loc
catch _:_ -> yecctoken_location(Token)
end.
-compile({nowarn_unused_function, yeccerror/1}).
yeccerror(Token) ->
Text = yecctoken_to_string(Token),
Location = yecctoken_location(Token),
{error, {Location, ?MODULE, ["syntax error before: ", Text]}}.
-compile({nowarn_unused_function, yecctoken_to_string/1}).
yecctoken_to_string(Token) ->
try erl_scan:text(Token) of
undefined -> yecctoken2string(Token);
Txt -> Txt
catch _:_ -> yecctoken2string(Token)
end.
yecctoken_location(Token) ->
try erl_scan:location(Token)
catch _:_ -> element(2, Token)
end.
-compile({nowarn_unused_function, yecctoken2string/1}).
yecctoken2string({atom, _, A}) -> io_lib:write_atom(A);
yecctoken2string({integer,_,N}) -> io_lib:write(N);
yecctoken2string({float,_,F}) -> io_lib:write(F);
yecctoken2string({char,_,C}) -> io_lib:write_char(C);
yecctoken2string({var,_,V}) -> io_lib:format("~s", [V]);
yecctoken2string({string,_,S}) -> io_lib:write_string(S);
yecctoken2string({reserved_symbol, _, A}) -> io_lib:write(A);
yecctoken2string({_Cat, _, Val}) -> io_lib:format("~tp", [Val]);
yecctoken2string({dot, _}) -> "'.'";
yecctoken2string({'$end', _}) -> [];
yecctoken2string({Other, _}) when is_atom(Other) ->
io_lib:write_atom(Other);
yecctoken2string(Other) ->
io_lib:format("~tp", [Other]).
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
-file("src/rbnf_parser.erl", 218).
-dialyzer({nowarn_function, yeccpars2/7}).
yeccpars2(0=S, Cat, Ss, Stack, T, Ts, Tzr) ->
yeccpars2_0(S, Cat, Ss, Stack, T, Ts, Tzr);
%% yeccpars2(1=S, Cat, Ss, Stack, T, Ts, Tzr) ->
%% yeccpars2_1(S, Cat, Ss, Stack, T, Ts, Tzr);
%% yeccpars2(2=S, Cat, Ss, Stack, T, Ts, Tzr) ->
%% yeccpars2_2(S, Cat, Ss, Stack, T, Ts, Tzr);
%% yeccpars2(3=S, Cat, Ss, Stack, T, Ts, Tzr) ->
%% yeccpars2_3(S, Cat, Ss, Stack, T, Ts, Tzr);
%% yeccpars2(4=S, Cat, Ss, Stack, T, Ts, Tzr) ->
%% yeccpars2_4(S, Cat, Ss, Stack, T, Ts, Tzr);
%% yeccpars2(5=S, Cat, Ss, Stack, T, Ts, Tzr) ->
%% yeccpars2_5(S, Cat, Ss, Stack, T, Ts, Tzr);
%% yeccpars2(6=S, Cat, Ss, Stack, T, Ts, Tzr) ->
%% yeccpars2_6(S, Cat, Ss, Stack, T, Ts, Tzr);
%% yeccpars2(7=S, Cat, Ss, Stack, T, Ts, Tzr) ->
%% yeccpars2_7(S, Cat, Ss, Stack, T, Ts, Tzr);
%% yeccpars2(8=S, Cat, Ss, Stack, T, Ts, Tzr) ->
%% yeccpars2_8(S, Cat, Ss, Stack, T, Ts, Tzr);
%% yeccpars2(9=S, Cat, Ss, Stack, T, Ts, Tzr) ->
%% yeccpars2_9(S, Cat, Ss, Stack, T, Ts, Tzr);
yeccpars2(10=S, Cat, Ss, Stack, T, Ts, Tzr) ->
yeccpars2_10(S, Cat, Ss, Stack, T, Ts, Tzr);
yeccpars2(11=S, Cat, Ss, Stack, T, Ts, Tzr) ->
yeccpars2_11(S, Cat, Ss, Stack, T, Ts, Tzr);
yeccpars2(12=S, Cat, Ss, Stack, T, Ts, Tzr) ->
yeccpars2_0(S, Cat, Ss, Stack, T, Ts, Tzr);
yeccpars2(13=S, Cat, Ss, Stack, T, Ts, Tzr) ->
yeccpars2_13(S, Cat, Ss, Stack, T, Ts, Tzr);
yeccpars2(14=S, Cat, Ss, Stack, T, Ts, Tzr) ->
yeccpars2_14(S, Cat, Ss, Stack, T, Ts, Tzr);
yeccpars2(15=S, Cat, Ss, Stack, T, Ts, Tzr) ->
yeccpars2_15(S, Cat, Ss, Stack, T, Ts, Tzr);
yeccpars2(16=S, Cat, Ss, Stack, T, Ts, Tzr) ->
yeccpars2_16(S, Cat, Ss, Stack, T, Ts, Tzr);
yeccpars2(17=S, Cat, Ss, Stack, T, Ts, Tzr) ->
yeccpars2_17(S, Cat, Ss, Stack, T, Ts, Tzr);
%% yeccpars2(18=S, Cat, Ss, Stack, T, Ts, Tzr) ->
%% yeccpars2_18(S, Cat, Ss, Stack, T, Ts, Tzr);
yeccpars2(19=S, Cat, Ss, Stack, T, Ts, Tzr) ->
yeccpars2_19(S, Cat, Ss, Stack, T, Ts, Tzr);
yeccpars2(20=S, Cat, Ss, Stack, T, Ts, Tzr) ->
yeccpars2_20(S, Cat, Ss, Stack, T, Ts, Tzr);
yeccpars2(21=S, Cat, Ss, Stack, T, Ts, Tzr) ->
yeccpars2_21(S, Cat, Ss, Stack, T, Ts, Tzr);
%% yeccpars2(22=S, Cat, Ss, Stack, T, Ts, Tzr) ->
%% yeccpars2_22(S, Cat, Ss, Stack, T, Ts, Tzr);
yeccpars2(23=S, Cat, Ss, Stack, T, Ts, Tzr) ->
yeccpars2_23(S, Cat, Ss, Stack, T, Ts, Tzr);
yeccpars2(24=S, Cat, Ss, Stack, T, Ts, Tzr) ->
yeccpars2_24(S, Cat, Ss, Stack, T, Ts, Tzr);
yeccpars2(25=S, Cat, Ss, Stack, T, Ts, Tzr) ->
yeccpars2_25(S, Cat, Ss, Stack, T, Ts, Tzr);
%% yeccpars2(26=S, Cat, Ss, Stack, T, Ts, Tzr) ->
%% yeccpars2_26(S, Cat, Ss, Stack, T, Ts, Tzr);
yeccpars2(27=S, Cat, Ss, Stack, T, Ts, Tzr) ->
yeccpars2_27(S, Cat, Ss, Stack, T, Ts, Tzr);
yeccpars2(28=S, Cat, Ss, Stack, T, Ts, Tzr) ->
yeccpars2_28(S, Cat, Ss, Stack, T, Ts, Tzr);
yeccpars2(29=S, Cat, Ss, Stack, T, Ts, Tzr) ->
yeccpars2_29(S, Cat, Ss, Stack, T, Ts, Tzr);
yeccpars2(30=S, Cat, Ss, Stack, T, Ts, Tzr) ->
yeccpars2_30(S, Cat, Ss, Stack, T, Ts, Tzr);
yeccpars2(31=S, Cat, Ss, Stack, T, Ts, Tzr) ->
yeccpars2_31(S, Cat, Ss, Stack, T, Ts, Tzr);
yeccpars2(32=S, Cat, Ss, Stack, T, Ts, Tzr) ->
yeccpars2_32(S, Cat, Ss, Stack, T, Ts, Tzr);
yeccpars2(33=S, Cat, Ss, Stack, T, Ts, Tzr) ->
yeccpars2_33(S, Cat, Ss, Stack, T, Ts, Tzr);
yeccpars2(34=S, Cat, Ss, Stack, T, Ts, Tzr) ->
yeccpars2_34(S, Cat, Ss, Stack, T, Ts, Tzr);
yeccpars2(35=S, Cat, Ss, Stack, T, Ts, Tzr) ->
yeccpars2_35(S, Cat, Ss, Stack, T, Ts, Tzr);
yeccpars2(36=S, Cat, Ss, Stack, T, Ts, Tzr) ->
yeccpars2_36(S, Cat, Ss, Stack, T, Ts, Tzr);
yeccpars2(37=S, Cat, Ss, Stack, T, Ts, Tzr) ->
yeccpars2_37(S, Cat, Ss, Stack, T, Ts, Tzr);
yeccpars2(38=S, Cat, Ss, Stack, T, Ts, Tzr) ->
yeccpars2_38(S, Cat, Ss, Stack, T, Ts, Tzr);
yeccpars2(39=S, Cat, Ss, Stack, T, Ts, Tzr) ->
yeccpars2_39(S, Cat, Ss, Stack, T, Ts, Tzr);
yeccpars2(40=S, Cat, Ss, Stack, T, Ts, Tzr) ->
yeccpars2_40(S, Cat, Ss, Stack, T, Ts, Tzr);
%% yeccpars2(41=S, Cat, Ss, Stack, T, Ts, Tzr) ->
%% yeccpars2_41(S, Cat, Ss, Stack, T, Ts, Tzr);
yeccpars2(42=S, Cat, Ss, Stack, T, Ts, Tzr) ->
yeccpars2_42(S, Cat, Ss, Stack, T, Ts, Tzr);
%% yeccpars2(43=S, Cat, Ss, Stack, T, Ts, Tzr) ->
%% yeccpars2_43(S, Cat, Ss, Stack, T, Ts, Tzr);
%% yeccpars2(44=S, Cat, Ss, Stack, T, Ts, Tzr) ->
%% yeccpars2_44(S, Cat, Ss, Stack, T, Ts, Tzr);
yeccpars2(Other, _, _, _, _, _, _) ->
erlang:error({yecc_bug,"1.4",{missing_state_in_action_table, Other}}).
-dialyzer({nowarn_function, yeccpars2_0/7}).
yeccpars2_0(S, char, Ss, Stack, T, Ts, Tzr) ->
yeccpars1(S, 10, Ss, Stack, T, Ts, Tzr);
yeccpars2_0(S, comma, Ss, Stack, T, Ts, Tzr) ->
yeccpars1(S, 11, Ss, Stack, T, Ts, Tzr);
yeccpars2_0(S, conditional_start, Ss, Stack, T, Ts, Tzr) ->
yeccpars1(S, 12, Ss, Stack, T, Ts, Tzr);
yeccpars2_0(S, dollar, Ss, Stack, T, Ts, Tzr) ->
yeccpars1(S, 13, Ss, Stack, T, Ts, Tzr);
yeccpars2_0(S, modulo_call, Ss, Stack, T, Ts, Tzr) ->
yeccpars1(S, 14, Ss, Stack, T, Ts, Tzr);
yeccpars2_0(S, number_format, Ss, Stack, T, Ts, Tzr) ->
yeccpars1(S, 15, Ss, Stack, T, Ts, Tzr);
yeccpars2_0(S, quotient_call, Ss, Stack, T, Ts, Tzr) ->
yeccpars1(S, 16, Ss, Stack, T, Ts, Tzr);
yeccpars2_0(S, rule_call, Ss, Stack, T, Ts, Tzr) ->
yeccpars1(S, 17, Ss, Stack, T, Ts, Tzr);
yeccpars2_0(_, _, _, _, T, _, _) ->
yeccerror(T).
yeccpars2_1(S, char, Ss, Stack, T, Ts, Tzr) ->
yeccpars1(S, 10, Ss, Stack, T, Ts, Tzr);
yeccpars2_1(S, comma, Ss, Stack, T, Ts, Tzr) ->
yeccpars1(S, 11, Ss, Stack, T, Ts, Tzr);
yeccpars2_1(S, conditional_start, Ss, Stack, T, Ts, Tzr) ->
yeccpars1(S, 12, Ss, Stack, T, Ts, Tzr);
yeccpars2_1(S, dollar, Ss, Stack, T, Ts, Tzr) ->
yeccpars1(S, 13, Ss, Stack, T, Ts, Tzr);
yeccpars2_1(S, modulo_call, Ss, Stack, T, Ts, Tzr) ->
yeccpars1(S, 14, Ss, Stack, T, Ts, Tzr);
yeccpars2_1(S, number_format, Ss, Stack, T, Ts, Tzr) ->
yeccpars1(S, 15, Ss, Stack, T, Ts, Tzr);
yeccpars2_1(S, quotient_call, Ss, Stack, T, Ts, Tzr) ->
yeccpars1(S, 16, Ss, Stack, T, Ts, Tzr);
yeccpars2_1(S, rule_call, Ss, Stack, T, Ts, Tzr) ->
yeccpars1(S, 17, Ss, Stack, T, Ts, Tzr);
yeccpars2_1(_S, Cat, Ss, Stack, T, Ts, Tzr) ->
NewStack = yeccpars2_1_(Stack),
yeccgoto_rbnf_rule(hd(Ss), Cat, Ss, NewStack, T, Ts, Tzr).
-dialyzer({nowarn_function, yeccpars2_2/7}).
yeccpars2_2(_S, '$end', _Ss, Stack, _T, _Ts, _Tzr) ->
{ok, hd(Stack)};
yeccpars2_2(_, _, _, _, T, _, _) ->
yeccerror(T).
yeccpars2_3(_S, Cat, Ss, Stack, T, Ts, Tzr) ->
yeccgoto_rule_part(hd(Ss), Cat, Ss, Stack, T, Ts, Tzr).
yeccpars2_4(_S, Cat, Ss, Stack, T, Ts, Tzr) ->
yeccgoto_rule_part(hd(Ss), Cat, Ss, Stack, T, Ts, Tzr).
yeccpars2_5(_S, Cat, Ss, Stack, T, Ts, Tzr) ->
yeccgoto_rule_part(hd(Ss), Cat, Ss, Stack, T, Ts, Tzr).
yeccpars2_6(_S, Cat, Ss, Stack, T, Ts, Tzr) ->
yeccgoto_rule_part(hd(Ss), Cat, Ss, Stack, T, Ts, Tzr).
yeccpars2_7(_S, Cat, Ss, Stack, T, Ts, Tzr) ->
yeccgoto_rule_part(hd(Ss), Cat, Ss, Stack, T, Ts, Tzr).
yeccpars2_8(S, char, Ss, Stack, T, Ts, Tzr) ->
yeccpars1(S, 10, Ss, Stack, T, Ts, Tzr);
yeccpars2_8(S, comma, Ss, Stack, T, Ts, Tzr) ->
yeccpars1(S, 11, Ss, Stack, T, Ts, Tzr);
yeccpars2_8(S, number_format, Ss, Stack, T, Ts, Tzr) ->
yeccpars1(S, 15, Ss, Stack, T, Ts, Tzr);
yeccpars2_8(_S, Cat, Ss, Stack, T, Ts, Tzr) ->
NewStack = yeccpars2_8_(Stack),
yeccgoto_literal(hd(Ss), Cat, Ss, NewStack, T, Ts, Tzr).
yeccpars2_9(_S, Cat, Ss, Stack, T, Ts, Tzr) ->
yeccgoto_rule_part(hd(Ss), Cat, Ss, Stack, T, Ts, Tzr).
yeccpars2_10(_S, Cat, Ss, Stack, T, Ts, Tzr) ->
yeccgoto_character(hd(Ss), Cat, Ss, Stack, T, Ts, Tzr).
yeccpars2_11(_S, Cat, Ss, Stack, T, Ts, Tzr) ->
yeccgoto_character(hd(Ss), Cat, Ss, Stack, T, Ts, Tzr).
%% yeccpars2_12: see yeccpars2_0
-dialyzer({nowarn_function, yeccpars2_13/7}).
yeccpars2_13(S, left_paren, Ss, Stack, T, Ts, Tzr) ->
yeccpars1(S, 30, Ss, Stack, T, Ts, Tzr);
yeccpars2_13(_, _, _, _, T, _, _) ->
yeccerror(T).
yeccpars2_14(S, modulo_call, Ss, Stack, T, Ts, Tzr) ->
yeccpars1(S, 27, Ss, Stack, T, Ts, Tzr);
yeccpars2_14(S, Cat, Ss, Stack, T, Ts, Tzr) ->
yeccpars2_17(S, Cat, Ss, Stack, T, Ts, Tzr).
yeccpars2_15(_S, Cat, Ss, Stack, T, Ts, Tzr) ->
yeccgoto_character(hd(Ss), Cat, Ss, Stack, T, Ts, Tzr).
yeccpars2_16(S, quotient_call, Ss, Stack, T, Ts, Tzr) ->
yeccpars1(S, 23, Ss, Stack, T, Ts, Tzr);
yeccpars2_16(S, Cat, Ss, Stack, T, Ts, Tzr) ->
yeccpars2_17(S, Cat, Ss, Stack, T, Ts, Tzr).
-dialyzer({nowarn_function, yeccpars2_17/7}).
yeccpars2_17(S, number_format, Ss, Stack, T, Ts, Tzr) ->
yeccpars1(S, 19, Ss, Stack, T, Ts, Tzr);
yeccpars2_17(S, rule_name, Ss, Stack, T, Ts, Tzr) ->
yeccpars1(S, 20, Ss, Stack, T, Ts, Tzr);
yeccpars2_17(_, _, _, _, T, _, _) ->
yeccerror(T).
-dialyzer({nowarn_function, yeccpars2_18/7}).
yeccpars2_18(S, rule_call, Ss, Stack, T, Ts, Tzr) ->
yeccpars1(S, 21, Ss, Stack, T, Ts, Tzr);
yeccpars2_18(_, _, _, _, T, _, _) ->
yeccerror(T).
yeccpars2_19(_S, Cat, Ss, Stack, T, Ts, Tzr) ->
NewStack = yeccpars2_19_(Stack),
yeccgoto_rule(hd(Ss), Cat, Ss, NewStack, T, Ts, Tzr).
yeccpars2_20(_S, Cat, Ss, Stack, T, Ts, Tzr) ->
NewStack = yeccpars2_20_(Stack),
yeccgoto_rule(hd(Ss), Cat, Ss, NewStack, T, Ts, Tzr).
yeccpars2_21(_S, Cat, Ss, Stack, T, Ts, Tzr) ->
[_,_|Nss] = Ss,
NewStack = yeccpars2_21_(Stack),
yeccgoto_invoke_rule(hd(Nss), Cat, Nss, NewStack, T, Ts, Tzr).
-dialyzer({nowarn_function, yeccpars2_22/7}).
yeccpars2_22(S, quotient_call, Ss, Stack, T, Ts, Tzr) ->
yeccpars1(S, 24, Ss, Stack, T, Ts, Tzr);
yeccpars2_22(_, _, _, _, T, _, _) ->
yeccerror(T).
yeccpars2_23(_S, Cat, Ss, Stack, T, Ts, Tzr) ->
[_|Nss] = Ss,
NewStack = yeccpars2_23_(Stack),
yeccgoto_quotient_rule(hd(Nss), Cat, Nss, NewStack, T, Ts, Tzr).
yeccpars2_24(S, quotient_call, Ss, Stack, T, Ts, Tzr) ->
yeccpars1(S, 25, Ss, Stack, T, Ts, Tzr);
yeccpars2_24(_S, Cat, Ss, Stack, T, Ts, Tzr) ->
[_,_|Nss] = Ss,
NewStack = yeccpars2_24_(Stack),
yeccgoto_quotient_rule(hd(Nss), Cat, Nss, NewStack, T, Ts, Tzr).
yeccpars2_25(_S, Cat, Ss, Stack, T, Ts, Tzr) ->
[_,_,_|Nss] = Ss,
NewStack = yeccpars2_25_(Stack),
yeccgoto_quotient_rule(hd(Nss), Cat, Nss, NewStack, T, Ts, Tzr).
-dialyzer({nowarn_function, yeccpars2_26/7}).
yeccpars2_26(S, modulo_call, Ss, Stack, T, Ts, Tzr) ->
yeccpars1(S, 29, Ss, Stack, T, Ts, Tzr);
yeccpars2_26(_, _, _, _, T, _, _) ->
yeccerror(T).
yeccpars2_27(S, modulo_call, Ss, Stack, T, Ts, Tzr) ->
yeccpars1(S, 28, Ss, Stack, T, Ts, Tzr);
yeccpars2_27(_S, Cat, Ss, Stack, T, Ts, Tzr) ->
[_|Nss] = Ss,
NewStack = yeccpars2_27_(Stack),
yeccgoto_modulo_rule(hd(Nss), Cat, Nss, NewStack, T, Ts, Tzr).
yeccpars2_28(_S, Cat, Ss, Stack, T, Ts, Tzr) ->
[_,_|Nss] = Ss,
NewStack = yeccpars2_28_(Stack),
yeccgoto_modulo_rule(hd(Nss), Cat, Nss, NewStack, T, Ts, Tzr).
yeccpars2_29(_S, Cat, Ss, Stack, T, Ts, Tzr) ->
[_,_|Nss] = Ss,
NewStack = yeccpars2_29_(Stack),
yeccgoto_modulo_rule(hd(Nss), Cat, Nss, NewStack, T, Ts, Tzr).
-dialyzer({nowarn_function, yeccpars2_30/7}).
yeccpars2_30(S, rule_cardinal_start, Ss, Stack, T, Ts, Tzr) ->
yeccpars1(S, 31, Ss, Stack, T, Ts, Tzr);
yeccpars2_30(S, rule_ordinal_start, Ss, Stack, T, Ts, Tzr) ->
yeccpars1(S, 32, Ss, Stack, T, Ts, Tzr);
yeccpars2_30(_, _, _, _, T, _, _) ->
yeccerror(T).
-dialyzer({nowarn_function, yeccpars2_31/7}).
yeccpars2_31(S, comma, Ss, Stack, T, Ts, Tzr) ->
yeccpars1(S, 37, Ss, Stack, T, Ts, Tzr);
yeccpars2_31(_, _, _, _, T, _, _) ->
yeccerror(T).
-dialyzer({nowarn_function, yeccpars2_32/7}).
yeccpars2_32(S, comma, Ss, Stack, T, Ts, Tzr) ->
yeccpars1(S, 33, Ss, Stack, T, Ts, Tzr);
yeccpars2_32(_, _, _, _, T, _, _) ->
yeccerror(T).
-dialyzer({nowarn_function, yeccpars2_33/7}).
yeccpars2_33(S, plural_rules, Ss, Stack, T, Ts, Tzr) ->
yeccpars1(S, 34, Ss, Stack, T, Ts, Tzr);
yeccpars2_33(_, _, _, _, T, _, _) ->
yeccerror(T).
-dialyzer({nowarn_function, yeccpars2_34/7}).
yeccpars2_34(S, right_paren, Ss, Stack, T, Ts, Tzr) ->
yeccpars1(S, 35, Ss, Stack, T, Ts, Tzr);
yeccpars2_34(_, _, _, _, T, _, _) ->
yeccerror(T).
-dialyzer({nowarn_function, yeccpars2_35/7}).
yeccpars2_35(S, dollar, Ss, Stack, T, Ts, Tzr) ->
yeccpars1(S, 36, Ss, Stack, T, Ts, Tzr);
yeccpars2_35(_, _, _, _, T, _, _) ->
yeccerror(T).
yeccpars2_36(_S, Cat, Ss, Stack, T, Ts, Tzr) ->
[_,_,_,_,_,_|Nss] = Ss,
NewStack = yeccpars2_36_(Stack),
yeccgoto_ordinal_rule(hd(Nss), Cat, Nss, NewStack, T, Ts, Tzr).
-dialyzer({nowarn_function, yeccpars2_37/7}).
yeccpars2_37(S, plural_rules, Ss, Stack, T, Ts, Tzr) ->
yeccpars1(S, 38, Ss, Stack, T, Ts, Tzr);
yeccpars2_37(_, _, _, _, T, _, _) ->
yeccerror(T).
-dialyzer({nowarn_function, yeccpars2_38/7}).
yeccpars2_38(S, right_paren, Ss, Stack, T, Ts, Tzr) ->
yeccpars1(S, 39, Ss, Stack, T, Ts, Tzr);
yeccpars2_38(_, _, _, _, T, _, _) ->
yeccerror(T).
-dialyzer({nowarn_function, yeccpars2_39/7}).
yeccpars2_39(S, dollar, Ss, Stack, T, Ts, Tzr) ->
yeccpars1(S, 40, Ss, Stack, T, Ts, Tzr);
yeccpars2_39(_, _, _, _, T, _, _) ->
yeccerror(T).
yeccpars2_40(_S, Cat, Ss, Stack, T, Ts, Tzr) ->
[_,_,_,_,_,_|Nss] = Ss,
NewStack = yeccpars2_40_(Stack),
yeccgoto_cardinal_rule(hd(Nss), Cat, Nss, NewStack, T, Ts, Tzr).
-dialyzer({nowarn_function, yeccpars2_41/7}).
yeccpars2_41(S, conditional_end, Ss, Stack, T, Ts, Tzr) ->
yeccpars1(S, 42, Ss, Stack, T, Ts, Tzr);
yeccpars2_41(_, _, _, _, T, _, _) ->
yeccerror(T).
yeccpars2_42(_S, Cat, Ss, Stack, T, Ts, Tzr) ->
[_,_|Nss] = Ss,
NewStack = yeccpars2_42_(Stack),
yeccgoto_rule_part(hd(Nss), Cat, Nss, NewStack, T, Ts, Tzr).
yeccpars2_43(_S, Cat, Ss, Stack, T, Ts, Tzr) ->
[_|Nss] = Ss,
NewStack = yeccpars2_43_(Stack),
yeccgoto_literal(hd(Nss), Cat, Nss, NewStack, T, Ts, Tzr).
yeccpars2_44(_S, Cat, Ss, Stack, T, Ts, Tzr) ->
[_|Nss] = Ss,
NewStack = yeccpars2_44_(Stack),
yeccgoto_rbnf_rule(hd(Nss), Cat, Nss, NewStack, T, Ts, Tzr).
-dialyzer({nowarn_function, yeccgoto_cardinal_rule/7}).
yeccgoto_cardinal_rule(0=_S, Cat, Ss, Stack, T, Ts, Tzr) ->
yeccpars2_9(_S, Cat, Ss, Stack, T, Ts, Tzr);
yeccgoto_cardinal_rule(1=_S, Cat, Ss, Stack, T, Ts, Tzr) ->
yeccpars2_9(_S, Cat, Ss, Stack, T, Ts, Tzr);
yeccgoto_cardinal_rule(12=_S, Cat, Ss, Stack, T, Ts, Tzr) ->
yeccpars2_9(_S, Cat, Ss, Stack, T, Ts, Tzr).
-dialyzer({nowarn_function, yeccgoto_character/7}).
yeccgoto_character(0, Cat, Ss, Stack, T, Ts, Tzr) ->
yeccpars2_8(8, Cat, Ss, Stack, T, Ts, Tzr);
yeccgoto_character(1, Cat, Ss, Stack, T, Ts, Tzr) ->
yeccpars2_8(8, Cat, Ss, Stack, T, Ts, Tzr);
yeccgoto_character(8, Cat, Ss, Stack, T, Ts, Tzr) ->
yeccpars2_8(8, Cat, Ss, Stack, T, Ts, Tzr);
yeccgoto_character(12, Cat, Ss, Stack, T, Ts, Tzr) ->
yeccpars2_8(8, Cat, Ss, Stack, T, Ts, Tzr).
-dialyzer({nowarn_function, yeccgoto_invoke_rule/7}).
yeccgoto_invoke_rule(0=_S, Cat, Ss, Stack, T, Ts, Tzr) ->
yeccpars2_7(_S, Cat, Ss, Stack, T, Ts, Tzr);
yeccgoto_invoke_rule(1=_S, Cat, Ss, Stack, T, Ts, Tzr) ->
yeccpars2_7(_S, Cat, Ss, Stack, T, Ts, Tzr);
yeccgoto_invoke_rule(12=_S, Cat, Ss, Stack, T, Ts, Tzr) ->
yeccpars2_7(_S, Cat, Ss, Stack, T, Ts, Tzr).
-dialyzer({nowarn_function, yeccgoto_literal/7}).
yeccgoto_literal(0=_S, Cat, Ss, Stack, T, Ts, Tzr) ->
yeccpars2_6(_S, Cat, Ss, Stack, T, Ts, Tzr);
yeccgoto_literal(1=_S, Cat, Ss, Stack, T, Ts, Tzr) ->
yeccpars2_6(_S, Cat, Ss, Stack, T, Ts, Tzr);
yeccgoto_literal(8=_S, Cat, Ss, Stack, T, Ts, Tzr) ->
yeccpars2_43(_S, Cat, Ss, Stack, T, Ts, Tzr);
yeccgoto_literal(12=_S, Cat, Ss, Stack, T, Ts, Tzr) ->
yeccpars2_6(_S, Cat, Ss, Stack, T, Ts, Tzr).
-dialyzer({nowarn_function, yeccgoto_modulo_rule/7}).
yeccgoto_modulo_rule(0=_S, Cat, Ss, Stack, T, Ts, Tzr) ->
yeccpars2_5(_S, Cat, Ss, Stack, T, Ts, Tzr);
yeccgoto_modulo_rule(1=_S, Cat, Ss, Stack, T, Ts, Tzr) ->
yeccpars2_5(_S, Cat, Ss, Stack, T, Ts, Tzr);
yeccgoto_modulo_rule(12=_S, Cat, Ss, Stack, T, Ts, Tzr) ->
yeccpars2_5(_S, Cat, Ss, Stack, T, Ts, Tzr).
-dialyzer({nowarn_function, yeccgoto_ordinal_rule/7}).
yeccgoto_ordinal_rule(0=_S, Cat, Ss, Stack, T, Ts, Tzr) ->
yeccpars2_4(_S, Cat, Ss, Stack, T, Ts, Tzr);
yeccgoto_ordinal_rule(1=_S, Cat, Ss, Stack, T, Ts, Tzr) ->
yeccpars2_4(_S, Cat, Ss, Stack, T, Ts, Tzr);
yeccgoto_ordinal_rule(12=_S, Cat, Ss, Stack, T, Ts, Tzr) ->
yeccpars2_4(_S, Cat, Ss, Stack, T, Ts, Tzr).
-dialyzer({nowarn_function, yeccgoto_quotient_rule/7}).
yeccgoto_quotient_rule(0=_S, Cat, Ss, Stack, T, Ts, Tzr) ->
yeccpars2_3(_S, Cat, Ss, Stack, T, Ts, Tzr);
yeccgoto_quotient_rule(1=_S, Cat, Ss, Stack, T, Ts, Tzr) ->
yeccpars2_3(_S, Cat, Ss, Stack, T, Ts, Tzr);
yeccgoto_quotient_rule(12=_S, Cat, Ss, Stack, T, Ts, Tzr) ->
yeccpars2_3(_S, Cat, Ss, Stack, T, Ts, Tzr).
-dialyzer({nowarn_function, yeccgoto_rbnf_rule/7}).
yeccgoto_rbnf_rule(0, Cat, Ss, Stack, T, Ts, Tzr) ->
yeccpars2_2(2, Cat, Ss, Stack, T, Ts, Tzr);
yeccgoto_rbnf_rule(1=_S, Cat, Ss, Stack, T, Ts, Tzr) ->
yeccpars2_44(_S, Cat, Ss, Stack, T, Ts, Tzr);
yeccgoto_rbnf_rule(12, Cat, Ss, Stack, T, Ts, Tzr) ->
yeccpars2_41(41, Cat, Ss, Stack, T, Ts, Tzr).
-dialyzer({nowarn_function, yeccgoto_rule/7}).
yeccgoto_rule(14, Cat, Ss, Stack, T, Ts, Tzr) ->
yeccpars2_26(26, Cat, Ss, Stack, T, Ts, Tzr);
yeccgoto_rule(16, Cat, Ss, Stack, T, Ts, Tzr) ->
yeccpars2_22(22, Cat, Ss, Stack, T, Ts, Tzr);
yeccgoto_rule(17, Cat, Ss, Stack, T, Ts, Tzr) ->
yeccpars2_18(18, Cat, Ss, Stack, T, Ts, Tzr).
-dialyzer({nowarn_function, yeccgoto_rule_part/7}).
yeccgoto_rule_part(0, Cat, Ss, Stack, T, Ts, Tzr) ->
yeccpars2_1(1, Cat, Ss, Stack, T, Ts, Tzr);
yeccgoto_rule_part(1, Cat, Ss, Stack, T, Ts, Tzr) ->
yeccpars2_1(1, Cat, Ss, Stack, T, Ts, Tzr);
yeccgoto_rule_part(12, Cat, Ss, Stack, T, Ts, Tzr) ->
yeccpars2_1(1, Cat, Ss, Stack, T, Ts, Tzr).
-compile({inline,yeccpars2_1_/1}).
-file("src/rbnf_parser.yrl", 13).
yeccpars2_1_(__Stack0) ->
[__1 | __Stack] = __Stack0,
[begin
[ __1 ]
end | __Stack].
-compile({inline,yeccpars2_8_/1}).
-file("src/rbnf_parser.yrl", 48).
yeccpars2_8_(__Stack0) ->
[__1 | __Stack] = __Stack0,
[begin
{ literal , unwrap ( __1 ) }
end | __Stack].
-compile({inline,yeccpars2_19_/1}).
-file("src/rbnf_parser.yrl", 45).
yeccpars2_19_(__Stack0) ->
[__1 | __Stack] = __Stack0,
[begin
{ format , unwrap ( __1 ) }
end | __Stack].
-compile({inline,yeccpars2_20_/1}).
-file("src/rbnf_parser.yrl", 44).
yeccpars2_20_(__Stack0) ->
[__1 | __Stack] = __Stack0,
[begin
{ rule , normalize_rule_name ( __1 ) }
end | __Stack].
-compile({inline,yeccpars2_21_/1}).
-file("src/rbnf_parser.yrl", 37).
yeccpars2_21_(__Stack0) ->
[__3,__2,__1 | __Stack] = __Stack0,
[begin
{ call , __2 }
end | __Stack].
-compile({inline,yeccpars2_23_/1}).
-file("src/rbnf_parser.yrl", 25).
yeccpars2_23_(__Stack0) ->
[__2,__1 | __Stack] = __Stack0,
[begin
{ quotient , nil }
end | __Stack].
-compile({inline,yeccpars2_24_/1}).
-file("src/rbnf_parser.yrl", 24).
yeccpars2_24_(__Stack0) ->
[__3,__2,__1 | __Stack] = __Stack0,
[begin
{ quotient , __2 }
end | __Stack].
-compile({inline,yeccpars2_25_/1}).
-file("src/rbnf_parser.yrl", 23).
yeccpars2_25_(__Stack0) ->
[__4,__3,__2,__1 | __Stack] = __Stack0,
[begin
{ quotient , __2 }
end | __Stack].
-compile({inline,yeccpars2_27_/1}).
-file("src/rbnf_parser.yrl", 28).
yeccpars2_27_(__Stack0) ->
[__2,__1 | __Stack] = __Stack0,
[begin
{ modulo , nil }
end | __Stack].
-compile({inline,yeccpars2_28_/1}).
-file("src/rbnf_parser.yrl", 34).
yeccpars2_28_(__Stack0) ->
[__3,__2,__1 | __Stack] = __Stack0,
[begin
{ modulo , nil }
end | __Stack].
-compile({inline,yeccpars2_29_/1}).
-file("src/rbnf_parser.yrl", 27).
yeccpars2_29_(__Stack0) ->
[__3,__2,__1 | __Stack] = __Stack0,
[begin
{ modulo , __2 }
end | __Stack].
-compile({inline,yeccpars2_36_/1}).
-file("src/rbnf_parser.yrl", 42).
yeccpars2_36_(__Stack0) ->
[__7,__6,__5,__4,__3,__2,__1 | __Stack] = __Stack0,
[begin
{ ordinal , to_map ( __5 ) }
end | __Stack].
-compile({inline,yeccpars2_40_/1}).
-file("src/rbnf_parser.yrl", 40).
yeccpars2_40_(__Stack0) ->
[__7,__6,__5,__4,__3,__2,__1 | __Stack] = __Stack0,
[begin
{ cardinal , to_map ( __5 ) }
end | __Stack].
-compile({inline,yeccpars2_42_/1}).
-file("src/rbnf_parser.yrl", 21).
yeccpars2_42_(__Stack0) ->
[__3,__2,__1 | __Stack] = __Stack0,
[begin
{ conditional , __2 }
end | __Stack].
-compile({inline,yeccpars2_43_/1}).
-file("src/rbnf_parser.yrl", 47).
yeccpars2_43_(__Stack0) ->
[__2,__1 | __Stack] = __Stack0,
[begin
append ( __1 , __2 )
end | __Stack].
-compile({inline,yeccpars2_44_/1}).
-file("src/rbnf_parser.yrl", 12).
yeccpars2_44_(__Stack0) ->
[__2,__1 | __Stack] = __Stack0,
[begin
[ __1 ] ++ __2
end | __Stack].
-file("src/rbnf_parser.yrl", 99).