bring back the null and dictnull

KratosMultiphysics · Feb 9, 2022 · 207d242 · 207d242
1 parent c3146f8
commit 207d242
Showing 1 changed file with 5 additions and 0 deletions.
diff --git a/kratos.gid/scripts/Writing/WriteProjectParameters.tcl b/kratos.gid/scripts/Writing/WriteProjectParameters.tcl
@@ -23,6 +23,11 @@ proc write::tcl2json { value } {
     #if {$type ne "dict" && [llength $value]>1 && [string index $value 0] eq "\{"} { W "$value as list"; set type list}
     #if {$type eq "exprcode"} {set type list; W "$type -> $value"}
     switch $type {
+        string {
+            if {$value eq "null"} {return null}
+            if {$value eq "dictnull"} {return {{}}}
+            return [json::write string $value]
+        }
         dict {
             return [json::write object {*}[
                     dict map {k v} $value {tcl2json $v}]]