blob: 1900bc7d5d6ae308c258420ae1332101c3ce1f79 (
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
|
@echo off
rem Wrapper batchfile for Perl script of the same name
rem both in the root of the TeX Live installation.
rem Based on code from Tomasz M. Trzeciak.
rem Public domain.
rem First, check if this is DOS based system
rem in DOS '^' is just a normal character
if not ^x==x goto DOS
rem Abort if we are running from UNC path
if %~d0==\\ goto UNC
rem Localize environment changes
setlocal enableextensions
set this=%~dp0
rem Break search path into dir list and rebuild w/o tex dirs
call :rebuildpath ";" "%path:;=" "%"
rem Use TL Perl
path %this%tlpkg\tlperl\bin;%this%bin\win32;%path%
set PERL5LIB=%this%tlpkg\tlperl\lib;%this%tlpkg;%this%texmf\scripts\texlive
rem Start Perl script of the same name
perl "%~dpn0" %*
rem Give user opportunity to scan output messages
pause
goto :eof
rem Subroutine to build search path without tex directories
rem any dir containing pdftex.exe is considered a tex dir
:rebuildpath ";" dir list ...
shift
rem The first argument (";") serves as a marker to reset the path
if "%~0"==";" set path=
rem Finish if no more arguments to process
if [%1]==[] goto :eof
rem Continue if tex dir
if exist "%~1\pdftex.exe" goto :rebuildpath
rem Add dir to path
if not defined path (path %~1) else (path %path%;%~1)
goto :rebuildpath
:UNC
echo Cannot run from UNC path.
echo Map network drive to a drive letter and rerun the installer.
echo You can use pushd/popd commands for temporary mapping.
pause
exit /b 1
:DOS
echo DOS and Windows 9x systems are not supported. Sorry.
echo Windows 2000 or newer is required.
pause
|