diff options
author | Badlop <badlop@process-one.net> | 2020-04-17 19:15:18 +0200 |
---|---|---|
committer | Badlop <badlop@process-one.net> | 2020-04-17 19:23:18 +0200 |
commit | 99d21bca49c5e5dc73035863b43e5c5a0fbce827 (patch) | |
tree | ca5c2745437a1d4c79006d152ba27c20fa52a646 /tools/extract-tr.sh | |
parent | Fix previous commit (diff) |
Don't extract for translation strings from man pages, at least for now
Diffstat (limited to 'tools/extract-tr.sh')
-rwxr-xr-x | tools/extract-tr.sh | 12 |
1 files changed, 12 insertions, 0 deletions
diff --git a/tools/extract-tr.sh b/tools/extract-tr.sh index 242a81fe..851f8695 100755 --- a/tools/extract-tr.sh +++ b/tools/extract-tr.sh @@ -17,11 +17,23 @@ extract_tr(File, [{'?', _}, {var, _, 'T'}, {'(', Line}|Tokens], Acc) -> {String, Tokens1} -> extract_tr(File, Tokens1, dict:append(String, {File, Line}, Acc)) end; +extract_tr(_File, [{atom,_,module}, {'(',_}, {atom,_,ejabberd_doc} | _Tokens], Acc) -> + Acc; +extract_tr(File, [{atom, _, F}, {'(',_} | Tokens], Acc) + when (F == mod_doc); (F == doc) -> + Tokens2 = consume_tokens_until_dot(Tokens), + extract_tr(File, Tokens2, Acc); extract_tr(File, [_|Tokens], Acc) -> + %%err("~p~n", [A]), extract_tr(File, Tokens, Acc); extract_tr(_, [], Acc) -> Acc. +consume_tokens_until_dot([{dot, _} | Tokens]) -> + Tokens; +consume_tokens_until_dot([_ | Tokens]) -> + consume_tokens_until_dot(Tokens). + extract_string([{string, _, S}|Tokens], Acc) -> extract_string(Tokens, [S|Acc]); extract_string([{')', _}|Tokens], Acc) -> |