X-Git-Url: https://git.donarmstrong.com/?a=blobdiff_plain;f=lily%2Fpercent-repeat-iterator.cc;h=666e2425b0125c305c3b623c445d80fa31c85016;hb=223ad8f5799657a5b628d862dd927f4197486b02;hp=27481cf1ab1b3335fc469989f7723a4d1a0a2be9;hpb=334e70b9574054547298b6456696ea8b0b443604;p=lilypond.git diff --git a/lily/percent-repeat-iterator.cc b/lily/percent-repeat-iterator.cc index 27481cf1ab..666e2425b0 100644 --- a/lily/percent-repeat-iterator.cc +++ b/lily/percent-repeat-iterator.cc @@ -1,16 +1,36 @@ /* - percent-repeat-iterator.cc -- implement Percent_repeat_iterator + This file is part of LilyPond, the GNU music typesetter. - source file of the GNU LilyPond music typesetter - - (c) 2001--2006 Han-Wen Nienhuys + Copyright (C) 2001--2010 Han-Wen Nienhuys Erik Sandberg + + 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 "percent-repeat-iterator.hh" #include "input.hh" -#include "music.hh" #include "repeated-music.hh" +#include "sequential-iterator.hh" + +class Percent_repeat_iterator : public Sequential_iterator +{ +public: + DECLARE_CLASSNAME (Percent_repeat_iterator); + DECLARE_SCHEME_CALLBACK (constructor, ()); + Percent_repeat_iterator (); +protected: + virtual SCM get_music_list () const; +}; IMPLEMENT_CTOR_CALLBACK (Percent_repeat_iterator); @@ -35,8 +55,10 @@ Percent_repeat_iterator::get_music_list () const percent->set_property ("length", length); if (repeats > 1) percent->set_property ("repeat-count", scm_int2num (i)); + child_list = scm_cons (percent->unprotect (), child_list); } + child_list = scm_cons (child->self_scm (), child_list); return child_list;