lily/output-property-engraver.cc

   1 /*
   2   output-property-engraver.cc --  implement Output_property_engraver
   3
   4   source file of the GNU LilyPond music typesetter
   5
   6   (c) 2000 Han-Wen Nienhuys <hanwen@cs.uu.nl>
   7
   8  */
   9
  10 #include "engraver.hh"
  11 #include "score-element.hh"
  12
  13 class Output_property_engraver : public Engraver
  14 {
  15 public:
  16   VIRTUAL_COPY_CONS(Translator);
  17 protected:
  18
  19   /*
  20     should do this with \once and \push ?
  21
  22
  23       \property Voice.outputProperties \push #pred = #modifier
  24
  25       where both MODIFIER and PRED are functions taking a
  26       score-element.
  27
  28    */
  29
  30
  31   Link_array<Music> props_;
  32
  33   virtual void do_pre_move_processing ();
  34   virtual void acknowledge_element (Score_element_info);
  35   virtual bool do_try_music (Music*);
  36 };
  37
  38
  39 bool
  40 Output_property_engraver::do_try_music (Music* m)
  41 {
  42   if (m->get_mus_property ("type") ==  ly_symbol2scm ("output-property"))
  43     {
  44       props_.push (m);
  45       return true;
  46     }
  47   return false;
  48 }
  49
  50 void
  51 Output_property_engraver::acknowledge_element (Score_element_info inf)
  52 {
  53   for (int i=props_.size (); i--; )
  54     {
  55       Music * o = props_[i];
  56       SCM pred = o->get_mus_property ("predicate");
  57
  58       /*
  59         should typecheck pred.
  60        */
  61       SCM result=gh_apply (pred,
  62                            gh_list (inf.elem_l_->self_scm (), SCM_UNDEFINED));
  63       if (to_boolean (result))
  64         {
  65           SCM sym = o->get_mus_property ("symbol");
  66           SCM val = o->get_mus_property ("value");
  67           inf.elem_l_->set_elt_property (sym, val);
  68         }
  69     }
  70 }
  71
  72 void
  73 Output_property_engraver::do_pre_move_processing ()
  74 {
  75   props_.clear ();
  76 }
  77
  78 ADD_THIS_TRANSLATOR(Output_property_engraver);