From 6fd40fd5265b6941d5114f6b4f82e1c6b6cdbc0d Mon Sep 17 00:00:00 2001 From: Hans-Christoph Steiner Date: Fri, 16 Dec 2005 00:37:47 +0000 Subject: removed bad attempt... arg svn path=/trunk/externals/pdp/; revision=4229 --- guile/pdp_guile.scm | 37 ------------------------------------- 1 file changed, 37 deletions(-) delete mode 100644 guile/pdp_guile.scm (limited to 'guile/pdp_guile.scm') diff --git a/guile/pdp_guile.scm b/guile/pdp_guile.scm deleted file mode 100644 index 8ca17f2..0000000 --- a/guile/pdp_guile.scm +++ /dev/null @@ -1,37 +0,0 @@ -; pdp_guile.scm - a simple event dispatcher to be used with pdp_guile - -; some global variables -(define input-hash (make-hash-table 31)) -(define input-loop-flag #t) -(define input-loop-interval-ms 10) - -; add an input handler -(define (add-input! tag handler) - (hashq-create-handle! input-hash tag handler)) - -; the main input dispatcher loop -(define (input-loop) - (while input-loop-flag - (usleep (* input-loop-interval-ms 1000)) - (let nextmsg ((msg (in))) - (if msg - (begin - (let ((fn (hashq-ref input-hash (car msg)))) - (if fn (fn (cadr msg)))) - (nextmsg (in))))))) - -(define (start) - (set! input-loop-flag #t) - (out 'start 'bang) - (input-loop)) - - -; the control message handler -(add-input! 'control - (lambda (thing) - (case thing - ('stop (set! input-loop-flag #f)) ; stop the input loop and return to interpreter - ('gc (gc))))) ; call the garbage collector - - - -- cgit v1.2.1