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--2007 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_connect_dispatchers, "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
  25   LY_ASSERT_SMOB (Dispatcher, to, 1);
  26   LY_ASSERT_SMOB(Dispatcher, from,  2);
  27
  28   t->register_as_listener (f);
  29
  30   return SCM_UNDEFINED;
  31 }
  32
  33 LY_DEFINE (ly_add_listener, "ly:add-listener",
  34            2, 0, 1, (SCM list, SCM disp, SCM cl),
  35            "Adds the listener @var{list} to the dispatcher @var{disp}.\n"
  36            " Whenever @var{disp} hears an event of class @var{cl}, it will be forwarded to @var{list}.\n" )
  37 {
  38   Listener *l = unsmob_listener (list);
  39   Dispatcher *d = unsmob_dispatcher (disp);
  40
  41   LY_ASSERT_SMOB (Listener, list, 1);
  42   LY_ASSERT_SMOB(Dispatcher, disp, 2);
  43
  44   for (int arg = SCM_ARG3; scm_is_pair (cl); cl = scm_cdr (cl), arg++)
  45     {
  46       SCM sym = scm_car (cl);
  47       SCM_ASSERT_TYPE (scm_is_symbol (sym), sym, arg, __FUNCTION__, "symbol");
  48       d->add_listener (*l, sym);
  49     }
  50
  51   return SCM_UNDEFINED;
  52 }
  53
  54 LY_DEFINE (ly_broadcast, "ly:broadcast",
  55            2, 0, 0, (SCM disp, SCM ev),
  56            "Sends the stream event @var{ev} to the dispatcher\n"
  57            "@var{disp}.")
  58 {
  59   Dispatcher *d = unsmob_dispatcher (disp);
  60   Stream_event *e = unsmob_stream_event (ev);
  61
  62   LY_ASSERT_SMOB (Dispatcher, disp, 1);
  63
  64   LY_ASSERT_SMOB(Stream_event, ev, 2);
  65   d->broadcast (e);
  66   return SCM_UNDEFINED;
  67 }