Added tl-portable.bat, Windows counterpart of tl-portable.sh.

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

1 files changed, 56 insertions, 0 deletions

diff --git a/Master/tl-portable.bat b/Master/tl-portable.bat
new file mode 100755
index 00000000000..69b130e018c
--- /dev/null
+++ b/Master/tl-portable.bat
@@ -0,0 +1,56 @@
+@echo off
+
+rem TeX Live Root; ends with backslash
+rem This should also work with UNC names
+set TEXDIR=%~dp0
+set tldrive=%~d0
+
+%tldrive%
+cd %TEXDIR%
+
+rem TEXDIR writable?
+set tlwrite=%USERPROFILE%\texlive2008\
+del "%TEXDIR%tl_wrtest" 2>nul
+echo Testing for write access %TEXDIR%...
+echo Hello >"%TEXDIR%tl_wrtest"
+if not exist "%TEXDIR%tl_wrtest" goto wrtestdone
+del "%TEXDIR%tl_wrtest"
+set tlwrite=%TEXDIR%
+:wrtestdone
+if not exist "%tlwrite%" md "%tlwrite%"
+
+rem Use TEXMFHOME for private data,
+rem TEXMFLOCAL for department- or workgroup data.
+rem It is allright if TEXMFLOCAL does not exist.
+
+set TEXMFSYSVAR=%tlwrite%texmf-var
+if exist "%TEXDIR%texmf-var" set TEXMFSYSVAR=%TEXDIR%texmf-var
+
+set TEXMFSYSCONFIG=%tlwrite%texmf-config
+if exist "%TEXDIR%texmf-config" set TEXMFSYSCONFIG=%TEXDIR%texmf-config
+set TEXMFMAIN=%TEXDIR%texmf
+set TEXMFDIST=%TEXDIR%texmf-dist
+set TEXMFLOCAL=%TEXDIR%texmf-local
+set TEXMFHOME=%tlwrite%texmf-home
+set TEXMFVAR=%tlwrite%texmf-var
+set TEXMFCONFIG=%tlwrite%texmf-config
+
+set platform=win32
+
+rem set pathsave=%path%
+rem path %path%;%TEXDIR%tlpkg\installer
+
+rem use provided Perl
+
+set PERL5SAVE=%PERL5LIB%
+
+set PERL5LIB=%TEXDIR%tlpkg\installer\perllib
+"%TEXDIR%tlpkg\installer\perl" "%TEXDIR%install-try.pl" --portable
+
+set pathsave=%path%
+path %TEXDIR%bin\win32;%path%
+set PROMPT=TL $P$G
+
+%COMSPEC% /k
+exit
+rem path %pathsave%