source file of the GNU LilyPond music typesetter
- (c) 1997--1998 Han-Wen Nienhuys <hanwen@cs.uu.nl>
+ (c) 1997--1999 Han-Wen Nienhuys <hanwen@cs.uu.nl>
*/
#include "translator.hh"
#include "debug.hh"
#include "translator-group.hh"
-#include "dictionary-iter.hh"
-#include "rational.hh"
+
+#include "moment.hh"
+
+char const*
+Translator::name() const
+{
+ return classname(this);
+}
Translator::~Translator ()
{
status = ORPHAN;
daddy_trans_l_ =0;
output_def_l_ = s.output_def_l_;
- properties_dict_ = s.properties_dict_;
type_str_ = s.type_str_;
}
Moment
-Translator::now_moment () const
+Translator::now_mom () const
{
- return daddy_trans_l_->now_moment ();
+ return daddy_trans_l_->now_mom ();
}
Translator::print () const
{
#ifndef NPRINT
- DOUT << classname (this) << " {";
+ DEBUG_OUT << classname (this) << " {";
if (classname (this) != type_str_)
- DOUT << "type = " << type_str_;
- for (Dictionary_iter<Scalar> i (properties_dict_); i.ok (); i++)
- {
- DOUT << i.key () << "=" << i.val () << '\n';
- }
+ DEBUG_OUT << "type = " << type_str_;
do_print ();
- DOUT << "}\n";
+ DEBUG_OUT << "}\n";
#endif
}
status = CREATION_INITED;
}
-Scalar
-Translator::get_property (String id, Translator const **where_l) const
-{
- if (properties_dict_.elem_b (id))
- {
- if (where_l)
- *where_l = this;
- return properties_dict_[id];
- }
-
- if (daddy_trans_l_)
- return daddy_trans_l_->get_property (id, where_l);
-
- if (where_l)
- *where_l = 0;
- return "";
-}
-
-void
-Translator::set_property (String id, Scalar val)
-{
- properties_dict_[id] = val;
-}
Music_output_def *
{
return output_def_l_;
}
+
+SCM
+Translator::get_property (String id, Translator_group **where_l) const
+{
+ return daddy_trans_l_->get_property (id, where_l);
+}
+
+
+
+void
+Translator:: do_pre_move_processing(){}
+void
+Translator::do_post_move_processing(){}
+void
+Translator::do_process_requests () {}
+void
+Translator::do_creation_processing() {}
+void
+Translator::do_removal_processing(){}