Comment stuff and @addregex

Change-Id: Ia998176e193a98739b445f245f7cf8e8252f50eb

1 files changed, 5 insertions, 1 deletions

diff --git a/i18nlangtag/source/isolang/langid.pl b/i18nlangtag/source/isolang/langid.pl
index dd89a2860911..65333956ab20 100755
--- a/i18nlangtag/source/isolang/langid.pl
+++ b/i18nlangtag/source/isolang/langid.pl
@@ -85,6 +85,10 @@ sub makeLangID($$)
 }
 
 
+# Note that a regex needs a duplicated pair of backslashes to produce a literal
+# \\ like in \\\\* to search for zero or more \ backslashes.
+# @addregex can be an optional "block to grep" definition
+# (regex-to-start-block, regex-to-end-block, regex-to-find-in-block)
 sub grepFile($$$$$@)
 {
     my( $regex, $path, $module, $name, $printmsg, @addregex) = @_;
@@ -447,7 +451,7 @@ sub main()
             grepFile(
                 '^\s*completelangiso\s*=\s*(\s*([a-z]{2,3})(-[A-Z][A-Z])?)*' . $langtag . '',
                 "$SRC_ROOT", "solenv", "inc/langlist.mk", 1,
-                # needs a duplicated pair of backslashes to produce a literal \\
+                # Also grep the list of tags, one per line, \ backslash continued.
                 ('^\s*completelangiso\s*=', '^\s*$', '^\s*' . $langtag . '\s*\\\\*$'));
 
             # af    1252  1078   # Afrikaans