@@ -53,7 +53,7 @@ generate_module_attrs(ModName) -> % some way, but hides warnings about unused parser combinators. % In a future version we should just emit the used combinators, % excluding the rest. - "-compile(nowarn_unused_function).\n\n", + "-compile({nowarn_unused_function,[p/4, p/5, p_eof/0, p_optional/1, p_not/1, p_assert/1, p_seq/1, p_and/1, p_choose/1, p_zero_or_more/1, p_one_or_more/1, p_label/2, p_string/1, p_anything/0, p_charclass/1]}).\n\n", "file(Filename) -> {ok, Bin} = file:read_file(Filename), parse(binary_to_list(Bin)).\n\n", "parse(Input) ->\n", " setup_memo('", atom_to_list(ModName),"'),\n", src/peg_gen.erl @@ -1,12 +1,12 @@ -module(peg_meta). -export([parse/1,file/1]). --compile(nowarn_unused_function). +-compile({nowarn_unused_function,[p/4, p/5, p_eof/0, p_optional/1, p_not/1, p_assert/1, p_seq/1, p_and/1, p_choose/1, p_zero_or_more/1, p_one_or_more/1, p_label/2, p_string/1, p_anything/0, p_charclass/1]}). file(Filename) -> {ok, Bin} = file:read_file(Filename), parse(binary_to_list(Bin)). parse(Input) -> - setup_memo(peg_meta), - Result = case rules(Input,{{line,1},{column,1}}) of + setup_memo('peg_meta'), + Result = case 'rules'(Input,{{line,1},{column,1}}) of {AST, [], _Index} -> AST; Any -> Any end, src/peg_meta.erl 86e09575b6e6abdad173ff78303718309006724b Sean Cribbs seancribbs@gmail.com http://github.com/seancribbs/neotoma/commit/d71257822afdb7928916a5c604cde89aab803b0d d71257822afdb7928916a5c604cde89aab803b0d 2009-10-31T18:27:18-07:00 2009-10-31T18:26:45-07:00 Limit the warning suppression to combinator and support functions. 81360c6e965358c06382817cb120024b3b0d3d62 Sean Cribbs seancribbs@gmail.com