[an error occurred while processing this directive]
|
Почему для работы скрипта в VDSP нужен vwait, а в Modelsim и wish84 - нет?
Скрипт:
global z
global dm_list
set z 1
proc bgerror {msg} {
puts $msg
}
proc tcp_handler {sock} {
global z
global dm_list
set l [read -nonewline $sock] ;# get the client packet
if {[eof $sock]} { ;# client gone or finished
close $sock ;# release the servers client channel
puts "connection lost"
set z 1; #stop event loop
} else {
puts -nonewline $sock "$l"
puts "$l"
set slen [string length $l]
binary scan $l c$slen dm_list
#set dm_list [list $dm_strs]
puts $dm_list
dspsetmemblock "Data(DM) Memory" 0x24000 $slen -format "unsigned integer" $dm_list
# dspstepasm; #do debug
}
}
proc accept {sock addr port} {
global z
unset z
fileevent $sock readable [list tcp_handler $sock]
fconfigure $sock -buffering none -blocking 0 -buffersize 10
puts "connection accepted"
vwait z; #for VDSP only? start event loop
}
#junk:
# -encoding binary -translation {binary binary}
socket -server accept 8989
#vwait z; #for VDSP only? start event loop
E-mail: info@telesys.ru