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