summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorNorbert Preining <preining@logic.at>2011-05-15 06:51:18 +0000
committerNorbert Preining <preining@logic.at>2011-05-15 06:51:18 +0000
commit7ce988c46e804f8ed39694921258a22600976974 (patch)
tree191c63f10639fa44ac8999ade3759aa0d1b1c7ae
parentc68ad547bcacbd90f48b590c3f3ca6059d252a12 (diff)
fix a missing declaration, update to current TLPDB in main
git-svn-id: svn://tug.org/texlive/trunk@22480 c570f23f-e606-0410-a88d-b1316a301751
-rw-r--r--Master/tlpkg/dev/dev.multi-source-support-v2.patch123
1 files changed, 62 insertions, 61 deletions
diff --git a/Master/tlpkg/dev/dev.multi-source-support-v2.patch b/Master/tlpkg/dev/dev.multi-source-support-v2.patch
index f0396eb217f..e4c33df2db7 100644
--- a/Master/tlpkg/dev/dev.multi-source-support-v2.patch
+++ b/Master/tlpkg/dev/dev.multi-source-support-v2.patch
@@ -1,8 +1,8 @@
Index: tlpkg/TeXLive/TLPDB.pm
===================================================================
---- tlpkg/TeXLive/TLPDB.pm (revision 22412)
+--- tlpkg/TeXLive/TLPDB.pm (revision 22479)
+++ tlpkg/TeXLive/TLPDB.pm (working copy)
-@@ -70,20 +70,30 @@
+@@ -70,20 +70,31 @@
$tlpdb->settings;
$tlpdb->setting($key, [$value]);
$tlpdb->sizes_of_packages($opt_src, $opt_doc [, @packs ]);
@@ -30,14 +30,15 @@ Index: tlpkg/TeXLive/TLPDB.pm
-use TeXLive::TLConfig;
+use TeXLive::TLConfig qw($CategoriesRegexp $DefaultCategory $InfraLocation
+ $DatabaseName $MetaCategoriesRegexp $Archive
-+ %TLPDBOptions %TLPDBSettings);
++ %TLPDBOptions %TLPDBSettings
++ $RelocPrefix $RelocTree);
use TeXLive::TLUtils qw(dirname mkdirhier member win32 info log debug ddebug
- tlwarn basename download_file merge_into);
+ tlwarn basename download_file merge_into tldie);
use TeXLive::TLPOBJ;
- use Cwd 'abs_path';
-@@ -158,6 +168,10 @@
+ use File::Temp qw/tempfile/;
+@@ -160,6 +171,10 @@
sub add_tlpobj {
my ($self,$tlp) = @_;
@@ -48,7 +49,7 @@ Index: tlpkg/TeXLive/TLPDB.pm
$self->{'tlps'}{$tlp->name} = $tlp;
}
-@@ -206,6 +220,10 @@
+@@ -208,6 +223,10 @@
sub remove_tlpobj {
my ($self,$pkg) = @_;
@@ -59,7 +60,7 @@ Index: tlpkg/TeXLive/TLPDB.pm
if (defined($self->{'tlps'}{$pkg})) {
delete $self->{'tlps'}{$pkg};
} else {
-@@ -226,6 +244,10 @@
+@@ -228,6 +247,10 @@
sub from_file {
my ($self, $path) = @_;
@@ -70,7 +71,7 @@ Index: tlpkg/TeXLive/TLPDB.pm
if (@_ != 2) {
die "$0: from_file needs filename for initialization";
}
-@@ -350,6 +372,10 @@
+@@ -360,6 +383,10 @@
sub writeout {
my $self = shift;
@@ -81,7 +82,7 @@ Index: tlpkg/TeXLive/TLPDB.pm
my $fd = (@_ ? $_[0] : STDOUT);
foreach (sort keys %{$self->{'tlps'}}) {
ddebug("writeout: tlpname=$_ ", $self->{'tlps'}{$_}->name, "\n");
-@@ -369,6 +395,10 @@
+@@ -379,6 +406,10 @@
sub save {
my $self = shift;
@@ -92,7 +93,7 @@ Index: tlpkg/TeXLive/TLPDB.pm
my $path = $self->location;
mkdirhier(dirname($path));
my $tmppath = "$path.tmp";
-@@ -390,6 +420,9 @@
+@@ -400,6 +431,9 @@
sub media {
my $self = shift ;
@@ -102,7 +103,7 @@ Index: tlpkg/TeXLive/TLPDB.pm
return $self->{'media'};
}
-@@ -405,6 +438,18 @@
+@@ -415,6 +449,18 @@
sub available_architectures {
my $self = shift;
@@ -121,7 +122,7 @@ Index: tlpkg/TeXLive/TLPDB.pm
my @archs = $self->setting("available_architectures");
if (! @archs) {
# fall back to the old method checking tex\.*
-@@ -432,6 +477,10 @@
+@@ -442,6 +488,10 @@
sub add_tlpcontainer {
my ($self, $package, $ziplocation, $archrefs, $dest) = @_;
@@ -132,7 +133,7 @@ Index: tlpkg/TeXLive/TLPDB.pm
my @archs;
if (defined($archrefs)) {
@archs = @$archrefs;
-@@ -496,6 +545,29 @@
+@@ -506,6 +556,29 @@
=cut
sub get_package {
@@ -162,7 +163,7 @@ Index: tlpkg/TeXLive/TLPDB.pm
my ($self,$pkg) = @_;
if (defined($self->{'tlps'}{$pkg})) {
my $ret = $self->{'tlps'}{$pkg};
-@@ -507,6 +579,35 @@
+@@ -517,6 +590,35 @@
=pod
@@ -198,7 +199,7 @@ Index: tlpkg/TeXLive/TLPDB.pm
=item C<< $tlpdb->list_packages >>
The C<list_packages> function returns the list of all included packages.
-@@ -515,6 +616,15 @@
+@@ -525,6 +627,15 @@
sub list_packages {
my $self = shift;
@@ -214,7 +215,7 @@ Index: tlpkg/TeXLive/TLPDB.pm
return (sort keys %{$self->{'tlps'}});
}
-@@ -532,6 +642,11 @@
+@@ -542,6 +653,11 @@
The next (or first) argument is the target TLPDB, then a list of
packages.
@@ -226,7 +227,7 @@ Index: tlpkg/TeXLive/TLPDB.pm
We return the closure of the package list with respect to the depends
operator. (Sorry, that was for mathematicians.)
-@@ -555,7 +670,8 @@
+@@ -565,7 +681,8 @@
my %install = ();
my @archs = $totlpdb->available_architectures;
for my $p (@_) {
@@ -236,7 +237,7 @@ Index: tlpkg/TeXLive/TLPDB.pm
}
my $changed = 1;
while ($changed) {
-@@ -564,7 +680,7 @@
+@@ -574,7 +691,7 @@
ddebug("pre_select = @pre_select\n");
for my $p (@pre_select) {
next if ($p =~ m/^00texlive/);
@@ -245,7 +246,7 @@ Index: tlpkg/TeXLive/TLPDB.pm
if (!defined($pkg)) {
debug("W: $p is mentioned somewhere but not available, disabling\n");
$install{$p} = 0;
-@@ -590,16 +706,19 @@
+@@ -600,16 +717,19 @@
if ($p_dep =~ m/^(.*)\.ARCH$/) {
my $foo = "$1";
foreach $a (@archs) {
@@ -268,7 +269,7 @@ Index: tlpkg/TeXLive/TLPDB.pm
}
}
}
-@@ -611,7 +730,9 @@
+@@ -621,7 +741,9 @@
$changed = 1;
}
}
@@ -279,7 +280,7 @@ Index: tlpkg/TeXLive/TLPDB.pm
}
=pod
-@@ -623,6 +744,7 @@
+@@ -633,6 +755,7 @@
=cut
@@ -287,7 +288,7 @@ Index: tlpkg/TeXLive/TLPDB.pm
sub find_file {
my ($self,$fn) = @_;
my @ret;
-@@ -856,6 +978,10 @@
+@@ -866,6 +989,10 @@
sub root {
my $self = shift;
@@ -298,7 +299,7 @@ Index: tlpkg/TeXLive/TLPDB.pm
if (@_) { $self->{'root'} = shift }
return $self->{'root'};
}
-@@ -874,7 +1000,11 @@
+@@ -884,7 +1011,11 @@
=cut
sub location {
@@ -311,7 +312,7 @@ Index: tlpkg/TeXLive/TLPDB.pm
return "$self->{'root'}/$InfraLocation/$DatabaseName";
}
-@@ -925,8 +1055,14 @@
+@@ -935,8 +1066,14 @@
sub config_src_container {
my $self = shift;
@@ -328,7 +329,7 @@ Index: tlpkg/TeXLive/TLPDB.pm
if ($d =~ m!^container_split_src_files/(.*)$!) {
return "$1";
}
-@@ -946,8 +1082,14 @@
+@@ -956,8 +1093,14 @@
sub config_doc_container {
my $self = shift;
@@ -345,7 +346,7 @@ Index: tlpkg/TeXLive/TLPDB.pm
if ($d =~ m!^container_split_doc_files/(.*)$!) {
return "$1";
}
-@@ -966,8 +1108,14 @@
+@@ -976,8 +1119,14 @@
sub config_container_format {
my $self = shift;
@@ -362,7 +363,7 @@ Index: tlpkg/TeXLive/TLPDB.pm
if ($d =~ m!^container_format/(.*)$!) {
return "$1";
}
-@@ -986,8 +1134,14 @@
+@@ -996,8 +1145,14 @@
sub config_release {
my $self = shift;
@@ -379,7 +380,7 @@ Index: tlpkg/TeXLive/TLPDB.pm
if ($d =~ m!^release/(.*)$!) {
return "$1";
}
-@@ -1006,8 +1160,14 @@
+@@ -1016,8 +1171,14 @@
sub config_minrelease {
my $self = shift;
@@ -396,7 +397,7 @@ Index: tlpkg/TeXLive/TLPDB.pm
if ($d =~ m!^minrelease/(.*)$!) {
return "$1";
}
-@@ -1027,8 +1187,14 @@
+@@ -1037,8 +1198,14 @@
sub config_revision {
my $self = shift;
@@ -413,7 +414,7 @@ Index: tlpkg/TeXLive/TLPDB.pm
if ($d =~ m!^revision/(.*)$!) {
return "$1";
}
-@@ -1054,12 +1220,12 @@
+@@ -1064,12 +1231,12 @@
sub sizes_of_packages {
my ($self, $opt_src, $opt_doc, @packs) = @_;
@packs || ( @packs = $self->list_packages() );
@@ -427,7 +428,7 @@ Index: tlpkg/TeXLive/TLPDB.pm
if (!defined($tlpobjs{$p})) {
warn "STRANGE: $p not to be found in ", $self->root;
next;
-@@ -1083,7 +1249,7 @@
+@@ -1093,7 +1260,7 @@
$size += $tlpobj->srccontainersize if $opt_src;
$size += $tlpobj->doccontainersize if $opt_doc;
} else {
@@ -436,7 +437,7 @@ Index: tlpkg/TeXLive/TLPDB.pm
# installation of src and doc file
$size = $tlpobj->runsize;
$size += $tlpobj->srcsize if $opt_src;
-@@ -1098,31 +1264,46 @@
+@@ -1108,31 +1275,46 @@
=pod
@@ -497,7 +498,7 @@ Index: tlpkg/TeXLive/TLPDB.pm
} else {
my $container_src_split = $fromtlpdb->config_src_container;
my $container_doc_split = $fromtlpdb->config_doc_container;
-@@ -1170,7 +1351,7 @@
+@@ -1180,7 +1362,7 @@
next;
}
} elsif (&media eq 'NET') {
@@ -506,7 +507,7 @@ Index: tlpkg/TeXLive/TLPDB.pm
}
$self->_install_package ($container, $reloc, \@installfiles, $totlpdb)
|| return(0);
-@@ -1244,23 +1425,21 @@
+@@ -1254,23 +1436,21 @@
$totlpdb->save;
# compute the return value
TeXLive::TLUtils::announce_execute_actions("enable", $tlpobj);
@@ -544,7 +545,7 @@ Index: tlpkg/TeXLive/TLPDB.pm
}
return 1;
}
-@@ -1513,7 +1692,7 @@
+@@ -1523,7 +1703,7 @@
# the postaction code part cannot be evaluated now since the
# files are already removed.
# Again, desktop integration maps to desktop and menu links
@@ -553,7 +554,7 @@ Index: tlpkg/TeXLive/TLPDB.pm
&TeXLive::TLUtils::do_postaction("remove", $tlp,
$localtlpdb->option("file_assocs"),
$localtlpdb->option("desktop_integration"),
-@@ -1545,7 +1724,12 @@
+@@ -1555,7 +1735,12 @@
sub _set_value_pkg {
my ($self,$pkgname,$pre,$key,$value) = @_;
my $k = "$pre$key";
@@ -567,7 +568,7 @@ Index: tlpkg/TeXLive/TLPDB.pm
my @newdeps;
if (!defined($pkg)) {
$pkg = new TeXLive::TLPOBJ;
-@@ -1583,8 +1767,14 @@
+@@ -1593,8 +1778,14 @@
sub _value_pkg {
my ($self,$pkg,$pre,$key) = @_;
my $k = "$pre$key";
@@ -584,7 +585,7 @@ Index: tlpkg/TeXLive/TLPDB.pm
if ($d =~ m!^$k:(.*)$!) {
return "$1";
}
-@@ -1697,7 +1887,12 @@
+@@ -1707,7 +1898,12 @@
my ($self, $pre, $hr) = @_;
my @allowed = keys %$hr;
my %ret;
@@ -598,7 +599,7 @@ Index: tlpkg/TeXLive/TLPDB.pm
if (defined($pkg)) {
foreach my $d ($pkg->depends) {
if ($d =~ m!^$pre([^:]*):(.*)!) {
-@@ -1846,6 +2041,329 @@
+@@ -1856,6 +2052,329 @@
=back
@@ -930,7 +931,7 @@ Index: tlpkg/TeXLive/TLPDB.pm
=head1 OPTIONS
Index: tlpkg/TeXLive/TLUtils.pm
===================================================================
---- tlpkg/TeXLive/TLUtils.pm (revision 22412)
+--- tlpkg/TeXLive/TLUtils.pm (revision 22479)
+++ tlpkg/TeXLive/TLUtils.pm (working copy)
@@ -62,6 +62,7 @@
TeXLive::TLUtils::setup_programs($bindir, $platform);
@@ -948,7 +949,7 @@ Index: tlpkg/TeXLive/TLUtils.pm
);
@EXPORT = qw(setup_programs download_file process_logging_options
tldie tlwarn info log debug ddebug dddebug debug_hash
-@@ -2424,6 +2426,31 @@
+@@ -2398,6 +2400,31 @@
return (&win32)? 'nul' : '/dev/null';
}
@@ -982,7 +983,7 @@ Index: tlpkg/TeXLive/TLUtils.pm
Index: texmf/scripts/texlive/tlmgr.pl
===================================================================
---- texmf/scripts/texlive/tlmgr.pl (revision 22412)
+--- texmf/scripts/texlive/tlmgr.pl (revision 22479)
+++ texmf/scripts/texlive/tlmgr.pl (working copy)
@@ -124,6 +124,7 @@
"package-logfile" => "=s",
@@ -992,7 +993,7 @@ Index: texmf/scripts/texlive/tlmgr.pl
"pause" => 1,
"print-platform|print-arch" => 1,
"version" => 1,
-@@ -480,6 +481,12 @@
+@@ -481,6 +482,12 @@
} elsif ($action =~ m/^option$/i) {
action_option();
finish(0);
@@ -1005,7 +1006,7 @@ Index: texmf/scripts/texlive/tlmgr.pl
} elsif ($action =~ m/^list$/i) {
action_list();
finish(0);
-@@ -1941,7 +1948,12 @@
+@@ -1942,7 +1949,12 @@
# intersection, don't check A\B and B\A
next if $newpkgs_full{$p};
next if $removals_full{$p};
@@ -1019,7 +1020,7 @@ Index: texmf/scripts/texlive/tlmgr.pl
my $tlp = $localtlpdb->get_package($p);
if (!defined($tlp)) {
if ($opts{"reinstall-forcibly-removed"}) {
-@@ -2042,12 +2054,15 @@
+@@ -2043,12 +2055,15 @@
$ret = 1;
shift;
}
@@ -1038,7 +1039,7 @@ Index: texmf/scripts/texlive/tlmgr.pl
$str .= "\n";
return($str) if $ret;
print $str;
-@@ -2571,19 +2586,32 @@
+@@ -2572,19 +2587,32 @@
my $unwind_package;
my $remove_unwind_container = 0;
my $rev = $tlp->revision;
@@ -1074,7 +1075,7 @@ Index: texmf/scripts/texlive/tlmgr.pl
}
$updated{$pkg} = 1;
next;
-@@ -2624,10 +2652,10 @@
+@@ -2625,10 +2653,10 @@
}
if ($::machinereadable) {
@@ -1087,7 +1088,7 @@ Index: texmf/scripts/texlive/tlmgr.pl
}
$donesize += $sizes{$pkg};
$currnr++;
-@@ -2670,7 +2698,7 @@
+@@ -2671,7 +2699,7 @@
}
if ($remotetlpdb->install_package($pkg, $localtlpdb)) {
# installation succeeded because we got a reference
@@ -1096,7 +1097,7 @@ Index: texmf/scripts/texlive/tlmgr.pl
unlink($unwind_package) if $remove_unwind_container;
# remember successful update
$updated{$pkg} = 1;
-@@ -2698,7 +2726,7 @@
+@@ -2699,7 +2727,7 @@
# now in fact we should do some cleanup, removing files and
# dirs from the new package before re-installing the old one.
# TODO
@@ -1105,7 +1106,7 @@ Index: texmf/scripts/texlive/tlmgr.pl
tlwarn("\n\nInstallation of new version of $pkg did fail, trying to unwind.\n");
if (win32()) {
# w32 is notorious for not releasing a file immediately
-@@ -2739,12 +2767,25 @@
+@@ -2740,12 +2768,25 @@
unless $::machinereadable;
} else {
# install new packages
@@ -1132,7 +1133,7 @@ Index: texmf/scripts/texlive/tlmgr.pl
my ($estrem, $esttot);
if (!$opts{"list"}) {
($estrem, $esttot) = TeXLive::TLUtils::time_estimate($totalsize,
-@@ -2754,14 +2795,16 @@
+@@ -2755,14 +2796,16 @@
my @maargs = ($pkg, $FLAG_AUTOINSTALL, "-", $mediatlp->revision, $sizes{$pkg});
if (!$opts{"list"}) {
push @maargs, $estrem, $esttot;
@@ -1152,7 +1153,7 @@ Index: texmf/scripts/texlive/tlmgr.pl
}
}
$currnr++;
-@@ -2769,7 +2812,7 @@
+@@ -2770,7 +2813,7 @@
next if ($opts{"dry-run"} || $opts{"list"});
if ($remotetlpdb->install_package($pkg, $localtlpdb)) {
# installation succeeded because we got a reference
@@ -1161,7 +1162,7 @@ Index: texmf/scripts/texlive/tlmgr.pl
$nrupdated++;
} else {
tlwarn("$0: couldn't install new package $pkg\n");
-@@ -2908,6 +2951,7 @@
+@@ -2909,6 +2952,7 @@
if (!(@new || @updated)) {
info("tlmgr: no updates available\n");
if ($remotetlpdb->media ne "NET"
@@ -1169,7 +1170,7 @@ Index: texmf/scripts/texlive/tlmgr.pl
&& !$opts{"dry-run"}
&& !$opts{"repository"}
) {
-@@ -2986,6 +3030,14 @@
+@@ -2987,6 +3031,14 @@
@packs = $remotetlpdb->expand_dependencies($localtlpdb, @packs) unless $opts{"no-depends"};
}
#
@@ -1184,7 +1185,7 @@ Index: texmf/scripts/texlive/tlmgr.pl
# installation order of packages:
# first all normal packages, then collections, then schemes
# isn't already installed, but the collection already updated, it will
-@@ -2993,7 +3045,7 @@
+@@ -2994,7 +3046,7 @@
my @inst_packs;
my @inst_colls;
my @inst_schemes;
@@ -1193,7 +1194,7 @@ Index: texmf/scripts/texlive/tlmgr.pl
# we do name checking here, not to load all tlpobj again and again
if ($pkg =~ m/^scheme-/) {
push @inst_schemes, $pkg;
-@@ -3012,7 +3064,11 @@
+@@ -3013,7 +3065,11 @@
my @todo;
for my $pkg (@inst_packs, @inst_colls, @inst_schemes) {
my $pkgrev = 0;
@@ -1206,7 +1207,7 @@ Index: texmf/scripts/texlive/tlmgr.pl
if (!defined($mediatlp)) {
tlwarn("package $pkg not present in package repository.\n");
next;
-@@ -3060,13 +3116,26 @@
+@@ -3061,13 +3117,26 @@
my ($estrem, $esttot) = TeXLive::TLUtils::time_estimate($totalsize,
$donesize, $starttime);
my $kb = int($sizes{$pkg} / 1024) + 1;
@@ -1236,7 +1237,7 @@ Index: texmf/scripts/texlive/tlmgr.pl
logpackage("${re}install: $pkg");
}
$donesize += $sizes{$pkg};
-@@ -3123,7 +3192,150 @@
+@@ -3124,7 +3193,150 @@
return;
}
@@ -1387,7 +1388,7 @@ Index: texmf/scripts/texlive/tlmgr.pl
# OPTION
#
sub action_option {
-@@ -4470,6 +4682,74 @@
+@@ -4471,6 +4683,74 @@
#
sub init_tlmedia
{
@@ -1462,7 +1463,7 @@ Index: texmf/scripts/texlive/tlmgr.pl
if (defined($remotetlpdb) && ($remotetlpdb->root eq $location)) {
# nothing to be done
return;
-@@ -4483,11 +4763,29 @@
+@@ -4484,11 +4764,29 @@
$location =~ s,^$TeXLiveServerURL,$mirrorbase,;
}
@@ -1492,7 +1493,7 @@ Index: texmf/scripts/texlive/tlmgr.pl
# if we talk about a net location try to download the hash of the tlpdb
# - if that is possible, check for the locally saved file and if the hash
# agrees load the local copy if present instead of the remote one,
-@@ -4632,8 +4930,30 @@
+@@ -4633,8 +4931,30 @@
close($tlfh);
}
}