X-Git-Url: https://git.donarmstrong.com/?a=blobdiff_plain;f=lily%2Fgrob-interface.cc;h=d444d3d71dd1cdaf97fb3cd46dcbb79c63d5c0f1;hb=47db9a3883d726ca53e2133a3b2298f78dd6a32e;hp=74cd104d376930b24c3be8be9aa83cf0a9ade35d;hpb=8cab78caa0db1ba14f2e52e4c1ddbb541ea0e5cb;p=lilypond.git diff --git a/lily/grob-interface.cc b/lily/grob-interface.cc index 74cd104d37..d444d3d71d 100644 --- a/lily/grob-interface.cc +++ b/lily/grob-interface.cc @@ -1,9 +1,20 @@ /* - grob-interface.cc -- implement graphic objects interface + This file is part of LilyPond, the GNU music typesetter. - source file of the GNU LilyPond music typesetter + Copyright (C) 2002--2015 Han-Wen Nienhuys - (c) 2002--2009 Han-Wen Nienhuys + LilyPond is free software: you can redistribute it and/or modify + it under the terms of the GNU General Public License as published by + the Free Software Foundation, either version 3 of the License, or + (at your option) any later version. + + LilyPond is distributed in the hope that it will be useful, + but WITHOUT ANY WARRANTY; without even the implied warranty of + MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the + GNU General Public License for more details. + + You should have received a copy of the GNU General Public License + along with LilyPond. If not, see . */ #include "grob-interface.hh" @@ -16,8 +27,8 @@ #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); @@ -40,7 +51,7 @@ check_interfaces_for_property (Grob const *me, SCM sym) if (sym == ly_symbol2scm ("meta")) { /* - otherwise we get in a nasty recursion loop. + otherwise we get in a nasty recursion loop. */ return; } @@ -53,12 +64,12 @@ check_interfaces_for_property (Grob const *me, SCM sym) { 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); } @@ -66,8 +77,8 @@ check_interfaces_for_property (Grob const *me, SCM sym) 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); } }