summaryrefslogtreecommitdiff
path: root/Master/tlpkg/TeXLive/TLPDB.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/TLPDB.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/TLPDB.pm')
-rw-r--r--Master/tlpkg/TeXLive/TLPDB.pm93
1 files changed, 89 insertions, 4 deletions
diff --git a/Master/tlpkg/TeXLive/TLPDB.pm b/Master/tlpkg/TeXLive/TLPDB.pm
index 0fb2400518b..3e5c6e482cb 100644
--- a/Master/tlpkg/TeXLive/TLPDB.pm
+++ b/Master/tlpkg/TeXLive/TLPDB.pm
@@ -35,6 +35,9 @@ C<TeXLive::TLPDB> -- A database of TeX Live Packages
$tlpdb->language_dat_lines;
$tlpdb->package_revision("packagename");
$tlpdb->location;
+ $tlpdb->config_src_container;
+ $tlpdb->config_doc_container;
+ $tlpdb->config_container_format;
TeXLive::TLPDB->listdir([$dir]);
$tlpdb->generate_listfiles([$destdir]);
@@ -497,23 +500,78 @@ sub location {
=pod
-
-=pod
-
=item C<< $tlpdb->listdir >>
The function C<listdir> allows to read and set the packages variable
specifiying where generated list files are created.
=cut
+
sub listdir {
my $self = shift;
if (@_) { $_listdir = $_[0] }
return $_listdir;
}
-=back
+=pod
+
+=item C<< $tlpdb->config_src_container >>
+Returns 1 if the the texlive config option for src files splitting on
+container level is set. See Options below.
+
+=cut
+
+sub config_src_container {
+ my $self = shift;
+ if (defined($self->{'tlps'}{'texlive.config'})) {
+ foreach my $d ($self->{'tlps'}{'texlive.config'}->depends) {
+ if ($d eq "container_split_src_files") {
+ return 1;
+ }
+ }
+ }
+ return 0;
+}
+
+=item C<< $tlpdb->config_doc_container >>
+
+Returns 1 if the the texlive config option for doc files splitting on
+container level is set. See Options below.
+
+=cut
+
+sub config_doc_container {
+ my $self = shift;
+ if (defined($self->{'tlps'}{'texlive.config'})) {
+ foreach my $d ($self->{'tlps'}{'texlive.config'}->depends) {
+ if ($d eq "container_split_doc_files") {
+ return 1;
+ }
+ }
+ }
+ return 0;
+}
+
+=item C<< $tlpdb->config_doc_container >>
+
+Returns the currently set default container format. See Options below.
+
+=cut
+
+sub config_container_format {
+ my $self = shift;
+ if (defined($self->{'tlps'}{'texlive.config'})) {
+ foreach my $d ($self->{'tlps'}{'texlive.config'}->depends) {
+ if ($d =~ m!^container_format/(.*)$!) {
+ return "$1";
+ }
+ }
+ }
+ return "";
+}
+
+=pod
=item C<< $tlpdb->fmtutil_cnf_lines >>
@@ -627,6 +685,33 @@ sub language_dat_lines {
=pod
+=head1 OPTIONS
+
+Options regarding the full TeX Live installation to be described are saved
+in a package C<texlive.config> as values of C<depend> lines. This special
+package C<texlive.config> does not contain any files, only depend lines
+which set one or more of the following options:
+
+=over 6
+
+=item C<container_split_src_files>
+
+=item C<container_split_doc_files>
+
+These options specify that at container generation time the source and
+documentation files for a package have been put into a separate container
+named C<package.source.extension> and C<package.doc.extension>.
+
+=item C<container_format/I<format>>
+
+This option specifies a format for containers. The currently supported
+formats are C<lzma> and C<zip>. But note that C<zip> is untested.
+
+=back
+
+To set these options the respective lines should be added to
+C<texlive.config.tlpsrc>.
+
=head1 SEE ALSO
The modules L<TeXLive::TLPSRC>, L<TeXLive::TLPOBJ>,