-LY_DEFINE (ly_paper_book_pages, "ly:paper-book-pages",
- 1, 0, 0, (SCM pb),
- "Return pages in book PB.")
-{
- return unsmob_paper_book(pb)->pages ();
-}
-
-LY_DEFINE (ly_paper_book_scopes, "ly:paper-book-scopes",
- 1, 0, 0, (SCM book),
- "Return pages in paper book @var{book}.")
-{
- Paper_book *pb = unsmob_paper_book(book);
- SCM_ASSERT_TYPE(pb, book, SCM_ARG1, __FUNCTION__, "Paper_book");
-
- SCM scopes = SCM_EOL;
- if (ly_c_module_p (pb->header_))
- scopes = scm_cons (pb->header_, scopes);
-
- return scopes;
-}
-
-LY_DEFINE (ly_paper_book_lines, "ly:paper-book-lines",
- 1, 0, 0, (SCM pb),
- "Return lines in book PB.")
-{
- return unsmob_paper_book (pb)->lines ();
-}
-
-LY_DEFINE (ly_paper_book_book_paper, "ly:paper-book-book-paper",
- 1, 0, 0, (SCM pb),
- "Return pages in book PB.")
-{
- return unsmob_paper_book (pb)->bookpaper_->self_scm ();