Ticket #2116: main.AU3

#include <Constants.au3>
#include <array.au3>
Global $thread[4]
Global $line[4]

$thread[1] = Run(@ScriptDir & "\stdout3.exe 1","",@SW_HIDE,$STDIN_CHILD + $STDOUT_CHILD)
$thread[2] = Run(@ScriptDir & "\stdout3.exe 2","",@SW_HIDE,$STDIN_CHILD + $STDOUT_CHILD)
$thread[3] = Run(@ScriptDir & "\stdout3.exe 3","",@SW_HIDE,$STDIN_CHILD + $STDOUT_CHILD)

Sleep(500) ; needed to make sure all threads are ready

For $i=1 to 3
        $line[$i] = StdoutRead($thread[$i])
        if StringInStr($line[$i],"thread started") Then
                ConsoleWrite($line[$i])
                StdinWrite($thread[$i],"start work")
                Sleep(300)
        EndIf
Next


;~ ConsoleWrite(@CRLF & "------------ WAITING SOME TIME ------------" & @CRLF & @CRLF)
;~ Sleep(15000)

$done=0
do
        for $i = 1 to 3
                if $line[$i]=-1 then ContinueLoop
                $line[$i] = StdoutRead($thread[$i])
                if $line[$i] <> "" Then ConsoleWrite($line[$i])
                if StringInStr($line[$i],"work done") Then
                        $done += 1
                        $line[$i]=-1
                EndIf
        Next
Until $done=3

For $i = 1 to 3
        StdinWrite($thread[$i],"exit")
        $line[$i]=""
Next

$done = 0
do
        For $i = 1 to 3
                if $line[$i]=-1 then ContinueLoop
                $line[$i] = StdoutRead($thread[$i])
                if $line[$i] <> "" Then ConsoleWrite($line[$i])
                if StringInStr($line[$i],"exited by master") Then
                        $done += 1
                        $line[$i]=-1
                EndIf
        Next
Until $done =3