lily/include/moment.hh

   1 /*
   2   moment.hh -- declare Moment
   3
   4   source file of the GNU LilyPond music typesetter
   5
   6   (c) 1999 Han-Wen Nienhuys <hanwen@cs.uu.nl>
   7
   8  */
   9
  10 #ifndef MOMENT_HH
  11 #define MOMENT_HH
  12
  13 #include "smobs.hh"
  14 #include "rational.hh"
  15
  16 /**
  17    Rationals with glue for Guilification;
  18  */
  19 struct Moment : public Rational
  20 {
  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; }
  25   ~Moment ();
  26
  27   DECLARE_SMOBS;
  28 };
  29
  30
  31 IMPLEMENT_ARITHMETIC_OPERATOR (Moment, / );
  32 IMPLEMENT_ARITHMETIC_OPERATOR (Moment, + );
  33 IMPLEMENT_ARITHMETIC_OPERATOR (Moment, * );
  34 IMPLEMENT_ARITHMETIC_OPERATOR (Moment, - );
  35 IMPLEMENT_ARITHMETIC_OPERATOR (Moment, % );
  36
  37 INSTANTIATE_COMPARE (Moment const&, Rational::compare);
  38
  39
  40 /**
  41   A really big time-moment.
  42
  43   Windhoze-suck-suck-suck-suck-suck-thank-you-cygnus
  44
  45   I get tired of all these incompatibilities.  Let's just assume that
  46   INT_MAX is really, really, really big.
  47
  48   Can't we name this Saint_jut_mom (Sintjuttemis ?)  */
  49
  50 /* URG ! WE HAVE TWO RATIONAL INFINITIES! */
  51 const Moment infinity_mom = INT_MAX;
  52
  53 #endif /* MOMENT_HH */
  54