summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
-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