/*
This file is part of LilyPond, the GNU music typesetter.
- Copyright (C) 2002--2011 Han-Wen Nienhuys <hanwen@xs4all.nl>
+ Copyright (C) 2002--2014 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 "misc.hh"
SCM add_interface (char const *cxx_name,
- char const *descr,
- char const *vars)
+ char const *descr,
+ char const *vars)
{
string suffix ("-interface");
string lispy_name = camel_case_to_lisp_identifier (cxx_name);
if (sym == ly_symbol2scm ("meta"))
{
/*
- otherwise we get in a nasty recursion loop.
+ otherwise we get in a nasty recursion loop.
*/
return;
}
{
SCM iface = scm_hashq_ref (all_ifaces, scm_car (ifs), SCM_BOOL_F);
if (iface == SCM_BOOL_F)
- {
- string msg = to_string (_f ("Unknown interface `%s'",
- ly_symbol2string (scm_car (ifs)).c_str ()));
- programming_error (msg);
- continue;
- }
+ {
+ string msg = to_string (_f ("Unknown interface `%s'",
+ ly_symbol2string (scm_car (ifs)).c_str ()));
+ programming_error (msg);
+ continue;
+ }
found = found || (scm_c_memq (sym, scm_caddr (iface)) != SCM_BOOL_F);
}
if (!found)
{
string str = to_string (_f ("Grob `%s' has no interface for property `%s'",
- me->name ().c_str (),
- ly_symbol2string (sym).c_str ()));
+ me->name ().c_str (),
+ ly_symbol2string (sym).c_str ()));
programming_error (str);
}
}