diff options
| -rwxr-xr-x | Master/texmf/scripts/texlive/tlmgr.pl | 14 | ||||
| -rw-r--r-- | Master/tlpkg/TeXLive/TLPSRC.pm | 5 | ||||
| -rw-r--r-- | Master/tlpkg/TeXLive/TLUtils.pm | 2 |
3 files changed, 21 insertions, 0 deletions
diff --git a/Master/texmf/scripts/texlive/tlmgr.pl b/Master/texmf/scripts/texlive/tlmgr.pl index e4dca67dea4..85b53f8fdf2 100755 --- a/Master/texmf/scripts/texlive/tlmgr.pl +++ b/Master/texmf/scripts/texlive/tlmgr.pl @@ -551,6 +551,20 @@ sub handle_execute_actions } # + # addLuaMap handling + # if defined simply run the magic script + { + if (defined($::execute_actions{$type}{'luamaps'}{'run'})) { + # check for the existence, the PATH should be set up already + if (which("mkluatexfontdb-sys")) { + $errors += do_cmd_and_check("mkluatexfontdb-sys"); + } else { + log("tlmgr addLuaMap handling: mkluatexfontdb-sys not found, not running it.\n"); + } + } + } + + # # maps handling # if enabled and disabled -> do nothing # if only enabled -> enable it diff --git a/Master/tlpkg/TeXLive/TLPSRC.pm b/Master/tlpkg/TeXLive/TLPSRC.pm index d5492e0f00c..b5f044402b0 100644 --- a/Master/tlpkg/TeXLive/TLPSRC.pm +++ b/Master/tlpkg/TeXLive/TLPSRC.pm @@ -782,6 +782,11 @@ enables the font map file I<font>C<.map> in the C<updmap.cfg> file. enables the font map file I<font>C<.map> for Mixed mode in the C<updmap.cfg> file. +=item C<execute addLuaMap> + +triggers a call to mkluatexfontdb-sys (if available) which updates +the font cache for luatex. + =item C<execute AddHyphen name=I<texlang> file=I<file> [I<var>...]> activates the hyphenation pattern with name I<texlang> and load the file diff --git a/Master/tlpkg/TeXLive/TLUtils.pm b/Master/tlpkg/TeXLive/TLUtils.pm index ccba4cc9bf3..b416a008242 100644 --- a/Master/tlpkg/TeXLive/TLUtils.pm +++ b/Master/tlpkg/TeXLive/TLUtils.pm @@ -1738,6 +1738,8 @@ sub announce_execute_actions { foreach my $e ($tlp->executes) { if ($e =~ m/^add((Mixed)?Map)\s+([^\s]+)\s*$/) { $::execute_actions{$type}{'maps'}{$3} = "$1"; + } elsif ($e =~ m/^addLuaMap\s*$/) { + $::execute_actions{$type}{'luamaps'}{'run'} = 1; } elsif ($e =~ m/^AddFormat\s+(.*)\s*$/) { my %r = TeXLive::TLUtils::parse_AddFormat_line("$1"); if (defined($r{"error"})) { |