genproj.bat

   1 @echo off
   2
   3 rem Helper script to run generation of VS projects on Windows.
   4 rem Running it requires that Tcl should be in the PATH
   5
   6 SET "OLD_PATH=%PATH%"
   7
   8 if exist "%~dp0env.bat" (
   9   call "%~dp0env.bat"
  10 )
  11
  12 set "TCL_EXEC=tclsh.exe"
  13
  14 for %%X in (%TCL_EXEC%) do (set TCL_FOUND=%%~$PATH:X)
  15
  16 if not defined TCL_FOUND (
  17   echo "Error. %TCL_EXEC% is not found. Please update PATH variable"
  18   goto :eof
  19 )
  20
  21 if not exist "%~dp0custom.bat" (
  22   %TCL_EXEC% %~dp0adm/genconf.tcl
  23 )
  24
  25 if not exist "%~dp0custom.bat" (
  26   echo custom.bat is not created. Run the script again or create custom.bat manually
  27   goto :eof
  28 )
  29
  30 if exist "%~dp0env.bat" (
  31   call "%~dp0env.bat"
  32 )
  33
  34 cd %~dp0
  35 %TCL_EXEC% %~dp0adm/start.tcl genproj -path=. -target=%VCVER%
  36 SET "PATH=%OLD_PATH%"