Update using bison-CVS.

[lilypond.git] / lily / ledger-line-engraver.cc

diff --git a/lily/ledger-line-engraver.cc b/lily/ledger-line-engraver.cc
index 7fda2b047b2927c389f8d23784b4a584ffc274bd..b077ff33799dab901439f4c28ae3fb4edac25367 100644 (file)
--- a/lily/ledger-line-engraver.cc
+++ b/lily/ledger-line-engraver.cc
@@ -1,12 +1,10 @@
-/* 
-  ledger-line-engraver.cc --  implement Ledger_line_engraver=
-  
+/*
+  ledger-line-engraver.cc -- implement Ledger_line_engraver
+
   source file of the GNU LilyPond music typesetter
-  
-  (c) 2004 Han-Wen Nienhuys <hanwen@xs4all.nl>
-  
-*/
 
+  (c) 2004--2005 Han-Wen Nienhuys <hanwen@xs4all.nl>
+*/
 
 #include "group-interface.hh"
 #include "spanner.hh"
@@ -14,7 +12,7 @@
 
 class Ledger_line_engraver : public Engraver
 {
-  Spanner * span_;
+  Spanner *span_;
 
 public:
   TRANSLATOR_DECLARATIONS (Ledger_line_engraver);
@@ -25,7 +23,7 @@ protected:
   virtual void acknowledge_grob (Grob_info);
 };
 
-Ledger_line_engraver::Ledger_line_engraver()
+Ledger_line_engraver::Ledger_line_engraver ()
 {
   span_ = 0;
 }
@@ -35,8 +33,8 @@ Ledger_line_engraver::process_music ()
 {
   if (!span_)
     {
-      span_ = make_spanner("LedgerLineSpanner", SCM_EOL);
-  
+      span_ = make_spanner ("LedgerLineSpanner", SCM_EOL);
+
       span_->set_bound (LEFT, unsmob_grob (get_property ("currentCommandColumn")));
     }
 }
@@ -45,20 +43,20 @@ void
 Ledger_line_engraver::finalize ()
 {
   if (span_)
-    span_->set_bound (RIGHT,unsmob_grob (get_property ("currentCommandColumn")));
+    span_->set_bound (RIGHT, unsmob_grob (get_property ("currentCommandColumn")));
 }
 
-
 void
 Ledger_line_engraver::acknowledge_grob (Grob_info s)
 {
-  Pointer_group_interface::add_grob (span_, ly_symbol2scm ("note-heads"),
-                                    s.grob_);
+  if (!to_boolean (s.grob_->get_property ("no-ledgers")))
+    Pointer_group_interface::add_grob (span_, ly_symbol2scm ("note-heads"),
+                                      s.grob_);
 }
-ENTER_DESCRIPTION (Ledger_line_engraver,
-                  "Creates spanner to draw ledger lines",
-                  /* creats*/       "LedgerLineSpanner",
-                  /* accepts */     "",
-                  /* acks  */      "custos-interface note-head-interface", // ledgered-interface? 
-                  /* reads */       "",
-                  /* write */       "")
+ADD_TRANSLATOR (Ledger_line_engraver,
+               "Creates the spanner to draw ledger lines, and notices objects that need ledger lines",
+               /* creats*/ "LedgerLineSpanner",
+               /* accepts */ "",
+               /* acks  */ "ledgered-interface", // ledgered-interface? 
+               /* reads */ "",
+               /* write */ "")