0029940: The method TPrsStd_AISPresentation::SetSelectionMode() seems useless for...

[occt.git] / gendoc.bat

diff --git a/gendoc.bat b/gendoc.bat
index 0bce76c..0fc61a4 100644 (file)
--- a/gendoc.bat
+++ b/gendoc.bat
@@ -10,5 +10,14 @@ if exist "%~dp0env.bat" (
   call "%~dp0env.bat"
 )
 
-tclsh.exe %~dp0adm/start.tcl  %*
+set "TCL_EXEC=tclsh.exe"
+
+for %%X in (%TCL_EXEC%) do (set TCL_FOUND=%%~$PATH:X)
+
+if defined TCL_FOUND (
+  %TCL_EXEC% %~dp0adm/start.tcl gendoc %*
+) else (
+  echo "Error. %TCL_EXEC% is not found. Please update PATH variable"
+)
+
 SET "PATH=%OLD_PATH%"