summaryrefslogtreecommitdiff
path: root/Master/tlpkg
diff options
context:
space:
mode:
authorNorbert Preining <preining@logic.at>2007-12-26 23:21:10 +0000
committerNorbert Preining <preining@logic.at>2007-12-26 23:21:10 +0000
commite21f84b799baa483f5361ef90926ba4fb96997f8 (patch)
tree444fe0128b91c4393c22e8104798bd82465fb05c /Master/tlpkg
parentb4d726b4be87f1fa6833969df53d9ac7041346db (diff)
add $tlpdb->collections and ->schemes
git-svn-id: svn://tug.org/texlive/trunk@5928 c570f23f-e606-0410-a88d-b1316a301751
Diffstat (limited to 'Master/tlpkg')
-rw-r--r--Master/tlpkg/TeXLive/TLPDB.pm42
1 files changed, 42 insertions, 0 deletions
diff --git a/Master/tlpkg/TeXLive/TLPDB.pm b/Master/tlpkg/TeXLive/TLPDB.pm
index 383365f7b52..b289ca87df3 100644
--- a/Master/tlpkg/TeXLive/TLPDB.pm
+++ b/Master/tlpkg/TeXLive/TLPDB.pm
@@ -30,6 +30,8 @@ C<TeXLive::TLPDB> -- A database of TeX Live Packages
$tlpdb->add_tlpobj($tlpobj);
$tlpdb->get_package("packagename");
$tlpdb->list_packages;
+ $tlpdb->collections;
+ $tlpdb->schemes;
$tlpdb->updmap_cfg_lines;
$tlpdb->fmtutil_cnf_lines;
$tlpdb->language_dat_lines;
@@ -305,6 +307,46 @@ sub list_packages {
=pod
+=item C<< $tlpdb->collections >>
+
+The C<collections> function returns the list of all collections.
+
+=cut
+
+sub collections {
+ my $self = shift;
+ my @ret;
+ foreach my $p ($self->list_packages) {
+ if ($self->get_package($p)->category eq "Collection") {
+ push @ret, $p;
+ }
+ }
+ return @ret;
+}
+
+=pod
+
+=item C<< $tlpdb->schemes >>
+
+The C<collections> function returns the list of all schemes.
+
+=cut
+
+sub schemes {
+ my $self = shift;
+ my @ret;
+ foreach my $p ($self->list_packages) {
+ if ($self->get_package($p)->category eq "Scheme") {
+ push @ret, $p;
+ }
+ }
+ return @ret;
+}
+
+
+
+=pod
+
=item C<< $tlpdb->package_revision("packagename") >>
The C<package_revision> function returns the revision number of the