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

include "start.ver"

timeout -1 

expect
set switchmachine [lindex $argv 3]
set serverport  [lindex $argv 4]
set clientip  [lindex $argv 5]
set nic  [lindex $argv 6]
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 SAM "sim$nic connect $switchmachine/$serverport"
send SAM "run"
wait SAM 'run: '

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

#execute commands.
send_wait GUEST "/ll/cwd/sam.client $clientip"

send_wait SAM "stop"
send_wait SAM "dump client.dump"
send_fini SAM   "quit"
Commit	Line	Data
920dae64 AT	1	include "start.ver"
	2
	3	timeout -1
	4
	5	expect
	6	set switchmachine [lindex $argv 3]
	7	set serverport [lindex $argv 4]
	8	set clientip [lindex $argv 5]
	9	set nic [lindex $argv 6]
	10	end_expect
	11
	12	#set prompt for guest console
	13	set_prompt GUEST '# '
	14
	15	#set prompt for SAM
	16	set_prompt SAM 'stop: '
	17
	18	#set error patterns
	19	error GUEST "\[Ee]rror\|ERR\|\[Pp]anic"
	20
	21	#connect to switch.
	22	send SAM "sim$nic connect $switchmachine/$serverport"
	23	send SAM "run"
	24	wait SAM 'run: '
	25
	26	#sleep for a while to wait GUEST.
	27	expect
	28	sleep 5
	29	end_expect
	30
	31	#execute commands.
	32	send_wait GUEST "/ll/cwd/sam.client $clientip"
	33
	34	send_wait SAM "stop"
	35	send_wait SAM "dump client.dump"
	36	send_fini SAM "quit"