287 |
|
|
288 |
set result 0 |
set result 0 |
289 |
for {set i 0} {$i < [llength $pattern]} {incr i} { |
for {set i 0} {$i < [llength $pattern]} {incr i} { |
290 |
|
set regexp 0 |
291 |
|
switch -regexp -- "[lindex ${pattern} $i]" { |
292 |
|
^-re.*$ { set regexp 1; incr i } |
293 |
|
^-- { incr i } |
294 |
|
} |
295 |
|
|
296 |
regsub "\[ \t\]*$" [lindex ${pattern} $i] "" pat |
regsub "\[ \t\]*$" [lindex ${pattern} $i] "" pat |
297 |
verbose "i=$i, pat=$pat" 2 |
verbose "i=$i, pat=$pat" 2 |
298 |
|
|
299 |
if [regexp -- "-re.*$" $pat] { |
if {$regexp} { |
300 |
verbose "REGEX for $pat / [llength $pat] " 3 |
verbose "REGEX for $pat / [llength $pat] " 3 |
301 |
mu_expect $tmt { |
mu_expect $tmt { |
302 |
$pat { } |
-re $pat { } |
303 |
default { |
default { |
304 |
set result 1 |
set result 1 |
305 |
break |
break |
322 |
set result 1 |
set result 1 |
323 |
break |
break |
324 |
} |
} |
|
mu_expect $tmt { |
|
|
-re "\[ \t]*\r\n" { } |
|
|
default { |
|
|
set result 1 |
|
|
break |
|
|
} |
|
|
timeout { |
|
|
set result -2 |
|
|
break |
|
|
} |
|
|
eof { |
|
|
set result -3 |
|
|
break |
|
|
} |
|
|
} |
|
325 |
} |
} |
326 |
default { |
default { |
327 |
set result 1 |
set result 1 |
337 |
} |
} |
338 |
} |
} |
339 |
} |
} |
340 |
|
if {$result == 0} { |
341 |
|
mu_expect $tmt { |
342 |
|
-re "\[ \t]*\r\n" { } |
343 |
|
default { set result 1 } |
344 |
|
timeout { set result -2 } |
345 |
|
eof { set result -3 } |
346 |
|
} |
347 |
|
} |
348 |
} |
} |
349 |
return $result |
return $result |
350 |
} |
} |