diff options
author | Norbert Preining <preining@logic.at> | 2007-12-23 21:38:57 +0000 |
---|---|---|
committer | Norbert Preining <preining@logic.at> | 2007-12-23 21:38:57 +0000 |
commit | e8d394853e5aa3f38f3767070afb6f60624132b0 (patch) | |
tree | 46d35ce5fa68243b59b3edb5144072f1fa3f1dd3 /Master/tlpkg/TeXLive/TLPOBJ.pm | |
parent | 4852626f4cf33604cd1fb3f3e6a910ef3c79944e (diff) |
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
Diffstat (limited to 'Master/tlpkg/TeXLive/TLPOBJ.pm')
-rw-r--r-- | Master/tlpkg/TeXLive/TLPOBJ.pm | 33 |
1 files changed, 22 insertions, 11 deletions
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'} = [ ] ; } |