X-Git-Url: https://git.donarmstrong.com/?a=blobdiff_plain;f=lily%2Fpaper-system.cc;h=b67eb0123b1154dadc5ab2e7a6c92ea81a8d7758;hb=5d84bfad4626892bcffd05adcced53c8a2329047;hp=340667b53670519f307e0dd6dee031d96a658a4a;hpb=99433c54bea756a38ed6b2a70bc8c90cd0d37902;p=lilypond.git diff --git a/lily/paper-system.cc b/lily/paper-system.cc index 340667b536..b67eb0123b 100644 --- a/lily/paper-system.cc +++ b/lily/paper-system.cc @@ -1,131 +1,94 @@ /* - paper-system.cc -- implement Paper_system + This file is part of LilyPond, the GNU music typesetter. - source file of the GNU LilyPond music typesetter + Copyright (C) 2004--2015 Jan Nieuwenhuizen - (c) 2004 Jan Nieuwenhuizen -*/ - -#include "paper-system.hh" -#include "stencil.hh" -#include "string.hh" -#include "virtual-methods.hh" - -#include "ly-smobs.icc" - -IMPLEMENT_SMOBS (Paper_system); -IMPLEMENT_TYPE_P (Paper_system, "ly:paper-system?"); -IMPLEMENT_DEFAULT_EQUAL_P (Paper_system); + LilyPond is free software: you can redistribute it and/or modify + it under the terms of the GNU General Public License as published by + the Free Software Foundation, either version 3 of the License, or + (at your option) any later version. + LilyPond is distributed in the hope that it will be useful, + but WITHOUT ANY WARRANTY; without even the implied warranty of + MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the + GNU General Public License for more details. + You should have received a copy of the GNU General Public License + along with LilyPond. If not, see . +*/ -Paper_system::Paper_system (Stencil s, bool is_title) -{ - is_title_ = is_title; - number_ = 0; - penalty_ = 0; - smobify_self (); - stencil_ = s; -} - -Paper_system::~Paper_system () -{ -} - -SCM -Paper_system::mark_smob (SCM smob) -{ - Paper_system *line = (Paper_system*) ly_cdr (smob); - return line-> stencil_.expr (); -} - -int -Paper_system::print_smob (SCM smob, SCM port, scm_print_state*) -{ - Paper_system *p = (Paper_system*) ly_cdr (smob); - scm_puts ("#<", port); - scm_puts (classname (p), port); - scm_puts (" ", port); - scm_puts (to_string (p->number_).to_str0 (), port); - scm_puts ("p ", port); - scm_puts (to_string (p->penalty_).to_str0 (), port); - if (p->is_title ()) - scm_puts (" t", port); - scm_puts (" >", port); - return 1; -} - -bool -Paper_system::is_title () const -{ - return is_title_; -} +#include "paper-system.hh" +#include "international.hh" +#include "item.hh" -Real -Paper_system::penalty () const +Prob * +make_paper_system (SCM immutable_init) { - return penalty_; + Prob *prob = new Prob (ly_symbol2scm ("paper-system"), immutable_init); + return prob; } -Offset -Paper_system::dim () const -{ - return Offset (stencil_.extent (X_AXIS).length (), - stencil_.extent (Y_AXIS).length ()); -} +/* + TODO + it might be interesting to split off the footnotes as well, ie. -Stencil -Paper_system::to_stencil () const -{ - return stencil_; -} + get_footnotes(SCM expr, SCM* footnotes, SCM* cleaned) -LY_DEFINE (ly_paper_line_height, "ly:paper-system-extent", - 2, 0, 0, (SCM line, SCM axis), - "Return the extent of @var{line}.") + by doing it this way and overwriting the old expr in the caller, + you can make sure nobody tries to handle footnotes differently + downstream. +*/ +SCM +get_footnotes (SCM expr) { - Paper_system *pl = unsmob_paper_line (line); - SCM_ASSERT_TYPE (pl, line, SCM_ARG1, __FUNCTION__, "paper-system"); - SCM_ASSERT_TYPE (is_axis (axis), axis, SCM_ARG2, __FUNCTION__, "axis"); - Axis ax = (Axis)ly_scm2int (axis); - return scm_make_real (pl->dim ()[ax]); + if (!scm_is_pair (expr)) + return SCM_EOL; + + SCM head = scm_car (expr); + + if (scm_is_eq (head, ly_symbol2scm ("delay-stencil-evaluation"))) + { + // we likely need to do something here...just don't know what... + return SCM_EOL; + } + + if (scm_is_eq (head, ly_symbol2scm ("combine-stencil"))) + { + SCM out = SCM_EOL; + SCM *tail = &out; + + for (SCM x = scm_cdr (expr); scm_is_pair (x); x = scm_cdr (x)) + { + SCM footnote = get_footnotes (scm_car (x)); + if (!scm_is_null (footnote)) + { + *tail = scm_cons (footnote, SCM_EOL); + tail = SCM_CDRLOC (*tail); + } + } + return scm_append (out); + } + if (scm_is_eq (head, ly_symbol2scm ("translate-stencil"))) + return get_footnotes (scm_caddr (expr)); + + if (scm_is_eq (head, ly_symbol2scm ("footnote"))) + return scm_list_1 (scm_cdr (expr)); + + return SCM_EOL; } - - -LY_DEFINE (ly_paper_line_title_p, "ly:paper-system-title?", - 1, 0, 0, (SCM line), - "Is @var{line} a title line?") +void +paper_system_set_stencil (Prob *prob, Stencil s) { - Paper_system *pl = unsmob_paper_line (line); - SCM_ASSERT_TYPE (pl, line, SCM_ARG1, __FUNCTION__, "paper-system"); - return SCM_BOOL (pl->is_title ()); -} + SCM yext = prob->get_property ("Y-extent"); -LY_DEFINE (ly_paper_line_number, "ly:paper-system-number", - 1, 0, 0, (SCM line), - "Return the number of @var{line}.") -{ - Paper_system *pl = unsmob_paper_line (line); - SCM_ASSERT_TYPE (pl, line, SCM_ARG1, __FUNCTION__, "paper-system"); - return scm_int2num (pl->number_); -} + if (is_number_pair (yext)) + { + Box b = s.extent_box (); + b[Y_AXIS] = ly_scm2interval (yext); -LY_DEFINE (ly_paper_line_break_score, "ly:paper-system-break-penalty", - 1, 0, 0, (SCM line), - "Return the score for page break after @var{line}.") -{ - Paper_system *pl = unsmob_paper_line (line); - SCM_ASSERT_TYPE (pl, line, SCM_ARG1, __FUNCTION__, "paper-system"); - return scm_int2num (int (pl->penalty ())); -} + s = Stencil (b, s.expr ()); + } -LY_DEFINE (ly_paper_line_stencil, "ly:paper-system-stencil", - 1, 0, 0, (SCM line), - "Return the height of @var{line}.") -{ - Paper_system *pl = unsmob_paper_line (line); - SCM_ASSERT_TYPE (pl, line, SCM_ARG1, __FUNCTION__, "paper-system"); - return pl->to_stencil ().smobbed_copy (); + prob->set_property ("stencil", s.smobbed_copy ()); } -