new action/option print-platform-info

git-svn-id: svn://tug.org/texlive/trunk@46207 c570f23f-e606-0410-a88d-b1316a301751

2 files changed, 27 insertions, 6 deletions

diff --git a/Master/texmf-dist/scripts/texlive/NEWS b/Master/texmf-dist/scripts/texlive/NEWS
index 7b7d1bef9bb..68a71b33220 100644
--- a/Master/texmf-dist/scripts/texlive/NEWS
+++ b/Master/texmf-dist/scripts/texlive/NEWS
@@ -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.
diff --git a/Master/texmf-dist/scripts/texlive/tlmgr.pl b/Master/texmf-dist/scripts/texlive/tlmgr.pl
index 66ee927d7e3..9203993c3df 100755
--- a/Master/texmf-dist/scripts/texlive/tlmgr.pl
+++ b/Master/texmf-dist/scripts/texlive/tlmgr.pl
@@ -364,6 +364,7 @@ my %globaloptions = (
   "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 @@ sub main {
   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 @@ sub main {
     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 @@ Print the TeX Live identifier for the detected platform
 (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 @@ currently not supported, but may be in a future release.
 
 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