blob: 4cfaf2de06eff8820c98b38647a00b17ea258671 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
|
@echo off
rem Copyright 2008 Siep Kroonenberg.
rem You may freely use, modify and/or distribute this file.
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 TEXBINDIR=%TEXDIR%bin\win32
set PATHEXT=%PATHEXT%;.TEXLUA
set platform=win32
rem use provided Perl
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!
pause
exit
:doit
path %TEXDIR%bin\win32;%path%
set PROMPT=TL $P$G
%COMSPEC% /k
exit
|
