github.com/PDP-10.its
1
0
Fork 0
mirror of https://github.com/PDP-10/its.git synced 2026-02-26 08:53:29 +00:00
Code Issues Releases Wiki Activity

Improve the TCL "type" procedure.

Browse Source 
It will now also match typed uppercase characters and digits against
the echoed output.
This commit is contained in:
Lars Brinkhoff
2018-04-26 21:11:47 +02:00
parent 837cb6343d
commit 609485756e
1 changed files with 1 additions and 1 deletions
Download Patch File Download Diff File Expand all files Collapse all files

2
build/build.tcl
View File

@@ -14,7 +14,7 @@ proc type s {
sleep .1
foreach c [split $s ""] {
send -- $c
if [string match {[a-z]} $c] {
if [string match {[a-zA-Z0-9]} $c] {
expect -nocase $c
} else {
expect "?"