source file of the GNU LilyPond music typesetter
- (c) 1999--2006 Han-Wen Nienhuys <hanwen@xs4all.nl>
+ (c) 1999--2009 Han-Wen Nienhuys <hanwen@xs4all.nl>
*/
#include "moment.hh"
Moment *r = (Moment *) SCM_CELL_WORD_1 (s);
scm_puts ("#<Mom ", port);
- String str = r->to_string ();
+ string str = r->to_string ();
scm_puts ((char *)str.c_str (), port);
scm_puts (">", port);
Moment::as_scheme () const
{
return scm_list_5 (ly_symbol2scm ("ly:make-moment"),
- scm_from_int (main_part_.num ()),
- scm_from_int (main_part_.den ()),
- scm_from_int (grace_part_.num ()),
- scm_from_int (grace_part_.den ()));
+ scm_from_int64 (main_part_.num ()),
+ scm_from_int64 (main_part_.den ()),
+ scm_from_int64 (grace_part_.num ()),
+ scm_from_int64 (grace_part_.den ()));
}
SCM
grace_part_ %= src.main_part_;
}
-int
+I64
Moment::den () const
{
+ /* TODO: ensure MSB == 0 here */
return main_part_.den ();
}
-int
+I64
Moment::num () const
{
return main_part_.num ();
main_part_.set_infinite (k);
}
-String
+string
Moment::to_string () const
{
- String s = main_part_.to_string ();
+ string s = main_part_.to_string ();
if (grace_part_)
s += "G" + grace_part_.to_string ();
return s;