release: 1.0.15

[lilypond.git] / lily / musical-request.cc

diff --git a/lily/musical-request.cc b/lily/musical-request.cc
index c2d0d0450a5f13504e2868c63237c0a85121c886..3ee6004add9f0e2d330c6cf08213de3d38037da7 100644 (file)
--- a/lily/musical-request.cc
+++ b/lily/musical-request.cc
@@ -3,7 +3,7 @@
 
   source file of the GNU LilyPond music typesetter
 
-  (c)  1997--1998 Han-Wen Nienhuys <hanwen@stack.nl>
+  (c)  1997--1998 Han-Wen Nienhuys <hanwen@cs.uu.nl>
 */
 
 #include "musical-request.hh"
@@ -22,18 +22,23 @@ void
 Tie_req::do_print () const{}
 
 
-/* *************** */
 
+IMPLEMENT_IS_TYPE_B1(Span_req,Request);
 
+IMPLEMENT_IS_TYPE_B2(Musical_span_req, Span_req, Musical_span_req);
 
-
-IMPLEMENT_IS_TYPE_B1 (Span_req,Musical_req);
+void
+Musical_span_req::do_print () const
+{
+  Span_req::do_print ();
+}
+            
 
 void
 Span_req::do_print () const
 {
 #ifndef NPRINT
-  DOUT << spantype ;
+  DOUT << spantype;
 #endif
 }
 
@@ -65,7 +70,7 @@ void
 Abbreviation_req::do_print () const
 {
 #ifndef NPRINT
-  DOUT << "type " << type_i_ << "\n";
+  DOUT << "type " << type_i_ << '\n';
 #endif
 }
 
@@ -77,7 +82,6 @@ Blank_req::do_print () const
 {
   Spacing_req::do_print ();
 }
-/* *************** */
 
 Melodic_req::Melodic_req ()
 {
@@ -90,7 +94,8 @@ Melodic_req::transpose (Musical_pitch delta)
   
   if (abs (pitch_.accidental_i_) > 2)
     {
-       warning (_ ("transposition by ") + delta.str () + _(" makes accidental larger than 2"));
+       warning (_f ("transposition by %s makes accidental larger than two",
+         delta.str ()));
     }
 }
 
@@ -99,7 +104,7 @@ IMPLEMENT_IS_TYPE_B1 (Melodic_req,Musical_req);
 bool
 Melodic_req::do_equal_b (Request*r) const
 {
-  Melodic_req* m= r->musical ()->melodic ();
+  Melodic_req* m= r->access_Musical_req ()->access_Melodic_req ();
   return !compare (*m, *this);
 }
 
@@ -115,7 +120,6 @@ Melodic_req::do_print () const
 pitch_.print ();
 }
 
-/* *************** */
 int
 Rhythmic_req::compare (Rhythmic_req const &r1, Rhythmic_req const &r2)
 {
@@ -125,16 +129,11 @@ Rhythmic_req::compare (Rhythmic_req const &r1, Rhythmic_req const &r2)
 bool
 Rhythmic_req::do_equal_b (Request*r) const
 {
-  Rhythmic_req* rh = r->musical ()->rhythmic ();
+  Rhythmic_req* rh = r->access_Musical_req ()->access_Rhythmic_req ();
 
   return !compare (*this, *rh);
 }
 
-void
-Rhythmic_req::set_duration (Duration d)
-{
-  duration_ = d;
-}
 
 Rhythmic_req::Rhythmic_req ()
 {
@@ -157,26 +156,25 @@ Rhythmic_req::duration () const
 {
   return duration_.length ();
 }
-/* *************** */
 
-Lyric_req::Lyric_req (Text_def* def_p)
-  :Text_req (0, def_p)
+void
+Rhythmic_req::compress (Moment m)
 {
-  def_p->align_i_ = CENTER;    // centre
-  dir_ = DOWN;         // lyrics below (invisible) staff
+  duration_.compress (m);
 }
+  
+
 
 
-IMPLEMENT_IS_TYPE_B2 (Lyric_req,Musical_req,Rhythmic_req);
+IMPLEMENT_IS_TYPE_B1 (Lyric_req,Rhythmic_req);
 
 void
 Lyric_req::do_print () const
 {
   Rhythmic_req::do_print ();
-  Text_req::do_print ();
 }
 
-/* *************** */
+
 bool
 Note_req::do_equal_b (Request*r) const
 {
@@ -203,7 +201,6 @@ Note_req::do_print () const
   Rhythmic_req::do_print ();
 #endif
 }
-/* *************** */
 
 IMPLEMENT_IS_TYPE_B1 (Rest_req, Rhythmic_req);
 
@@ -213,7 +210,6 @@ Rest_req::do_print () const
       Rhythmic_req::do_print ();
 }
 
-/* *************** */
 
 
 
@@ -226,7 +222,6 @@ Multi_measure_rest_req::do_print () const
 }
 
 
-/* *************** */
 
 IMPLEMENT_IS_TYPE_B1 (Beam_req,Span_req);
 
@@ -239,7 +234,6 @@ Beam_req::do_print () const
 {
 }
 
-/* *************** */
 
 IMPLEMENT_IS_TYPE_B1 (Abbreviation_beam_req, Span_req);
 
@@ -271,12 +265,11 @@ Plet_req::do_print () const
 {
 }
 
-/* *************** */
 
 bool
 Span_req:: do_equal_b (Request*r) const
 {
-  Span_req * s = r->span ();
+  Span_req * s = r->access_Span_req ();
   return spantype == s->spantype;
 }
 
@@ -285,7 +278,6 @@ Span_req::Span_req ()
   spantype = NOSPAN;
 }
 
-/* *************** */
 Script_req::Script_req (Script_req const&s)
 {
   dir_ = s.dir_;
@@ -300,7 +292,7 @@ Script_req::Script_req (Script_req const&s)
 bool
 Script_req::do_equal_b (Request*r) const
 {
-  Script_req * s = r->script ();
+  Script_req * s = r->access_Script_req ();
 
   return  scriptdef_p_->equal_b (*s->scriptdef_p_);
 }
@@ -318,7 +310,7 @@ void
 Script_req::do_print () const
 {
 #ifndef NPRINT
-  DOUT << " dir " << dir_ ;
+  DOUT << " dir " << dir_;
   scriptdef_p_->print ();
 #endif
 }
@@ -337,7 +329,6 @@ Script_req::~Script_req ()
 {
   delete scriptdef_p_;
 }
-/* *************** */
 
 
 Text_req::~Text_req ()
@@ -365,12 +356,11 @@ void
 Text_req::do_print () const
 {
 #ifndef NPRINT
-  DOUT << " dir " << dir_ ;
+  DOUT << " dir " << dir_;
   tdef_p_->print ();
 #endif
 }
 
-/* *************** */
 
 
 IMPLEMENT_IS_TYPE_B1 (Skip_req,Musical_req);
@@ -410,7 +400,7 @@ Absolute_dynamic_req::do_print () const
 bool
 Absolute_dynamic_req::do_equal_b (Request *r) const
 {
-  Absolute_dynamic_req *a = r->musical ()->dynamic ()->absdynamic ();
+  Absolute_dynamic_req *a = r->access_Musical_req ()->access_Dynamic_req ()->access_Absolute_dynamic_req ();
   return loudness_ == a->loudness_;
 }
 
@@ -437,14 +427,15 @@ Dynamic_req::loudness_static_str (Loudness l)
 String
 Absolute_dynamic_req::loudness_str () const
 {
-  String s = loudness_static_str (loudness_);
-  if (s.empty_b ())
+  String str = loudness_static_str (loudness_);
+  if (str.empty_b ())
     {
-      s = "mf";
-      warning (String (_ ("Never heard of dynamic scale "))
-              + loudness_ + _ (" assuming mf"));
+      String s = "mf";
+      warning (_f ("never heard of dynamic scale `\%s\', assuming %s",
+       str, s));
+      str = s;
     }
-  return s;
+  return str;
 }
 
 
@@ -454,6 +445,15 @@ Absolute_dynamic_req::Absolute_dynamic_req ()
 }
 
 
+
+bool
+Span_dynamic_req::do_equal_b (Request *req) const
+{
+  Span_dynamic_req * s = req->access_Musical_req ()->access_Span_dynamic_req ();
+
+  return Span_req::do_equal_b (req) && s->dynamic_dir_ == dynamic_dir_;
+}
+
 Span_dynamic_req::Span_dynamic_req ()
 {
   dynamic_dir_  = CENTER;
@@ -467,7 +467,7 @@ Span_dynamic_req::do_print () const
 {
 #ifndef NPRINT
   Span_req::do_print ();
-  DOUT << "softer/louder: " <<dynamic_dir_;
+  DOUT << "softer/louder: " << dynamic_dir_;
 #endif
 }