lily/moment.cc

   1 /*
   2   moment.cc -- implement Moment
   3
   4   source file of the GNU LilyPond music typesetter
   5
   6   (c) 1999--2005 Han-Wen Nienhuys <hanwen@cs.uu.nl>
   7 */
   8
   9 #include "moment.hh"
  10
  11 #include "warn.hh"
  12
  13 Moment::Moment ()
  14 {
  15 }
  16
  17 Moment::Moment (int m)
  18 {
  19   main_part_ = Rational (m);
  20   grace_part_ = Rational (0);
  21 }
  22
  23 Moment::Moment (Rational m, Rational g)
  24 {
  25   main_part_ = m;
  26   grace_part_ = g;
  27 }
  28
  29 Moment::Moment (Rational m)
  30 {
  31   main_part_ = m;
  32   grace_part_ = Rational (0);
  33 }
  34
  35 #include "ly-smobs.icc"
  36 IMPLEMENT_SIMPLE_SMOBS (Moment);
  37 IMPLEMENT_TYPE_P (Moment, "ly:moment?");
  38
  39 SCM
  40 Moment::mark_smob (SCM)
  41 {
  42   return SCM_EOL;
  43 }
  44
  45 int
  46 Moment::print_smob (SCM s, SCM port, scm_print_state *)
  47 {
  48   Moment *r = (Moment *) SCM_CELL_WORD_1 (s);
  49
  50   scm_puts ("#<Mom ", port);
  51   String str = r->to_string ();
  52   scm_puts ((char *)str.to_str0 (), port);
  53   scm_puts (">", port);
  54
  55   return 1;
  56 }
  57
  58 SCM
  59 Moment::as_scheme () const
  60 {
  61   return scm_list_5 (ly_symbol2scm ("ly:make-moment"),
  62                      scm_from_int (main_part_.num ()),
  63                      scm_from_int (main_part_.den ()),
  64                      scm_from_int (grace_part_.num ()),
  65                      scm_from_int (grace_part_.den ()));
  66 }
  67
  68 SCM
  69 Moment::equal_p (SCM a, SCM b)
  70 {
  71   Moment *m1 = unsmob_moment (a);
  72   Moment *m2 = unsmob_moment (b);
  73
  74   return (*m1 == *m2) ? SCM_BOOL_T : SCM_BOOL_F;
  75 }
  76
  77 int
  78 compare (Moment const &a, Moment const &b)
  79 {
  80   return Moment::compare (a, b);
  81 }
  82
  83 int
  84 Moment::compare (Moment const &a, Moment const &b)
  85 {
  86   int c = Rational::compare (a.main_part_, b.main_part_);
  87   if (c)
  88     return c;
  89
  90   return Rational::compare (a.grace_part_, b.grace_part_);
  91 }
  92
  93 void
  94 Moment::operator+= (Moment const &src)
  95 {
  96   main_part_ += src.main_part_;
  97   grace_part_ += src.grace_part_;
  98 }
  99 void
 100 Moment::operator-= (Moment const &src)
 101 {
 102   main_part_ -= src.main_part_;
 103   grace_part_ -= src.grace_part_;
 104 }
 105
 106 /*
 107   only take the main part of SRC for multiplication.
 108 */
 109 void
 110 Moment::operator*= (Moment const &src)
 111 {
 112   main_part_ *= src.main_part_;
 113   grace_part_ *= src.main_part_;
 114 }
 115
 116 /*
 117   only take the main part of SRC for multiplication.
 118 */
 119 void
 120 Moment::operator/= (Moment const &src)
 121 {
 122   main_part_ /= src.main_part_;
 123   grace_part_ /= src.main_part_;
 124 }
 125
 126 int
 127 Moment::den () const
 128 {
 129   return main_part_.den ();
 130 }
 131
 132 int
 133 Moment::num () const
 134 {
 135   return main_part_.num ();
 136 }
 137
 138 bool
 139 Moment::to_bool () const
 140 {
 141   return main_part_ || grace_part_;
 142 }
 143
 144 void
 145 Moment::set_infinite (int k)
 146 {
 147   main_part_.set_infinite (k);
 148 }
 149
 150 String
 151 Moment::to_string () const
 152 {
 153   String s = main_part_.to_string ();
 154   if (grace_part_)
 155     {
 156       s += "G" + grace_part_.to_string ();
 157     }
 158   return s;
 159 }
 160
 161 Moment
 162 Moment::operator- () const
 163 {
 164   Moment m;
 165   m.grace_part_ = -grace_part_;
 166   m. main_part_ = -main_part_;
 167   return m;
 168 }
 169
 170 #ifdef STREAM_SUPPORT
 171 std::ostream &
 172 operator<< (std::ostream &os, Moment const &m)
 173 {
 174   os << m.to_string ();
 175   return os;
 176 }
 177 #endif
 178
 179 Moment
 180 robust_scm2moment (SCM m, Moment d)
 181 {
 182   Moment *p = unsmob_moment (m);
 183   if (!p)
 184     return d;
 185   else
 186     return *p;
 187 }
 188
 189 bool
 190 moment_less (SCM a, SCM b)
 191 {
 192   return *unsmob_moment (a) < *unsmob_moment (b);
 193 }
 194