X-Git-Url: https://git.donarmstrong.com/?a=blobdiff_plain;f=lily%2Fbook-scheme.cc;h=c63f47dd078b49597c22ee8aeaef54368cb564d6;hb=97a0169312a260933246ab224e4f8b0969871dd5;hp=7864736463ba0cdbd71ef372ba3240947ad1cce9;hpb=e344ae579fa1d81fc6c6f3049494697872fd39f9;p=lilypond.git diff --git a/lily/book-scheme.cc b/lily/book-scheme.cc index 7864736463..c63f47dd07 100644 --- a/lily/book-scheme.cc +++ b/lily/book-scheme.cc @@ -1,9 +1,20 @@ /* - book-scheme.cc -- implement Book bindings + This file is part of LilyPond, the GNU music typesetter. - source file of the GNU LilyPond music typesetter + Copyright (C) 2004--2015 Han-Wen Nienhuys - (c) 2004--2008 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 "book.hh" @@ -11,14 +22,13 @@ #include "output-def.hh" #include "score.hh" #include "paper-book.hh" -#include "ly-module.hh" LY_DEFINE (ly_make_book, "ly:make-book", - 2, 0, 1, (SCM paper, SCM header, SCM scores), - "Make a @code{\\book} of @var{paper} and @var{header}" - " (which may be @code{#f} as well) containing @code{\\scores}.") + 2, 0, 1, (SCM paper, SCM header, SCM scores), + "Make a @code{\\book} of @var{paper} and @var{header}" + " (which may be @code{#f} as well) containing @code{\\scores}.") { - Output_def *odef = unsmob_output_def (paper); + Output_def *odef = unsmob (paper); LY_ASSERT_SMOB (Output_def, paper, 1); Book *book = new Book; @@ -35,8 +45,8 @@ LY_DEFINE (ly_make_book, "ly:make-book", } LY_DEFINE (ly_make_book_part, "ly:make-book-part", - 1, 0, 0, (SCM scores), - "Make a @code{\\bookpart} containing @code{\\scores}.") + 1, 0, 0, (SCM scores), + "Make a @code{\\bookpart} containing @code{\\scores}.") { Book *book = new Book; book->scores_ = scm_append (scm_list_2 (scores, book->scores_)); @@ -47,22 +57,22 @@ LY_DEFINE (ly_make_book_part, "ly:make-book-part", } LY_DEFINE (ly_book_process, "ly:book-process", - 4, 0, 0, (SCM book_smob, - SCM default_paper, - SCM default_layout, - SCM output), - "Print book. @var{output} is passed to the backend unchanged." - " For example, it may be a string (for file based outputs)" - " or a socket (for network based output).") + 4, 0, 0, (SCM book_smob, + SCM default_paper, + SCM default_layout, + SCM output), + "Print book. @var{output} is passed to the backend unchanged." + " For example, it may be a string (for file based outputs)" + " or a socket (for network based output).") { - Book *book = unsmob_book (book_smob); + Book *book = unsmob (book_smob); LY_ASSERT_SMOB (Book, book_smob, 1); LY_ASSERT_SMOB (Output_def, default_paper, 2); LY_ASSERT_SMOB (Output_def, default_layout, 3); - Paper_book *pb = book->process (unsmob_output_def (default_paper), - unsmob_output_def (default_layout)); + Paper_book *pb = book->process (unsmob (default_paper), + unsmob (default_layout)); if (pb) { pb->output (output); @@ -72,24 +82,23 @@ LY_DEFINE (ly_book_process, "ly:book-process", return SCM_UNSPECIFIED; } - LY_DEFINE (ly_book_process_to_systems, "ly:book-process-to-systems", - 4, 0, 0, (SCM book_smob, - SCM default_paper, - SCM default_layout, - SCM output), - "Print book. @var{output} is passed to the backend unchanged." - " For example, it may be a string (for file based outputs)" - " or a socket (for network based output).") + 4, 0, 0, (SCM book_smob, + SCM default_paper, + SCM default_layout, + SCM output), + "Print book. @var{output} is passed to the backend unchanged." + " For example, it may be a string (for file based outputs)" + " or a socket (for network based output).") { LY_ASSERT_SMOB (Book, book_smob, 1); LY_ASSERT_SMOB (Output_def, default_paper, 2); LY_ASSERT_SMOB (Output_def, default_layout, 3); - Book *book = unsmob_book (book_smob); + Book *book = unsmob (book_smob); - Paper_book *pb = book->process (unsmob_output_def (default_paper), - unsmob_output_def (default_layout)); + Paper_book *pb = book->process (unsmob (default_paper), + unsmob (default_layout)); if (pb) { pb->classic_output (output); @@ -100,21 +109,73 @@ LY_DEFINE (ly_book_process_to_systems, "ly:book-process-to-systems", } LY_DEFINE (ly_book_add_score_x, "ly:book-add-score!", - 2, 0, 0, (SCM book_smob, SCM score), - "Add @var{score} to @var{book-smob} score list.") + 2, 0, 0, (SCM book_smob, SCM score), + "Add @var{score} to @var{book-smob} score list.") { LY_ASSERT_SMOB (Book, book_smob, 1); - Book *book = unsmob_book (book_smob); + Book *book = unsmob (book_smob); book->add_score (score); return SCM_UNSPECIFIED; } LY_DEFINE (ly_book_add_bookpart_x, "ly:book-add-bookpart!", - 2, 0, 0, (SCM book_smob, SCM book_part), - "Add @var{book_part} to @var{book-smob} book part list.") + 2, 0, 0, (SCM book_smob, SCM book_part), + "Add @var{book-part} to @var{book-smob} book part list.") { LY_ASSERT_SMOB (Book, book_smob, 1); - Book *book = unsmob_book (book_smob); + Book *book = unsmob (book_smob); book->add_bookpart (book_part); return SCM_UNSPECIFIED; } + +LY_DEFINE (ly_book_book_parts, "ly:book-book-parts", + 1, 0, 0, (SCM book), + "Return book parts in @var{book}.") +{ + LY_ASSERT_SMOB (Book, book, 1); + Book *b = unsmob (book); + return b->bookparts_; +} + +LY_DEFINE (ly_book_paper, "ly:book-paper", + 1, 0, 0, (SCM book), + "Return paper in @var{book}.") +{ + LY_ASSERT_SMOB (Book, book, 1); + Book *b = unsmob (book); + return b->paper_ ? b->paper_->self_scm () : SCM_BOOL_F; +} + +LY_DEFINE (ly_book_header, "ly:book-header", + 1, 0, 0, (SCM book), + "Return header in @var{book}.") +{ + LY_ASSERT_SMOB (Book, book, 1); + Book *b = unsmob (book); + return ly_is_module (b->header_) ? b->header_ : SCM_BOOL_F; +} + +LY_DEFINE (ly_book_set_header_x, "ly:book-set-header!", + 2, 0, 0, (SCM book, SCM module), + "Set the book header.") +{ + LY_ASSERT_SMOB (Book, book, 1); + SCM_ASSERT_TYPE (ly_is_module (module), module, SCM_ARG2, __FUNCTION__, + "module"); + + Book *b = unsmob (book); + b->header_ = (module); + return SCM_UNSPECIFIED; +} + +LY_DEFINE (ly_book_scores, "ly:book-scores", + 1, 0, 0, (SCM book), + "Return scores in @var{book}.") +{ + LY_ASSERT_SMOB (Book, book, 1); + Book *b = unsmob (book); + return b->scores_; +} + + +const char * const Book::type_p_name_ = "ly:book?";