# On inclue la bibliothèque des Threads
package require Thread
 
set test "ok"

# On définit un premier Thread, il est important de comprendre que chaque Thread
# est éxécuté dans un interpréteur différent! Par conséquent ils ne peuvent pas
# partager de donnée directement en mémoire.
 
set Thread1 [thread::create -joinable -preserved {
    # Ici nous définissons le code exécuté dans notre script.
    proc exemple { {max 10} } {
        for {set i 0} {$i <= $max} {incr i} {
            puts "Thread 1: $i"
        }
    }
 
    thread::wait
 
}]

# On définit un deuxième Thread, de la même façon
set Thread2 [thread::create -joinable -preserved {
    # Ici nous définissons le code exécuté dans notre script.
    proc exemple { {max 10} } {
        for {set i 0} {$i <= $max} {incr i} {
            puts "Thread 2: $i"
        }
    }
 
    thread::wait
 
}]

# Nos deux Threads ont étés créés, ils sont chacun dans une sorte de
# boucle infinies, en attendant qu'on leurs demandent de faire quelque chose.
# On va donc leur "envoyer" une commande à éxécuter:
 
thread::send -async $Thread1 [list exemple 5]
thread::send -async $Thread2 [list exemple 10]

# Cette commande fais en sorte qu'on demande au Thread de s'arreter, et l'option
# -wait indique que on attend qu'il soit effectivement arreté.
#
# ATTENTION: Ceci ne fonctione QUE si le Thread a été créé avec -joinable et
# -preserved. Sinon vous allez avoir des gros crashs!
#
# Lisez la doc pour plus d'infos ou demandez-moi.
thread::release -wait $Thread1
thread::release -wait $Thread2

# Une fois que nos deux Threads ont finis de s'éxécuter, le script s'arrete.