X-Git-Url: https://git.donarmstrong.com/?a=blobdiff_plain;f=lily%2Finclude%2Fgroup-interface.hh;h=a3abca8b55d1d99be1f91529fb8eb94dae73fadb;hb=47db9a3883d726ca53e2133a3b2298f78dd6a32e;hp=88f608a7efa165987b86639ae409169c11922cb9;hpb=df4a7c4a55148e065d878dcc2f7e09ac27ea9c32;p=lilypond.git diff --git a/lily/include/group-interface.hh b/lily/include/group-interface.hh index 88f608a7ef..a3abca8b55 100644 --- a/lily/include/group-interface.hh +++ b/lily/include/group-interface.hh @@ -1,20 +1,27 @@ -/* - group-interface.hh -- declare Group_interface - - source file of the GNU LilyPond music typesetter - - (c) 1999--2000 Han-Wen Nienhuys - - */ +/* + This file is part of LilyPond, the GNU music typesetter. + + Copyright (C) 1999--2015 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 . +*/ #ifndef GROUP_INTERFACE_HH #define GROUP_INTERFACE_HH -#include "lily-proto.hh" -#include "string.hh" -#include "lily-guile.hh" -#include "smobs.hh" - +#include "grob.hh" +#include "std-string.hh" /** Look at Score element ELT as thing which has a list property called NAME_. Normally the list would contain Grobs, but @@ -26,35 +33,9 @@ struct Group_interface { public: - static int count (Grob* , String); - static void add_thing (Grob*, String nm, SCM); + static int count (Grob *, SCM); + static void add_thing (Grob *, SCM, SCM); }; -struct Pointer_group_interface : public Group_interface { -public: - static void add_element (Grob*, String nm, Grob*e); -}; -/** - Put all score elements of ELT's property called NAME into an array, - and return it. */ -template -Link_array -Pointer_group_interface__extract_elements (Grob const *elt, T *, const char* name) -{ - Link_array arr; - - for (SCM s = elt->get_grob_property (name); gh_pair_p (s); s = gh_cdr (s)) - { - SCM e = gh_car (s); - arr.push (dynamic_cast (unsmob_element (e))); - } - - arr.reverse (); - return arr; -} - - - - #endif /* GROUP_INTERFACE_HH */