Mercurial > hg > reactive

changeset 15:c91d53b19dbb tip

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Meh?
author samer
date Wed, 19 Dec 2012 19:16:30 +0000
parents 44417282afec (current diff) 02d99048fb78 (diff)
children
files qutils.pl
diffstat 2 files changed, 12 insertions(+), 6 deletions(-) [+]
line wrap: on
line diff
--- a/qutils.pl	Wed Dec 19 19:11:19 2012 +0000
+++ b/qutils.pl	Wed Dec 19 19:16:30 2012 +0000
@@ -35,12 +35,17 @@
 :- if((current_prolog_flag(version,Version),Version<60102)).
 
 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.
 
--- a/recorder.pl	Wed Dec 19 19:11:19 2012 +0000
+++ b/recorder.pl	Wed Dec 19 19:16:30 2012 +0000
@@ -15,6 +15,7 @@
 :- dynamic start_time/1, event/2.
 
 :- use_module(library(fileutils)).
+:- use_module(library(utils),[min/3]).
 :- use_module(reactive).