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 "translator-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 Translator_def
*tp
= unsmob_translator_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 Translator_def
* t
= unsmob_translator_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
);
116 scm_puts ("#<Music_output_def ", p
);
124 Music_output_def::get_scmvar (String s
) const
126 return lookup_variable (ly_symbol2scm (s
.to_str0 ()));
131 Music_output_def::set_variable (SCM sym
, SCM val
)
133 scm_module_define (scope_
, sym
, val
);
137 Music_output_def::lookup_variable (SCM sym
) const
139 SCM var
= ly_module_lookup (scope_
, sym
);
141 return scm_variable_ref (var
);
144 LY_DEFINE(ly_paper_lookup
,
148 "Lookup @var{sym} in @var{pap}. Return the value "
149 " or '() if undefined. "
152 Music_output_def
*op
= unsmob_music_output_def (pap
);
153 SCM_ASSERT_TYPE (op
, pap
, SCM_ARG1
, __FUNCTION__
, "Paper");
154 SCM_ASSERT_TYPE (gh_symbol_p (sym
), sym
, SCM_ARG2
, __FUNCTION__
, "symbol");
156 SCM v
= op
->lookup_variable (sym
);
158 if (SCM_VARIABLEP(v
))
159 return SCM_VARIABLE_REF(v
);