/*
- commandrequest.cc -- implement Nonmusical reqs
+ command-request.cc -- implement non-musical reqs
source file of the GNU LilyPond music typesetter
- (c) 1997 Han-Wen Nienhuys <hanwen@stack.nl>
+ (c) 1997--2000 Han-Wen Nienhuys <hanwen@cs.uu.nl>
*/
#include "command-request.hh"
#include "debug.hh"
#include "musical-request.hh"
-void
-Command_script_req::do_print() const
-{}
-
-IMPLEMENT_IS_TYPE_B1(Command_script_req,Command_req);
-
-
-IMPLEMENT_IS_TYPE_B1(Cadenza_req, Timing_req);
-
-void
-Cadenza_req::do_print()const
-{
- mtor << on_b_;
-}
-Cadenza_req::Cadenza_req(bool b)
+bool
+Bar_req::do_equal_b (Request const *r) const
{
- on_b_ =b;
+ Bar_req const* b = dynamic_cast <Bar_req const *> (r);
+ return b && type_str_ == b->type_str_;
}
-/* *************** */
-
-
-int
-Bar_req::compare(Bar_req const &c1)const
-{
- return type_str_ == c1.type_str_;
-}
-
-
-IMPLEMENT_IS_TYPE_B1(Bar_req,Command_req);
void
-Bar_req::do_print() const
-{
- mtor << type_str_;
-}
-
-Bar_req::Bar_req(String s)
+Bar_req::do_print () const
{
- type_str_ = s;
+#ifndef NPRINT
+ DEBUG_OUT << type_str_;
+#endif
}
-Partial_measure_req::Partial_measure_req(Moment m)
+Bar_req::Bar_req (String s)
{
- duration_ =m;
+ type_str_ = s;
}
-/* *************** */
-
-
-IMPLEMENT_IS_TYPE_B1(Timing_req,Command_req);
-
-void
-Timing_req::do_print()const{}
-
-IMPLEMENT_IS_TYPE_B1(Command_req,Request);
-void
-Command_req::do_print()const{}
-
-IMPLEMENT_IS_TYPE_B1(Disallow_break_req,Command_req);
-void
-Disallow_break_req::do_print()const
+bool
+Barcheck_req::do_equal_b (Request const *r) const
{
+ Barcheck_req const*b = dynamic_cast<Barcheck_req const*> (r);
+ return b;
}
-/* *************** */
-
-IMPLEMENT_IS_TYPE_B1(Barcheck_req,Timing_req);
-
-void
-Barcheck_req::do_print() const{}
-
-/* *************** */
-
-IMPLEMENT_IS_TYPE_B1(Clef_change_req,Command_req);
void
-Clef_change_req::do_print() const
+Clef_change_req::do_print () const
{
#ifndef NPRINT
- mtor << clef_str_ ;
+ DEBUG_OUT << clef_str_ ;
#endif
}
-Clef_change_req::Clef_change_req(String s)
+Clef_change_req::Clef_change_req (String s)
{
- clef_str_ = s;
+ clef_str_ = s;
}
-/* *************** */
-IMPLEMENT_IS_TYPE_B1(Group_feature_req,Command_req);
void
-Group_feature_req::do_print() const
+Time_signature_change_req::do_print () const
{
#ifndef NPRINT
- mtor << type_str_ << "=" << value_str_;
+ DEBUG_OUT << beats_i_ << "/" << one_beat_i_;
#endif
}
-/* *************** */
-
-
-IMPLEMENT_IS_TYPE_B1(Partial_measure_req,Timing_req);
-
-void
-Partial_measure_req::do_print() const
+bool
+Time_signature_change_req::do_equal_b (Request const *r) const
{
- mtor << duration_;
-}
-
+ Time_signature_change_req const* m
+ = dynamic_cast <Time_signature_change_req const*> (r);
-IMPLEMENT_IS_TYPE_B1(Meter_change_req,Timing_req);
-
-void
-Meter_change_req::do_print() const
-{
- mtor << beats_i_ << "/" << one_beat_i_;
+ return m && m->beats_i_ == beats_i_
+ && one_beat_i_ == m->one_beat_i_;
}
-int
-Meter_change_req::compare(Meter_change_req const &m)
+Time_signature_change_req::Time_signature_change_req ()
{
- return m.beats_i_ == beats_i_ && one_beat_i_ == m.one_beat_i_;
+ beats_i_ = 0;
+ one_beat_i_ =0;
}
-Meter_change_req::Meter_change_req()
+
+Tempo_req::Tempo_req ()
{
- beats_i_ = 0;
- one_beat_i_ =0;
+ metronome_i_ = 60;
+ dur_. durlog_i_ = 2;
}
void
-Meter_change_req::set(int b,int o)
+Tempo_req::do_print () const
{
- beats_i_=b;
- one_beat_i_=o;
+ DEBUG_OUT << dur_.str () << " = " << metronome_i_;
}
-/* *************** */
-
-
-IMPLEMENT_IS_TYPE_B1(Measure_grouping_req,Timing_req);
-void
-Measure_grouping_req::do_print() const
+bool
+Tempo_req::do_equal_b (Request const *r) const
{
- for (int i=0; i < elt_length_arr_.size(); i++) {
- mtor << beat_i_arr_[i] <<"*" << elt_length_arr_[i]<<" ";
- }
-}
-/* *************** */
+ Tempo_req const *t = dynamic_cast <Tempo_req const*> (r);
-void
-Key_change_req::transpose(Melodic_req const & d)const
-{
- WARN << "don't know how to transpose a key. \n";
- for (int i=0; i < melodic_p_arr_.size(); i++) {
- melodic_p_arr_[i]->transpose(d);
- }
+ return t&& t->dur_.length_mom ()== dur_.length_mom () && metronome_i_ == t->metronome_i_;
}
-IMPLEMENT_IS_TYPE_B1(Key_change_req,Command_req);
-void
-Key_change_req::squash_octaves()
-{
- for (int i=0; i < melodic_p_arr_.size(); i++) {
- melodic_p_arr_[i]->octave_i_ = 0;
- }
-}
+
void
-Key_change_req::do_print() const
+Key_change_req::do_print () const
{
- for (int i=0; i < melodic_p_arr_.size(); i++) {
- melodic_p_arr_[i]->print();
+#ifndef NPRINT
+ for (int i=0; i < key_.pitch_arr_.size (); i++)
+ {
+ key_.pitch_arr_[i].print ();
}
+#endif
}
-Key_change_req::Key_change_req()
+Key_change_req::Key_change_req ()
{
- minor_b_ = false;
- multi_octave_b_= false;
}
-Key_change_req::Key_change_req(Key_change_req const&c)
+Break_req::Break_req ()
{
- for (int i=0; i < c.melodic_p_arr_.size(); i++)
- melodic_p_arr_.push( c.melodic_p_arr_[i]->clone()->musical()->melodic() );
- minor_b_ = c.minor_b_;
- multi_octave_b_ = c.multi_octave_b_;
}
-Key_change_req::~Key_change_req()
-{
- for (int i=0; i < melodic_p_arr_.size(); i++)
- delete melodic_p_arr_[i];
-}
-int
-Key_change_req::flats_i()
-{
- int flats_i = 0;
- for ( int i = 0; i < melodic_p_arr_.size(); i++ ) {
- Melodic_req* mel_l = melodic_p_arr_[i]->melodic();
- assert( mel_l );
- if ( mel_l->accidental_i_ < 0 )
- flats_i -= mel_l->accidental_i_;
- }
- return flats_i;
-}
-int
-Key_change_req::minor_b()
+bool
+Mark_req::do_equal_b (Request const * r) const
{
- return minor_b_;
+ Mark_req const * other = dynamic_cast<Mark_req const*> (r);
+ return other && scm_equal_p (other->mark_label_, mark_label_);
}
-int
-Key_change_req::sharps_i()
+void
+Key_change_req::transpose (Musical_pitch p)
{
- int sharps_i = 0;
- for ( int i = 0; i < melodic_p_arr_.size(); i++ ) {
- Melodic_req* mel_l = melodic_p_arr_[i]->melodic();
- assert( mel_l );
- if ( mel_l->accidental_i_ > 0 )
- sharps_i+= mel_l->accidental_i_;
- }
- return sharps_i;
+ key_.transpose (p);
}
+
+
projects / lilypond.git / blobdiff