check python

Author: jginternational

kratos.gid/exec/launch.json

@@ -0,0 +1,24 @@
+{
+    "configurations": [
+        {
+            "id": "pip",
+            "name": "Launch via pip",
+            "runtimeExecutable": "python.exe"
+        },
+        {
+            "id": "localpip",
+            "name": "Launch via pip with local packages",
+            "runtimeExecutable": "python.exe"
+        },
+        {
+            "id": "local",
+            "name": "Launch local compiled version",
+            "kratos_path": "E:/Deploy_Kratos",
+            "runtimeExecutable": "python.exe"
+        },
+        {
+            "id": "docker",
+            "image": ""
+        }
+    ]
+}

kratos.gid/scripts/Utils.tcl

@@ -2,7 +2,7 @@
 proc Kratos::Quicktest {example_app example_dim example_cmd} {
     apps::setActiveApp Examples
     ::Examples::LaunchExample $example_app $example_dim $example_cmd
-} 
+}
 
 proc Kratos::ForceRun { } {
     # validated by escolano@cimne.upc.edu
@@ -54,7 +54,7 @@ proc Kratos::CheckValidProjectName {modelname} {
 }
 
 proc Kratos::PrintArray {a {pattern *}} {
-    upvar 1 $a array  
+    upvar 1 $a array
     if {![array exists array]} {
         error "\"$a\" isn't an array"
     }
@@ -88,7 +88,7 @@ proc Kratos::WarnAboutMinimumRecommendedGiDVersion { } {
     if { [GidUtils::VersionCmp $kratos_private(CheckMinimumGiDVersion)] < 0 } {
         W "Warning: kratos interface requires GiD $kratos_private(CheckMinimumGiDVersion) or later."
         if { [GidUtils::VersionCmp 14.0.0] < 0 } {
-            W "If you are still using a GiD version 13.1.7d or later, you can still use most of the features, but think about upgrading to GiD 14." 
+            W "If you are still using a GiD version 13.1.7d or later, you can still use most of the features, but think about upgrading to GiD 14."
         } {
             W "If you are using an official version of GiD 14, we recommend to use the latest developer version"
         }
@@ -97,11 +97,11 @@ proc Kratos::WarnAboutMinimumRecommendedGiDVersion { } {
 }
 
 # Customlib libs and preferences
-proc Kratos::LoadProblemtypeLibraries {} {  
+proc Kratos::LoadProblemtypeLibraries {} {
     package require customlib_extras
     package require customlib_native_groups
     variable kratos_private
-    
+
     gid_groups_conds::SetProgramName $kratos_private(Name)
     gid_groups_conds::SetLibDir [file join $kratos_private(Path) exec]
     set spdfile [file join $kratos_private(Path) kratos_default.spd]
@@ -133,7 +133,7 @@ proc Kratos::GiveKratosDefaultsFile {} {
 proc Kratos::GetPreferencesFilePath { } {
     variable kratos_private
     # Where we store the user preferences :)
-    
+
     # Get the GiD preferences dir
     set dir_name [file dirname [GiveGidDefaultsFile]]
 
@@ -159,7 +159,7 @@ proc Kratos::RegisterEnvironment { } {
                 dict set preferences $v $kratos_private($v)
             }
         }
-        
+
         if {[llength [dict keys $preferences]] > 0} {
             set fp [open [Kratos::GetPreferencesFilePath] w]
             if {[catch {set data [puts $fp [write::tcl2json $preferences]]} ]} {W "Problems saving user prefecences"; W $data}
@@ -190,7 +190,7 @@ proc Kratos::LoadEnvironment { } {
 
     # Init variables
     set data ""
-    
+
     catch {
         # Try to open the preferences file
         set fp [open [Kratos::GetPreferencesFilePath] r]
@@ -199,7 +199,7 @@ proc Kratos::LoadEnvironment { } {
         # W $data
         # Close the file
         close $fp
-        
+
         # Preferences are written in json format
         foreach {k v} [write::json2dict $data] {
             # W "$k $v"
@@ -212,18 +212,18 @@ proc Kratos::LoadEnvironment { } {
 # LOGS
 
 proc Kratos::LogInitialData { } {
-    
+
     # Get the exec version
     Kratos::GetExecVersion
-    Kratos::GetProblemtypeGitTag 
+    Kratos::GetProblemtypeGitTag
 
     set initial_data [dict create]
     dict set initial_data gid_version [GiD_Info gidversion]
     dict set initial_data problemtype_git_hash $Kratos::kratos_private(problemtype_git_hash)
     dict set initial_data problemtype_version $Kratos::kratos_private(Version)
     dict set initial_data executable_version $Kratos::kratos_private(exec_version)
     dict set initial_data current_platform $::tcl_platform(platform)
-    
+
     Kratos::Log [write::tcl2json $initial_data]
 }
 
@@ -280,15 +280,15 @@ proc Kratos::GetProblemtypeGitTag {} {
 proc Kratos::GetMeshBasicData { } {
     set result [dict create]
     foreach element_type [GidUtils::GetElementTypes all] {
-        set ne [GiD_Info Mesh NumElements $element_type]       
+        set ne [GiD_Info Mesh NumElements $element_type]
         if { $ne } {
             dict set result $element_type $ne
         }
     }
-    
-    dict set result nodes [GiD_Info Mesh NumNodes] 
+
+    dict set result nodes [GiD_Info Mesh NumNodes]
     dict set result is_quadratic [expr [GiD_Info Project Quadratic] && ![GiD_Cartesian get iscartesian] ]
-    return $result   
+    return $result
 }
 
 proc ? {question true_val false_val} {
@@ -310,14 +310,32 @@ proc Kratos::OpenCaseIn {program} {
 }
 
 if { ![GidUtils::IsTkDisabled] } {
-    proc xmlprograms::OpenBrowserForDirectory { baseframe variable} {      
+    proc xmlprograms::OpenBrowserForDirectory { baseframe variable} {
         set $variable [MessageBoxGetFilename directory write [_ "Select kratos debug compiled folder (kratos / bin / debug"]]
         return variable
-    }   
+    }
 }
 
 proc Kratos::IsDeveloperMode {} {
     set is_dev 0
     if {[info exists ::Kratos::kratos_private(DevMode)] && $::Kratos::kratos_private(DevMode) eq "dev"} {set is_dev 1}
     return $is_dev
+}
+
+proc Kratos::InstallAllPythonDependencies { } {
+    # Check if python is installed
+    if {[pythonVersion] < 0} {error "Python not installed on this system. Please install python 3"}
+
+    # Check if pip is installed
+
+    # Install pip packages
+}
+
+proc Kratos::pythonVersion {{pythonExecutable "python"}} {
+    # Tricky point: Python 2.7 writes version info to stderr!
+    set info [exec $pythonExecutable --version 2>@1]
+    if {[regexp {^Python ([\d.]+)$} $info --> version]} {
+        return $version
+    }
+    return 0
 }