From c30ddd3a072101cbfcc158b377d80086dd55414f Mon Sep 17 00:00:00 2001 From: Badlop Date: Tue, 4 Dec 2007 23:41:52 +0000 Subject: * contrib/extract_translations/extract_translations.erl: Don't report [] to be translated. Identify unusued strings. SVN Revision: 1022 --- contrib/extract_translations/extract_translations.erl | 7 +++++-- 1 file changed, 5 insertions(+), 2 deletions(-) (limited to 'contrib/extract_translations/extract_translations.erl') diff --git a/contrib/extract_translations/extract_translations.erl b/contrib/extract_translations/extract_translations.erl index 01788c504..bd116b090 100644 --- a/contrib/extract_translations/extract_translations.erl +++ b/contrib/extract_translations/extract_translations.erl @@ -49,7 +49,7 @@ process(Dir, File, Used) -> case Used of unused -> ets:foldl(fun({Key, _}, _) -> - io:format("~p~n", [Key]) + io:format("Unused string: ~p~n", [Key]) end, ok, translations); _ -> ok @@ -122,7 +122,10 @@ process_string(_Dir, File, Str, Used) -> io:format("~n% ~s~n", [File]), ets:insert(files, {File}) end, - io:format("{~p, \"\"}.~n", [Str]), + case Str of + [] -> ok; + _ -> io:format("{~p, \"\"}.~n", [Str]) + end, ets:insert(translations, {Str, ""}); _ -> ok -- cgit v1.2.3