#include "lilypond-key.hh"
#include "global-context.hh"
-#include "ly-module.hh"
#include "main.hh"
#include "music-iterator.hh"
#include "music-output.hh"
return paper_book;
}
-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}.")
-{
- Output_def * odef = unsmob_output_def (paper);
- SCM_ASSERT_TYPE (odef, paper,
- SCM_ARG1, __FUNCTION__, "Output_def");
-
- Book *book = new Book;
- book->paper_ = odef;
- if (ly_c_module_p (header))
- book->header_ = header;
-
- for (SCM s = scores; scm_is_pair (s); s = scm_cdr (s))
- {
- Score *score = unsmob_score (scm_car (s));
- if (score)
- book->scores_.push (score);
- }
-
- SCM x = book->self_scm ();
- scm_gc_unprotect_object (x);
- return x;
-}
void
#include "font-interface.hh"
#include "output-def.hh"
#include "modified-font-metric.hh"
-#include "ly-module.hh"
MAKE_SCHEME_CALLBACK (Text_interface, interpret_string, 3)