Lines Matching refs:val
118 set val [lrange $arglist [expr {$i+1}] \
123 ![validate $types($akey) $val])} {
127 set data($akey) $val
161 foreach {key val} $arglist {
176 ![validate $types($akey) $val]} {
180 set data($akey) $val
648 # val - The value to be validated
698 set val [lindex $args 1]
701 set slen [string length $val]
724 echo $regform $format $val
725 set result [string match $regform $val]
731 set fvar $val[string range $format $i end]
739 set bvar $val
773 # val - The value to be validated
800 set val [lindex $args 1]
806 return [regexp -nocase "^\[a-z\]$opt\$" $val]
809 return [regexp -nocase "^\[a-z0-9\]$opt\$" $val]
812 return [regexp "^\[01\]$opt\$" $val]
815 return [expr {![catch {clock scan $val}]}]
818 return [regexp -nocase "^(0x)?\[0-9a-f\]$opt\$" $val]
821 return [regexp "^\[-+\]?\[0-9\]$opt\$" $val]
824 return [regexp "^\[0-9\]$opt\$" $val]
829 :{^[-+]?[0-9]*\.?[0-9]*([0-9]\.?e[-+]?[0-9]*)?$}}] $val]
832 return [expr {![catch {regexp $val {}}]}]
834 val* { # value
835 return [expr {![catch {expr {1*$val}}]}]
838 return [expr {![catch {llength $val}]}]
841 return [winfo exists $val]
868 ;proc ensure_default {val array idx op} {
872 set var($idx) $val
875 set var $val