source file of the GNU LilyPond music typesetter
- (c) 1997 Han-Wen Nienhuys <hanwen@stack.nl>
+ (c) 1997--1999 Han-Wen Nienhuys <hanwen@cs.uu.nl>
*/
+#include "scope.hh"
#include "debug.hh"
#include "music-output-def.hh"
#include "global-translator.hh"
#include "dictionary-iter.hh"
+#include "identifier.hh"
+#include "main.hh"
+#include "lily-guile.hh"
+
+int
+Music_output_def::get_next_default_count () const
+{
+ return 0;
+}
+
-IMPLEMENT_IS_TYPE_B(Music_output_def);
Music_output_def::Music_output_def ()
{
+ scope_p_ = new Scope;
+ translator_p_dict_p_ = new Scope;
}
Music_output_def::~Music_output_def ()
{
- for (Dictionary_iter<Translator*> i (translator_p_dict_); i.ok (); i++)
- delete i.val ();
+ delete scope_p_;
+ delete translator_p_dict_p_;
}
Music_output_def::Music_output_def (Music_output_def const &s)
{
- for (Dictionary_iter<Translator*> i (s.translator_p_dict_); i.ok (); i++)
- assign_translator (i.key (), i.val ()->clone ());
+ scope_p_ = new Scope (*s.scope_p_);
+ translator_p_dict_p_ = new Scope (*s.translator_p_dict_p_);
+
+ for (Scope_iter i (*translator_p_dict_p_); i.ok (); i++)
+ {
+ Translator * t = i.val ()->access_content_Translator (false);
+ t-> output_def_l_ = this;
+ }
+}
+
+void
+Music_output_def::assign_translator (Translator*tp)
+{
+ String s =tp->type_str_;
+ if (s.empty_b ())
+ {
+ tp->warning (_("Interpretation context with empty type"));
+ }
+ if (translator_p_dict_p_->elem_b (s))
+ delete translator_p_dict_p_->elem (s);
+
+ translator_p_dict_p_->elem (s) = new Translator_identifier (tp, 0);
+ tp ->output_def_l_ = this;
}
Translator*
Music_output_def::find_translator_l (String name) const
{
- if (translator_p_dict_.elt_b (name))
- return translator_p_dict_[name];
+ if (translator_p_dict_p_->elem_b (name))
+ return translator_p_dict_p_->elem (name)->access_content_Translator (false);
- if (global_translator_dict_p->elt_b (name))
- return (*global_translator_dict_p)[name];
+ if (global_translator_dict_p->elem_b (name))
+ return global_translator_dict_p->elem(name);
return 0;
}
Global_translator *
Music_output_def::get_global_translator_p ()
{
- Translator * t = find_translator_l ("Score")->clone ();
- Global_translator *g = t->group_l ()->global_l ();
+ Translator * t = find_translator_l ("Score");
+ if (!t)
+ error (_ ("can't find Score context"));
+ t = t->clone ();
+ Global_translator *g = dynamic_cast <Global_translator *> (t);
t->add_processing ();
return g;
}
-
-void
-Music_output_def::assign_translator (String s, Translator*t)
-{
- t->type_str_ = s;
- t->output_def_l_ = this;
- if (translator_p_dict_.elt_b (s))
- delete translator_p_dict_[s];
- translator_p_dict_[s] = t;
-}
-
void
Music_output_def::print () const
{
#ifndef NPRINT
- for (Dictionary_iter<Translator*> i (translator_p_dict_); i.ok (); i++)
- {
- DOUT << i.key () << " = ";
- i.val ()->print ();
- }
+ DOUT << "Translators: \n";
+ translator_p_dict_p_->print ();
+ DOUT << "Other definitions.\n";
+ scope_p_->print( );
#endif
}
+
+String
+Music_output_def::get_default_output () const
+{
+ if (safe_global_b || !scope_p_->elem_b (output_scm_sym))
+ return "";
+ Identifier * id = scope_p_->elem (output_scm_sym);
+
+ String *p = id->access_content_String (false);
+ return p ? *p : String ("");
+}