2 This file is part of LilyPond, the GNU music typesetter.
4 Copyright (C) 1997--2011 Han-Wen Nienhuys <hanwen@xs4all.nl>
6 LilyPond is free software: you can redistribute it and/or modify
7 it under the terms of the GNU General Public License as published by
8 the Free Software Foundation, either version 3 of the License, or
9 (at your option) any later version.
11 LilyPond is distributed in the hope that it will be useful,
12 but WITHOUT ANY WARRANTY; without even the implied warranty of
13 MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
14 GNU General Public License for more details.
16 You should have received a copy of the GNU General Public License
17 along with LilyPond. If not, see <http://www.gnu.org/licenses/>.
27 #include "output-def.hh"
28 #include "paper-book.hh"
30 #include "text-interface.hh"
32 #include "performance.hh"
33 #include "paper-score.hh"
34 #include "page-marker.hh"
36 #include "ly-smobs.icc"
44 input_location_
= SCM_EOL
;
47 input_location_
= make_input (Input ());
50 Book::Book (Book
const &s
)
56 input_location_
= SCM_EOL
;
61 paper_
= s
.paper_
->clone ();
65 input_location_
= make_input (*s
.origin ());
67 header_
= ly_make_module (false);
68 if (ly_is_module (s
.header_
))
69 ly_module_copy (header_
, s
.header_
);
71 for (SCM p
= s
.scores_
; scm_is_pair (p
); p
= scm_cdr (p
))
73 SCM entry
= scm_car (p
);
75 if (Score
*newscore
= unsmob_score (entry
))
76 *t
= scm_cons (newscore
->clone ()->unprotect (), SCM_EOL
);
77 else if (Page_marker
*marker
= unsmob_page_marker (entry
))
78 *t
= scm_cons (marker
->clone ()->unprotect (), SCM_EOL
);
81 /* This entry is a markup list */
82 *t
= scm_cons (entry
, SCM_EOL
);
88 for (SCM p
= s
.bookparts_
; scm_is_pair (p
); p
= scm_cdr (p
))
90 Book
*newpart
= unsmob_book (scm_car (p
))->clone ();
92 *t
= scm_cons (newpart
->self_scm (), SCM_EOL
);
94 newpart
->unprotect ();
101 return unsmob_input (input_location_
);
108 IMPLEMENT_SMOBS (Book
);
109 IMPLEMENT_DEFAULT_EQUAL_P (Book
);
112 Book::mark_smob (SCM s
)
114 Book
*book
= (Book
*) SCM_CELL_WORD_1 (s
);
117 scm_gc_mark (book
->paper_
->self_scm ());
118 scm_gc_mark (book
->scores_
);
119 scm_gc_mark (book
->bookparts_
);
120 scm_gc_mark (book
->input_location_
);
122 return book
->header_
;
126 Book::print_smob (SCM
, SCM p
, scm_print_state
*)
128 scm_puts ("#<Book>", p
);
133 Book::add_score (SCM s
)
135 scores_
= scm_cons (s
, scores_
);
139 Book::set_parent (Book
*parent
)
143 paper_
= new Output_def ();
144 paper_
->unprotect ();
146 paper_
->parent_
= parent
->paper_
;
147 /* Copy the header block of the parent */
148 if (ly_is_module (parent
->header_
))
150 SCM tmp_header
= ly_make_module (false);
151 ly_module_copy (tmp_header
, parent
->header_
);
152 if (ly_is_module (header_
))
153 ly_module_copy (tmp_header
, header_
);
154 header_
= tmp_header
;
158 /* Before an explicit \bookpart is encountered, scores are added to the book.
159 * But once a bookpart is added, the previous scores shall be collected into
163 Book::add_scores_to_bookpart ()
165 if (scm_is_pair (scores_
))
167 /* If scores have been added to this book, add them to a child
169 Book
*part
= new Book
;
170 part
->set_parent (this);
171 part
->scores_
= scores_
;
172 bookparts_
= scm_cons (part
->self_scm (), bookparts_
);
179 Book::add_bookpart (SCM b
)
181 add_scores_to_bookpart ();
182 Book
*part
= unsmob_book (b
);
183 part
->set_parent (this);
184 bookparts_
= scm_cons (b
, bookparts_
);
190 for (SCM s
= scores_
; scm_is_pair (s
); s
= scm_cdr (s
))
191 if (Score
*score
= unsmob_score (scm_car (s
)))
192 if (score
->error_found_
)
195 for (SCM part
= bookparts_
; scm_is_pair (part
); part
= scm_cdr (part
))
196 if (Book
*bookpart
= unsmob_book (scm_car (part
)))
197 if (bookpart
->error_found ())
204 Book::process (Output_def
*default_paper
,
205 Output_def
*default_layout
)
207 return process (default_paper
, default_layout
, 0);
211 Book::process_bookparts (Paper_book
*output_paper_book
, Output_def
*paper
, Output_def
*layout
)
213 add_scores_to_bookpart ();
214 for (SCM p
= scm_reverse (bookparts_
); scm_is_pair (p
); p
= scm_cdr (p
))
216 if (Book
*book
= unsmob_book (scm_car (p
)))
218 Paper_book
*paper_book_part
= book
->process (paper
, layout
, output_paper_book
);
221 output_paper_book
->add_bookpart (paper_book_part
->self_scm ());
222 paper_book_part
->unprotect ();
226 /* In a Paper_book, bookparts are stored in straight order */
227 output_paper_book
->bookparts_
= scm_reverse_x (output_paper_book
->bookparts_
, SCM_EOL
);
231 Book::process_score (SCM s
, Paper_book
*output_paper_book
, Output_def
*layout
)
233 if (Score
*score
= unsmob_score (scm_car (s
)))
236 ->book_rendering (output_paper_book
->paper_
, layout
);
238 while (scm_is_pair (outputs
))
240 Music_output
*output
= unsmob_music_output (scm_car (outputs
));
242 if (Performance
*perf
= dynamic_cast<Performance
*> (output
))
243 output_paper_book
->add_performance (perf
->self_scm ());
244 else if (Paper_score
*pscore
= dynamic_cast<Paper_score
*> (output
))
246 if (ly_is_module (score
->get_header ()))
247 output_paper_book
->add_score (score
->get_header ());
248 output_paper_book
->add_score (pscore
->self_scm ());
251 outputs
= scm_cdr (outputs
);
254 else if (Text_interface::is_markup_list (scm_car (s
))
255 || unsmob_page_marker (scm_car (s
)))
256 output_paper_book
->add_score (scm_car (s
));
262 /* Concatenate all score or book part outputs into a Paper_book
265 Book::process (Output_def
*default_paper
,
266 Output_def
*default_layout
,
267 Paper_book
*parent_part
)
269 Output_def
*paper
= paper_
? paper_
: default_paper
;
271 /* If top book, recursively check score errors */
272 if (!parent_part
&& error_found ())
278 Paper_book
*paper_book
= new Paper_book ();
279 Real scale
= scm_to_double (paper
->c_variable ("output-scale"));
280 Output_def
*scaled_bookdef
= scale_output_def (paper
, scale
);
281 paper_book
->paper_
= scaled_bookdef
;
284 paper_book
->parent_
= parent_part
;
285 paper_book
->paper_
->parent_
= parent_part
->paper_
;
287 paper_book
->header_
= header_
;
288 scaled_bookdef
->unprotect ();
290 if (scm_is_pair (bookparts_
))
292 /* Process children book parts */
293 process_bookparts (paper_book
, paper
, default_layout
);
297 paper_book
->paper_
->normalize ();
299 /* Render in order of parsing. */
300 for (SCM s
= scm_reverse (scores_
); scm_is_pair (s
); s
= scm_cdr (s
))
302 process_score (s
, paper_book
, default_layout
);