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%" |