-
- outputter_ = paper_->get_paper_outputter (outname);
- outputter_->output_header ();
- outputter_->output_version ();
-
- progress_indication ("\n");
-
- if (global_input_file->header_)
- {
- outputter_->output_scope (global_input_file->header_, "lilypond");
- outputter_->write_header_fields_to_file (global_input_file->header_);
- }
-
- if (header_)
- {
- outputter_->output_scope (header_, "lilypond");
- outputter_->write_header_fields_to_file (header_);
- }
-
- outputter_->output_scope (paper_->scope_, "lilypondpaper");
-
- SCM scm = scm_list_n (ly_symbol2scm ("header-end"), SCM_UNDEFINED);
- outputter_->output_scheme (scm);
-
- system_->output_lines ();
-
- scm = scm_list_n (ly_symbol2scm ("end-output"), SCM_UNDEFINED);
- outputter_->output_scheme (scm);
-
- progress_indication ("\n");
-
- // huh?
- delete outputter_;
- outputter_ = 0;
-
- if (verbose_global_b)
- {
- scm_write (scm_gc_stats (), scm_current_error_port ());
- scm_flush (scm_current_error_port ());
- }
+
+ paper_systems_ = system_->get_paper_systems ();
+}
+
+System *
+Paper_score::root_system () const
+{
+ return system_;
+}
+
+Output_def *
+Paper_score::layout () const
+{
+ return layout_;
+}
+
+SCM
+Paper_score::get_paper_systems () const
+{
+ return paper_systems_;