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
  69 SCM
  70 Moment::equal_p (SCM a, SCM b)
  71 {
  72   Moment *m1 = unsmob_moment (a);
  73   Moment *m2 = unsmob_moment (b);
  74
  75   return (*m1 == *m2) ? SCM_BOOL_T : SCM_BOOL_F;
  76 }
  77
  78 int
  79 compare (Moment const &a, Moment const &b)
  80 {
  81   return Moment::compare (a, b);
  82 }
  83
  84 int
  85 Moment::compare (Moment const &a, Moment const &b)
  86 {
  87   int c = Rational::compare (a.main_part_, b.main_part_);
  88   if (c)
  89     return c;
  90
  91   return Rational::compare (a.grace_part_, b.grace_part_);
  92 }
  93
  94 void
  95 Moment::operator += (Moment const &src)
  96 {
  97   main_part_ += src.main_part_ ;
  98   grace_part_ += src.grace_part_;
  99 }
 100 void
 101 Moment::operator -= (Moment const &src)
 102 {
 103   main_part_ -= src.main_part_ ;
 104   grace_part_ -= src.grace_part_;
 105 }
 106
 107 /*
 108   only take the main part of SRC for multiplication.
 109 */
 110 void
 111 Moment::operator *= (Moment const &src)
 112 {
 113   main_part_ *= src.main_part_ ;
 114   grace_part_ *= src.main_part_;
 115 }
 116
 117 /*
 118   only take the main part of SRC for multiplication.
 119 */
 120 void
 121 Moment::operator /= (Moment const &src)
 122 {
 123   main_part_ /= src.main_part_ ;
 124   grace_part_ /= src.main_part_;
 125 }
 126
 127 int
 128 Moment::den () const
 129 {
 130   return main_part_.den ();
 131 }
 132
 133 int
 134 Moment::num () const
 135 {
 136   return main_part_.num ();
 137 }
 138
 139 bool
 140 Moment::to_bool () const
 141 {
 142   return main_part_ || grace_part_;
 143 }
 144
 145 void
 146 Moment::set_infinite (int k)
 147 {
 148   main_part_.set_infinite (k);
 149 }
 150
 151 String
 152 Moment::to_string () const
 153 {
 154   String s =  main_part_.to_string ();
 155   if (grace_part_)
 156     {
 157       s += "G" + grace_part_.to_string ();
 158     }
 159   return s;
 160 }
 161
 162 Moment
 163 Moment::operator - () const
 164 {
 165   Moment m;
 166   m.grace_part_ = - grace_part_;
 167   m. main_part_ = - main_part_ ;
 168   return m;
 169 }
 170
 171
 172 #ifdef STREAM_SUPPORT
 173 std::ostream &
 174 operator << (std::ostream &os, Moment const &m)
 175 {
 176   os << m.to_string ();
 177   return os;
 178 }
 179 #endif
 180
 181 Moment
 182 robust_scm2moment (SCM m, Moment d)
 183 {
 184   Moment *p = unsmob_moment (m);
 185   if (!p)
 186     return d;
 187   else
 188     return *p;
 189 }
 190
 191
 192 bool
 193 moment_less (SCM a, SCM b)
 194 {
 195   return *unsmob_moment (a) < *unsmob_moment (b);
 196 }
 197