2 music-output-def.cc -- implement Music_output_def
4 source file of the GNU LilyPond music typesetter
6 (c) 1997--2000 Han-Wen Nienhuys <hanwen@cs.uu.nl>
11 #include "music-output-def.hh"
12 #include "global-translator.hh"
14 #include "identifier.hh"
16 #include "lily-guile.hh"
19 Music_output_def::get_next_default_count () const
26 Music_output_def::Music_output_def ()
29 translator_p_dict_p_
= new Scope
;
32 Music_output_def::~Music_output_def ()
35 delete translator_p_dict_p_
;
38 Music_output_def::Music_output_def (Music_output_def
const &s
)
40 scope_p_
= new Scope (*s
.scope_p_
);
41 translator_p_dict_p_
= new Scope (*s
.translator_p_dict_p_
);
45 Music_output_def::assign_translator (Translator_group
*tp
)
47 String s
=tp
->type_str_
;
50 tp
->warning (_("Interpretation context with empty type"));
53 translator_p_dict_p_
->set (s
, new Translator_group_identifier (tp
, 0));
57 Music_output_def::find_translator_l (String name
) const
59 if (translator_p_dict_p_
->elem_b (name
))
60 return translator_p_dict_p_
->elem (name
)->access_content_Translator_group (false);
62 map
<String
, Translator
*>::const_iterator ki
63 =global_translator_dict_p
->find (name
);
65 if (ki
!= global_translator_dict_p
->end ())
73 Music_output_def::get_global_translator_p ()
75 Translator
* t
= find_translator_l ("Score");
77 error (_f ("can't find `%s' context", "Score"));
79 t
->output_def_l_
= this;
80 Global_translator
*g
= dynamic_cast <Global_translator
*> (t
);
87 Music_output_def::print () const
92 Music_output_def::get_default_output () const
94 if (safe_global_b
|| !scope_p_
->elem_b ("output"))
96 SCM s
= scope_p_
->scm_elem ("output");
100 return gh_string_p (s
) ? ly_scm2string (s
) : String ("");