comp.lang.tcl archive
Re: Handling pathological lists
From: David Zolli <kroc@kroc.tk>
Date: Fri Oct 28 2005 - 17:11:01 CEST
Date: Fri Oct 28 2005 - 17:11:01 CEST
Try something like that:
proc safellength {list} {
if {[info complete "llength $list"]} {
return [llength $list]
} elseif {[info complete "llength $list\}"]} {
return [llength $list\}]
} elseif {[info complete "llength $list\""]} {
return [llength $list\"]
} else {
return "error"
}
}
-- David Zolli - Kroc http://www.kroc.tkReceived on Mon Nov 21 00:36:42 2005