github.com/PDP-10.its
1
0
Fork 0
mirror of https://github.com/PDP-10/its.git synced 2026-01-13 15:27:28 +00:00
Code Issues Releases Wiki Activity

More strict matching in Expect script.

Browse Source
This commit is contained in:
Lars Brinkhoff 2016-11-07 08:14:53 +01:00
parent 8b55343114
commit c3566c7853
1 changed files with 5 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
build/build.tcl
View File

@ -2,7 +2,11 @@ proc type s {
sleep .2
foreach c [split $s ""] {
send $c
expect -re .
if [string match {[a-z]} $c] {
expect -nocase $c
} else {
expect "?"
}
}
}