timeout utilisant TCL

Question

Y a-t-il un moyen dans TCL d'inclure un morceau de code dans un bloc de timeout? Ce que je veux dire par là, c'est que le bloc sortira après un délai d'attente particulier même si l'exécution n'est pas terminée. Par exemple: -

timeout (interval) { 
#wait for socket connection here 

} 

Si aucune connexion est établie dans l'intervalle de temps, les sorties de bloc.

Merci et salutations, Anjali

Answer 1

Anjali, Vous cherchez vwait.

Voici un exemple: Attendez cinq secondes pour une connexion à un socket serveur, sinon fermer le socket et continuer d'exécuter le script:

# 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!" 
    } 
} 

Modifier Vous devez communiquer avec votre appareil UART en utilisant non blocking I/O.