Batch menu for portable use

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

1 files changed, 56 insertions, 0 deletions

diff --git a/Master/tlpkg/installer/tlmenu.bat b/Master/tlpkg/installer/tlmenu.bat
new file mode 100755
index 00000000000..96764c96f32
--- /dev/null
+++ b/Master/tlpkg/installer/tlmenu.bat
@@ -0,0 +1,56 @@
+@ECHO OFF
+
+SETLOCAL ENABLEEXTENSIONS
+SETLOCAL ENABLEDELAYEDEXPANSION
+
+set tlroot=%~dp0
+path %tlroot%bin\win32;%path%
+
+:menuloop
+
+set ans=
+cls
+
+echo === TeX Live Menu ===
+echo.
+echo 1 TeX Live command prompt
+echo 2 Managing the installation
+if exist %tlroot%bin\win32\texworks.exe (
+  echo 3 TeXWorks
+)
+
+echo Q Quit
+echo.
+set /p ans="Make a choice: "
+
+if "%ans%"=="1" (
+  cmd /k "set prompt=TL $P$G & cls"
+  exit
+)
+
+if "%ans%"=="2" (
+  echo Starting tlmgr
+  echo Please be patient
+  wscript %tlroot%bin\win32\tlmgr-gui.vbs
+  exit
+)
+
+if "%ans%"=="3" (
+  if not exist %tlroot%bin\win32\texworks.exe (
+    echo TeXworks not available
+    goto :menuloop
+  )
+  start texworks
+  exit
+rem  goto :eof
+)
+
+if "%ans%"=="Q" (
+  exit
+)
+
+if "%ans%"=="q" (
+  exit
+)
+
+goto :menuloop