add problemtype version and mesh data

Author: jginternational

kratos.gid/kratos.tcl

@@ -142,6 +142,12 @@ proc Kratos::InitGlobalVariables {dir} {
     set kratos_private(echo_level) 0
     # indent in mdpa files  | 0 ASCII unindented | 1 ASCII indented pretty
     set kratos_private(mdpa_format) 1
+    # Version of the kratos executable
+    set kratos_private(exec_version) "dev"
+    # Allow logs -> 0 No | 1 Only local | 2 Share with dev team
+    set Kratos::kratos_private(allow_logs) 1
+    # git hash of the problemtype
+    set Kratos::kratos_private(problemtype_git_hash) 0    
 
     # Variable to store the Kratos menu items
     set kratos_private(MenuItems) [dict create]
@@ -157,10 +163,6 @@ proc Kratos::InitGlobalVariables {dir} {
     set kratos_private(ProjectIsNew) 1
     # Variables from the problemtype definition (kratos.xml)
     array set kratos_private [ReadProblemtypeXml [file join $kratos_private(Path) kratos.xml] Infoproblemtype {Name Version CheckMinimumGiDVersion}]
-    # Version of the kratos executable
-    set kratos_private(exec_version) "dev"
-    # Allow logs -> 0 No | 1 Only local | 2 Share with dev team
-    set Kratos::kratos_private(allow_logs) 1
 }
 
 proc Kratos::LoadCommonScripts { } {
@@ -400,6 +402,8 @@ proc Kratos::Event_AfterMeshGeneration {fail} {
     set endtime [clock seconds]
     set ttime [expr {$endtime-$tmp_init_mesh_time}]
     Kratos::Log "Mesh end process in [Duration $ttime]"
+    set mesh_data [Kratos::GetMeshBasicData]
+    Kratos::Log "Mesh data -> [write::tcl2json $mesh_data]"
 }
 
 proc Kratos::Event_AfterRenameGroup { oldname newname } {

kratos.gid/scripts/Utils.tcl

@@ -193,18 +193,22 @@ proc Kratos::LogInitialData { } {
 
     # Get the exec version
     Kratos::GetExecVersion
+    Kratos::GetProblemtypeGitTag 
 
     set initial_data [dict create]
     dict set initial_data GiD_version [GiD_Info gidversion]
-    dict set initial_data problemtype_git_hash "68418871cff2b897f7fb9176827871b339fe5f91"
+    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)
+    dict set initial_data gid_version [GiD_Info gidversion]
 
     Kratos::Log [write::tcl2json $initial_data]
 }
 
 
 proc Kratos::Duration { int_time } {
+    if {$int_time == 0} {return "0 sec"}
     set timeList [list]
     foreach div {86400 3600 60 1} mod {0 24 60 60} name {day hr min sec} {
         set n [expr {$int_time / $div}]
@@ -237,4 +241,31 @@ proc Kratos::GetExecVersion {} {
             }
         }
     }
+}
+proc Kratos::GetProblemtypeGitTag {} {
+    catch {
+        variable kratos_private
+        set tmp_filename [GidUtils::GetTmpFilename]
+        set result [exec git -C $kratos_private(Path) log --format="%H" -n 1 >> $tmp_filename]
+        set fp [open $tmp_filename r]
+        set file_data [read $fp]
+        close $fp
+        file delete $tmp_filename
+        set data [split $file_data "\n"]
+        set kratos_private(problemtype_git_hash) [string trim [string trim [lindex $data 0]] "\""]
+    }
+}
+
+proc Kratos::GetMeshBasicData { } {
+    set result [dict create]
+    foreach element_type [GidUtils::GetElementTypes all] {
+        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 is_quadratic [expr [GiD_Info Project Quadratic] && ![GiD_Cartesian get iscartesian] ]
+    return $result   
 }

kratos.gid/scripts/Writing/Writing.tcl

@@ -115,7 +115,7 @@ proc write::writeEvent { filename } {
 
     #### MDPA Write ####
     if {$errcode eq 0} {
-        Kratos::Log "Write app MDPA $appid"
+        Kratos::Log "Write MDPA $appid"
         set errcode [writeAppMDPA $appid]
     }
     #### Project Parameters Write ####