0027253: Boolean cut produces invalid result shape
[occt.git] / genconf.bat
CommitLineData
72c37458 1@echo off
2
3rem Helper script to configure environment for building with genproj tool.
4rem Running it requires that Tcl should be in the PATH
5
6SET "OLD_PATH=%PATH%"
7
8rem create env.bat if it does not exist yet
9if exist "%~dp0env.bat" (
10 call "%~dp0env.bat"
11) else (
12 type "%~dp0adm\templates\env.bat" | findstr /i /v "__CASROOT__" > "%~dp0env.bat"
13)
14
15rem find Tcl
16set "TCL_EXEC=tclsh.exe"
17for %%X in (%TCL_EXEC%) do (set TCL_FOUND=%%~$PATH:X)
18
19set "TCL_EXEC2=tclsh86.exe"
20if not defined TCL_FOUND (
21 for %%X in (%TCL_EXEC2%) do (
22 set TCL_FOUND=%%~$PATH:X
23 set TCL_EXEC=%TCL_EXEC2%
24 )
25)
26
27rem Prompt the user to specify location of Tcl if not found in PATH
28if not defined TCL_FOUND (
29 set /P TCL_PATH=This script requires Tcl, but tclsh.exe cannot be found in PATH.^
30
31Please enter path to folder containing tclsh.exe^
32
33^:
34 rem NOTE: KEEP LINE AFTER "set" ABOVE EMPTY !
35)
36
37if exist %TCL_PATH%\tclsh.exe (
38 set "TCL_FOUND=%TCL_PATH%\tclsh.exe"
39) else if exist %TCL_PATH%\tclsh86.exe (
40 set "TCL_FOUND=%TCL_PATH%\tclsh86.exe"
41) else (
42 set "TCL_EXEC=%TCL_PATH%\tclsh.exe"
43)
44
45rem Initialize custom.bat if it does not exist yet
46rem if not exist %%dp0custom.bat (
47rem echo set "PATH=%%PATH%%;%TCL_PATH%" >%~dp0custom.bat
48rem )
49
50rem fail if Tcl is not found
51if not defined TCL_FOUND (
52 echo Error: "%TCL_EXEC%" is not found. Please update PATH variable ^(use custom.bat^)
53 goto :eof
54)
55
56:: run GUI tool
57%TCL_FOUND% %~dp0adm/genconf.tcl
58
59SET "PATH=%OLD_PATH%"