diff options
Diffstat (limited to 'Master')
-rw-r--r-- | Master/tlpkg/TeXLive/TLPDB.pm | 42 |
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 |