source file of the GNU LilyPond music typesetter
- (c) 1997--2005 Han-Wen Nienhuys <hanwen@cs.uu.nl>
+ (c) 1997--2006 Han-Wen Nienhuys <hanwen@xs4all.nl>
*/
#include "translator.hh"
smobify_self ();
}
-
void
Translator::process_music ()
{
{
Translator *me = (Translator *) SCM_CELL_WORD_1 (s);
scm_puts ("#<Translator ", port);
- scm_puts (classname (me), port);
+ scm_puts (me->class_name (), port);
scm_puts (" >", port);
return 1;
}
void
add_acknowledger (Engraver_void_function_engraver_grob_info ptr,
- const char *func_name,
+ char const *func_name,
Array<Acknowledge_information> *ack_array)
{
Acknowledge_information inf;
inf.function_ = ptr;
- String interface_name(func_name);
+ String interface_name (func_name);
interface_name = interface_name.substitute ('_', '-');
interface_name += "-interface";
Engraver_void_function_engraver_grob_info
generic_get_acknowledger (SCM sym, Array<Acknowledge_information> const *ack_array)
{
- for (int i = 0; i < ack_array->size(); i++)
+ for (int i = 0; i < ack_array->size (); i++)
{
if (ack_array->elem (i).symbol_ == sym)
- {
- return ack_array->elem(i).function_;
- }
+ return ack_array->elem (i).function_;
}
return 0;
}
-ADD_TRANSLATOR(Translator,
- "Base class. Unused",
- "",
- "",
- "",
- "");
+ADD_TRANSLATOR (Translator,
+ "Base class. Unused",
+ "",
+ "",
+ "",
+ "");