summaryrefslogtreecommitdiff
path: root/Master/tlpkg/TeXLive/TLPOBJ.pm
diff options
context:
space:
mode:
authorNorbert Preining <preining@logic.at>2007-12-23 21:38:57 +0000
committerNorbert Preining <preining@logic.at>2007-12-23 21:38:57 +0000
commite8d394853e5aa3f38f3767070afb6f60624132b0 (patch)
tree46d35ce5fa68243b59b3edb5144072f1fa3f1dd3 /Master/tlpkg/TeXLive/TLPOBJ.pm
parent4852626f4cf33604cd1fb3f3e6a910ef3c79944e (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.pm33
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'} = [ ] ;
}