3 #enables some diagnostic output
6 # log all interaction to a file to diagnose failures
7 log_file -a [lindex $argv 0]
12 set spawnid [spawn make oldconfig]
16 # need to allow for the config tool to be built initially
21 puts "timeout in update_oldconfig waiting for a prompt we recognize"
24 -re "\n *(\[^\n]* \\\[N\/y\/\\?] \\(NEW\\)) " {
25 puts "$expect_out(1,string) n"
29 -re "\n *(\[^\n]* \\\[N\/m\/y\/\\?] \\(NEW\\)) " {
30 puts "$expect_out(1,string) m"
34 -re "\n *(\[^\n]* \\\[N\/y\/m\/\\?] \\(NEW\\)) " {
35 puts "$expect_out(1,string) m"
39 -re "\n *(\[^\n]* \\\[N\/m\/\\?] \\(NEW\\)) " {
40 puts "$expect_out(1,string) m"
44 -re "\n *(\[^\n]* \\\[Y\/n\/\\?] \\(NEW\\)) " {
45 puts "$expect_out(1,string) y"
49 -re "\n *(\[^\n]* \\\[\[0-9]*] \\(NEW\\)) " {
50 puts "$expect_out(1,string) <cr>"
54 -re "\n *(\[^\n]* \\\[M\/n\/\\?] \\(NEW\\)) " {
55 puts "$expect_out(1,string) m"
59 -re "\n *(\[^\n]* \\\[M\/n\/y\/\\?] \\(NEW\\)) " {
60 puts "$expect_out(1,string) m"
64 -re "\n *(\[^\n]* \\\[Y\/n\/m\/\\?] \\(NEW\\)) " {
65 puts "$expect_out(1,string) m"
69 -re "\n *(\[^\n]* \\\[Y\/\\?] \\(NEW\\)) " {
70 puts "$expect_out(1,string) y"