X-Git-Url: https://git.donarmstrong.com/?a=blobdiff_plain;f=lily%2Fbook-scheme.cc;h=9cf9d2281f0359843d3f21bb564f5448e9907af6;hb=9e781b7dc83b60a543ce218aa1a5f139f74c760f;hp=f430377fce47f2ffd3c291ff9bec6d573b2818b0;hpb=84c9074729c7a0b36d27be81794ca25a8829f9f3;p=lilypond.git diff --git a/lily/book-scheme.cc b/lily/book-scheme.cc index f430377fce..9cf9d2281f 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--2014 Han-Wen Nienhuys - (c) 2004--2005 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" @@ -14,13 +25,12 @@ #include "ly-module.hh" LY_DEFINE (ly_make_book, "ly:make-book", - 2, 0, 1, (SCM paper, SCM header, SCM scores), - "Make a \\book of @var{paper} and @var{header} (which may be #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); - SCM_ASSERT_TYPE (odef, paper, - SCM_ARG1, __FUNCTION__, "Output_def"); + LY_ASSERT_SMOB (Output_def, paper, 1); Book *book = new Book; book->paper_ = odef; @@ -31,37 +41,143 @@ LY_DEFINE (ly_make_book, "ly:make-book", book->scores_ = scm_append (scm_list_2 (scores, book->scores_)); SCM x = book->self_scm (); - scm_gc_unprotect_object (x); + book->unprotect (); return x; } -LY_DEFINE (ly_parser_print_book, "ly:book-process", - 4, 0, 0, (SCM book_smob, - SCM default_paper, - SCM default_layout, - SCM basename), - "Print book.") +LY_DEFINE (ly_make_book_part, "ly:make-book-part", + 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_)); + + SCM x = book->self_scm (); + book->unprotect (); + return x; +} + +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).") { Book *book = unsmob_book (book_smob); - SCM_ASSERT_TYPE (book, book_smob, SCM_ARG1, __FUNCTION__, "Book"); - SCM_ASSERT_TYPE (unsmob_output_def (default_paper), - default_layout, SCM_ARG2, __FUNCTION__, "\\paper block"); - SCM_ASSERT_TYPE (unsmob_output_def (default_layout), - default_layout, SCM_ARG3, __FUNCTION__, "\\layout block"); - SCM_ASSERT_TYPE (scm_is_string (basename), basename, SCM_ARG4, __FUNCTION__, "string"); - - String base = ly_scm2string (basename); - Paper_book *pb = book->process (base, - unsmob_output_def (default_paper), - unsmob_output_def (default_layout) - ); + 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)); if (pb) { - pb->output (base); - scm_gc_unprotect_object (pb->self_scm ()); + pb->output (output); + pb->unprotect (); } 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).") +{ + 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); + + Paper_book *pb = book->process (unsmob_output_def (default_paper), + unsmob_output_def (default_layout)); + if (pb) + { + pb->classic_output (output); + pb->unprotect (); + } + + return SCM_UNSPECIFIED; +} + +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.") +{ + LY_ASSERT_SMOB (Book, book_smob, 1); + Book *book = unsmob_book (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.") +{ + LY_ASSERT_SMOB (Book, book_smob, 1); + Book *book = unsmob_book (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 (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 (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 (book); + return 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 (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 (book); + return b->scores_; +} + +#include "ly-smobs.icc" + +IMPLEMENT_TYPE_P (Book, "ly:book?");