lily/moment.cc

   1 /*
   2   moment.cc --  implement Moment
   3
   4   source file of the GNU LilyPond music typesetter
   5
   6   (c) 1999--2001 Han-Wen Nienhuys <hanwen@cs.uu.nl>
   7
   8  */
   9
  10
  11 #include "lily-guile.hh"
  12 #include "moment.hh"
  13 #include "warn.hh"
  14 #include "ly-smobs.icc"
  15
  16 IMPLEMENT_UNSMOB (Moment,moment);
  17 IMPLEMENT_SIMPLE_SMOBS (Moment);
  18 IMPLEMENT_TYPE_P (Moment, "moment?");
  19
  20 SCM
  21 Moment::mark_smob (SCM)
  22 {
  23   return SCM_EOL;
  24 }
  25
  26
  27 SCM
  28 Moment::smobbed_copy () const
  29 {
  30   Moment * m = new Moment (*this);
  31   return m->smobbed_self ();
  32 }
  33
  34
  35 int
  36 Moment::print_smob (SCM s, SCM port, scm_print_state *)
  37 {
  38   Moment  *r = (Moment *) gh_cdr (s);
  39
  40   scm_puts ("#<Mom ", port);
  41   String str (r->str ());
  42   scm_puts ((char *)str.ch_C (), port);
  43   scm_puts (" >", port);
  44
  45   return 1;
  46 }
  47
  48 /*
  49   TODO: add optional factor argument.
  50  */
  51 SCM
  52 make_rational (SCM n, SCM d)
  53 {
  54   Moment m (1,1);
  55
  56   if (SCM_INUMP (n) && SCM_INUMP (d))
  57     {
  58       m =  Moment (gh_scm2int (n), gh_scm2int (d));
  59     }
  60   else
  61     {
  62       ::error ("make-moment takes two integer arguments. Using 1/1");
  63     }
  64
  65   return m.smobbed_copy ();
  66 }
  67
  68
  69 void
  70 init_moments ()
  71 {
  72   scm_make_gsubr ("make-moment", 2 , 0, 0, (Scheme_function_unknown) make_rational);
  73 }
  74
  75 ADD_SCM_INIT_FUNC (moms,init_moments);
  76
  77 SCM
  78 Moment::equal_p (SCM a, SCM b)
  79 {
  80   Moment *m1 = unsmob_moment (a);
  81   Moment *m2 = unsmob_moment (b);
  82
  83   return (*m1 == *m2) ? SCM_BOOL_T : SCM_BOOL_F;
  84 }
  85