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

Use exact pattern matching in build script.

Browse Source
This commit is contained in:
Lars Brinkhoff 2016-11-04 15:24:56 +01:00
parent b3773203bf
commit 99ff6de1d0
1 changed files with 4 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
build/build.tcl
View File

@ -12,7 +12,7 @@ proc type s {
}
proc respond { w r } {
expect $w
expect -exact $w
type $r
}
@ -42,6 +42,7 @@ proc maybe_pdset {} {
} "IT IS NOW" {
type "\032"
expect "Fair"
type ":vk\r"
}
}
@ -63,7 +64,7 @@ start_nsalv
respond "\n" "mark\033g"
respond "Format pack on unit #" "0"
respond "Are you sure you want to format pack on drive" "y"
respond "Pack no?" "0\r"
respond "Pack no ?" "0\r"
respond "Verify pack?" "n"
respond "Alloc?" "3000\r"
respond "ID?" "foobar\r"
@ -124,6 +125,7 @@ respond "_" "quit\r"
expect ":KILL"
respond "*" ":print sysbin;..new. (udir)\r"
type ":vk\r"
respond "*" ":midas sysbin;_midas;midas\r"
expect ":KILL"
respond "*" ":job midas\r"