lily/output-property-engraver.hh

   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 "output-property.hh"
  11 #include "engraver.hh"
  12
  13 class Output_property_engraver : public Engraver
  14 {
  15 public:
  16   Output_property_engraver();
  17   VIRTUAL_COPY_CONS(Translator);
  18 protected:
  19
  20   Link_array<Output_property> props_;
  21
  22   virtual void do_acknowledge_element (Score_element_info);
  23   virtual bool do_try_music (Music*);
  24 };
  25
  26
  27 Output_property_engraver::do_try_music (Music* m)
  28 {
  29   if (Output_property * o = dynamic_cast<Output_property*> (m))
  30     {
  31       props_.push (m);
  32       return true;
  33     }
  34   return false;
  35 }
  36
  37 void
  38 Output_property_engraver::do_acknowledge_element (Score_element_info i)
  39 {
  40   for (int i=props_.size (); i--; )
  41     {
  42       Output_property * o = props_[i];
  43       SCM pred = gh_car (o->pred_sym_val_list_);
  44       /*
  45         should typecheck pred.
  46        */
  47       SCM result=gh_apply (pred,
  48                            gh_listify (i.elem_l_->self_scm_, SCM_UNDEFINED));
  49       if (to_boolean (result))
  50         {
  51           i.elem_l_->set_elt_property (gh_cadr (o->pred_sym_val_list_),
  52                                        gh_caddr (o->pred_sym_val_list_));
  53         }
  54     }
  55 }
  56
  57 void
  58 Output_property_engraver::do_pre_move_processing ()
  59 {
  60   props_.clear ();
  61 }