(SCM_VECTOR_P): Compile fix.

[lilypond.git] / lily / include / paper-book.hh

diff --git a/lily/include/paper-book.hh b/lily/include/paper-book.hh
index 2e58a51388616c56a60c2f0cca0c7e57696e3740..e5302c298b6c84fa2c47e9ec5291765ef6eb9bd6 100644 (file)
--- a/lily/include/paper-book.hh
+++ b/lily/include/paper-book.hh
@@ -5,32 +5,52 @@
 
   (c) 2004  Jan Nieuwenhuizen <janneke@gnu.org>
 */
-
 #ifndef PAPER_BOOK_HH
 #define PAPER_BOOK_HH
 
-#include "lily-guile.hh"
 #include "parray.hh"
 #include "protected-scm.hh"
 #include "smobs.hh"
 
-#define PAGE_LAYOUT "ps"
+class Output_def;
+class Stencil;
+
+struct Score_systems
+{
+  SCM systems_;
+  SCM header_;
+
+  Score_systems () ;
+  void gc_mark ();
+};
 
+/*
+  
+This class is rather empty. It collects systems (Paper_system), and
+exports them to the output backend, either as systems or as completely
+formatted pages.
+  
+*/
 class Paper_book
 {
-public:
-  Array<SCM> headers_;
-  Array<SCM> global_headers_;
-  Link_array<Paper_def> papers_;
-  Array<SCM> scores_;
+  DECLARE_SMOBS (Paper_book, );
 
+  SCM systems_;
+  SCM pages_;
+public:
+  SCM header_;
+  Array<Score_systems> score_systems_;
+  Output_def *paper_;
+  
   Paper_book ();
-  Link_array<Page> *get_pages ();
-  SCM get_scopes (int);
-  Stencil* get_title (int);
-  void output (String);
+
+  SCM systems ();
+  SCM pages ();
+  Stencil book_title ();
+  Stencil score_title (int);
   void classic_output (String);
-  DECLARE_SMOBS (Paper_book, )
+  void output (String);
+  void post_processing (SCM, SCM);
 };
 
 DECLARE_UNSMOB (Paper_book, paper_book)