2 This file is part of LilyPond, the GNU music typesetter.
4 Copyright (C) 1996--2015 Han-Wen Nienhuys <hanwen@xs4all.nl>
6 LilyPond is free software: you can redistribute it and/or modify
7 it under the terms of the GNU General Public License as published by
8 the Free Software Foundation, either version 3 of the License, or
9 (at your option) any later version.
11 LilyPond is distributed in the hope that it will be useful,
12 but WITHOUT ANY WARRANTY; without even the implied warranty of
13 MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
14 GNU General Public License for more details.
16 You should have received a copy of the GNU General Public License
17 along with LilyPond. If not, see <http://www.gnu.org/licenses/>.
23 #include "callback.hh"
25 #include "grob-info.hh"
26 #include "translator.hh"
29 a struct which processes events, and creates the #Grob#s.
30 It may use derived classes.
32 class Engraver : public Translator
34 Grob *internal_make_grob (SCM sym, SCM cause,
35 char const *f, int l, char const *fun);
36 friend SCM ly_engraver_make_grob (SCM, SCM, SCM);
37 friend class Engraver_group;
40 take note of item/spanner
41 put item in spanner. Adjust local key; etc.
43 Default: ignore the info
45 virtual void acknowledge_grob (Grob_info) {}
46 virtual void announce_grob (Grob_info, Context *reroute_context = 0);
47 virtual void announce_end_grob (Grob_info, Context *reroute_context = 0);
48 Engraver_group *get_daddy_engraver () const;
51 using Translator::trampoline;
52 template <class T, void (T::*callback)(Grob_info)>
53 static SCM trampoline (SCM target, SCM grob, SCM source_engraver)
55 T *t = LY_ASSERT_SMOB (T, target, 1);
56 Grob *g = LY_ASSERT_SMOB (Grob, grob, 2);
57 Engraver *e = LY_ASSERT_SMOB (Engraver, source_engraver, 3);
59 (t->*callback) (Grob_info (e, g));
60 return SCM_UNSPECIFIED;
64 Announce element. Default: pass on to daddy. Utility
66 void announce_grob (Grob *, SCM cause);
67 void announce_end_grob (Grob *, SCM cause);
69 Grob_info make_grob_info (Grob *, SCM cause);
71 Item *internal_make_item (SCM sym, SCM cause,
72 char const *f, int l, char const *fun);
73 Spanner *internal_make_spanner (SCM sym, SCM cause,
74 char const *f, int l, char const *fun);
75 Paper_column *internal_make_column (SCM sym,
76 char const *f, int l, char const *fun);
81 DECLARE_CLASSNAME (Engraver);
82 DECLARE_TRANSLATOR_CALLBACKS (Engraver);
86 #define make_item(x, cause) internal_make_item (ly_symbol2scm (x), cause, __FILE__, __LINE__, __FUNCTION__)
87 #define make_spanner(x, cause) internal_make_spanner (ly_symbol2scm (x), cause, __FILE__, __LINE__, __FUNCTION__)
88 #define make_paper_column(x) internal_make_column (ly_symbol2scm (x), __FILE__, __LINE__, __FUNCTION__)
90 bool ly_is_grob_cause (SCM obj);