lily/listener.cc

   1 /*
   2   This file is part of LilyPond, the GNU music typesetter.
   3
   4   Copyright (C) 2005 Erik Sandberg  <mandolaerik@gmail.com>
   5
   6   LilyPond is free software: you can redistribute it and/or modify
   7   it under the terms of the GNU General Public License as published by
   8   the Free Software Foundation, either version 3 of the License, or
   9   (at your option) any later version.
  10
  11   LilyPond is distributed in the hope that it will be useful,
  12   but WITHOUT ANY WARRANTY; without even the implied warranty of
  13   MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
  14   GNU General Public License for more details.
  15
  16   You should have received a copy of the GNU General Public License
  17   along with LilyPond.  If not, see <http://www.gnu.org/licenses/>.
  18 */
  19
  20 #include "listener.hh"
  21 #include "warn.hh"
  22
  23 Listener::Listener ()
  24 {
  25   target_ = 0;
  26   type_ = 0;
  27 }
  28
  29 Listener::Listener (const void *target, Listener_function_table *type)
  30 {
  31   target_ = (void *)target;
  32   type_ = type;
  33 }
  34
  35 Listener::Listener (Listener const &other)
  36 {
  37   target_ = other.target_;
  38   type_ = other.type_;
  39 }
  40
  41 void Listener::listen (SCM ev) const
  42 {
  43   (type_->listen_callback) (target_, ev);
  44 }
  45
  46 SCM
  47 Listener::mark_smob ()
  48 {
  49   if (type_)
  50     (type_->mark_callback) (target_);
  51   return SCM_EOL;
  52 }
  53
  54 SCM
  55 Listener::equal_p (SCM a, SCM b)
  56 {
  57   Listener *l1 = Listener::unsmob (a);
  58   Listener *l2 = Listener::unsmob (b);
  59
  60   return (*l1 == *l2) ? SCM_BOOL_T : SCM_BOOL_F;
  61 }
  62
  63 const char Listener::type_p_name_[] = "ly:listener?";