2 music-output-def.cc -- implement Music_output_def
4 source file of the GNU LilyPond music typesetter
6 (c) 1997--2003 Han-Wen Nienhuys <hanwen@cs.uu.nl>
12 #include "music-output-def.hh"
13 #include "global-translator.hh"
14 #include "context-def.hh"
16 #include "file-path.hh"
17 #include "lily-guile.hh"
18 #include "ly-modules.hh"
20 #include "ly-smobs.icc"
22 Music_output_def::Music_output_def ()
24 scaled_fonts_ = SCM_EOL;
25 translator_tab_ = new Scheme_hash_table;
28 scm_gc_unprotect_object (translator_tab_->self_scm ());
30 scope_ = ly_make_anonymous_module();
35 Music_output_def::~Music_output_def ()
39 Music_output_def::Music_output_def (Music_output_def const &s)
42 translator_tab_ = new Scheme_hash_table (*s.translator_tab_);
44 scaled_fonts_ = SCM_EOL;
47 scm_gc_unprotect_object (translator_tab_->self_scm ());
49 scaled_fonts_ = scm_list_copy (s.scaled_fonts_);
51 scope_= ly_make_anonymous_module ();
52 if (ly_module_p (s.scope_))
53 ly_copy_module_variables (scope_, s.scope_);
57 IMPLEMENT_SMOBS (Music_output_def);
58 IMPLEMENT_DEFAULT_EQUAL_P (Music_output_def);
61 Music_output_def::mark_smob (SCM m)
63 Music_output_def * mo = (Music_output_def*) SCM_CELL_WORD_1 (m);
64 scm_gc_mark (mo->translator_tab_->self_scm ());
65 scm_gc_mark (mo->scope_);
67 return mo->scaled_fonts_;
71 Music_output_def::assign_translator (SCM transdef)
73 Context_def *tp = unsmob_context_def (transdef);
76 translator_tab_->set (tp->get_context_name (), transdef);
78 String nm = ly_symbol2string (tp->get_context_name ()) + "Context";
81 scm_module_define (scope_, ly_symbol2scm (nm.to_str0()), transdef);
85 find the translator for NAME. NAME must be a symbol.
88 Music_output_def::find_translator (SCM name) const
91 translator_tab_->try_retrieve (name, &val);
97 Music_output_def::get_global_translator ()
99 SCM key = ly_symbol2scm ("Score");
100 Context_def * t = unsmob_context_def (find_translator (key));
103 error (_f ("can't find `%s' context", "Score"));
105 Translator_group * tg = t->instantiate (this, SCM_EOL);
109 return dynamic_cast <Global_translator *> (tg);
113 Music_output_def::print_smob (SCM s, SCM p, scm_print_state *)
115 Music_output_def * def = unsmob_music_output_def (s);
117 scm_puts (classname (def), p);
126 Music_output_def::get_scmvar (String s) const
128 return lookup_variable (ly_symbol2scm (s.to_str0 ()));
133 Music_output_def::set_variable (SCM sym, SCM val)
135 scm_module_define (scope_, sym, val);
139 Music_output_def::lookup_variable (SCM sym) const
141 SCM var = ly_module_lookup (scope_, sym);
143 return scm_variable_ref (var);
146 LY_DEFINE(ly_paper_lookup,
150 "Lookup @var{sym} in @var{pap}. Return the value "
151 " or '() if undefined. "
154 Music_output_def *op = unsmob_music_output_def (pap);
155 SCM_ASSERT_TYPE (op, pap, SCM_ARG1, __FUNCTION__, "Paper");
156 SCM_ASSERT_TYPE (gh_symbol_p (sym), sym, SCM_ARG2, __FUNCTION__, "symbol");
158 SCM v = op->lookup_variable (sym);
160 if (SCM_VARIABLEP(v))
161 return SCM_VARIABLE_REF(v);
166 LY_DEFINE(ly_output_def_scope,
167 "ly:output-def-scope",
170 "Get the scope inside @var{def}."
173 Music_output_def *op = unsmob_music_output_def (def);
174 SCM_ASSERT_TYPE (op, def, SCM_ARG1, __FUNCTION__, "Output definition");
180 LY_DEFINE(ly_output_def_clone,
181 "ly:output-def-clone",
187 Music_output_def *op = unsmob_music_output_def (def);
188 SCM_ASSERT_TYPE (op, def, SCM_ARG1, __FUNCTION__, "Output definition");
190 SCM s = op->clone ()->self_scm ();
191 scm_gc_unprotect_object (s);