+(define-public dc-msgproc-reg
+ (lambda (proc)
+ (set! msg-procs (cons proc msg-procs))))
+
+(define dc-handle-msg
+ (lambda ()
+ (dc-loop-reg ".notify" 640 (lambda (r er)
+ (let ((sender (cadadr (assq 'resp er)))
+ (message (cddadr (assq 'resp er))))
+ (for-each (lambda (o) (o sender message))
+ msg-procs))))))
+
+(define-public dc-util-handle
+ (lambda what
+ (for-each (lambda (o)
+ (case o
+ ((fn) (dc-handle-fn))
+ ((msg) (dc-handle-msg))))
+ what)))
+