load launch mode by default

Author: jginternational

kratos.gid/kratos.tcl

@@ -110,6 +110,9 @@ proc Kratos::Event_InitProblemtype { dir } {
     # Load the Kratos problemtype global and user environment (stored preferences)
     Kratos::LoadEnvironment
 
+    # Load launch modes
+    Kratos::LoadLaunchModes
+
     # Customize GiD menus to add the Kratos entry
     Kratos::UpdateMenus
 

kratos.gid/scripts/Utils.tcl

@@ -338,4 +338,24 @@ proc Kratos::pythonVersion {{pythonExecutable "python"}} {
         return $version
     }
     return 0
+}
+
+
+proc Kratos::GetLaunchConfigurationFile { } {
+    set new_dir [file join $::env(HOME) .kratos_multiphysics]
+    set file [file join $new_dir launch_configuration.json]
+    return [list $new_dir $file]
+}
+
+proc Kratos::LoadLaunchModes { } {
+    # Get location of launch config script
+    lassign [Kratos::GetLaunchConfigurationFile] new_dir file
+
+    # If it does not exist, copy it from exec
+    if {[file exists $new_dir] == 0} {file mkdir $new_dir}
+    if {[file exists $file] == 0} {
+        ::GidUtils::SetWarnLine "Loading launch mode"
+        set source [file join $::Kratos::kratos_private(Path) exec launch.json]
+        file copy -force $source $file
+    }
 }