#!/usr/bin/env expect

set timeout 3600

set core 0
set wordsperline 1

if {$::argc > 1} {
    set core [lindex $::argv 0]
    set wordsperline [lindex $::argv 1]
} elseif {$::argc > 0} {
    set core [lindex $::argv 0]
}

spawn tool/connect

set atline "@[format %x [expr $core * 32768 / $wordsperline]]"
send "$atline\n"
expect -ex "$atline\r\n"

while {[gets stdin line] >= 0} {
    send "$line\n"
    expect -ex "$line\r\n"
}

# It's likely we ended with a very large zero-memory operation. We want to see
# two command bytes echoed back to us in order to guarantee that the zero
# operation has completely flushed to memory.
send "?"
expect -ex "?"
send "?"
expect -ex "?"

send "\n~."
wait