summaryrefslogtreecommitdiff
path: root/Master/tl-portable.bat
diff options
context:
space:
mode:
authorPiotr Strzelczyk <piotr@eps.gda.pl>2009-05-27 19:42:09 +0000
committerPiotr Strzelczyk <piotr@eps.gda.pl>2009-05-27 19:42:09 +0000
commit7c96ac614de5bb500b464ef083b833919d0947f1 (patch)
tree2da7434fee063c8178c5038f1aeea2384be97e64 /Master/tl-portable.bat
parent220eb05437dd1ac4322d83719e2302e8ab229cff (diff)
branch changes that never made it into the trunk
git-svn-id: svn://tug.org/texlive/trunk@13498 c570f23f-e606-0410-a88d-b1316a301751
Diffstat (limited to 'Master/tl-portable.bat')
-rwxr-xr-xMaster/tl-portable.bat55
1 files changed, 43 insertions, 12 deletions
diff --git a/Master/tl-portable.bat b/Master/tl-portable.bat
index 563af038f66..db44978fc49 100755
--- a/Master/tl-portable.bat
+++ b/Master/tl-portable.bat
@@ -1,11 +1,23 @@
@echo off
-
-rem Copyright 2008 Siep Kroonenberg.
+rem Copyright 2008-2009 Siep Kroonenberg, Tomasz M. Trzeciak.
rem You may freely use, modify and/or distribute this file.
+rem First, check if this is DOS based system
+rem in DOS '^' is just a normal character
+if not ^x==x goto DOS
+
+rem Now check for Windows NT which is also not supported
+ver | find "NT"
+if not errorlevel 1 goto WinNT
+
+rem Abort if we are running from UNC path
+if %~d0==\\ goto UNC
+
+rem Localize environment changes
+setlocal enableextensions
+
rem TeX Live Root; ends with backslash
set TEXDIR=%~dp0
-set tldrive=%~d0
rem TEXDIR writable?
set TEXDIRW=%USERPROFILE%\.tlportable2008\
@@ -35,17 +47,36 @@ set TEXMFVAR=%TEXDIRW%texmf-var
set TEXMFCONFIG=%TEXDIRW%texmf-config
set TEXBINDIR=%TEXDIR%bin\win32
set platform=win32
-path %TEXDIR%bin\win32;%path%
rem use provided Perl
+set PERL5LIB=%TEXDIR%tlpkg\tlperl\lib
+path %TEXDIR%tlpkg\tlperl\bin;%TEXDIR%bin\win32;%path%
+perl "%TEXDIR%install-tl" --portable
+if errorlevel 1 goto failedinit
+
+rem start new command interperter with customized prompt and window title
+"%ComSpec%" /k "title TL-SHELL& prompt TL %prompt%"
+goto :eof
-set PERL5LIB=%TEXDIR%tlpkg\installer\perllib
-"%TEXDIR%tlpkg\installer\perl" "%TEXDIR%install-tl" --portable
-if not errorlevel 1 goto doit
-echo Initialization of TeXLive failed!
+:failedinit
+echo Initialization of TeX Live failed!
pause
-exit
+exit /b 1
-:doit
-set PROMPT=TL $P$G
-%COMSPEC% /k
+:UNC
+echo Cannot run from UNC path.
+echo Map network drive to a drive letter and rerun the script.
+echo You can use pushd/popd commands for temporary mapping.
+pause
+exit /b 1
+
+:WinNT
+echo Windows NT is not supported. Sorry.
+echo Windows 2000 or newer is required.
+pause
+exit /b 1
+
+:DOS
+echo DOS and Windows 9x systems are not supported. Sorry.
+echo Windows 2000 or newer is required.
+pause