Mercurial > hg > reactive

changeset 1:11e8c4e65a03

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Removed printing from qutils, added some to recorder.
author samer
date Tue, 24 Jan 2012 22:45:10 +0000
parents a0213fab5674
children b39711ae9035
files README qutils.pl recorder.pl
diffstat 3 files changed, 20 insertions(+), 1 deletions(-) [+]
line wrap: on
line diff
--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/README	Tue Jan 24 22:45:10 2012 +0000
@@ -0,0 +1,18 @@
+---+ Reactive 
+
+	This package provides a simple continuation-based framework for reactive programming
+	in Prolog. Most of the documentation is in reactive.pl. qutils.pl provides some 
+	basic facilities for dealing with message queues in a time and space constrained
+	manner. recorder.pl provides a general mechanism for logging all events passing
+	into a reactive system.
+
+---++++ Dependencies:
+
+Packages:
+	* plcore
+	* plrand
+	* reactive
+	* plmidi
+	* plosc
+
+
--- a/qutils.pl	Mon Jan 23 17:38:47 2012 +0000
+++ b/qutils.pl	Tue Jan 24 22:45:10 2012 +0000
@@ -18,7 +18,7 @@
 get_message_or_timeout(inf,Msg) :- !, thread_get_message(Msg).
 get_message_or_timeout(Deadline,Msg) :- 
 	get_time(Now), 
-	(	Now>=Deadline -> Msg=timeout, writeln(elapsed)
+	(	Now>=Deadline -> Msg=timeout %, writeln(elapsed)
 	;	thread_self(Thread),
 		setup_call_cleanup(
 			alarm_at(Deadline, thread_send_message(Thread,timeout), Id), 
--- a/recorder.pl	Mon Jan 23 17:38:47 2012 +0000
+++ b/recorder.pl	Tue Jan 24 22:45:10 2012 +0000
@@ -24,6 +24,7 @@
 	retractall(event(_,_)),
 	retractall(start_time(_)),
 	assert(start_time(Now)),
+	format('recording events for ~w.\n',[Client]),
 	call(Client,C1),
 	recorder_cont(C1,Proc).