mirror of
https://github.com/PDP-10/its.git
synced 2026-04-18 09:06:23 +00:00
8b8e1cf952
Doing expect_after before a child process has been spawned causes Expect to try reading from stdin. If stdin is /dev/null, it gets an EOF from the read, assumes it's been closed... and closes stdout too, so we don't see any more of the child process interaction.
61 lines
1.1 KiB
Tcl
61 lines
1.1 KiB
Tcl
set build [pwd]/build
|
|
set out "out/$env(EMULATOR)"
|
|
cd build/klh10
|
|
|
|
set emulator_prompt "KLH10"
|
|
set emulator_escape "\034"
|
|
|
|
proc start_salv {} {
|
|
uplevel #0 {spawn ./kn10-ks-its nsalv.ini}
|
|
setup_timeout
|
|
expect "EOF"
|
|
respond "KLH10#" "go\r"
|
|
}
|
|
|
|
proc restart_nsalv {} {
|
|
quit_emulator
|
|
start_salv
|
|
}
|
|
|
|
proc start_dskdmp {} {
|
|
#respond "KLH10>" "zero\r"
|
|
quit_emulator
|
|
uplevel #0 {spawn ./kn10-ks-its dskdmp.ini}
|
|
setup_timeout
|
|
expect "EOF"
|
|
respond "KLH10#" "go\r"
|
|
}
|
|
|
|
proc start_its {} {
|
|
uplevel #0 {spawn ./kn10-ks-its dskdmp.ini}
|
|
setup_timeout
|
|
expect "EOF"
|
|
respond "KLH10#" "go\r"
|
|
}
|
|
|
|
proc mount_tape {file} {
|
|
respond "KLH10>" "devmo mta0 ../../$file\r"
|
|
respond "KLH10>" "c\r"
|
|
}
|
|
|
|
proc create_tape {file} {
|
|
respond "KLH10>" "devmo mta0 ../../$file create\r"
|
|
respond "KLH10>" "c\r"
|
|
}
|
|
|
|
proc quit_emulator {} {
|
|
respond "KLH10>" "quit\r"
|
|
respond "Confirm" "y\r"
|
|
}
|
|
|
|
proc initialize_comsat {} {
|
|
respond "*" ":job comsat\r"
|
|
respond "*" ":load .mail.;comsat launch\r"
|
|
respond "*" "debug/-1\r"
|
|
type "mfinit\033g"
|
|
respond "*" ":kill\r"
|
|
}
|
|
|
|
source ../ks10/include.tcl
|
|
source ../build.tcl
|