support disabling of maps/formats/hyphenations in local conf files

git-svn-id: svn://tug.org/texlive/trunk@14715 c570f23f-e606-0410-a88d-b1316a301751

1 files changed, 20 insertions, 8 deletions

diff --git a/Master/tlpkg/TeXLive/TLPDB.pm b/Master/tlpkg/TeXLive/TLPDB.pm
index fabb05332b7..b069bae9d3c 100644
--- a/Master/tlpkg/TeXLive/TLPDB.pm
+++ b/Master/tlpkg/TeXLive/TLPDB.pm
@@ -1,6 +1,6 @@
 # $Id$
 # TeXLive::TLPDB.pm - module for using tlpdb files
-# Copyright 2007, 2008 Norbert Preining
+# Copyright 2007, 2008, 2009 Norbert Preining
 #
 # This file is licensed under the GNU General Public License version 2
 # or any later version.
@@ -1221,6 +1221,9 @@ sub format_definitions {
 The function C<fmtutil_cnf_lines> returns the list of a fmtutil.cnf file
 containing only those formats present in the installation.
 
+Every format listed in the tlpdb but listed in the arguments
+will not be included in the list of lines returned.
+
 =cut
 sub fmtutil_cnf_lines {
   my $self = shift;
@@ -1228,16 +1231,19 @@ sub fmtutil_cnf_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->fmtutil_cnf_lines;
+    push @lines, $obj->fmtutil_cnf_lines(@_);
   }
   return(@lines);
 }
 
-=item C<< $tlpdb->updmap_cfg_lines >>
+=item C<< $tlpdb->updmap_cfg_lines ( [@disabled_maps] ) >>
 
 The function C<updmap_cfg_lines> returns the list of a updmap.cfg file
 containing only those maps present in the installation.
 
+A map file mentioned in the tlpdb but listed in the arguments will not 
+be included in the list of lines returned.
+
 =cut
 sub updmap_cfg_lines {
   my $self = shift;
@@ -1245,16 +1251,19 @@ sub updmap_cfg_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->updmap_cfg_lines;
+    push @lines, $obj->updmap_cfg_lines(@_);
   }
   return(@lines);
 }
 
-=item C<< $tlpdb->language_dat_lines >>
+=item C<< $tlpdb->language_dat_lines ( [@disabled_hyphen_names] )>>
 
 The function C<language_dat_lines> returns the list of all
 lines for language.dat 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_dat_lines {
@@ -1263,16 +1272,19 @@ sub language_dat_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_dat_lines;
+    push @lines, $obj->language_dat_lines(@_);
   }
   return(@lines);
 }
 
-=item C<< $tlpdb->language_def_lines >>
+=item C<< $tlpdb->language_def_lines ( [@disabled_hyphen_names] )>>
 
 The function C<language_def_lines> returns the list of all
 lines for language.def 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_def_lines {
@@ -1281,7 +1293,7 @@ sub language_def_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_def_lines;
+    push @lines, $obj->language_def_lines(@_);
   }
   return(@lines);
 }