1 /* 2 This file is part of LilyPond, the GNU music typesetter. 3 4 Copyright (C) 2005--2020 Han-Wen Nienhuys <hanwen@xs4all.nl> 5 6 LilyPond is free software: you can redistribute it and/or modify 7 it under the terms of the GNU General Public License as published by 8 the Free Software Foundation, either version 3 of the License, or 9 (at your option) any later version. 10 11 LilyPond is distributed in the hope that it will be useful, 12 but WITHOUT ANY WARRANTY; without even the implied warranty of 13 MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the 14 GNU General Public License for more details. 15 16 You should have received a copy of the GNU General Public License 17 along with LilyPond. If not, see <http://www.gnu.org/licenses/>. 18 */ 19 20 #include "paper-score.hh" 21 22 LY_DEFINE (ly_paper_score_paper_systems, "ly:paper-score-paper-systems", 23 1, 0, 0, 24 (SCM paper_score), 25 "Return vector of @code{paper_system} objects from" 26 " @var{paper-score}.") 27 { 28 LY_ASSERT_SMOB (Paper_score, paper_score, 1); 29 30 Paper_score *pscore = unsmob<Paper_score> (paper_score); 31 return pscore->get_paper_systems (); 32 } 33