lily/include/engraver.hh

   1 /*
   2   This file is part of LilyPond, the GNU music typesetter.
   3
   4   Copyright (C) 1996--2015 Han-Wen Nienhuys <hanwen@xs4all.nl>
   5
   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.
  10
  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.
  15
  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/>.
  18 */
  19
  20 #ifndef ENGRAVER_HH
  21 #define ENGRAVER_HH
  22
  23 #include "callback.hh"
  24 #include "grob.hh"
  25 #include "grob-info.hh"
  26 #include "translator.hh"
  27
  28 /**
  29    a struct which processes events, and creates the #Grob#s.
  30    It may use derived classes.
  31 */
  32 class Engraver : public Translator
  33 {
  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;
  38 protected:
  39   /*
  40     take note of item/spanner
  41     put item in spanner. Adjust local key; etc.
  42
  43     Default: ignore the info
  44   */
  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;
  49
  50 public:
  51   using Translator::trampoline;
  52   template <class T, void (T::*callback)(Grob_info)>
  53   static SCM trampoline (SCM target, SCM grob, SCM source_engraver)
  54   {
  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);
  58
  59     (t->*callback) (Grob_info (e, g));
  60     return SCM_UNSPECIFIED;
  61   }
  62
  63   /**
  64      Announce element. Default: pass on to daddy. Utility
  65   */
  66   void announce_grob (Grob *, SCM cause);
  67   void announce_end_grob (Grob *, SCM cause);
  68
  69   Grob_info make_grob_info (Grob *, SCM cause);
  70
  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);
  77
  78   /**
  79      override other ctor
  80   */
  81   DECLARE_CLASSNAME (Engraver);
  82   DECLARE_TRANSLATOR_CALLBACKS (Engraver);
  83   Engraver ();
  84 };
  85
  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__)
  89
  90 bool ly_is_grob_cause (SCM obj);
  91
  92 #endif // ENGRAVER_HH