2 moment.cc -- implement Moment
4 source file of the GNU LilyPond music typesetter
6 (c) 1999--2005 Han-Wen Nienhuys <hanwen@cs.uu.nl>
17 Moment::Moment (int m)
19 main_part_ = Rational (m);
20 grace_part_ = Rational (0);
23 Moment::Moment (Rational m, Rational g)
29 Moment::Moment (Rational m)
32 grace_part_ = Rational (0);
35 #include "ly-smobs.icc"
36 IMPLEMENT_SIMPLE_SMOBS (Moment);
37 IMPLEMENT_TYPE_P (Moment, "ly:moment?");
40 Moment::mark_smob (SCM)
46 Moment::print_smob (SCM s, SCM port, scm_print_state *)
48 Moment *r = (Moment *) SCM_CELL_WORD_1 (s);
50 scm_puts ("#<Mom ", port);
51 String str = r->to_string ();
52 scm_puts ((char *)str.to_str0 (), port);
59 Moment::as_scheme () const
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 ()));
69 Moment::equal_p (SCM a, SCM b)
71 Moment *m1 = unsmob_moment (a);
72 Moment *m2 = unsmob_moment (b);
74 return (*m1 == *m2) ? SCM_BOOL_T : SCM_BOOL_F;
78 compare (Moment const &a, Moment const &b)
80 return Moment::compare (a, b);
84 Moment::compare (Moment const &a, Moment const &b)
86 int c = Rational::compare (a.main_part_, b.main_part_);
90 return Rational::compare (a.grace_part_, b.grace_part_);
94 Moment::operator += (Moment const &src)
96 main_part_ += src.main_part_;
97 grace_part_ += src.grace_part_;
100 Moment::operator -= (Moment const &src)
102 main_part_ -= src.main_part_;
103 grace_part_ -= src.grace_part_;
107 only take the main part of SRC for multiplication.
110 Moment::operator *= (Moment const &src)
112 main_part_ *= src.main_part_;
113 grace_part_ *= src.main_part_;
117 only take the main part of SRC for multiplication.
120 Moment::operator /= (Moment const &src)
122 main_part_ /= src.main_part_;
123 grace_part_ /= src.main_part_;
129 return main_part_.den ();
135 return main_part_.num ();
139 Moment::to_bool () const
141 return main_part_ || grace_part_;
145 Moment::set_infinite (int k)
147 main_part_.set_infinite (k);
151 Moment::to_string () const
153 String s = main_part_.to_string ();
156 s += "G" + grace_part_.to_string ();
162 Moment::operator - () const
165 m.grace_part_ = -grace_part_;
166 m.main_part_ = -main_part_;
170 #ifdef STREAM_SUPPORT
172 operator << (std::ostream &os, Moment const &m)
174 os << m.to_string ();
180 robust_scm2moment (SCM m, Moment d)
182 Moment *p = unsmob_moment (m);
190 moment_less (SCM a, SCM b)
192 return *unsmob_moment (a) < *unsmob_moment (b);