Initial commit of OpenSPARC T2 architecture model.

[OpenSPARC-T2-SAM] / sam-t2 / sam / cpus / vonk / n2 / api / sam / src / start.ver

timeout 600 

expect
set build [lindex $argv 0]
set RC [lindex $argv 1]
set ckpt [lindex $argv 2]
end_expect

open SAM "$build/bin/sam -c $RC -R $ckpt" 
log_user SAM 1

pattern SAM "(guest|hyper)\[^\r]* /dev/(\[^\r]*)\r\n"
if { "$expect_out(1,string)" == "guest" } {
    set guest_tty "/dev/$expect_out(2,string)"
} elseif { "$expect_out(1,string)" == "hyper" } {
    set hyper_tty "/dev/$expect_out(2,string)"
} else {
    send_error "Bad tty parse: $expect_out(1,string)\n"
    exit 2
}
exp_continue
end_pattern SAM

set_prompt SAM 'stop: '
wait_prompt SAM
clear SAM patterns 

open HYPER "-noecho /usr/bin/tip $hyper_tty"
log_user HYPER 0
open GUEST "-noecho /usr/bin/tip $guest_tty"
log_user GUEST 0

error HYPER "\[Pp]anic"
error GUEST "\[Pp]anic"