0027737: Remove hardcoded paths to data folders in mfc samples
[occt.git] / upgrade.bat
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%"