diff options
Diffstat (limited to 'systems/texlive/tlnet/tlpkg/installer')
5 files changed, 23 insertions, 25 deletions
diff --git a/systems/texlive/tlnet/tlpkg/installer/ctan-mirrors.pl b/systems/texlive/tlnet/tlpkg/installer/ctan-mirrors.pl index 117ed6a264..1dd297736f 100644 --- a/systems/texlive/tlnet/tlpkg/installer/ctan-mirrors.pl +++ b/systems/texlive/tlnet/tlpkg/installer/ctan-mirrors.pl @@ -46,15 +46,11 @@ $mirrors = { }, 'Korea' => { 'http://ftp.ktug.org/tex-archive/' => 1, - 'https://cran.asia/tex/' => 1, 'https://ftp.kaist.ac.kr/pub/tex-archive/' => 1, 'https://lab.uklee.pe.kr/tex-archive/' => 1, 'https://mirror.kakao.com/CTAN/' => 1, 'https://mirror.navercorp.com/CTAN/' => 1, }, - 'Philippines' => { - 'http://mirror.rise.ph/ctan/' => 1, - }, 'Singapore' => { 'https://download.nus.edu.sg/mirror/ctan/' => 1, }, @@ -157,7 +153,6 @@ $mirrors = { 'https://ctan.ijs.si/tex-archive/' => 1, }, 'Spain' => { - 'https://ctan.fisiquimicamente.com/' => 1, 'https://ctan.javinator9889.com/' => 1, 'https://osl.ugr.es/CTAN/' => 1, }, @@ -184,6 +179,9 @@ $mirrors = { 'https://mirror.its.dal.ca/ctan/' => 1, 'https://muug.ca/mirror/ctan/' => 1, }, + 'Costa Rica' => { + 'https://mirrors.ucr.ac.cr/CTAN/' => 1, + }, 'USA' => { 'http://bay.uchicago.edu/CTAN/' => 1, 'http://mirrors.ibiblio.org/pub/mirrors/CTAN/' => 1, diff --git a/systems/texlive/tlnet/tlpkg/installer/install-menu-extl.pl b/systems/texlive/tlnet/tlpkg/installer/install-menu-extl.pl index 4dd16ade9c..5417d59ae6 100644 --- a/systems/texlive/tlnet/tlpkg/installer/install-menu-extl.pl +++ b/systems/texlive/tlnet/tlpkg/installer/install-menu-extl.pl @@ -123,7 +123,7 @@ sub run_menu_extl { print "year: $texlive_release\n"; print "svn: $::installerrevision\n"; # for windows, add a key indicating elevated permissions - if (win32()) { + if (wndws()) { print "admin: ". TeXLive::TLWinGoo::admin() . "\n"; } print_descs(); diff --git a/systems/texlive/tlnet/tlpkg/installer/install-menu-text.pl b/systems/texlive/tlnet/tlpkg/installer/install-menu-text.pl index c29e74812a..fe0ea18a39 100644 --- a/systems/texlive/tlnet/tlpkg/installer/install-menu-text.pl +++ b/systems/texlive/tlnet/tlpkg/installer/install-menu-text.pl @@ -1,5 +1,5 @@ #!/usr/bin/env perl -# $Id: install-menu-text.pl 63643 2022-06-18 21:43:37Z karl $ +# $Id: install-menu-text.pl 65951 2023-02-20 10:13:03Z siepo $ # # Copyright 2007-2022 Norbert Preining, Karl Berry # Copyright 2007-2008 Reinhard Kotucha @@ -40,7 +40,7 @@ $::fileassocdesc[2] = __("All"); $::deskintdesc[0] = __("None"); $::deskintdesc[1] = __("Menu shortcuts"); -if (win32()) { $::deskintdesc[2] = __("Launcher"); } +if (wndws()) { $::deskintdesc[2] = __("Launcher"); } sub clear_screen { return 0 if ($::opt_no_cls); @@ -323,7 +323,7 @@ sub binary_menu { print "Unknown command: $answer\n\n"; } } - if ($vars{"binary_win32"}) { + if ($vars{"binary_windows"}) { $vars{"collection-wintools"} = 1; } else { $vars{"collection-wintools"} = 0; @@ -371,7 +371,7 @@ sub scheme_menu { select_scheme($vars{'selected_scheme'}); - if ($vars{"binary_win32"}) { + if ($vars{"binary_windows"}) { $vars{"collection-wintools"} = 1; } else { $vars{"collection-wintools"} = 0; @@ -532,7 +532,7 @@ EOF EOF - if (win32) { + if (wndws()) { print " Note: ~ will expand to %USERPROFILE%\n"; } else { print " Note: ~ will expand to \$HOME (or to %USERPROFILE% on Windows)\n"; @@ -620,7 +620,7 @@ sub input_dirname chomp (my $answer = <STDIN>); return "" if $answer eq ""; - $answer =~ s!\\!/!g if win32(); # switch to forward slashes + $answer =~ s!\\!/!g if wndws(); # switch to forward slashes if (!$noexpansion) { $answer = TeXLive::TLUtils::expand_tilde($answer); @@ -817,7 +817,7 @@ EOF EOF ; } - if ((win32() && !$vars{'instopt_portable'}) || $::opt_all_options) { + if ((wndws() && !$vars{'instopt_portable'}) || $::opt_all_options) { print " <M> Start menu shortcuts / launcher: ".obutton( $vars{'tlpdbopt_desktop_integration'}, \@::deskintdesc)."\n"; print " <N> update file associations: ".obutton( @@ -828,7 +828,7 @@ EOF } } } - if (win32() || $::opt_all_options) { + if (wndws() || $::opt_all_options) { print " <W> install TeXworks front end: $b_addoneditor\n"; } if ($media ne "NET") { @@ -847,7 +847,7 @@ EOF print "New value for binary directory [$sys_bin]: "; chomp($answer=<STDIN>); $vars{'tlpdbopt_sys_bin'} = "$answer" if (length $answer); - $vars{'tlpdbopt_sys_bin'} =~ s@\\@/@g if (win32()); + $vars{'tlpdbopt_sys_bin'} =~ s@\\@/@g if (wndws()); $vars{'tlpdbopt_sys_bin'} =~ s/^~/$home/; if ($vars{'tlpdbopt_sys_bin'}=~/^(.*)\/bin$/) { $vars{'tlpdbopt_sys_man'}="$1/man"; @@ -856,13 +856,13 @@ EOF print "New value for man directory [$vars{'tlpdbopt_sys_man'}]: "; chomp($answer=<STDIN>); $vars{'tlpdbopt_sys_man'}="$answer" if (length $answer); - $vars{'tlpdbopt_sys_man'} =~ s@\\@/@g if (win32()); + $vars{'tlpdbopt_sys_man'} =~ s@\\@/@g if (wndws()); $vars{'tlpdbopt_sys_man'} =~ s/^~/$home/; print "New value for info directory [$vars{'tlpdbopt_sys_info'}]: "; chomp($answer=<STDIN>); $vars{'tlpdbopt_sys_info'}="$answer" if (length $answer); - $vars{'tlpdbopt_sys_info'} =~ s@\\@/@g if (win32()); + $vars{'tlpdbopt_sys_info'} =~ s@\\@/@g if (wndws()); $vars{'tlpdbopt_sys_info'} =~ s/^~/$home/; } return $command{'self'}; @@ -877,7 +877,7 @@ EOF # # tlpdbopt_desktop_integration, tlpdbopt_file_assocs # -# if (win32() || $::opt_all_options) { +# if (wndws() || $::opt_all_options) { # if ("\u$answer" eq 'M' and !$vars{'instopt_portable'}) { # toggle 'tlpdbopt_desktop_integration'; # return $command{'self'}; @@ -933,7 +933,7 @@ EOF } elsif (defined $command{"\u$answer"}) { return $command{"\u$answer"}; - } elsif (("\u$answer" eq 'W') && ($::opt_all_options || win32()) && + } elsif (("\u$answer" eq 'W') && ($::opt_all_options || wndws()) && !$opt_in_place ) { toggle 'collection-texworks'; return $command{'self'}; @@ -1021,7 +1021,7 @@ sub main_menu { my $b_fmt=button($vars{'tlpdbopt_create_formats'}); my $b_letter=button($vars{'instopt_letter'}); my $b_deskint=button($vars{'tlpdbopt_desktop_integration'}, \@::deskintdesc); - if (win32()) { + if (wndws()) { my $b_fileassoc=button($vars{'tlpdbopt_file_assocs'}, \@::fileassocdesc); } my $b_admin=button($vars{'tlpdbopt_w32_multi_user'}); @@ -1131,7 +1131,7 @@ EOF print " $b_src install macro/font source tree\n"; } } - if (win32()) { + if (wndws()) { if (!$vars{'instopt_portable'}) { print " $b_path adjust search path\n"; print " $b_deskint add menu items, shortcuts, etc.\n"; @@ -1144,7 +1144,7 @@ EOF } print " $b_path create symlinks to standard directories\n" - unless ($vars{'instopt_portable'} || win32()); + unless ($vars{'instopt_portable'} || wndws()); print " $b_adjustrepo after install, set CTAN as source " . "for package updates\n" diff --git a/systems/texlive/tlnet/tlpkg/installer/tl-cmd.bat b/systems/texlive/tlnet/tlpkg/installer/tl-cmd.bat index 747d308823..18431d644e 100755 --- a/systems/texlive/tlnet/tlpkg/installer/tl-cmd.bat +++ b/systems/texlive/tlnet/tlpkg/installer/tl-cmd.bat @@ -9,7 +9,7 @@ rem Public domain setlocal enableextensions rem Add bin dir to beginning of PATH only if it is not already there -for /f "tokens=1,2 delims=;" %%I in ("%~dp0..\..\bin\win32;%PATH%") do if not "%%~fI"=="%%~fJ" set "PATH=%%~fI;%PATH%" +for /f "tokens=1,2 delims=;" %%I in ("%~dp0..\..\bin\windows;%PATH%") do if not "%%~fI"=="%%~fJ" set "PATH=%%~fI;%PATH%" rem Start new console start "TeX Live" "%COMSPEC%" diff --git a/systems/texlive/tlnet/tlpkg/installer/tl-tray-menu.ini b/systems/texlive/tlnet/tlpkg/installer/tl-tray-menu.ini index dcf3822660..801f7739bc 100644 --- a/systems/texlive/tlnet/tlpkg/installer/tl-tray-menu.ini +++ b/systems/texlive/tlnet/tlpkg/installer/tl-tray-menu.ini @@ -14,7 +14,7 @@ ; program (at the root of your TeX Live installation). ; * Alternatively, the 'program' can be a file which Windows knows how to open. ; Its location can be an absolute or relative path; see previous item. -; * The directory <menu dir>\bin\win32, where <menu dir> is the directory with +; * The directory <menu dir>\bin\windows, where <menu dir> is the directory with ; the menu program, is automatically added to the beginning of the search PATH ; * Number of menu items is limited to 30 and their total size to 32KB ; @@ -25,4 +25,4 @@ ;Your own choice of portable editor: ;&My editor=..\my_editor\my_editor.exe Notepad="%windir%\system32\notepad.exe" -&Command Prompt=cmd /k "title TeX Live"
\ No newline at end of file +&Command Prompt=cmd /k title TeX Live |