X-Git-Url: https://git.donarmstrong.com/?a=blobdiff_plain;f=lily%2Fpaper-score-scheme.cc;h=5ee1fc5dde20585f38e5705861852ac6bb4e3659;hb=47db9a3883d726ca53e2133a3b2298f78dd6a32e;hp=055b5363df95d4342661c6c0ae834ba84cb9025f;hpb=14c5f7683efc21f5cd168a713a34b3362f8c6d67;p=lilypond.git diff --git a/lily/paper-score-scheme.cc b/lily/paper-score-scheme.cc index 055b5363df..5ee1fc5dde 100644 --- a/lily/paper-score-scheme.cc +++ b/lily/paper-score-scheme.cc @@ -1,20 +1,32 @@ /* - paper-score-scheme.cc -- implement Paper_score bindings + This file is part of LilyPond, the GNU music typesetter. - source file of the GNU LilyPond music typesetter + Copyright (C) 2005--2015 Han-Wen Nienhuys - (c) 2005--2007 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 "paper-score.hh" LY_DEFINE (ly_paper_score_paper_systems, "ly:paper-score-paper-systems", - 1, 0, 0, - (SCM paper_score), - "Return vector of paper_system objects from @var{paper-score}.") + 1, 0, 0, + (SCM paper_score), + "Return vector of @code{paper_system} objects from" + " @var{paper-score}.") { - LY_ASSERT_TYPE (unsmob_paper_score, paper_score, 1); + LY_ASSERT_SMOB (Paper_score, paper_score, 1); - Paper_score *pscore = dynamic_cast (unsmob_music_output (paper_score)); + Paper_score *pscore = dynamic_cast (Music_output::unsmob (paper_score)); return pscore->get_paper_systems (); }