[occt.git] / upgrade.bat

@echo off

rem Helper script to run procedure of automatic upgrade of application code
rem on newer version of OCCT on Windows.
rem Running it requires that Tcl should be in the PATH

SET "OLD_PATH=%PATH%"

if exist "%~dp0env.bat" (
  call "%~dp0env.bat"
)

set "TCL_EXEC=tclsh.exe"

for %%X in (%TCL_EXEC%) do (set TCL_FOUND=%%~$PATH:X)

if defined TCL_FOUND (
  %TCL_EXEC% %~dp0adm/start.tcl upgrade %*
) else (
  echo "Error. %TCL_EXEC% is not found. Please update PATH variable"
)

SET "PATH=%OLD_PATH%"
Commit	Line	Data
d1a67b9d	1	@echo off
	2
	3	rem Helper script to run procedure of automatic upgrade of application code
	4	rem on newer version of OCCT on Windows.
	5	rem Running it requires that Tcl should be in the PATH
	6
	7	SET "OLD_PATH=%PATH%"
	8
	9	if exist "%~dp0env.bat" (
	10	call "%~dp0env.bat"
	11	)
	12
	13	set "TCL_EXEC=tclsh.exe"
	14
	15	for %%X in (%TCL_EXEC%) do (set TCL_FOUND=%%~$PATH:X)
	16
	17	if defined TCL_FOUND (
	18	%TCL_EXEC% %~dp0adm/start.tcl upgrade %*
	19	) else (
	20	echo "Error. %TCL_EXEC% is not found. Please update PATH variable"
	21	)
	22
	23	SET "PATH=%OLD_PATH%"