From e8d394853e5aa3f38f3767070afb6f60624132b0 Mon Sep 17 00:00:00 2001 From: Norbert Preining Date: Sun, 23 Dec 2007 21:38:57 +0000 Subject: src and doc splitting options setting via texlive.config meta package update texlive.tlpdb for that git-svn-id: svn://tug.org/texlive/trunk@5846 c570f23f-e606-0410-a88d-b1316a301751 --- Master/tlpkg/TeXLive/TLPOBJ.pm | 33 ++++++++++++++++++++++----------- 1 file changed, 22 insertions(+), 11 deletions(-) (limited to 'Master/tlpkg/TeXLive/TLPOBJ.pm') diff --git a/Master/tlpkg/TeXLive/TLPOBJ.pm b/Master/tlpkg/TeXLive/TLPOBJ.pm index e44bf2c2543..0d2fdea3af1 100644 --- a/Master/tlpkg/TeXLive/TLPOBJ.pm +++ b/Master/tlpkg/TeXLive/TLPOBJ.pm @@ -512,10 +512,6 @@ sub make_container { $nul = "/dev/null"; } @files = TeXLive::TLUtils::sort_uniq(@files); - if (!@files) { - &TeXLive::TLUtils::debug("Not creating empty container file for $containername"); - return; - } # we do relative packages ONLY if the files do NOT span multiple # texmf trees. check this here my $tltree; @@ -694,17 +690,32 @@ sub is_meta_package { return 0; } +sub split_doc_package { + my $self = shift; + if (not($self->docfiles)) { return ; } + my $tlp = new TeXLive::TLPOBJ; + $tlp->name($self->name . ".doc"); + $tlp->shortdesc("doc files of " . $self->name); + $tlp->revision($self->revision); + $tlp->category($self->category); + $tlp->add_docfiles($self->docfiles); + $tlp->docsize($self->docsize); + $self->clear_docfiles(); + $self->docsize(0); + return($tlp); +} + sub split_src_package { my $self = shift; if (not($self->srcfiles)) { return ; } my $tlp = new TeXLive::TLPOBJ; - $tlp->name($self->name . ".SOURCES"); + $tlp->name($self->name . ".source"); $tlp->shortdesc("source files of " . $self->name); $tlp->revision($self->revision); $tlp->category($self->category); $tlp->add_srcfiles($self->srcfiles); $tlp->srcsize($self->srcsize); - $self->clearsrcfiles(); + $self->clear_srcfiles(); $self->srcsize(0); return($tlp); } @@ -726,7 +737,7 @@ sub split_bin_package { if (keys(%binf)) { push @{$self->{'depends'}}, $self->name . ".ARCH"; } - $self->clearbinfiles(); + $self->clear_binfiles(); return(@retlist); } @@ -822,7 +833,7 @@ sub srcsize { if (@_) { $self->{'srcsize'} = shift } return ( defined($self->{'srcsize'}) ? $self->{'srcsize'} : 0 ); } -sub clearsrcfiles { +sub clear_srcfiles { my $self = shift; $self->{'srcfiles'} = [ ] ; } @@ -839,7 +850,7 @@ sub docfiles { if (@_) { $self->{'docfiles'} = [ @_ ] } return @{ $self->{'docfiles'} }; } -sub cleardocfiles { +sub clear_docfiles { my $self = shift; $self->{'docfiles'} = [ ] ; } @@ -862,7 +873,7 @@ sub binfiles { if (@_) { $self->{'binfiles'} = \%newfiles } return $self->{'binfiles'}; } -sub clearbinfiles { +sub clear_binfiles { my $self = shift; $self->{'binfiles'} = { }; } @@ -891,7 +902,7 @@ sub runfiles { if (@_) { $self->{'runfiles'} = [ @_ ] } return @{ $self->{'runfiles'} }; } -sub clearrunfiles { +sub clear_runfiles { my $self = shift; $self->{'runfiles'} = [ ] ; } -- cgit v1.2.3