github.com/PDP-10.its
1
0
Fork 0
mirror of https://github.com/PDP-10/its.git synced 2026-04-25 20:01:40 +00:00
Code Issues Releases Wiki Activity

Replace expect + type in build scripts with respond.

Browse Source
This commit is contained in:
Lars Brinkhoff
2018-09-10 10:13:18 +02:00
parent 7784451ad3
commit dc1f235e59
4 changed files with 12 additions and 17 deletions
Download Patch File Download Diff File Expand all files Collapse all files

8
build/ka10/include.tcl
View File

@@ -98,8 +98,8 @@ proc dump_nits {} {
# Since we bootstrap with a 2-pack ITS, we need to copy the MFD to
# the fresh packs.
expect "\n"; type "t\033salv\r"
expect "\n"; type "ucop\033g"
respond "\n" "t\033salv\r"
respond "\n" "ucop\033g"
respond "UNIT #" "0"
respond "UNIT #" "2"
respond "OK?" "Y"
@@ -111,9 +111,9 @@ proc dump_nits {} {
# Now dump the new ITS.
respond "DSKDMP" "t\033its bin\r"
expect "\n"; type "\033u"
respond "\n" "\033u"
respond "DSKDMP" "m\033@ salv\r"
expect "\n"; type "d\033nits\r"
respond "\n" "d\033nits\r"
}
proc magdmp_switches {} {