diff options
author | Norbert Preining <preining@logic.at> | 2007-12-26 23:21:10 +0000 |
---|---|---|
committer | Norbert Preining <preining@logic.at> | 2007-12-26 23:21:10 +0000 |
commit | e21f84b799baa483f5361ef90926ba4fb96997f8 (patch) | |
tree | 444fe0128b91c4393c22e8104798bd82465fb05c /Master/tlpkg/TeXLive/TLPDB.pm | |
parent | b4d726b4be87f1fa6833969df53d9ac7041346db (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/TeXLive/TLPDB.pm')
-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 |