From 99d21bca49c5e5dc73035863b43e5c5a0fbce827 Mon Sep 17 00:00:00 2001
From: Badlop <badlop@process-one.net>
Date: Fri, 17 Apr 2020 19:15:18 +0200
Subject: [PATCH] Don't extract for translation strings from man pages, at
 least for now

---
 tools/extract-tr.sh | 12 ++++++++++++
 1 file changed, 12 insertions(+)

diff --git a/tools/extract-tr.sh b/tools/extract-tr.sh
index 242a81fec..851f86956 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) ->