Load the configurations

Author: jginternational

kratos.gid/kratos.tcl

@@ -107,12 +107,12 @@ proc Kratos::Event_InitProblemtype { dir } {
     # Problemtype libraries as CustomLib
     Kratos::LoadProblemtypeLibraries
 
-    # Load the Kratos problemtype global and user environment (stored preferences)
-    Kratos::LoadEnvironment
-
     # Load launch modes
     Kratos::LoadLaunchModes
 
+    # Load the Kratos problemtype global and user environment (stored preferences)
+    Kratos::LoadEnvironment
+
     # Customize GiD menus to add the Kratos entry
     Kratos::UpdateMenus
 
@@ -158,7 +158,8 @@ proc Kratos::InitGlobalVariables {dir} {
     # Place were the logs will be placed
     set Kratos::kratos_private(model_log_folder) ""
     # Check exec/launch.json
-    set Kratos::kratos_private(launch_configuration) "local"
+    set Kratos::kratos_private(configurations) [list ]
+    set Kratos::kratos_private(launch_configuration) ""
 
     # Variable to store the Kratos menu items
     set kratos_private(MenuItems) [dict create]

kratos.gid/scripts/Utils.tcl

@@ -340,7 +340,6 @@ proc Kratos::pythonVersion {{pythonExecutable "python"}} {
     return 0
 }
 
-
 proc Kratos::GetLaunchConfigurationFile { } {
     set new_dir [file join $::env(HOME) .kratos_multiphysics]
     set file [file join $new_dir launch_configuration.json]
@@ -358,4 +357,14 @@ proc Kratos::LoadLaunchModes { } {
         set source [file join $::Kratos::kratos_private(Path) exec launch.json]
         file copy -force $source $file
     }
+
+    # Load configurations
+    Kratos::LoadConfigurationFile $file
+}
+
+proc Kratos::LoadConfigurationFile {config_file} {
+    if {[file exists $config_file] == 0} { error "Configuration file not found: $config_file" }
+
+    set dic [Kratos::ReadJsonDict $config_file]
+    set ::Kratos::kratos_private(configurations) [dict get $dic configurations]
 }