Initial commit of OpenSPARC T2 architecture model.

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

include "start.ver"

timeout -1 

expect
set switchmachine [lindex $argv 3]
set serverport  [lindex $argv 4]
set serverip  [lindex $argv 5]
set clientip  [lindex $argv 6]
set nic  [lindex $argv 7]
end_expect


#set prompt for guest console
set_prompt GUEST '# '

#set prompt for SAM
set_prompt SAM 'stop: '

#set error patterns
error GUEST "\[Ee]rror|ERR|\[Pp]anic"

#connect to switch.
send_wait SAM "sim$nic connect $switchmachine/$serverport"

#execute commands.
send SAM "run"

#sleep for a while to wait GUEST.
expect
   sleep 5 
end_expect

send_wait GUEST "/ll/cwd/sam.server -s $serverip -c $clientip"
send_fini SAM "quit"