diff options
author | Norbert Preining <preining@logic.at> | 2007-12-10 09:35:26 +0000 |
---|---|---|
committer | Norbert Preining <preining@logic.at> | 2007-12-10 09:35:26 +0000 |
commit | b4a68d7d46d8351ca0d1505411bf41c060888358 (patch) | |
tree | d3b3a51df7d7e104b74998ec21155b1bcfb28ad9 | |
parent | 1bf4a0dae431abffbb9006ff5767883abe8793fe (diff) |
rename split_package to split_bin_package
add split_src_package
adjust tlpsrc2tlpdb
git-svn-id: svn://tug.org/texlive/trunk@5743 c570f23f-e606-0410-a88d-b1316a301751
-rw-r--r-- | Master/tlpkg/TeXLive/TLPOBJ.pm | 24 | ||||
-rwxr-xr-x | Master/tlpkg/bin/tlpsrc2tlpdb | 2 |
2 files changed, 23 insertions, 3 deletions
diff --git a/Master/tlpkg/TeXLive/TLPOBJ.pm b/Master/tlpkg/TeXLive/TLPOBJ.pm index ee2608a05e6..a018cd97b91 100644 --- a/Master/tlpkg/TeXLive/TLPOBJ.pm +++ b/Master/tlpkg/TeXLive/TLPOBJ.pm @@ -694,7 +694,21 @@ sub is_meta_package { return 0; } -sub split_package { +sub split_src_package { + my $self = shift; + my $tlp = new TeXLive::TLPOBJ; + $tlp->name($self->name . ".sources"); + $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->srcsize(0); + return($tlp); +} + +sub split_bin_package { my $self = shift; my %binf = %{$self->binfiles}; my @retlist; @@ -1148,7 +1162,7 @@ adds information from a C<TeXCatalogue> object (currently license, version, url, and updates docfiles with details and languages tags if present in the Catalogue). -=item C<split_package> +=item C<split_bin_package> splits off the binfiles of C<TLPOBJ> into new independent C<TLPOBJ> with the original name plus ".arch" for every arch for which binfiles are present. @@ -1156,6 +1170,12 @@ The original package is changed in two respects: the binfiles are removed (since they are now in the single name.arch packages), and an additional depend on "name.ARCH" is added. Note that the ARCH is a placeholder. +=item C<split_src_package> + +splits off the srcfiles of C<TLPOBJ> into new independent C<TLPOBJ> with +the original name plus ".sources". The source files are removed from the +original package. + =item C<is_arch_dependent> returns C<1> if there are C<binfiles>, otherwise C<0>. diff --git a/Master/tlpkg/bin/tlpsrc2tlpdb b/Master/tlpkg/bin/tlpsrc2tlpdb index 6d6741c546d..233bf72e9bb 100755 --- a/Master/tlpkg/bin/tlpsrc2tlpdb +++ b/Master/tlpkg/bin/tlpsrc2tlpdb @@ -92,7 +92,7 @@ sub main # split bin packages if (not($opt_nosplit)) { - my @binobjs = $tlp->split_package; + my @binobjs = $tlp->split_bin_package; foreach (@binobjs) { $tldb->add_tlpobj($_); } |