- for (int i = 0; i < output_formats.size (); i++)
- {
- String format = output_formats[i];
- String func_nm = format;
- func_nm = "output-classic-framework-" + func_nm;
- String mod_nm = "scm framework-" + format;
-
- SCM mod = scm_c_resolve_module (mod_nm.to_str0 ());
- SCM func = scm_c_module_lookup (mod, func_nm.to_str0 ());
-
- func = scm_variable_ref (func);
-
- Paper_outputter *out = get_paper_outputter (outname + "." + format,
- format);
-
- scm_apply_0 (func, scm_list_5 (out->self_scm (), self_scm (), scopes,
- dump_fields (),
- scm_makfrom0str (outname.to_str0 ())));
-
- scm_gc_unprotect_object (out->self_scm ());
- progress_indication ("\n");
- }
-}
-
-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;
-}