doc patch by Graham Percival

[lilypond.git] / lily / music-iterator.cc

diff --git a/lily/music-iterator.cc b/lily/music-iterator.cc
index dcb596a117071a3d8fe78610b3c8992e0635a25c..f0af46424390b15e638126d7b247f1766e36b223 100644 (file)
--- a/lily/music-iterator.cc
+++ b/lily/music-iterator.cc
@@ -15,10 +15,14 @@
 #include "music-wrapper.hh"
 #include "music-wrapper-iterator.hh"
 #include "simple-music-iterator.hh"
-#include "context-specced-music.hh"
+#include "ly-smobs.icc"
+
+#include "ly-smobs.icc"
 
 Music_iterator::Music_iterator ()
 {
+  music_ = 0;
+  smobify_self ();
 }
 
 Music_iterator::Music_iterator (Music_iterator const& src)
@@ -27,22 +31,19 @@ Music_iterator::Music_iterator (Music_iterator const& src)
   music_ = src.music_;
   music_length_ = src.music_length_;
   start_mom_ = src.start_mom_;
+  smobify_self ();
 }
 
 Music_iterator::~Music_iterator ()
 {
 }
 
-
-
-
 Translator_group* 
 Music_iterator::report_to () const
 {
   return handle_.report_to ();
 }
 
-
 void
 Music_iterator::set_translator (Translator_group *trans)
 {
@@ -82,38 +83,41 @@ Music_iterator::get_pending_events (Moment)const
   return SCM_EOL;
 }
 
-Music_iterator*
+SCM
 Music_iterator::get_static_get_iterator (Music *m)
 {
   Music_iterator * p =0;
 
   SCM ctor = m->get_mus_property ("iterator-ctor") ;
-  if (unsmob_cxx_function (ctor))
+  SCM iter = SCM_EOL;
+  if (gh_procedure_p (ctor))
     {
-      Cxx_function f =  unsmob_cxx_function (ctor);
-      
-      p = (Music_iterator*) (*f) (SCM_EOL);
+      iter = gh_call0 (ctor);
+      p = unsmob_iterator (iter);
     }
-  else if (dynamic_cast<Music_wrapper   *> (m))
-    p = new Music_wrapper_iterator;
   else
     {
-      p = new Simple_music_iterator ;
+      if (dynamic_cast<Music_wrapper *> (m))
+       p = new Music_wrapper_iterator;
+      else
+       p = new Simple_music_iterator;
+
+      iter = p->self_scm();
+      scm_gc_unprotect_object (iter);
     }
 
   p->music_ = m;
   assert (m);
-  p->music_length_ = m->length_mom ();
+  p->music_length_ = m->get_length ();
   p->start_mom_ = m->start_mom ();
-  return p;
+  return iter;
 }
 
 
 Moment
-Music_iterator::music_length_mom () const
+Music_iterator::music_get_length () const
 {
   return music_length_;
-
 }
 
 Moment
@@ -127,38 +131,21 @@ Music_iterator::init_translator (Music *m, Translator_group *report)
 {
   music_ = m;
   assert (m);
-  if (Context_specced_music * csm =dynamic_cast<Context_specced_music *> (m))
-    {
-      SCM ct = csm->get_mus_property ("context-type");
-      String c_type;
-      if (gh_string_p (ct))
-         c_type =  ly_scm2string (ct);
-      
-      String c_id;
-      SCM ci = csm->get_mus_property ("context-id");
-      if (gh_string_p (ci))
-       c_id = ly_scm2string (ci);
-      
-      Translator_group* a
-       =report->find_create_translator (c_type, c_id);
-
-      set_translator (a);
-      
-    }
-
   if (! report_to ())
     set_translator (report);
 }
 
 
-Music_iterator*
+SCM
 Music_iterator::get_iterator (Music *m) const
 {
-  Music_iterator*p = get_static_get_iterator (m);
+  SCM ip = get_static_get_iterator (m);
+  Music_iterator*p = unsmob_iterator (ip);
+  
   p->init_translator (m, report_to ());
   
   p->construct_children ();
-  return p;
+  return ip;
 }
 
 /*
@@ -166,7 +153,6 @@ Music_iterator::get_iterator (Music *m) const
   Iterator::try_music
   
  */
-
 Music_iterator*
 Music_iterator::try_music (Music *m) const
 {
@@ -190,3 +176,52 @@ Music_iterator::get_music () const
 {
   return music_;
 }
+
+/****************************************************************/
+
+IMPLEMENT_TYPE_P (Music_iterator, "ly:iterator?");
+IMPLEMENT_SMOBS(Music_iterator);
+IMPLEMENT_DEFAULT_EQUAL_P(Music_iterator);
+
+SCM
+Music_iterator::mark_smob (SCM smob)
+{
+  Music_iterator * mus = (Music_iterator *)SCM_CELL_WORD_1 (smob);
+
+  mus->derived_mark ();
+  /*
+    Careful with GC, although we intend the following as pointers
+    only, we _must_ mark them.
+   */
+  if (mus->report_to())
+    scm_gc_mark (mus->report_to()->self_scm());
+  if (mus->music_)
+    scm_gc_mark (mus->music_->self_scm());
+  
+
+  return SCM_EOL;
+}
+
+int
+Music_iterator::print_smob (SCM , SCM port, scm_print_state*)
+{
+  scm_puts ("#<Music iterator>", port);
+  return 1;
+}
+
+void
+Music_iterator::derived_mark()const
+{
+}
+
+void
+Music_iterator::quit ()
+{
+  do_quit ();
+  handle_.quit ();
+}
+
+void
+Music_iterator::do_quit()
+{
+}