From cce69ad0b59b059976669eb922832fd161493af8 Mon Sep 17 00:00:00 2001 From: Manuel Pégourié-Gonnard Date: Thu, 20 May 2010 17:08:42 +0000 Subject: Implement generation of language.dat.lua by extending execute AddHyphen. git-svn-id: svn://tug.org/texlive/trunk@18379 c570f23f-e606-0410-a88d-b1316a301751 --- Master/tlpkg/TeXLive/TLPDB.pm | 24 +++++++++++++++++++++++- 1 file changed, 23 insertions(+), 1 deletion(-) (limited to 'Master/tlpkg/TeXLive/TLPDB.pm') diff --git a/Master/tlpkg/TeXLive/TLPDB.pm b/Master/tlpkg/TeXLive/TLPDB.pm index 811556c77bc..8993105264c 100644 --- a/Master/tlpkg/TeXLive/TLPDB.pm +++ b/Master/tlpkg/TeXLive/TLPDB.pm @@ -52,6 +52,7 @@ C -- A database of TeX Live Packages $tlpdb->fmtutil_cnf_lines; $tlpdb->language_dat_lines; $tlpdb->language_def_lines; + $tlpdb->language_lua_lines; $tlpdb->package_revision("packagename"); $tlpdb->location; $tlpdb->config_src_container; @@ -1346,7 +1347,28 @@ sub language_def_lines { } return(@lines); } - + +=item C<< $tlpdb->language_lua_lines ( [@disabled_hyphen_names] ) >> + +The function C returns the list of all +lines for language.dat.lua that can be generated from the tlpdb. + +Every hyphenation pattern listed in the tlpdb but listed in the arguments +will not be included in the list of lines returned. + +=cut + +sub language_lua_lines { + my $self = shift; + my @lines; + foreach my $p ($self->list_packages) { + my $obj = $self->get_package ($p); + die "$0: No TeX Live package named $p, strange" if ! $obj; + push @lines, $obj->language_lua_lines(@_); + } + return(@lines); +} + =back =pod -- cgit v1.2.3