0027737: Remove hardcoded paths to data folders in mfc samples

[occt.git] / genproj.bat

diff --git a/genproj.bat b/genproj.bat
index 0610af6..aa4296a 100644 (file)
--- a/genproj.bat
+++ b/genproj.bat
@@ -2,35 +2,45 @@
 
 rem Helper script to run generation of VS projects on Windows.
 rem Running it requires that Tcl should be in the PATH
+rem Optional arguments: IDE OS
+rem IDE can be vc10, vc11, vc12, vc14, cbp, or xcd
+rem OS can be wnt, mac, or lin
 
 SET "OLD_PATH=%PATH%"
 
+rem run GUI configurator if custom.bat is missing
+if not exist "%~dp0custom.bat" (
+  call %~dp0genconf.bat
+)
+
+if not exist "%~dp0custom.bat" (
+  echo Error: custom.bat is not present.
+  echo Run the script again to generate custom.bat, or create it manually
+  goto :eof
+)
+
 if exist "%~dp0env.bat" (
-  call "%~dp0env.bat"
+  call "%~dp0env.bat" %1
 )
 
+rem  find Tcl
 set "TCL_EXEC=tclsh.exe"
-
 for %%X in (%TCL_EXEC%) do (set TCL_FOUND=%%~$PATH:X)
 
+set "TCL_EXEC2=tclsh86.exe"
 if not defined TCL_FOUND (
-  echo "Error. %TCL_EXEC% is not found. Please update PATH variable"
-  goto :eof
+  for %%X in (%TCL_EXEC2%) do (
+    set TCL_FOUND=%%~$PATH:X
+    set TCL_EXEC=%TCL_EXEC2%
+  )
 )
 
-if not exist "%~dp0custom.bat" (
-  %TCL_EXEC% %~dp0adm/genconf.tcl
-)
-
-if not exist "%~dp0custom.bat" (
-  echo custom.bat is not created. Run the script again or create custom.bat manually
+rem fail if Tcl is not found
+if not defined TCL_FOUND (
+  echo Error: "%TCL_EXEC%" is not found. Please update PATH variable ^(use custom.bat^)
   goto :eof
-)
-
-if exist "%~dp0env.bat" (
-  call "%~dp0env.bat"
-)
+) 
 
 cd %~dp0
-%TCL_EXEC% %~dp0adm/start.tcl genproj -path=. -target=%VCVER%
+%TCL_EXEC% %~dp0adm/start.tcl genproj %VCVER% %2 %3 %4 %5
 SET "PATH=%OLD_PATH%"