texlive[65953] Master/tlpkg/tlpostcode: Transition 32-bit => 64-bit
commits+siepo at tug.org
commits+siepo at tug.org
Mon Feb 20 13:26:40 CET 2023
Revision: 65953
http://tug.org/svn/texlive?view=revision&revision=65953
Author: siepo
Date: 2023-02-20 13:26:39 +0100 (Mon, 20 Feb 2023)
Log Message:
-----------
Transition 32-bit => 64-bit for Windows; tlpostcode
Modified Paths:
--------------
trunk/Master/tlpkg/tlpostcode/dvipdfmx.pl
trunk/Master/tlpkg/tlpostcode/haranoaji-tlpost.pl
trunk/Master/tlpkg/tlpostcode/ptex-fontmaps-tlpost.pl
trunk/Master/tlpkg/tlpostcode/ptex2pdf-tlpost.pl
trunk/Master/tlpkg/tlpostcode/xetex.pl
Modified: trunk/Master/tlpkg/tlpostcode/dvipdfmx.pl
===================================================================
--- trunk/Master/tlpkg/tlpostcode/dvipdfmx.pl 2023-02-20 12:25:40 UTC (rev 65952)
+++ trunk/Master/tlpkg/tlpostcode/dvipdfmx.pl 2023-02-20 12:26:39 UTC (rev 65953)
@@ -15,7 +15,7 @@
# make Perl find our packages first:
unshift (@INC, "$texdir/tlpkg");
}
-use TeXLive::TLUtils qw(win32 mkdirhier conv_to_w32_path log info);
+use TeXLive::TLUtils qw(wndws mkdirhier conv_to_w32_path log info);
if ($mode eq 'install') {
do_install();
Modified: trunk/Master/tlpkg/tlpostcode/haranoaji-tlpost.pl
===================================================================
--- trunk/Master/tlpkg/tlpostcode/haranoaji-tlpost.pl 2023-02-20 12:25:40 UTC (rev 65952)
+++ trunk/Master/tlpkg/tlpostcode/haranoaji-tlpost.pl 2023-02-20 12:26:39 UTC (rev 65953)
@@ -39,7 +39,7 @@
my $verbose = 0;
-if (win32 ()) {
+if (wndws ()) {
# These packages are not necessarily available on non-Windows, so
# read them at runtime instead of compile time.
require Encode::Locale;
@@ -282,7 +282,7 @@
}
# Check Windows environment
-sub win32 { return ($^O=~/^MSWin(32|64)$/i); }
+sub wndws { return ($^O=~/^MSWin(32|64)$/i); }
# Log
sub my_log {
Modified: trunk/Master/tlpkg/tlpostcode/ptex-fontmaps-tlpost.pl
===================================================================
--- trunk/Master/tlpkg/tlpostcode/ptex-fontmaps-tlpost.pl 2023-02-20 12:25:40 UTC (rev 65952)
+++ trunk/Master/tlpkg/tlpostcode/ptex-fontmaps-tlpost.pl 2023-02-20 12:26:39 UTC (rev 65953)
@@ -39,7 +39,7 @@
my $verbose = 0;
-if (win32 ()) {
+if (wndws ()) {
# These packages are not necessarily available on non-Windows, so
# read them at runtime instead of compile time.
require Encode::Locale;
@@ -159,7 +159,7 @@
}
# Check Windows environment
-sub win32 { return ($^O=~/^MSWin(32|64)$/i); }
+sub wndws { return ($^O=~/^MSWin(32|64)$/i); }
# Log
sub my_log {
Modified: trunk/Master/tlpkg/tlpostcode/ptex2pdf-tlpost.pl
===================================================================
--- trunk/Master/tlpkg/tlpostcode/ptex2pdf-tlpost.pl 2023-02-20 12:25:40 UTC (rev 65952)
+++ trunk/Master/tlpkg/tlpostcode/ptex2pdf-tlpost.pl 2023-02-20 12:26:39 UTC (rev 65953)
@@ -32,7 +32,7 @@
unshift (@INC, "$texdir/tlpkg");
}
-use TeXLive::TLUtils qw(win32 mkdirhier conv_to_w32_path
+use TeXLive::TLUtils qw(wndws mkdirhier conv_to_w32_path
debug ddebug log info tlwarn);
@@ -159,7 +159,7 @@
);
$::lang = "C";
-if (TeXLive::TLUtils::win32()) {
+if (TeXLive::TLUtils::wndws()) {
require TeXLive::TLWinGoo;
}
require("TeXLive/trans.pl");
@@ -231,7 +231,7 @@
my $toolsdir;
my $tugdir;
my $inifile;
- if (win32()) {
+ if (wndws()) {
# we assume TeXworks from TL, thus IniFormat
chomp( my $twini = `kpsewhich -var-value=TW_INIPATH` ) ;
$toolsdir = "$twini/configuration";
@@ -316,7 +316,7 @@
for my $t (sort keys %original) {
my $id = sprintf("%03d", ++$highest_entry);
$entries{$id} = $original{$t};
- if (win32()) {
+ if (wndws()) {
$entries{$id}{'program'} .= ".exe";
}
}
@@ -326,7 +326,7 @@
for my $t (sort keys %ptex2pdf) {
my $id = sprintf("%03d", ++$highest_entry);
$entries{$id} = $ptex2pdf{$t};
- if (win32()) {
+ if (wndws()) {
$entries{$id}{'program'} .= ".exe";
}
}
Modified: trunk/Master/tlpkg/tlpostcode/xetex.pl
===================================================================
--- trunk/Master/tlpkg/tlpostcode/xetex.pl 2023-02-20 12:25:40 UTC (rev 65952)
+++ trunk/Master/tlpkg/tlpostcode/xetex.pl 2023-02-20 12:26:39 UTC (rev 65953)
@@ -20,7 +20,7 @@
# make Perl find our packages first:
unshift (@INC, "$texdir/tlpkg");
}
-use TeXLive::TLUtils qw(win32 mkdirhier conv_to_w32_path log info);
+use TeXLive::TLUtils qw(wndws mkdirhier conv_to_w32_path log info);
if ($mode eq 'install') {
do_install();
@@ -38,7 +38,7 @@
# fontconfig-related stuff.
chomp( my $fcache = `kpsewhich -var-value=FC_CACHEDIR` ) ;
chomp( my $fconf = `kpsewhich -var-value=FONTCONFIG_PATH` ) ;
- if (-r "$texdir/bin/win32/xetex.exe") {
+ if (-r "$texdir/bin/windows/xetex.exe") {
# we have installed w32, so put it into texmfsysvar.
mkdirhier($fcache);
mkdirhier($fconf);
@@ -45,7 +45,7 @@
TeXLive::TLUtils::rmtree($fcache);
TeXLive::TLUtils::rmtree($fconf);
my @cpycmd = ();
- if (win32()) {
+ if (wndws()) {
push @cpycmd, "xcopy", "/e", "/i", "/q", "/y";
} else {
push @cpycmd, "cp", "-R";
@@ -54,11 +54,11 @@
# copy trees from install area.
my $postxetex = "$texdir/tlpkg/tlpostcode/xetex";
system(@cpycmd,
- (win32() ? conv_to_w32_path("$postxetex/conf") : "$postxetex/conf"),
- (win32() ? conv_to_w32_path($fconf) : $fconf));
+ (wndws() ? conv_to_w32_path("$postxetex/conf") : "$postxetex/conf"),
+ (wndws() ? conv_to_w32_path($fconf) : $fconf));
system(@cpycmd,
- (win32() ? conv_to_w32_path("$postxetex/cache") : "$postxetex/cache"),
- (win32() ? conv_to_w32_path($fcache) : $fcache));
+ (wndws() ? conv_to_w32_path("$postxetex/cache") : "$postxetex/cache"),
+ (wndws() ? conv_to_w32_path($fcache) : $fcache));
if (open(FONTSCONF, "<$texdir/tlpkg/tlpostcode/xetex/conf/fonts.conf")) {
my @lines = <FONTSCONF>;
@@ -65,13 +65,13 @@
close(FONTSCONF);
if (open(FONTSCONF, ">$fconf/fonts.conf")) {
my $winfontdir;
- if (win32()) {
+ if (wndws()) {
$winfontdir = $ENV{'SystemRoot'}.'/fonts';
$winfontdir =~ s!\\!/!g;
}
foreach (@lines) {
$_ =~ s!c:/Program Files/texlive/YYYY!$texdir!;
- $_ =~ s!c:/windows/fonts!$winfontdir! if win32();
+ $_ =~ s!c:/windows/fonts!$winfontdir! if wndws();
print FONTSCONF;
}
close(FONTSCONF);
@@ -82,7 +82,7 @@
warn("open($texdir/tlpkg/tlpostcode/xetex/conf/fonts.conf) failed: $!");
}
}
- if (win32() && !$skip_gen) {
+ if (wndws() && !$skip_gen) {
# call fc-cache but only when we install on w32!
info("Running fc-cache -v -r\n");
log( `fc-cache -v -r 2>&1` ); # run it, log output
More information about the tex-live-commits
mailing list.