texlive[43833] Master: rename instopt_path to instopt_adjustpath

commits+preining at tug.org commits+preining at tug.org
Sun Apr 16 04:14:26 CEST 2017


Revision: 43833
          http://tug.org/svn/texlive?view=revision&revision=43833
Author:   preining
Date:     2017-04-16 04:14:25 +0200 (Sun, 16 Apr 2017)
Log Message:
-----------
rename instopt_path to instopt_adjustpath

Modified Paths:
--------------
    trunk/Master/install-tl
    trunk/Master/tlpkg/bin/tl-update-tlnet
    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:14:13 UTC (rev 43832)
+++ trunk/Master/install-tl	2017-04-16 02:14:25 UTC (rev 43833)
@@ -147,7 +147,7 @@
         'instopt_letter' => 0,
         'instopt_adjustrepo' => 1,
         'instopt_write18_restricted' => 1,
-        'instopt_path' => 0,
+        'instopt_adjustpath' => 0,
     );
 
 my %path_keys = (
@@ -744,7 +744,7 @@
   }
   $opt_scheme = "" if $opt_in_place;
   $vars{'instopt_portable'} = $opt_portable;
-  $vars{'instopt_path'} = 1 if win32();
+  $vars{'instopt_adjustpath'} = 1 if win32();
 
   log("Installer revision: $::installerrevision\n");
   log("Database revision: " . $tlpdb->config_revision . "\n");
@@ -782,7 +782,7 @@
     $vars{'tlpdbopt_desktop_integration'} = 0;
     $vars{'tlpdbopt_menu_integration'} = 0;
     $vars{'tlpdbopt_file_assocs'} = 0;
-    $vars{'instopt_path'} = 0;
+    $vars{'instopt_adjustpath'} = 0;
     $vars{'tlpdbopt_w32_multi_user'} = 0;
   }
   if ($vars{'selected_scheme'} ne "scheme-infraonly"
@@ -1065,7 +1065,7 @@
 
   # option settings in launcher.ini
   if (win32() && !$vars{'instopt_portable'}) {
-    if ($vars{'tlpdbopt_file_assocs'} != 1 || !$vars{'instopt_path'}) {
+    if ($vars{'tlpdbopt_file_assocs'} != 1 || !$vars{'instopt_adjustpath'}) {
       # create higher priority tlaunch.ini with adjusted settings
       # whether or not launcher mode (desktop integration 2)
       # was selected
@@ -1109,7 +1109,7 @@
   # for portable, this option should be unset
   # it should not be necessary to test separately for portable
   do_path_adjustments() if
-    $vars{'instopt_path'} and $vars{tlpdbopt_desktop_integration} != 2;
+    $vars{'instopt_adjustpath'} and $vars{tlpdbopt_desktop_integration} != 2;
 
   # now do the system integration:
   # on unix this means setting up symlinks
@@ -1178,7 +1178,7 @@
       print OUT $ini;
       print OUT "[General]";
       print OUT "FILETYPES=$fts[$vars{'tlpdbopt_file_assocs'}]";
-      print OUT "SEARCHPATH=$vars{'instopt_path'}\n";
+      print OUT "SEARCHPATH=$vars{'instopt_adjustpath'}\n";
       close OUT;
       `mktexlsr $tmfsysvar`;
     } else {
@@ -1801,7 +1801,7 @@
     'option_doc'        => 'tlpdbopt_install_docfiles',
     'option_src'        => 'tlpdbopt_install_srcfiles',
     'option_fmt'        => 'tlpdbopt_create_formats',
-    'option_path'       => 'instopt_path',
+    'option_path'       => 'instopt_adjustpath',
     'option_letter'     => 'instopt_letter',
     'option_adjustrepo' => 'instopt_adjustrepo',
     'portable'          => 'instopt_portable',
@@ -1907,7 +1907,7 @@
 # helper subroutine to do sanity check of options before installation
 sub sanitise_options {
   # portable option overrides any system integration options
-  $vars{'instopt_path'} = 0 if $vars{'instopt_portable'};
+  $vars{'instopt_adjustpath'} = 0 if $vars{'instopt_portable'};
   $vars{'tlpdbopt_file_assocs'} = 0 if $vars{'instopt_portable'};
   $vars{'tlpdbopt_desktop_integration'} = 0 if $vars{'instopt_portable'};
 } # sanitise_options
@@ -2100,11 +2100,11 @@
     $previoustlpdb->option_pkg("00texlive.installation",
                                "create_formats");
   $vars{'tlpdbopt_desktop_integration'} = 1 if win32();
-  $vars{'instopt_path'} =
+  $vars{'instopt_adjustpath'} =
     $previoustlpdb->option_pkg("00texlive.installation",
                                "path");
-  $vars{'instopt_path'} = 0 if !defined($vars{'instopt_path'});
-  $vars{'instopt_path'} = 1 if win32();
+  $vars{'instopt_adjustpath'} = 0 if !defined($vars{'instopt_adjustpath'});
+  $vars{'instopt_adjustpath'} = 1 if win32();
   $vars{'tlpdbopt_sys_bin'} =
     $previoustlpdb->option_pkg("00texlive.installation",
                                "sys_bin");
@@ -2687,7 +2687,7 @@
 mirror after installation),
 C<instopt_write18_restricted> (default 1, enable write8 for a restricted
 set of programs),
-C<instopt_path> (default 0 on Unix, 1 on Windows, adjust PATH environment).
+C<instopt_adjustpath> (default 0 on Unix, 1 on Windows, adjust PATH environment).
 
 =item B<tlpdb options> (those with prefix C<tlpdbopt_>)
 

Modified: trunk/Master/tlpkg/bin/tl-update-tlnet
===================================================================
--- trunk/Master/tlpkg/bin/tl-update-tlnet	2017-04-16 02:14:13 UTC (rev 43832)
+++ trunk/Master/tlpkg/bin/tl-update-tlnet	2017-04-16 02:14:25 UTC (rev 43833)
@@ -124,7 +124,7 @@
 tlpdbopt_install_srcfiles 1
 tlpdbopt_create_formats 1
 instopt_letter 0
-instopt_path 0
+instopt_adjustpath 0
 instopt_adjustrepo 0
 " >texlive.profile
 

Modified: trunk/Master/tlpkg/installer/install-menu-perltk.pl
===================================================================
--- trunk/Master/tlpkg/installer/install-menu-perltk.pl	2017-04-16 02:14:13 UTC (rev 43832)
+++ trunk/Master/tlpkg/installer/install-menu-perltk.pl	2017-04-16 02:14:25 UTC (rev 43833)
@@ -132,7 +132,7 @@
   $fmtyesno = $::yesno[$vars{'tlpdbopt_create_formats'}];
   $srcyesno = $::yesno[$vars{'tlpdbopt_install_srcfiles'}];
   $deskintyesno = $::deskintdesc[$vars{'tlpdbopt_desktop_integration'}];
-  $pathadjyesno = $::yesno[$vars{'instopt_path'}];
+  $pathadjyesno = $::yesno[$vars{'instopt_adjustpath'}];
   $fileassocyesno = $::fileassocdesc[$vars{'tlpdbopt_file_assocs'}];
   $editoryesno = $::yesno[$vars{'collection-texworks'}];
   $adminallyesno = $::yesno[$vars{'tlpdbopt_w32_multi_user'}];
@@ -535,7 +535,7 @@
     $pathbutton = $fr->Button(
       -text => __("Toggle"),
       -command => sub {
-        toggle_and_set_opt_variable(\$vars{'instopt_path'}, \$pathadjyesno); });
+        toggle_and_set_opt_variable(\$vars{'instopt_adjustpath'}, \$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{'instopt_path'};
+  our $osym = $vars{'instopt_adjustpath'};
   our ($binlab,$binb,$manlab,$manb,$infolab,$infob);
   sub set_unset_buttons {
     $lbin = ($osym ? $vars{'tlpdbopt_sys_bin'} : '');
@@ -969,8 +969,8 @@
       $vars{'tlpdbopt_sys_info'} = $linfo;
       $vars{'tlpdbopt_sys_man'} = $lman;
     }
-    $vars{'instopt_path'} = $osym;
-    toggle_and_set_opt_variable(\$vars{'instopt_path'}, \$pathadjyesno);
+    $vars{'instopt_adjustpath'} = $osym;
+    toggle_and_set_opt_variable(\$vars{'instopt_adjustpath'}, \$pathadjyesno);
   }
   my $sw = $mainwindow->Toplevel(
     -title => __('Create symlinks in system directories'));
@@ -1251,7 +1251,7 @@
       $tmflocalbutton, $tmfsysvarbutton, $tmfsysconfigbutton, $tmfhomebutton) {
         $b->configure(-state => 'disabled');
     }
-    $vars{'instopt_path'} = 0;
+    $vars{'instopt_adjustpath'} = 0;
     $vars{'tlpdbopt_desktop_integration'} = 0;
     $vars{'tlpdbopt_file_assocs'} = 0;
     $vars{'tlpdbopt_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:14:13 UTC (rev 43832)
+++ trunk/Master/tlpkg/installer/install-menu-text.pl	2017-04-16 02:14:25 UTC (rev 43833)
@@ -758,7 +758,7 @@
 
 
 sub options_menu {
-  my $b_path=obutton($vars{'instopt_path'});
+  my $b_path=obutton($vars{'instopt_adjustpath'});
   my $b_doc=obutton($vars{'tlpdbopt_install_docfiles'});
   my $b_src=obutton($vars{'tlpdbopt_install_srcfiles'});
   my $b_fmt=obutton($vars{'tlpdbopt_create_formats'});
@@ -774,9 +774,9 @@
   my $sys_man=$vars{'tlpdbopt_sys_man'};
   my $sys_info=$vars{'tlpdbopt_sys_info'};
 
-  my $t_sys_bin=($vars{'instopt_path'})? $vars{'tlpdbopt_sys_bin'}:'';
-  my $t_sys_man=($vars{'instopt_path'})? $vars{'tlpdbopt_sys_man'}:'';
-  my $t_sys_info=($vars{'instopt_path'})? $vars{'tlpdbopt_sys_info'}:'';
+  my $t_sys_bin=($vars{'instopt_adjustpath'})? $vars{'tlpdbopt_sys_bin'}:'';
+  my $t_sys_man=($vars{'instopt_adjustpath'})? $vars{'tlpdbopt_sys_man'}:'';
+  my $t_sys_info=($vars{'instopt_adjustpath'})? $vars{'tlpdbopt_sys_info'}:'';
 
   my %command=(
     'self' => \&options_menu,
@@ -834,7 +834,7 @@
   other_options qw(R Q diskspace);
   my $answer = prompt 'Enter command';
 
-  # instopt_path
+  # instopt_adjustpath
 
   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 'instopt_path';
-      if ($vars{'instopt_path'}) {
+      toggle 'instopt_adjustpath';
+      if ($vars{'instopt_adjustpath'}) {
         print "New value for binary directory [$sys_bin]: ";
         chomp($answer=<STDIN>);
         $vars{'tlpdbopt_sys_bin'} =  "$answer" if (length $answer);
@@ -871,7 +871,7 @@
       my $home = getenv('HOME');
       $home = getenv('USERPROFILE') if (win32());
       $home ||= '~';
-      toggle 'instopt_path';
+      toggle 'instopt_adjustpath';
       return $command{'self'};
     }
   }
@@ -963,13 +963,13 @@
   if ($vars{'instopt_portable'}) {
     $vars{'instopt_portable'} = 0;
     $vars{'tlpdbopt_desktop_integration'} = 0;
-    $vars{'instopt_path'} = 0;
+    $vars{'instopt_adjustpath'} = 0;
     $vars{'tlpdbopt_file_assocs'} = 0;
     $vars{'tlpdbopt_w32_multi_user'} = 0;
   } else {
     $vars{'instopt_portable'} = 1;
     $vars{'tlpdbopt_desktop_integration'} = 1;
-    $vars{'instopt_path'} = 1;
+    $vars{'instopt_adjustpath'} = 1;
     $vars{'tlpdbopt_file_assocs'} = 1;
     $vars{'tlpdbopt_w32_multi_user'} = 1;
   }
@@ -987,7 +987,7 @@
 sub main_menu {
   my $this_platform=platform_desc($vars{'this_platform'});
 
-  my $b_path=button($vars{'instopt_path'});
+  my $b_path=button($vars{'instopt_adjustpath'});
   my $b_doc=button($vars{'tlpdbopt_install_docfiles'});
   my $b_src=button($vars{'tlpdbopt_install_srcfiles'});
   my $b_fmt=button($vars{'tlpdbopt_create_formats'});

Modified: trunk/Master/tlpkg/installer/install-menu-wizard.pl
===================================================================
--- trunk/Master/tlpkg/installer/install-menu-wizard.pl	2017-04-16 02:14:13 UTC (rev 43832)
+++ trunk/Master/tlpkg/installer/install-menu-wizard.pl	2017-04-16 02:14:25 UTC (rev 43833)
@@ -40,7 +40,7 @@
   "instopt_letter"               => __("Default paper size"),
   "tlpdbopt_desktop_integration" => __("Add menu shortcuts"),
   "tlpdbopt_file_assocs"         => __("Change file associations"),
-  "instopt_path"                 => __("Adjust PATH setting in registry"),
+  "instopt_adjustpath"           => __("Adjust PATH setting in registry"),
   "tlpdbopt_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:14:13 UTC (rev 43832)
+++ trunk/Master/tlpkg/installer/installer-options.txt	2017-04-16 02:14:25 UTC (rev 43833)
@@ -49,7 +49,7 @@
 
 tlpdbopt_sys_bin/man/info       /u/l/...      unix    unix
    option("sys_bin") ...
-   unix link dests (if instopt_path == 1)
+   unix link dests (if instopt_adjustpath == 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
 
-instopt_path                0 unix/1 win    x       x 
+instopt_adjustpath          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