910970ab |
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 |
944d808c |
5 | rem Optional arguments: IDE OS |
6 | rem IDE can be vc10, vc11, vc12, vc14, cbp, or xcd |
7 | rem OS can be wnt, mac, or lin |
910970ab |
8 | |
9 | SET "OLD_PATH=%PATH%" |
10 | |
72c37458 |
11 | rem run GUI configurator if custom.bat is missing |
12 | if not exist "%~dp0custom.bat" ( |
13 | call %~dp0genconf.bat |
14 | ) |
15 | |
16 | if not exist "%~dp0custom.bat" ( |
17 | echo Error: custom.bat is not present. |
18 | echo Run the script again to generate custom.bat, or create it manually |
19 | goto :eof |
20 | ) |
21 | |
d1a67b9d |
22 | if exist "%~dp0env.bat" ( |
944d808c |
23 | call "%~dp0env.bat" %1 |
d1a67b9d |
24 | ) |
25 | |
72c37458 |
26 | rem find Tcl |
d1a67b9d |
27 | set "TCL_EXEC=tclsh.exe" |
d1a67b9d |
28 | for %%X in (%TCL_EXEC%) do (set TCL_FOUND=%%~$PATH:X) |
29 | |
72c37458 |
30 | set "TCL_EXEC2=tclsh86.exe" |
d1a67b9d |
31 | if not defined TCL_FOUND ( |
72c37458 |
32 | for %%X in (%TCL_EXEC2%) do ( |
33 | set TCL_FOUND=%%~$PATH:X |
34 | set TCL_EXEC=%TCL_EXEC2% |
35 | ) |
d1a67b9d |
36 | ) |
37 | |
72c37458 |
38 | rem fail if Tcl is not found |
39 | if not defined TCL_FOUND ( |
40 | echo Error: "%TCL_EXEC%" is not found. Please update PATH variable ^(use custom.bat^) |
910970ab |
41 | goto :eof |
72c37458 |
42 | ) |
910970ab |
43 | |
44 | cd %~dp0 |
944d808c |
45 | %TCL_EXEC% %~dp0adm/start.tcl genproj %VCVER% %2 %3 %4 %5 |
910970ab |
46 | SET "PATH=%OLD_PATH%" |