summaryrefslogtreecommitdiff
path: root/Master/texmf-dist/scripts
diff options
context:
space:
mode:
authorNorbert Preining <preining@logic.at>2022-04-18 05:58:07 +0000
committerNorbert Preining <preining@logic.at>2022-04-18 05:58:07 +0000
commit4cfbfa2afc6e43658dbf01cc9eb3ab34963d87f6 (patch)
treec8b4a4a9c2725b187c89d72825300176413f7de6 /Master/texmf-dist/scripts
parentb4e55918f6964c7de8b1e61103c4991a7d59229c (diff)
Revert "work on win64 support"
This reverts commit daa265a214b9e12e2a9bab636398c2dd699f7cd4. git-svn-id: svn://tug.org/texlive/trunk@63068 c570f23f-e606-0410-a88d-b1316a301751
Diffstat (limited to 'Master/texmf-dist/scripts')
-rwxr-xr-xMaster/texmf-dist/scripts/texlive/tlmgr.pl47
-rwxr-xr-xMaster/texmf-dist/scripts/texlive/uninstall-win32.pl3
2 files changed, 15 insertions, 35 deletions
diff --git a/Master/texmf-dist/scripts/texlive/tlmgr.pl b/Master/texmf-dist/scripts/texlive/tlmgr.pl
index 2b20fca380d..e7117c23c62 100755
--- a/Master/texmf-dist/scripts/texlive/tlmgr.pl
+++ b/Master/texmf-dist/scripts/texlive/tlmgr.pl
@@ -51,11 +51,7 @@ BEGIN {
$Master =~ s!\\!/!g;
$Master =~ s![^/]*$!../../..!
unless ($Master =~ s!/texmf-dist/scripts/texlive/tlmgr\.pl$!!i);
- if (win32_32()) {
- $bindir = "$Master/bin/win32";
- } else {
- $bindir = "$Master/bin/win64";
- }
+ $bindir = "$Master/bin/win32";
$kpsewhichname = "kpsewhich.exe";
# path already set by wrapper batchfile
} else {
@@ -100,7 +96,7 @@ use TeXLive::TLWinGoo;
use TeXLive::TLDownload;
use TeXLive::TLConfFile;
use TeXLive::TLCrypto;
-TeXLive::TLUtils->import(qw(member info give_ctan_mirror win32 win32_32 dirname
+TeXLive::TLUtils->import(qw(member info give_ctan_mirror win32 dirname
mkdirhier copy debug tlcmp repository_to_array));
use TeXLive::TLPaper;
@@ -847,8 +843,7 @@ sub do_cmd_and_check {
if ($opts{"dry-run"}) {
$ret = $F_OK;
$out = "";
- } elsif ((win32_32() && (! -r "$Master/bin/win32/luatex.dll")) ||
- (win32_64() && (! -r "$Master/bin/win64/luatex.dll"))) {
+ } elsif (win32() && (! -r "$Master/bin/win32/luatex.dll")) {
# deal with the case where only scheme-infrastructure is installed
# on Windows, thus no luatex.dll is available and the wrapper cannot be started
tlwarn("Cannot run wrapper due to missing luatex.dll\n");
@@ -1568,7 +1563,7 @@ sub action_path {
if ($what =~ m/^add$/i) {
if (win32()) {
$ret |= TeXLive::TLUtils::w32_add_to_path(
- $localtlpdb->root . win32_32() ? "/bin/win32" : "/bin/win64",
+ $localtlpdb->root . "/bin/win32",
$winadminmode);
# ignore this return value, since broadcase_env might return
# nothing in case of errors, and there is no way around it.
@@ -1583,7 +1578,7 @@ sub action_path {
} elsif ($what =~ m/^remove$/i) {
if (win32()) {
$ret |= TeXLive::TLUtils::w32_remove_from_path(
- $localtlpdb->root . win32_32() ? "/bin/win32" : "/bin/win64",
+ $localtlpdb->root . "/bin/win32",
$winadminmode);
# ignore this return value, since broadcase_env might return
# nothing in case of errors, and there is no way around it.
@@ -4945,9 +4940,6 @@ sub action_platform {
my @extra_w32_packs = qw/tlperl.win32 tlgs.win32
collection-wintools
dviout.win32 wintools.win32/;
- my @extra_w64_packs = qw/tlperl.win64 tlgs.win64 tlpsv.win64
- collection-wintools
- dviout.win64 wintools.win64/;
if ($^O =~ /^MSWin/i) {
warn("action `platform' not supported on Windows\n");
# return an error here so that we don't go into post-actions
@@ -5019,19 +5011,14 @@ sub action_platform {
}
}
}
- my @extrapacks;
if (TeXLive::TLUtils::member('win32', @todoarchs)) {
- push @extrapacks, @extra_w32_packs;
- }
- if (TeXLive::TLUtils::member('win64', @todoarchs)) {
- push @extrapacks, @extra_w64_packs;
- }
- # install the necessary w32 stuff
- for my $p (@extrapacks) {
- info("install: $p\n");
- if (!$opts{'dry-run'}) {
- if (! $remotetlpdb->install_package($p, $localtlpdb)) {
- $ret |= $F_ERROR;
+ # install the necessary w32 stuff
+ for my $p (@extra_w32_packs) {
+ info("install: $p\n");
+ if (!$opts{'dry-run'}) {
+ if (! $remotetlpdb->install_package($p, $localtlpdb)) {
+ $ret |= $F_ERROR;
+ }
}
}
}
@@ -5088,12 +5075,6 @@ sub action_platform {
$localtlpdb->remove_package($p) if (!$opts{"dry-run"});
}
}
- if (TeXLive::TLUtils::member('win64', @todoarchs)) {
- for my $p (@extra_w64_packs) {
- info("remove: $p\n");
- $localtlpdb->remove_package($p) if (!$opts{"dry-run"});
- }
- }
if (!$opts{"dry-run"}) {
# try to remove bin/$a dirs
for my $a (@todoarchs) {
@@ -5518,7 +5499,7 @@ sub init_tltree {
# if we are on W32, die (no find).
my $arch = $localtlpdb->platform();
- if (($arch eq "win32") || ($arch eq "win64")) {
+ if ($arch eq "win32") {
tldie("$prg: sorry, cannot check this on Windows.\n");
}
@@ -6057,7 +6038,7 @@ sub check_depends {
# For each package, check that it is a dependency of some collection.
if (! exists $coll_deps{$pkg}) {
# Except that schemes and our ugly Windows packages are ok.
- push (@no_dep, $pkg) unless $pkg =~/^scheme-|\.win(32|64)$/;
+ push (@no_dep, $pkg) unless $pkg =~/^scheme-|\.win32$/;
}
# For each dependency, check that we have a package.
diff --git a/Master/texmf-dist/scripts/texlive/uninstall-win32.pl b/Master/texmf-dist/scripts/texlive/uninstall-win32.pl
index 633e8ec9e9c..71aa86652a4 100755
--- a/Master/texmf-dist/scripts/texlive/uninstall-win32.pl
+++ b/Master/texmf-dist/scripts/texlive/uninstall-win32.pl
@@ -61,8 +61,7 @@ sub doit {
`rmdir /s /q "$menupath\\$TeXLive::TLConfig::WindowsMainMenuName" 2>nul`;
# remove bindir from PATH settings
- TeXLive::TLUtils::w32_remove_from_path(
- TeXLive::TLUtils::win32_32 ? "$Master/bin/win32" : "$Master/bin/win64",
+ TeXLive::TLUtils::w32_remove_from_path("$Master/bin/win32",
$localtlpdb->option("w32_multi_user"));
# unsetenv_reg("TEXBINDIR");