lily/bar-engraver.cc

   1 /*
   2   bar-engraver.cc -- implement Bar_engraver
   3
   4   source file of the GNU LilyPond music typesetter
   5
   6   (c)  1997--2000 Han-Wen Nienhuys <hanwen@cs.uu.nl>
   7   Jan Nieuwenhuizen <janneke@gnu.org>
   8 */
   9
  10 #include "bar.hh"
  11 #include "score-engraver.hh"
  12 #include "musical-request.hh"
  13 #include "engraver-group-engraver.hh"
  14 #include "warn.hh"
  15 #include "item.hh"
  16 #include "engraver.hh"
  17
  18 /*
  19   generate bars. Either user ("|:"), or default (new measure)
  20
  21   */
  22 class Bar_engraver : public Engraver
  23 {
  24 public:
  25   Bar_engraver();
  26   VIRTUAL_COPY_CONS(Translator);
  27   void request_bar (String type_str);
  28
  29 protected:
  30   virtual void do_creation_processing ();
  31   virtual void do_removal_processing ();
  32   void deprecated_process_music();
  33   virtual void do_pre_move_processing();
  34   virtual void process_acknowledged ();
  35
  36 private:
  37   void typeset_bar ();
  38   void create_bar ();
  39
  40   Item * bar_p_;
  41 };
  42
  43 Bar_engraver::Bar_engraver()
  44 {
  45   bar_p_ =0;
  46   do_post_move_processing();
  47 }
  48
  49 void
  50 Bar_engraver::create_bar ()
  51 {
  52   if (!bar_p_)
  53     {
  54       bar_p_ = new Item (get_property ("BarLine"));
  55
  56       SCM gl = get_property ("whichBar");
  57       if (scm_equal_p (gl, bar_p_->get_elt_property ("glyph")) != SCM_BOOL_T)
  58           bar_p_->set_elt_property ("glyph", gl);
  59
  60       announce_element (bar_p_, 0);
  61     }
  62 }
  63
  64 void
  65 Bar_engraver::do_creation_processing ()
  66 {
  67 }
  68
  69 void
  70 Bar_engraver::do_removal_processing ()
  71 {
  72   typeset_bar ();
  73 }
  74
  75 /*
  76   Bar_engraver should come *after* any engravers that expect bars to
  77   modify whichBar in  deprecated_process_music () be typeset
  78 */
  79 void
  80 Bar_engraver::deprecated_process_music()
  81 {
  82   SCM b =get_property ("whichBar");
  83   if (gh_string_p (b))
  84     {
  85       create_bar ();
  86     }
  87 }
  88
  89 void
  90 Bar_engraver::process_acknowledged ()
  91 {
  92   deprecated_process_music ();
  93 }
  94
  95 void
  96 Bar_engraver::typeset_bar ()
  97 {
  98   if (bar_p_)
  99     {
 100       typeset_element (bar_p_);
 101       bar_p_ =0;
 102     }
 103 }
 104
 105 /*
 106   lines may only be broken if there is a barline in all staffs
 107 */
 108 void
 109 Bar_engraver::do_pre_move_processing()
 110 {
 111   if (!bar_p_)
 112     {
 113       Score_engraver * e = 0;
 114       Translator * t  =  daddy_grav_l ();
 115       for (; !e && t;  t = t->daddy_trans_l_)
 116         {
 117           e = dynamic_cast<Score_engraver*> (t);
 118         }
 119
 120       if (!e)
 121         programming_error ("No score engraver!");
 122       else
 123         e->forbid_breaks ();    // guh. Use properties!
 124     }
 125   else
 126     typeset_bar ();
 127 }
 128
 129 ADD_THIS_TRANSLATOR(Bar_engraver);