2 moment.hh -- declare Moment
4 source file of the GNU LilyPond music typesetter
6 (c) 1999 Han-Wen Nienhuys <hanwen@cs.uu.nl>
14 #include "rational.hh"
17 Rationals with glue for Guilification;
19 struct Moment : public Rational
21 Moment () { self_scm_ = SCM_EOL; }
22 Moment (int m) : Rational (m) {self_scm_ = SCM_EOL; }
23 Moment (int m, int n) : Rational (m,n) {self_scm_ = SCM_EOL; }
24 Moment (Rational m) : Rational (m) {self_scm_ = SCM_EOL; }
30 IMPLEMENT_ARITHMETIC_OPERATOR (Moment, / );
31 IMPLEMENT_ARITHMETIC_OPERATOR (Moment, + );
32 IMPLEMENT_ARITHMETIC_OPERATOR (Moment, * );
33 IMPLEMENT_ARITHMETIC_OPERATOR (Moment, - );
34 IMPLEMENT_ARITHMETIC_OPERATOR (Moment, % );
36 INSTANTIATE_COMPARE (Moment const&, Rational::compare);
40 A really big time-moment.
42 Windhoze-suck-suck-suck-suck-suck-thank-you-cygnus
44 I get tired of all these incompatibilities. Let's just assume that
45 INT_MAX is really, really, really big.
47 Can't we name this Saint_jut_mom (Sintjuttemis ?) */
49 /* URG ! WE HAVE TWO RATIONAL INFINITIES! */
50 const Moment infinity_mom = INT_MAX;
52 #endif /* MOMENT_HH */