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

Remove obsolete hlistplainprop procedure.

Browse Source 
r2861 | ffr | 2010-01-13 16:12:16 +1100 (Wed, 13 Jan 2010) | 2 lines
This commit is contained in:
Ferdi Franceschini
2010-01-13 16:12:16 +11:00
committed by Douglas Clowes
parent fd6a955d6b
commit 7970a94acf
2 changed files with 1 additions and 9 deletions
Download Patch File Download Diff File Expand all files Collapse all files

2
site_ansto/instrument/util/check/query_sics.tcl
View File

@@ -77,7 +77,7 @@ proc _query_nameval {query nameval_list} {
} }
proc query_propval {hp query} { proc query_propval {hp query} {
return [ query_nameval $query [::utility::hlistplainprop $hp] ] return [ query_nameval $query [hlistprop $hp tcllist] ]
} }
proc query_attval {sobj query} { proc query_attval {sobj query} {
return [ query_nameval $query [attlist $sobj] ] return [ query_nameval $query [attlist $sobj] ]

8
site_ansto/instrument/util/utility.tcl
View File

@@ -530,14 +530,6 @@ proc ::utility::hgetplainprop {hpath prop} {
} }
return $propStr return $propStr
} }
proc ::utility::hlistplainprop {hpath} {
if [ catch {
set propStr [string trim [join [split [string map {" " _} [regsub {[^
]*= *
} [hlistprop $hpath] {} ]] =] ]]
} message ] {
return -code error "([info level 0]) $message"
}
proc ::utility::GetUID {userName} { proc ::utility::GetUID {userName} {
if [ catch { if [ catch {