linse/sics
0
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Add a "tclesc[ape]" variant of hlistprop / tcl{,list,esc,escape}

Browse Source 
And use it in gumxml.tcl
This commit is contained in:
Douglas Clowes
2014-07-01 11:22:42 +10:00
parent 4f397350cb
commit 132af9d225
2 changed files with 7 additions and 4 deletions
Download Patch File Download Diff File Expand all files Collapse all files

4
site_ansto/instrument/gumxml.tcl
View File

@@ -51,7 +51,7 @@ proc make_nodes {path result indent} {
set prefix [string repeat " " $indent]
set newIndent [expr $indent + 2]
set control "true"
foreach {key rvalue} [string map {= " "} [hlistprop $path tcl]] {
foreach {key rvalue} [string map {= " "} [hlistprop $path tclescape]] {
set value [encode $rvalue]
if {[string compare -nocase $key "control"] == 0} {
if {[string compare -nocase $value "false"] == 0} {
@@ -82,7 +82,7 @@ proc make_nodes {path result indent} {
proc property_elements {path indent} {
set prefix [string repeat " " $indent]
foreach {key rvalue} [string map {= " "} [hlistprop $path tcl]] {
foreach {key rvalue} [string map {= " "} [hlistprop $path tclescape]] {
set value [encode $rvalue]
if {[string compare -nocase $key "control"] == 0} {continue}
lappend proplist "$prefix<property id=\"$key\">\n"