使用TCL的超时时间

Question

TCL中是否有方法将一段代码放在超时模块中？我的意思是，即使执行没有完成，块会在特定的超时后退出。 例如： -

timeout (interval) { 
#wait for socket connection here 

} 

如果没有建立连接在间隔时间，块退出。

感谢和问候， 综合外电

Answer 1

综合外电， 您正在寻找vwait。

下面是一个例子：等待五秒钟到服务器套接字的连接，否则关闭套接字，并继续运行该脚本：

# Initialise the state 
after 5000 set state timeout 
set server [socket -server accept 12345] 
proc accept {args} { 
    global state connectionInfo 
    set state accepted 
    set connectionInfo $args 
} 

# Wait for something to happen 
vwait state 

# Clean up events that could have happened 
close $server 
after cancel set state timeout 

# Do something based on how the vwait finished... 
switch $state { 
    timeout { 
     puts "no connection on port 12345" 
    } 
    accepted { 
     puts "connection: $connectionInfo" 
     puts [lindex $connectionInfo 0] "Hello there!" 
    } 
} 

编辑 你需要与你的UART设备进行通信使用non blocking I/O。