update_oldconfig

#!/usr/bin/expect -f

#enables some diagnostic output
exp_internal 1

# log all interaction to a file to diagnose failures
log_file -a [lindex $argv 0]

# and not stddout
log_user 0

set spawnid [spawn make oldconfig]

#match_max 200

# need to allow for the config tool to be built initially
set timeout 30

expect {
    timeout {
        puts "timeout in update_oldconfig waiting for a prompt we recognize"
        exit 1
    }
    -re "\n *(\[^\n]* \\\[N\/y\/\\?] \\(NEW\\)) " {
         puts "$expect_out(1,string) n"
         send "n\r"
         exp_continue
    }
    -re "\n *(\[^\n]* \\\[N\/m\/y\/\\?] \\(NEW\\)) " {
        puts "$expect_out(1,string) m"
        send "m\r"
        exp_continue
    }
    -re "\n *(\[^\n]* \\\[N\/y\/m\/\\?] \\(NEW\\)) " {
        puts "$expect_out(1,string) m"
        send "m\r"
        exp_continue
    }
    -re "\n *(\[^\n]* \\\[N\/m\/\\?] \\(NEW\\)) " {
        puts "$expect_out(1,string) m"
        send "m\r"
        exp_continue
    }
    -re "\n *(\[^\n]* \\\[Y\/n\/\\?] \\(NEW\\)) " {
        puts "$expect_out(1,string) y"
        send "y\r"
        exp_continue
    }
    -re "\n *(\[^\n]* \\\[\[0-9]*] \\(NEW\\)) " {
        puts "$expect_out(1,string) <cr>"
        send "\r"
        exp_continue
    }
    -re "\n *(\[^\n]* \\\[M\/n\/\\?] \\(NEW\\)) " {
        puts "$expect_out(1,string) m"
        send "m\r"
        exp_continue
    }
    -re "\n *(\[^\n]* \\\[M\/n\/y\/\\?] \\(NEW\\)) " {
        puts "$expect_out(1,string) m"
        send "m\r"
        exp_continue
    }
    -re "\n *(\[^\n]* \\\[Y\/n\/m\/\\?] \\(NEW\\)) " {
        puts "$expect_out(1,string) m"
        send "m\r"
        exp_continue
    }
    -re "\n *(\[^\n]* \\\[Y\/\\?] \\(NEW\\)) " {
        puts "$expect_out(1,string) y"
        send "y\r"
        exp_continue
    }
}