summaryrefslogtreecommitdiff
path: root/Master/tlpkg/installer/install-tl-windows.cmd
diff options
context:
space:
mode:
Diffstat (limited to 'Master/tlpkg/installer/install-tl-windows.cmd')
-rw-r--r--Master/tlpkg/installer/install-tl-windows.cmd181
1 files changed, 0 insertions, 181 deletions
diff --git a/Master/tlpkg/installer/install-tl-windows.cmd b/Master/tlpkg/installer/install-tl-windows.cmd
deleted file mode 100644
index ca5677d0241..00000000000
--- a/Master/tlpkg/installer/install-tl-windows.cmd
+++ /dev/null
@@ -1,181 +0,0 @@
-@echo off
-rem $Id: install-tl.bat 30369 2018-03-11 13:01:27Z siepo $
-rem Wrapper script to set up environment for installer
-rem
-rem Public domain.
-rem Originally written 2009 by Tomasz M. Trzeciak.
-
-rem Localize environment changes
-setlocal enableextensions enabledelayedexpansion
-
-rem check for version later than vista
-for /f "usebackq tokens=2 delims=[]" %%I in (`ver`) do set ver_str=%%I
-set ver_str=%ver_str:* =%
-rem windows 9x, 2000, xp won't work, vista unsupported but may work
-if %ver_str:~,2% == 4. goto tooold
-if %ver_str:~,2% == 5. goto tooold
-if %ver_str:~,3% == 6.0 (
-echo WARNING: Windows 7 is the earliest supported version.
-echo TeX Live 2018 has not been tested on Windows Vista.
-pause
-)
-
-rem version of external perl, if any
-set extperl=0
-for /f "usebackq tokens=2 delims='" %%a in (`perl -V:version 2^>NUL`) do (
- set extperl=%%a
-)
-
-rem set instroot before %0 gets overwritten during argument processing
-set instroot=%~dp0
-
-rem while this file resides in tlpkg/installer:
-rem alternately remove final backslash and filename part
-rem to arrive at grandparent
-rem retain final backslash
-set instroot=%instroot:~,-1%
-for %%J in (%instroot%) do set instroot=%%~dpJ
-set instroot=%instroot:~,-1%
-for %%J in (%instroot%) do set instroot=%%~dpJ
-
-set notcl=no
-set tcl=yes
-set args=
-goto rebuildargs
-
-rem check for a gui argument
-rem handle it here and do not pass it on to perl or tcl.
-rem cmd.exe converts '=' to a space:
-rem '-parameter=value' becomes '-parameter value': two arguments
-
-rem code block for gui argument
-:dogui
-if x%1 == x (
-set tcl=yes
-goto rebuildargs
-)
-if %1 == text (
-set tcl=no
-shift
-goto rebuildargs
-)
-if %1 == wizard (
-set tcl=yes
-shift
-goto rebuildargs
-)
-if %1 == perltk (
-set tcl=yes
-shift
-goto rebuildargs
-)
-if %1 == expert (
-set tcl=yes
-shift
-goto rebuildargs
-)
-if %1 == tcl (
-set tcl=yes
-shift
-goto rebuildargs
-)
-
-rem loop for argument scanning
-:rebuildargs
-shift
-if x%0 == x goto nomoreargs
-set p=%0
-if %p% == -print-platform set tcl=no
-if %p% == --print-platform set tcl=no
-if %p% == -version set tcl=no
-if %p% == --version set tcl=no
-if %p% == -no-gui (
-set notcl=yes
-goto rebuildargs
-)
-if %p% == --no-gui (
-set notcl=yes
-goto rebuildargs
-)
-if %p% == -gui goto dogui
-if %p% == --gui goto dogui
-
-rem not a gui argument: copy to args string
-if "%args%" == "" (
-set args=%p%
-) else (
-set args=%args% %p%
-)
-goto rebuildargs
-:nomoreargs
-
-set p=
-if %notcl% == yes set tcl=no
-
-rem removed: locale detection via registry; leave to tcl msgcat
-
-rem Check for tex directories on path and remove them.
-rem Need to remove any double quotes from path
-set path=%path:"=%
-rem Break search path into dir list and rebuild w/o tex dirs.
-set path="%path:;=" "%"
-set newpath=
-for /d %%I in (%path%) do (
-set ii=%%I
-set ii=!ii:"=!
-if not exist !ii!\pdftex.exe (
-if not exist !ii!pdftex.exe (
-set newpath=!newpath!;!ii!
-)
-)
-)
-set ii=
-path %newpath%
-if "%path:~,1%"==";" set path=%path:~1%
-rem Use TL Perl
-path=%instroot%tlpkg\tlperl\bin;%path%
-set PERL5LIB=%instroot%tlpkg\tlperl\lib
-rem for now, assume tcl/tk is on path
-
-rem Clean environment from other Perl variables
-set PERL5OPT=
-set PERLIO=
-set PERLIO_DEBUG=
-set PERLLIB=
-set PERL5DB=
-set PERL5DB_THREADED=
-set PERL5SHELL=
-set PERL_ALLOW_NON_IFS_LSP=
-set PERL_DEBUG_MSTATS=
-set PERL_DESTRUCT_LEVEL=
-set PERL_DL_NONLAZY=
-set PERL_ENCODING=
-set PERL_HASH_SEED=
-set PERL_HASH_SEED_DEBUG=
-set PERL_ROOT=
-set PERL_SIGNALS=
-set PERL_UNICODE=
-set errlev=0
-
-rem Start installer
-if %tcl% == yes (
-rem echo wish "%instroot%tlpkg\installer\install-tl-gui.tcl" -- %args%
-rem pause
-wish "%instroot%tlpkg\installer\install-tl-gui.tcl" -- %args%
-) else (
-rem echo perl "%instroot%install-tl" %args% -no-gui
-rem pause
-perl "%instroot%install-tl" %args% -no-gui
-)
-
-rem The nsis installer will need this:
-if errorlevel 1 set errlev=1
-goto eoff
-
-:tooold
-echo TeX Live does not run on this Windows version.
-echo TeX Live is supported on Windows 7 and later.
-goto eoff
-
-:eoff
-endlocal