texlive[50485] Master/bin/win32/tlmgr.bat: Test for gui parameter

[commits+siepo at tug.org]

Revision: 50485
          http://tug.org/svn/texlive?view=revision&revision=50485
Author:   siepo
Date:     2019-03-20 22:43:09 +0100 (Wed, 20 Mar 2019)
Log Message:
-----------
Test for gui parameter

Modified Paths:
--------------
    trunk/Master/bin/win32/tlmgr.bat

Modified: trunk/Master/bin/win32/tlmgr.bat
===================================================================
--- trunk/Master/bin/win32/tlmgr.bat	2019-03-20 20:55:07 UTC (rev 50484)
+++ trunk/Master/bin/win32/tlmgr.bat	2019-03-20 21:43:09 UTC (rev 50485)
@@ -11,6 +11,20 @@
 set tlroot=%~dp0:
 set tlroot=%tlroot:\bin\win32\:=%
 
+rem check for gui argument
+set args=
+
+:rebuildargs
+shift
+if x == x%0 goto nomoreargs
+if gui == %0 goto guibailout
+if -gui == %0 goto guibailout
+if --gui == %0 goto guibailout
+set args=%args% %0
+goto rebuildargs
+
+:nomoreargs
+
 rem Remove remains of previous update if any
 set tlupdater=%tlroot%\temp\updater-w32
 if exist "%tlupdater%" del "%tlupdater%"
@@ -19,7 +33,7 @@
 rem Start tlmgr
 set PERL5LIB=%tlroot%\tlpkg\tlperl\lib
 path %tlroot%\tlpkg\tlperl\bin;%tlroot%\bin\win32;%path%
-"%tlroot%\tlpkg\tlperl\bin\perl.exe" "%tlroot%\texmf-dist\scripts\texlive\tlmgr.pl" %*
+"%tlroot%\tlpkg\tlperl\bin\perl.exe" "%tlroot%\texmf-dist\scripts\texlive\tlmgr.pl" %args%
 
 rem Finish if there are no updates to do; the last error code will be returned
 if not exist "%tlupdater%" goto :eof
@@ -40,3 +54,7 @@
 :err_rename_updater
 echo %~nx0: failed to rename "%tlupdater%">&2
 exit /b 1
+
+:guibailout
+echo Please use tlshell as a GUI for tlmgr
+exit /b 1