texlive[46207] Master/texmf-dist/scripts/texlive: new action/option

[commits+karl at tug.org]

Revision: 46207
          http://tug.org/svn/texlive?view=revision&revision=46207
Author:   karl
Date:     2018-01-04 19:34:36 +0100 (Thu, 04 Jan 2018)
Log Message:
-----------
new action/option print-platform-info

Modified Paths:
--------------
    trunk/Master/texmf-dist/scripts/texlive/NEWS
    trunk/Master/texmf-dist/scripts/texlive/tlmgr.pl

Modified: trunk/Master/texmf-dist/scripts/texlive/NEWS
===================================================================
--- trunk/Master/texmf-dist/scripts/texlive/NEWS	2018-01-04 01:22:26 UTC (rev 46206)
+++ trunk/Master/texmf-dist/scripts/texlive/NEWS	2018-01-04 18:34:36 UTC (rev 46207)
@@ -1,11 +1,15 @@
 (This file public domain.  Originally written by Norbert Preining and
 Karl Berry, 2010.)
 
+<p><b>tlmgr  (released ):</b>
+<li>new action/option print-platform-info to dump platform name(s) as
+  well as the identifier.
+
 <p><b>tlmgr 46034 (released 12dec17):</b>
-<li>tlmgr info (list): reinstate previous (and intended) list format
-<li>tlmgr info: only load remote tlpdb when necessary
-<li>(windows) do not run post-actions when luatex.dll is not
-  available (because runscript needs luatex)
+<li>tlmgr info (list): reinstate previous (and intended) list format.
+<li>tlmgr info: only load remote tlpdb when necessary.
+<li>(Windows) do not run post-actions when luatex.dll is not
+  available (because runscript needs luatex).
 
 <p><b>tlmgr 45838 (released 23nov17):</b>
 <li>allow excluding packages from update in tlmgr config file.

Modified: trunk/Master/texmf-dist/scripts/texlive/tlmgr.pl
===================================================================
--- trunk/Master/texmf-dist/scripts/texlive/tlmgr.pl	2018-01-04 01:22:26 UTC (rev 46206)
+++ trunk/Master/texmf-dist/scripts/texlive/tlmgr.pl	2018-01-04 18:34:36 UTC (rev 46207)
@@ -364,6 +364,7 @@
   "pause" => 1,
   "pin-file" => "=s",
   "print-platform|print-arch" => 1,
+  "print-platform-info" => 1,
   "usermode|user-mode" => 1,
   "usertree|user-tree" => "=s",
   "verify-downloads" => "!",
@@ -417,8 +418,10 @@
   if (!defined($action)) {
     if ($opts{"gui"}) {   # -gui = gui
       $action = "gui";
-    } elsif ($opts{"print-platform"}) { # -print-arch = print-arch
+    } elsif ($opts{"print-platform"}) {
       $action = "print-platform";
+    } elsif ($opts{"print-platform-info"}) {
+      $action = "print-platform-info";
     } else {
       $action = "";
     }
@@ -448,6 +451,14 @@
     exit 0;
   }
 
+  if (defined($action) && $action eq "print-platform-info") {
+    print "config.guess  ", `$::installerdir/tlpkg/installer/config.guess`;
+    my $plat = TeXLive::TLUtils::platform();
+    print "platform      ", $plat, "\n";
+    print "platform_desc ", TeXLive::TLUtils::platform_desc($plat), "\n";
+    exit 0;
+  }
+
   # ACTION massaging
   # for backward compatibility and usability
 
@@ -8190,6 +8201,11 @@
 (hardware/operating system) combination to standard output, and exit.
 C<--print-arch> is a synonym.
 
+=head2 print-platform-info
+
+Print the TeX Live platform identifier, TL platform long name, and
+original output from guess.
+
 =head2 remove [I<option>]... I<pkg>...
 
 Remove each I<pkg> specified.  Removing a collection removes all package
@@ -8796,7 +8812,8 @@
 
 Some C<tlmgr> actions don't need any write permissions and thus work the
 same in user mode and normal mode.  Currently these are: C<check>,
-C<help>, C<list>, C<print-platform>, C<search>, C<show>, C<version>.
+C<help>, C<list>, C<print-platform>, C<print-platform-info>, C<search>,
+C<show>, C<version>.
 
 On the other hand, most of the actions dealing with package management
 do need write permissions, and thus behave differently in user mode, as