Mercurial > hg > reactive
changeset 13:02d99048fb78
Adapted to latest thread_get_message
| author | samer |
|---|---|
| date | Thu, 23 Aug 2012 09:48:58 +0100 |
| parents | 24236c9c07b6 |
| children | c91d53b19dbb |
| files | qutils.pl |
| diffstat | 1 files changed, 11 insertions(+), 6 deletions(-) [+] |
line wrap: on
line diff
--- a/qutils.pl Wed Feb 29 20:30:31 2012 +0000 +++ b/qutils.pl Thu Aug 23 09:48:58 2012 +0100 @@ -33,12 +33,17 @@ %:- writeln('% compiling get_message_or_timeout/2 using deadline/1 option.'). get_message_or_timeout(Deadline,Msg) :- - ( get_time(Now), Now<Deadline - -> thread_self(Thread), - thread_get_message(Thread,Msg,[deadline(Deadline)]), - debug(qutils,'got message: ~w.',[Msg]) - ; Msg=timeout - ). + thread_self(Thread), + ( thread_get_message(Thread,Msg,[deadline(Deadline)]) + -> debug(qutils,'got message: ~w.',[Msg]) + ; Msg=timeout). + + % ( get_time(Now), Now<Deadline + % -> thread_self(Thread), + % thread_get_message(Thread,Msg,[deadline(Deadline)]), + % debug(qutils,'got message: ~w.',[Msg]) + % ; Msg=timeout + % ). :- else.