texlive[74080] Master/tlpkg/TeXLive/TLUtils.pm:

[commits+karl at tug.org]

Revision: 74080
          https://tug.org/svn/texlive?view=revision&revision=74080
Author:   karl
Date:     2025-02-18 00:09:26 +0100 (Tue, 18 Feb 2025)
Log Message:
-----------
(parse_AddHyphen_line): until now, langs have only
been included in the lua "database" under certain
conditions, namely a nonempty file_patterns,
file_exceptions, or luaspecial directive. The
reason for this is unknown.

Nowadays, all this comes from hyph-utf8, and the
new hebrew and vietnamese items don't have any of
those settings, yet they should be included in
language.dat.lua. And the lua array resulting from
processing them is viable, essentially the same as
the longstanding farsi (another zero-hyphenation language).

So now we default to putting any item in all three
databases, including lua.

Modified Paths:
--------------
    trunk/Master/tlpkg/TeXLive/TLUtils.pm

Modified: trunk/Master/tlpkg/TeXLive/TLUtils.pm
===================================================================
--- trunk/Master/tlpkg/TeXLive/TLUtils.pm	2025-02-17 22:22:47 UTC (rev 74079)
+++ trunk/Master/tlpkg/TeXLive/TLUtils.pm	2025-02-17 23:09:26 UTC (rev 74080)
@@ -3685,6 +3685,7 @@
   my $default_lefthyphenmin = -1;
   my $default_righthyphenmin = -1;
   $ret{"synonyms"} = [];
+  $ret{"databases"} = ["dat", "def", "lua"];
   for my $p (quotewords('\s+', 0, "$line")) {
     my ($a, $b) = split /=/, $p;
     if ($a eq "name") {
@@ -3739,7 +3740,7 @@
     }
     if ($a eq "databases") {
       if (!$b) {
-        $ret{"error"} = "AddHyphen line needs databases=something: $line";
+        $ret{"error"} = "AddHyphen line needs databases=foo[,bar]: $line";
         return %ret;
       }
       @{$ret{"databases"}} = split /,/, $b;
@@ -3747,7 +3748,7 @@
     }
     if ($a eq "synonyms") {
       if (!$b) {
-        $ret{"error"} = "AddHyphen line needs synonyms=something: $line";
+        $ret{"error"} = "AddHyphen line needs synonyms=foo[,bar]: $line";
         return %ret;
       }
       @{$ret{"synonyms"}} = split /,/, $b;
@@ -3777,15 +3778,6 @@
                     . " righthyphenmin ($ret{righthyphenmin}): $line";
     return %ret;    
   }
-  # this default value couldn't be set earlier
-  if (not defined($ret{"databases"})) {
-    if (defined $ret{"file_patterns"} or defined $ret{"file_exceptions"}
-        or defined $ret{"luaspecial"}) {
-      @{$ret{"databases"}} = qw(dat def lua);
-    } else {
-      @{$ret{"databases"}} = qw(dat def);
-    }
-  }
   return %ret;
 }