/*
This file is part of LilyPond, the GNU music typesetter.
- Copyright (C) 1997--2014 Han-Wen Nienhuys <hanwen@xs4all.nl>
+ Copyright (C) 1997--2015 Han-Wen Nienhuys <hanwen@xs4all.nl>
LilyPond is free software: you can redistribute it and/or modify
it under the terms of the GNU General Public License as published by
#include "warn.hh"
#include "translator.icc"
-#include "ly-smobs.icc"
Translator::~Translator ()
{
void
Translator::init ()
{
- self_scm_ = SCM_EOL;
daddy_context_ = 0;
smobify_self ();
}
init ();
}
-Translator::Translator (Translator const &src)
+Translator::Translator (Translator const &)
+ : Smob<Translator> ()
{
- (void) src;
init ();
}
// the static translator_listener_record chains while garbage
// collecting.
- SCM class_sym = scm_permanent_object (scm_from_locale_symbol (name.c_str ()));
+ SCM class_sym = scm_permanent_object (scm_from_ascii_symbol (name.c_str ()));
r->event_class_ = class_sym;
r->get_listener_ = get_listener;
parse_symbol_list (grobs), static_properties);
static_properties = scm_acons (ly_symbol2scm ("description"),
- scm_from_locale_string (desc), static_properties);
+ scm_from_utf8_string (desc), static_properties);
SCM list = SCM_EOL;
for (; listener_list; listener_list = listener_list->next_)
SMOBS
*/
SCM
-Translator::mark_smob (SCM sm)
+Translator::mark_smob ()
{
- Translator *me = (Translator *) SCM_CELL_WORD_1 (sm);
- me->derived_mark ();
+ derived_mark ();
return SCM_EOL;
}
return daddy_context_->get_score_context ();
}
-IMPLEMENT_SMOBS (Translator);
-IMPLEMENT_DEFAULT_EQUAL_P (Translator);
-IMPLEMENT_TYPE_P (Translator, "ly:translator?");
+const char Translator::type_p_name_[] = "ly:translator?";
bool
Translator::must_be_last () const
}
int
-Translator::print_smob (SCM s, SCM port, scm_print_state *)
+Translator::print_smob (SCM port, scm_print_state *)
{
- Translator *me = (Translator *) SCM_CELL_WORD_1 (s);
scm_puts ("#<Translator ", port);
- scm_puts (me->class_name (), port);
+ scm_puts (class_name (), port);
scm_puts (" >", port);
return 1;
}
Moment
get_event_length (Stream_event *e)
{
- Moment *m = unsmob_moment (e->get_property ("length"));
+ Moment *m = Moment::unsmob (e->get_property ("length"));
if (m)
return *m;
else