texlive[43827] Master: option_path is only installer option, use
commits+preining at tug.org
commits+preining at tug.org
Sun Apr 16 04:13:39 CEST 2017
Revision: 43827
http://tug.org/svn/texlive?view=revision&revision=43827
Author: preining
Date: 2017-04-16 04:13:38 +0200 (Sun, 16 Apr 2017)
Log Message:
-----------
option_path is only installer option, use instopt_path
Modified Paths:
--------------
trunk/Master/install-tl
trunk/Master/tlpkg/installer/install-menu-perltk.pl
trunk/Master/tlpkg/installer/install-menu-text.pl
trunk/Master/tlpkg/installer/install-menu-wizard.pl
trunk/Master/tlpkg/installer/installer-options.txt
Modified: trunk/Master/install-tl
===================================================================
--- trunk/Master/install-tl 2017-04-16 02:13:30 UTC (rev 43826)
+++ trunk/Master/install-tl 2017-04-16 02:13:38 UTC (rev 43827)
@@ -127,7 +127,6 @@
# $tlpdb->option_XXXXX
# settings (i.e., taken from tlpkg/tlpsrc/00texlive.installation.tlpsrc
#
-# 'option_path' => 0,
# 'option_sys_bin' => '/usr/local/bin',
# 'option_sys_man' => '/usr/local/man',
# 'option_sys_info' => '/usr/local/info',
@@ -148,6 +147,7 @@
'instopt_letter' => 0,
'instopt_adjustrepo' => 1,
'instopt_write18_restricted' => 1,
+ 'instopt_path' => 0,
);
# option handling
@@ -733,6 +733,7 @@
}
$opt_scheme = "" if $opt_in_place;
$vars{'instopt_portable'} = $opt_portable;
+ $vars{'instopt_path'} = 1 if win32();
log("Installer revision: $::installerrevision\n");
log("Database revision: " . $tlpdb->config_revision . "\n");
@@ -770,7 +771,7 @@
$vars{'option_desktop_integration'} = 0;
$vars{'option_menu_integration'} = 0;
$vars{'option_file_assocs'} = 0;
- $vars{'option_path'} = 0;
+ $vars{'instopt_path'} = 0;
$vars{'option_w32_multi_user'} = 0;
}
if ($vars{'selected_scheme'} ne "scheme-infraonly"
@@ -1053,7 +1054,7 @@
# option settings in launcher.ini
if (win32() && !$vars{'instopt_portable'}) {
- if ($vars{'option_file_assocs'} != 1 || !$vars{'option_path'}) {
+ if ($vars{'option_file_assocs'} != 1 || !$vars{'instopt_path'}) {
# create higher priority tlaunch.ini with adjusted settings
# whether or not launcher mode (desktop integration 2)
# was selected
@@ -1097,7 +1098,7 @@
# for portable, this option should be unset
# it should not be necessary to test separately for portable
do_path_adjustments() if
- $vars{'option_path'} and $vars{option_desktop_integration} != 2;
+ $vars{'instopt_path'} and $vars{option_desktop_integration} != 2;
# now do the system integration:
# on unix this means setting up symlinks
@@ -1166,7 +1167,7 @@
print OUT $ini;
print OUT "[General]";
print OUT "FILETYPES=$fts[$vars{'option_file_assocs'}]";
- print OUT "SEARCHPATH=$vars{'option_path'}\n";
+ print OUT "SEARCHPATH=$vars{'instopt_path'}\n";
close OUT;
`mktexlsr $tmfsysvar`;
} else {
@@ -1625,9 +1626,6 @@
# in portable case, shortcuts sanitized away elsewhere
$vars{'option_desktop_integration'} = $tlpdb->option("desktop_integration");
$vars{'option_desktop_integration'} = 1 if win32();
- $vars{'option_path'} = $tlpdb->option("path");
- $vars{'option_path'} = 0 if !defined($vars{'option_path'});
- $vars{'option_path'} = 1 if win32();
$vars{'option_w32_multi_user'} = $tlpdb->option("w32_multi_user");
# we have to make sure that this option is set to 0 in case
# that a non-admin is running the installations program
@@ -1837,7 +1835,7 @@
# helper subroutine to do sanity check of options before installation
sub sanitise_options {
# portable option overrides any system integration options
- $vars{'option_path'} = 0 if $vars{'instopt_portable'};
+ $vars{'instopt_path'} = 0 if $vars{'instopt_portable'};
$vars{'option_file_assocs'} = 0 if $vars{'instopt_portable'};
$vars{'option_desktop_integration'} = 0 if $vars{'instopt_portable'};
} # sanitise_options
@@ -2041,11 +2039,11 @@
$previoustlpdb->option_pkg("00texlive.installation",
"create_formats");
$vars{'option_desktop_integration'} = 1 if win32();
- $vars{'option_path'} =
+ $vars{'instopt_path'} =
$previoustlpdb->option_pkg("00texlive.installation",
"path");
- $vars{'option_path'} = 0 if !defined($vars{'option_path'});
- $vars{'option_path'} = 1 if win32();
+ $vars{'instopt_path'} = 0 if !defined($vars{'instopt_path'});
+ $vars{'instopt_path'} = 1 if win32();
$vars{'option_sys_bin'} =
$previoustlpdb->option_pkg("00texlive.installation",
"sys_bin");
Modified: trunk/Master/tlpkg/installer/install-menu-perltk.pl
===================================================================
--- trunk/Master/tlpkg/installer/install-menu-perltk.pl 2017-04-16 02:13:30 UTC (rev 43826)
+++ trunk/Master/tlpkg/installer/install-menu-perltk.pl 2017-04-16 02:13:38 UTC (rev 43827)
@@ -132,7 +132,7 @@
$fmtyesno = $::yesno[$vars{'option_create_formats'}];
$srcyesno = $::yesno[$vars{'option_install_srcfiles'}];
$deskintyesno = $::deskintdesc[$vars{'option_desktop_integration'}];
- $pathadjyesno = $::yesno[$vars{'option_path'}];
+ $pathadjyesno = $::yesno[$vars{'instopt_path'}];
$fileassocyesno = $::fileassocdesc[$vars{'option_file_assocs'}];
$editoryesno = $::yesno[$vars{'collection-texworks'}];
$adminallyesno = $::yesno[$vars{'option_w32_multi_user'}];
@@ -535,7 +535,7 @@
$pathbutton = $fr->Button(
-text => __("Toggle"),
-command => sub {
- toggle_and_set_opt_variable(\$vars{'option_path'}, \$pathadjyesno); });
+ toggle_and_set_opt_variable(\$vars{'instopt_path'}, \$pathadjyesno); });
}
$pathbutton->grid(-row => $row, -column => 3, -sticky => "ew", -padx => "2m");
@@ -941,7 +941,7 @@
sub menu_select_symlink {
our ($lbin,$lman,$linfo);
- our $osym = $vars{'option_path'};
+ our $osym = $vars{'instopt_path'};
our ($binlab,$binb,$manlab,$manb,$infolab,$infob);
sub set_unset_buttons {
$lbin = ($osym ? $vars{'option_sys_bin'} : '');
@@ -969,8 +969,8 @@
$vars{'option_sys_info'} = $linfo;
$vars{'option_sys_man'} = $lman;
}
- $vars{'option_path'} = $osym;
- toggle_and_set_opt_variable(\$vars{'option_path'}, \$pathadjyesno);
+ $vars{'instopt_path'} = $osym;
+ toggle_and_set_opt_variable(\$vars{'instopt_path'}, \$pathadjyesno);
}
my $sw = $mainwindow->Toplevel(
-title => __('Create symlinks in system directories'));
@@ -1251,7 +1251,7 @@
$tmflocalbutton, $tmfsysvarbutton, $tmfsysconfigbutton, $tmfhomebutton) {
$b->configure(-state => 'disabled');
}
- $vars{'option_path'} = 0;
+ $vars{'instopt_path'} = 0;
$vars{'option_desktop_integration'} = 0;
$vars{'option_file_assocs'} = 0;
$vars{'option_w32_multi_user'} = 0;
Modified: trunk/Master/tlpkg/installer/install-menu-text.pl
===================================================================
--- trunk/Master/tlpkg/installer/install-menu-text.pl 2017-04-16 02:13:30 UTC (rev 43826)
+++ trunk/Master/tlpkg/installer/install-menu-text.pl 2017-04-16 02:13:38 UTC (rev 43827)
@@ -758,7 +758,7 @@
sub options_menu {
- my $b_path=obutton($vars{'option_path'});
+ my $b_path=obutton($vars{'instopt_path'});
my $b_doc=obutton($vars{'option_install_docfiles'});
my $b_src=obutton($vars{'option_install_srcfiles'});
my $b_fmt=obutton($vars{'option_create_formats'});
@@ -774,9 +774,9 @@
my $sys_man=$vars{'option_sys_man'};
my $sys_info=$vars{'option_sys_info'};
- my $t_sys_bin=($vars{'option_path'})? $vars{'option_sys_bin'}:'';
- my $t_sys_man=($vars{'option_path'})? $vars{'option_sys_man'}:'';
- my $t_sys_info=($vars{'option_path'})? $vars{'option_sys_info'}:'';
+ my $t_sys_bin=($vars{'instopt_path'})? $vars{'option_sys_bin'}:'';
+ my $t_sys_man=($vars{'instopt_path'})? $vars{'option_sys_man'}:'';
+ my $t_sys_info=($vars{'instopt_path'})? $vars{'option_sys_info'}:'';
my %command=(
'self' => \&options_menu,
@@ -834,7 +834,7 @@
other_options qw(R Q diskspace);
my $answer = prompt 'Enter command';
- # option_path
+ # instopt_path
if (unix()) {
if (("\u$answer" eq 'L') and !$vars{'instopt_portable'}) {
@@ -841,8 +841,8 @@
my $home = getenv('HOME');
$home = getenv('USERPROFILE') if (win32());
$home ||= '~';
- toggle 'option_path';
- if ($vars{'option_path'}) {
+ toggle 'instopt_path';
+ if ($vars{'instopt_path'}) {
print "New value for binary directory [$sys_bin]: ";
chomp($answer=<STDIN>);
$vars{'option_sys_bin'} = "$answer" if (length $answer);
@@ -871,7 +871,7 @@
my $home = getenv('HOME');
$home = getenv('USERPROFILE') if (win32());
$home ||= '~';
- toggle 'option_path';
+ toggle 'instopt_path';
return $command{'self'};
}
}
@@ -963,13 +963,13 @@
if ($vars{'instopt_portable'}) {
$vars{'instopt_portable'} = 0;
$vars{'option_desktop_integration'} = 0;
- $vars{'option_path'} = 0;
+ $vars{'instopt_path'} = 0;
$vars{'option_file_assocs'} = 0;
$vars{'option_w32_multi_user'} = 0;
} else {
$vars{'instopt_portable'} = 1;
$vars{'option_desktop_integration'} = 1;
- $vars{'option_path'} = 1;
+ $vars{'instopt_path'} = 1;
$vars{'option_file_assocs'} = 1;
$vars{'option_w32_multi_user'} = 1;
}
@@ -987,7 +987,7 @@
sub main_menu {
my $this_platform=platform_desc($vars{'this_platform'});
- my $b_path=button($vars{'option_path'});
+ my $b_path=button($vars{'instopt_path'});
my $b_doc=button($vars{'option_install_docfiles'});
my $b_src=button($vars{'option_install_srcfiles'});
my $b_fmt=button($vars{'option_create_formats'});
Modified: trunk/Master/tlpkg/installer/install-menu-wizard.pl
===================================================================
--- trunk/Master/tlpkg/installer/install-menu-wizard.pl 2017-04-16 02:13:30 UTC (rev 43826)
+++ trunk/Master/tlpkg/installer/install-menu-wizard.pl 2017-04-16 02:13:38 UTC (rev 43827)
@@ -40,7 +40,7 @@
"instopt_letter" => __("Default paper size"),
"option_desktop_integration" => __("Add menu shortcuts"),
"option_file_assocs" => __("Change file associations"),
- "option_path" => __("Adjust PATH setting in registry"),
+ "instopt_path" => __("Adjust PATH setting in registry"),
"option_w32_multi_user" => __("Installation for all users"),
"collection-texworks" => __("Install TeXworks front end"),
);
Modified: trunk/Master/tlpkg/installer/installer-options.txt
===================================================================
--- trunk/Master/tlpkg/installer/installer-options.txt 2017-04-16 02:13:30 UTC (rev 43826)
+++ trunk/Master/tlpkg/installer/installer-options.txt 2017-04-16 02:13:38 UTC (rev 43827)
@@ -49,7 +49,7 @@
option_sys_bin/man/info /u/l/... unix unix
option("sys_bin") ...
- unix link dests (if option_path == 1)
+ unix link dests (if instopt_path == 1)
TLPDB add/remove_symlinks
(via tlmgr action_symlinks and install-tl do_path_adjustments)
@@ -65,7 +65,7 @@
use letter
install-tl: sub do_postinst_stuff
-option_path 0 unix/1 win x x
+instopt_path 0 unix/1 win x x
path adjustment
not saved into the local TLPDB
only for install time setting
More information about the tex-live-commits
mailing list