Lines Matching refs:bits
392 proc ::ip::Mask4 {ip {bits {}}} {
393 if {[string length $bits] < 1} { set bits 32 }
395 if {[string is integer $bits]} {
396 set mask [expr {(0xFFFFFFFF << (32 - $bits)) & 0xFFFFFFFF}]
398 binary scan [Normalize4 $bits] I mask
403 proc ::ip::Mask6 {ip {bits {}}} {
404 if {[string length $bits] < 1} { set bits 128 }
405 if {[string is integer $bits]} {
406 set mask [binary format B128 [string repeat 1 $bits]]
408 binary scan [Normalize6 $bits] I4 mask
424 # (all bits significant).
425 # Masks may be either integer number of significant bits or dotted-quad
434 set bits [string range $spec $slash end]
438 set bits 128
440 set bits 32
443 return [list $ip $bits]