X-Git-Url: https://git.donarmstrong.com/?a=blobdiff_plain;f=lily%2Ftranslator.cc;h=e57e1c391af53eec7dc93253da33fe28d5cff8e7;hb=90e4d7057f3857da049dfda3d130017d4719bd6b;hp=87fc0a15a471104e482395b358b9049640c448a1;hpb=e391e47d29945653870cde23b91f487c0106a67d;p=lilypond.git

diff --git a/lily/translator.cc b/lily/translator.cc
index 87fc0a15a4..e57e1c391a 100644
--- a/lily/translator.cc
+++ b/lily/translator.cc
@@ -32,13 +32,6 @@ Translator::~Translator ()
 {
 }
 
-void
-Translator::init ()
-{
-  daddy_context_ = 0;
-  smobify_self ();
-}
-
 void
 Translator::process_music ()
 {
@@ -49,15 +42,10 @@ Translator::process_acknowledged ()
 {
 }
 
-Translator::Translator ()
-{
-  init ();
-}
-
-Translator::Translator (Translator const &)
-  : Smob<Translator> ()
+Translator::Translator (Context *c)
+  : daddy_context_ (c)
 {
-  init ();
+  smobify_self ();
 }
 
 Moment
@@ -160,7 +148,7 @@ Translator::static_translator_description (const char *grobs,
                                            const char *desc,
                                            SCM listener_list,
                                            const char *read,
-                                           const char *write) const
+                                           const char *write)
 {
   SCM static_properties = SCM_EOL;
 
@@ -189,7 +177,7 @@ Translator::static_translator_description (const char *grobs,
   SMOBS
 */
 SCM
-Translator::mark_smob ()
+Translator::mark_smob () const
 {
   derived_mark ();
   return SCM_EOL;
@@ -207,7 +195,7 @@ Translator::get_score_context () const
   return daddy_context_->get_score_context ();
 }
 
-const char Translator::type_p_name_[] = "ly:translator?";
+const char * const Translator::type_p_name_ = "ly:translator?";
 
 bool
 Translator::must_be_last () const
@@ -221,7 +209,7 @@ Translator::derived_mark () const
 }
 
 int
-Translator::print_smob (SCM port, scm_print_state *)
+Translator::print_smob (SCM port, scm_print_state *) const
 {
   scm_puts ("#<Translator ", port);
   scm_puts (class_name (), port);
@@ -230,40 +218,35 @@ Translator::print_smob (SCM port, scm_print_state *)
 }
 
 void
-add_acknowledger (Translator::Grob_info_callback ptr,
+add_acknowledger (SCM ptr,
                   char const *func_name,
-                  vector<Acknowledge_information> *ack_array)
+                  SCM &ack_hash)
 {
-  Acknowledge_information inf;
-  inf.function_ = ptr;
+  if (SCM_UNBNDP (ack_hash))
+    ack_hash = Scheme_hash_table::make_smob ();
 
   string interface_name (func_name);
 
   interface_name = replace_all (&interface_name, '_', '-');
   interface_name += "-interface";
 
-  /*
-    this is only called during program init, so safe to use scm_gc_protect_object ()
-  */
-  inf.symbol_ = scm_gc_protect_object (ly_symbol2scm (interface_name.c_str ()));
-  ack_array->push_back (inf);
+  unsmob<Scheme_hash_table> (ack_hash)
+    ->set (ly_symbol2scm (interface_name.c_str ()), ptr);
 }
 
-Translator::Grob_info_callback
-generic_get_acknowledger (SCM sym, vector<Acknowledge_information> const *ack_array)
+SCM
+generic_get_acknowledger (SCM sym, SCM ack_hash)
 {
-  for (vsize i = 0; i < ack_array->size (); i++)
-    {
-      if (ack_array->at (i).symbol_ == sym)
-        return ack_array->at (i).function_;
-    }
-  return 0;
+  if (SCM_UNBNDP (ack_hash))
+    return SCM_UNDEFINED;
+
+  return unsmob<Scheme_hash_table> (ack_hash)->get (sym);
 }
 
 Moment
 get_event_length (Stream_event *e)
 {
-  Moment *m = Moment::unsmob (e->get_property ("length"));
+  Moment *m = unsmob<Moment> (e->get_property ("length"));
   if (m)
     return *m;
   else
@@ -318,16 +301,4 @@ internal_event_assignment (Stream_event **old_ev, Stream_event *new_ev, const ch
     }
 }
 
-ADD_TRANSLATOR (Translator,
-                /* doc */
-                "Base class.  Not instantiated.",
-
-                /* create */
-                "",
-
-                /* read */
-                "",
-
-                /* write */
-                ""
-               );
+// Base class.  Not instantiated.  No ADD_TRANSLATOR call.