2 scheme-engraver.cc -- implement Scheme_engraver
4 source file of the GNU LilyPond music typesetter
6 Copyright (c) 2009--2015 Han-Wen Nienhuys <hanwen@lilypond.org>
8 LilyPond is free software: you can redistribute it and/or modify
9 it under the terms of the GNU General Public License as published by
10 the Free Software Foundation, either version 3 of the License, or
11 (at your option) any later version.
13 LilyPond is distributed in the hope that it will be useful,
14 but WITHOUT ANY WARRANTY; without even the implied warranty of
15 MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
16 GNU General Public License for more details.
18 You should have received a copy of the GNU General Public License
19 along with LilyPond. If not, see <http://www.gnu.org/licenses/>.
22 #include "scheme-engraver.hh"
26 #include "translator.icc"
28 #include "scm-hash.hh"
30 Scheme_engraver::Scheme_engraver (SCM definition)
32 initialize_function_ = SCM_EOL;
33 finalize_function_ = SCM_EOL;
35 interface_acknowledger_hash_ = SCM_EOL;
36 interface_end_acknowledger_hash_ = SCM_EOL;
38 must_be_last_ = false;
39 per_instance_listeners_ = SCM_EOL;
40 for (int i = 0; i < TRANSLATOR_METHOD_PRECOMPUTE_COUNT; i++)
41 precomputable_methods_[i] = SCM_UNDEFINED;
43 init_from_scheme (definition);
46 Scheme_engraver::~Scheme_engraver ()
50 // Extracts the value if callable, if not return SCM_UNDEFINED;
52 callable (SCM symbol, SCM defn)
54 SCM val = ly_assoc_get (symbol, defn, SCM_BOOL_F);
55 return ly_is_procedure (val) ? val : SCM_UNDEFINED;
59 Scheme_engraver::must_be_last () const
65 Scheme_engraver::fetch_precomputable_methods (SCM ptrs[])
67 for (int i = 0; i < TRANSLATOR_METHOD_PRECOMPUTE_COUNT; i++)
68 ptrs[i] = precomputable_methods_[i];
72 Scheme_engraver::init_from_scheme (SCM definition)
74 precomputable_methods_[START_TRANSLATION_TIMESTEP]
75 = callable (ly_symbol2scm ("start-translation-timestep"), definition);
76 precomputable_methods_[STOP_TRANSLATION_TIMESTEP]
77 = callable (ly_symbol2scm ("stop-translation-timestep"), definition);
78 precomputable_methods_[PROCESS_MUSIC]
79 = callable (ly_symbol2scm ("process-music"), definition);
80 precomputable_methods_[PROCESS_ACKNOWLEDGED]
81 = callable (ly_symbol2scm ("process-acknowledged"), definition);
82 initialize_function_ = callable (ly_symbol2scm ("initialize"), definition);
83 finalize_function_ = callable (ly_symbol2scm ("finalize"), definition);
85 SCM p = ly_assoc_get (ly_symbol2scm ("listeners"), definition, SCM_EOL);
86 SCM listeners = SCM_EOL;
88 must_be_last_ = to_boolean (ly_assoc_get (ly_symbol2scm ("must-be-last"),
92 for (; scm_is_pair (p); p = scm_cdr (p))
94 SCM event_class = scm_caar (p);
95 SCM proc = scm_cdar (p);
97 if (!(ly_is_procedure (proc) && ly_is_symbol (event_class)))
100 // We should check the arity of the function?
102 // Record for later lookup.
103 listeners = scm_acons (event_class, proc, listeners);
107 init_acknowledgers (ly_assoc_get (ly_symbol2scm ("acknowledgers"),
108 definition, SCM_EOL));
110 init_acknowledgers (ly_assoc_get (ly_symbol2scm ("end-acknowledgers"),
111 definition, SCM_EOL));
113 per_instance_listeners_ = listeners;
114 interface_acknowledger_hash_ = hash1;
115 interface_end_acknowledger_hash_ = hash2;
117 // It's not defined whether Scheme_engraver::derived_mark is already
118 // active while the construction is underway, so we make sure we
119 // keep a version of everything on the stack that is not still
120 // covered by `definition'.
122 scm_remember_upto_here_2 (definition, listeners);
123 scm_remember_upto_here_2 (hash1, hash2);
125 // TODO: hook up description, props read/written, grobs created
126 // etc. to provide automatic documentation.
130 Scheme_engraver::init_acknowledgers (SCM alist)
132 SCM hash = Scheme_hash_table::make_smob ();
133 for (SCM p = alist; scm_is_pair (p); p = scm_cdr (p))
135 SCM iface = scm_caar (p);
136 SCM proc = scm_cdar (p);
138 if (!(ly_is_procedure (proc) && ly_is_symbol (iface)))
141 unsmob<Scheme_hash_table>(hash)->set (iface, proc);
147 Scheme_engraver::get_listener_list () const
149 return per_instance_listeners_;
153 Scheme_engraver::initialize ()
155 if (!SCM_UNBNDP (initialize_function_))
156 scm_call_1 (initialize_function_, self_scm ());
160 Scheme_engraver::finalize ()
162 if (!SCM_UNBNDP (finalize_function_))
163 scm_call_1 (finalize_function_, self_scm ());
167 Scheme_engraver::derived_mark () const
169 for (int i = 0; i < TRANSLATOR_METHOD_PRECOMPUTE_COUNT; i++)
170 scm_gc_mark (precomputable_methods_[i]);
172 scm_gc_mark (initialize_function_);
173 scm_gc_mark (finalize_function_);
174 scm_gc_mark (per_instance_listeners_);
175 scm_gc_mark (interface_acknowledger_hash_);
176 scm_gc_mark (interface_end_acknowledger_hash_);