lily/dispatcher-scheme.cc

   1 /*
   2   dispatcher.cc -- implement Scheme bindings for Dispatcher
   3
   4   source file of the GNU LilyPond music typesetter
   5
   6   (c) 2006 Erik Sandberg  <mandolaerik@gmail.com>
   7 */
   8
   9 #include "dispatcher.hh"
  10
  11 LY_DEFINE (ly_make_dispatcher, "ly:make-dispatcher",
  12            0, 0, 0, (),
  13            "Returns a newly created dispatcher.")
  14 {
  15   return (new Dispatcher ())->unprotect ();
  16 }
  17
  18 LY_DEFINE (ly_register_dispatcher, "ly:connect-dispatchers",
  19            2, 0, 0, (SCM to, SCM from),
  20            "Makes the dispatcher @var{to} listen to events from @var{from}." )
  21 {
  22   Dispatcher *t = unsmob_dispatcher (to);
  23   Dispatcher *f = unsmob_dispatcher (from);
  24   SCM_ASSERT_TYPE (t, from, SCM_ARG1, __FUNCTION__, "dispatcher");
  25   SCM_ASSERT_TYPE (f, to, SCM_ARG2, __FUNCTION__, "dispatcher");
  26   t->register_as_listener (f);
  27
  28   return SCM_UNDEFINED;
  29 }
  30
  31 LY_DEFINE (ly_add_listener, "ly:add-listener",
  32            2, 0, 1, (SCM list, SCM disp, SCM cl),
  33            "Adds the listener @var{list} to the dispatcher @var{disp}.\n"
  34            " Whenever @var{disp} hears an event of class @var{cl}, it will be forwarded to @var{list}.\n" )
  35 {
  36   Listener *l = unsmob_listener (list);
  37   Dispatcher *d = unsmob_dispatcher (disp);
  38   SCM_ASSERT_TYPE (l, list, SCM_ARG1, __FUNCTION__, "listener");
  39   SCM_ASSERT_TYPE (d, disp, SCM_ARG2, __FUNCTION__, "dispatcher");
  40
  41   for (int arg=SCM_ARG3; cl != SCM_EOL; cl = scm_cdr (cl), arg++)
  42     {
  43       SCM_ASSERT_TYPE (scm_symbol_p (cl), cl, arg, __FUNCTION__, "symbol");
  44       d->add_listener (*l, scm_car (cl));
  45     }
  46
  47   return SCM_UNDEFINED;
  48 }
  49
  50 LY_DEFINE (ly_broadcast, "ly:broadcast",
  51            2, 0, 0, (SCM disp, SCM ev),
  52            "Sends the stream event @var{ev} to the dispatcher\n"
  53            "@var{disp}.")
  54 {
  55   Dispatcher *d = unsmob_dispatcher (disp);
  56   Stream_event *e = unsmob_stream_event (ev);
  57   SCM_ASSERT_TYPE (d, disp, SCM_ARG1, __FUNCTION__, "dispatcher");
  58   SCM_ASSERT_TYPE (e, ev, SCM_ARG2, __FUNCTION__, "stream event");
  59   d->broadcast (e);
  60   return SCM_UNDEFINED;
  61 }