patch::: 1.1.27.jcn4: jcn4

[lilypond.git] / lily / performer.cc

diff --git a/lily/performer.cc b/lily/performer.cc
index ad2f9805ed00e7057ba77f7d6df497e0c3f3eb17..1403b9aed6c4defeb41658a7301a08b16bde8a3e 100644 (file)
--- a/lily/performer.cc
+++ b/lily/performer.cc
@@ -3,8 +3,8 @@
 
   source file of the GNU LilyPond music typesetter
 
-  (c) 1996, 1997 Han-Wen Nienhuys <hanwen@stack.nl>
-               Jan Nieuwenhuizen <jan@digicash.com>
+  (c) 1996,  1997--1998 Han-Wen Nienhuys <hanwen@cs.uu.nl>
+               Jan Nieuwenhuizen <janneke@gnu.org>
  */
 
 
@@ -12,82 +12,24 @@
 #include "debug.hh"
 
 
-IMPLEMENT_IS_TYPE_B(Performer);
 
-Performer::Performer()
-{
-  daddy_perf_l_ = 0;
-  init_b_ =false;
-}
-
-Performer::~Performer()
-{
-}
-
-void
-Performer::do_print() const
-{
-}
 
 void 
 Performer::play (Audio_element* p) 
 { 
-  daddy_perf_l_->play (p); 
+  daddy_perf_l ()->play (p); 
 }
 
 int
-Performer::get_tempo_i()const
-{
-  return daddy_perf_l_->get_tempo_i();
-}
-
-void
-Performer::print() const
-{
-#ifndef NPRINT
-  DOUT << "\n" << name() << " {";
-  do_print();
-  DOUT << "}";
-#endif
-}
-
-void
-Performer::process_requests()
-{
-}
-
-bool 
-Performer::do_try_request (Request* req_l)
-{
-  return false;
-}
-
-bool
-Performer::try_request (Request*r)
-{
-  if (!init_b_) 
-    {
-       creation_processing();
-    }
-  return do_try_request (r);
-}
-
-void
-Performer::creation_processing()
-{
-  if (!init_b_) 
-    {
-       do_creation_processing();
-       init_b_ = true;
-    }
-}
-
-void
-Performer::do_creation_processing()
+Performer::get_tempo_i() const
 {
+  return daddy_perf_l ()->get_tempo_i();
 }
 
-void
-Performer::do_removal_processing()
+Performer_group_performer*
+Performer::daddy_perf_l () const
 {
+  return (daddy_trans_l_) 
+    ?dynamic_cast<Performer_group_performer *> (daddy_trans_l_)
+    : 0;
 }