dependency check

Author: jginternational

kratos.gid/kratos.tcl

@@ -516,7 +516,7 @@ proc Kratos::Event_BeforeRunCalculation { batfilename basename dir problemtypedi
     }
     set app_run_brake [apps::ExecuteOnCurrentApp BreakRunCalculation]
     if {[write::isBooleanTrue $app_run_brake]} {return "-cancel-"}
-    Kratos::CheckDependencies
+    if {[Kratos::CheckDependencies] ne 0} {return [list "-cancel-" "Unable to run. Missing dependencies"]}
 
 }
 

kratos.gid/scripts/Launch.tcl

@@ -45,8 +45,8 @@ proc Kratos::GetPythonExeName { } {
 proc Kratos::GetDefaultPythonPath { } {
     set pat ""
     catch {
-    set py [Kratos::GetPythonExeName]
-    set pat [exec $py -c "import sys; print(sys.executable)"  2>@1]
+        set py [Kratos::GetPythonExeName]
+        set pat [exec $py -c "import sys; print(sys.executable)"  2>@1]
     }
     return $pat
 }
@@ -97,51 +97,57 @@ proc Kratos::GetMissingPipPackages { } {
 
 proc Kratos::CheckDependencies { } {
     set curr_mode [Kratos::GetLaunchMode]
-    # W $curr_mode
+    set ret 0
+
     if {[dict exists $curr_mode dependency_check]} {
         set deps [dict get $curr_mode dependency_check]
-        $deps
+        set ret [$deps]
     }
+    ShowErrorsAndActions $ret
+    return $ret
 }
 
-proc Kratos::CheckDependenciesPipMode {} {
+proc Kratos::ShowErrorsAndActions {errs} {
     if { [GidUtils::IsTkDisabled] } {
         return 0
     }
-    set py [Kratos::GetPythonExeName]
-    set py_version [Kratos::pythonVersion $py]
-    if {$py_version <= 0} {
-        set msgBox_type yesno
-        #  -do_not_ask_again 1 -do_not_ask_again_key "kratos_install_python"
-        set reply [tk_messageBox -icon warning -type $msgBox_type -parent .gid \
-                -message "Python 3 not installed on this system. Do you want Kratos to install it?" \
-                -title [_ "Missing python"]]
-        if {[string equal $reply "yes"]} {
-            Kratos::InstallAllPythonDependencies
+    switch $errs {
+        "MISSING_PYTHON" {
+            W "Python 3 is not installed on this system. Please install it before run the case."
+        }
+        "MISSING_PIP" {
+            W "Pip is not installed on your system. Please install it."
+        }
+        "MISSING_PIP_PACKAGES" {
+            W "Run the following command on a terminal:\npip install --upgrade --force-reinstall --no-cache-dir KratosMultiphysics-all"
+        }
+        "DOCKER_NOT_FOUND" {
+            W "Could not start docker. Please check if the Docker service is enabled."
         }
-        if {[string equal $reply "cancel"]} {
+        "EXE_NOT_FOUND" {
 
         }
     }
-    set pip_version [Kratos::pipVersion]
-    if {$pip_version <= 0} {
-        WarnWin "pip is not installed on your system. Please install it."
-    } else {
-        set missing_packages [Kratos::GetMissingPipPackages]
-        if {[llength $missing_packages] > 0} {
-            set msgBox_type yesno
-            #  -do_not_ask_again 1 -do_not_ask_again_key "kratos_install_python"
-            set reply [tk_messageBox -icon warning -type $msgBox_type -parent .gid \
-                    -message "Python $py_version is installed, but there are some missing packages. Do you want Kratos to install them? \n\nPackages to be installed: \n$missing_packages" \
-                    -title [_ "Missing python packages"]]
-            if {[string equal $reply "yes"]} {
-                Kratos::InstallAllPythonDependencies
-            }
-            if {[string equal $reply "cancel"]} {
+}
 
+proc Kratos::CheckDependenciesPipMode {} {
+    set ret 0
+    set py [Kratos::GetPythonExeName]
+    set py_version [Kratos::pythonVersion $py]
+    if {$py_version <= 0} {
+        set ret "MISSING_PYTHON"
+    } else {
+        set pip_version [Kratos::pipVersion]
+        if {$pip_version <= 0} {
+            set ret "MISSING_PIP"
+        } else {
+            set missing_packages [Kratos::GetMissingPipPackages]
+            if {[llength $missing_packages] > 0} {
+                set ret "MISSING_PIP_PACKAGES"
             }
         }
     }
+    return $ret
 }
 proc Kratos::CheckDependenciesLocalPipMode {} {
 
@@ -150,7 +156,14 @@ proc Kratos::CheckDependenciesLocalMode {} {
 
 }
 proc Kratos::CheckDependenciesDockerMode {} {
-
+    set ret 0
+    try {
+        exec docker ps
+    } on error {msg} {
+        W $msg
+        set ret "DOCKER_NOT_FOUND"
+    }
+    return $ret
 }
 
 proc Kratos::GetLaunchConfigurationFile { } {