-/*
- system-start-delimiter-engraver.cc -- implement System_start_delimiter_engraver
-
- source file of the GNU LilyPond music typesetter
-
- (c) 2000--2005 Han-Wen Nienhuys <hanwen@cs.uu.nl>
-
- */
+/*
+ This file is part of LilyPond, the GNU music typesetter.
+
+ Copyright (C) 2005--2014 Han-Wen Nienhuys <hanwen@xs4all.nl>
+
+ 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 <http://www.gnu.org/licenses/>.
+*/
-#include "system-start-delimiter.hh"
#include "engraver.hh"
-#include "staff-symbol.hh"
-#include "group-interface.hh"
-#include "paper-column.hh"
#include "output-def.hh"
+#include "paper-column.hh"
+#include "pointer-group-interface.hh"
+#include "side-position-interface.hh"
#include "spanner.hh"
+#include "staff-symbol.hh"
+#include "system-start-delimiter.hh"
-class System_start_delimiter_engraver : public Engraver
+struct Bracket_nesting_node
{
public:
- TRANSLATOR_DECLARATIONS (System_start_delimiter_engraver);
+ virtual ~Bracket_nesting_node () {}
+ virtual bool add_staff (Grob *) { return false; }
+ virtual void add_support (Grob *) {}
+ virtual void set_bound (Direction, Grob *) {}
+ virtual void set_nesting_support (Grob *) {}
+ virtual void create_grobs (Engraver *, SCM) {}
+};
-protected:
- Spanner * delim_;
- virtual void acknowledge_grob (Grob_info);
- virtual void process_music ();
- virtual void finalize ();
+struct Bracket_nesting_group : public Bracket_nesting_node
+{
+ Spanner *delimiter_;
+ vector<Bracket_nesting_node *> children_;
+ SCM symbol_;
+
+ void from_list (SCM);
+ virtual void add_support (Grob *grob);
+ virtual bool add_staff (Grob *grob);
+ virtual void set_nesting_support (Grob *);
+ virtual void set_bound (Direction, Grob *grob);
+ virtual void create_grobs (Engraver *, SCM);
+ ~Bracket_nesting_group ();
+ Bracket_nesting_group ();
};
+struct Bracket_nesting_staff : public Bracket_nesting_node
+{
+ Grob *staff_;
+ Bracket_nesting_staff (Grob *s) { staff_ = s; }
+ virtual bool add_staff (Grob *);
+};
+
+Bracket_nesting_group::Bracket_nesting_group ()
+{
+ symbol_ = SCM_EOL;
+ delimiter_ = 0;
+}
+
+bool
+Bracket_nesting_staff::add_staff (Grob *g)
+{
+ if (!staff_)
+ {
+ staff_ = g;
+ return true;
+ }
+ return false;
+}
+
+void
+Bracket_nesting_group::create_grobs (Engraver *engraver, SCM default_type)
+{
+ SCM type = scm_is_symbol (symbol_) ? symbol_ : default_type;
+ delimiter_ = engraver->make_spanner (ly_symbol2string (type).c_str (),
+ SCM_EOL);
+
+ for (vsize i = 0; i < children_.size (); i++)
+ children_[i]->create_grobs (engraver, default_type);
+}
+
+void
+Bracket_nesting_group::add_support (Grob *g)
+{
+ Side_position_interface::add_support (g, delimiter_);
+ for (vsize i = 0; i < children_.size (); i++)
+ children_[i]->add_support (g);
+}
+
+Bracket_nesting_group::~Bracket_nesting_group ()
+{
+ junk_pointers (children_);
+}
void
-System_start_delimiter_engraver::acknowledge_grob (Grob_info inf)
+Bracket_nesting_group::set_bound (Direction d, Grob *g)
{
- if (Staff_symbol::has_interface (inf.grob_))
+ delimiter_->set_bound (d, g);
+ for (vsize i = 0; i < children_.size (); i++)
+ children_[i]->set_bound (d, g);
+}
+
+void
+Bracket_nesting_group::set_nesting_support (Grob *parent)
+{
+ if (parent)
+ Side_position_interface::add_support (delimiter_, parent);
+
+ for (vsize i = 0; i < children_.size (); i++)
+ children_[i]->set_nesting_support (delimiter_);
+}
+
+void
+Bracket_nesting_group::from_list (SCM x)
+{
+ for (SCM s = x; scm_is_pair (s); s = scm_cdr (s))
{
- /*
- don't add as Axis_group_interface::add_element (delim_,),
- because that would set the parent as well */
-
- Pointer_group_interface::add_grob (delim_, ly_symbol2scm ("elements"), inf.grob_);
+ SCM entry = scm_car (s);
+ if (scm_is_pair (entry))
+ {
+ Bracket_nesting_group *node = new Bracket_nesting_group;
+ node->from_list (entry);
+ children_.push_back (node);
+ }
+ else if (entry == ly_symbol2scm ("SystemStartBrace")
+ || entry == ly_symbol2scm ("SystemStartBracket")
+ || entry == ly_symbol2scm ("SystemStartBar")
+ || entry == ly_symbol2scm ("SystemStartSquare"))
+ symbol_ = entry;
+ else
+ children_.push_back (new Bracket_nesting_staff (0));
}
- else if (System_start_delimiter::has_interface (inf.grob_))
+}
+
+bool
+Bracket_nesting_group::add_staff (Grob *grob)
+{
+ for (vsize i = 0; i < children_.size (); i++)
{
- SCM gl = inf.grob_->get_property ("glyph");
- SCM my_gl = delim_->get_property ("glyph");
-
- /*
- UGH UGH
- */
- if (scm_is_string (gl) && ly_c_equal_p (gl, scm_makfrom0str ("brace"))
- && scm_is_string (my_gl) && ly_c_equal_p (my_gl, scm_makfrom0str ("bracket")))
- inf.grob_->translate_axis (-0.8, X_AXIS); // ugh
- else if (scm_is_string (gl) && ly_c_equal_p (gl, scm_makfrom0str ("bracket"))
- && scm_is_string (my_gl) && ly_c_equal_p (my_gl, scm_makfrom0str ("bracket")))
- {
- inf.grob_->translate_axis ( -0.8, X_AXIS); // ugh
- inf.grob_->set_property ("arch-height",
- scm_make_real (scm_to_double (inf.grob_->get_property
- ("arch-height"))+0.5));
- }
+ if (children_[i]->add_staff (grob))
+ {
+ Pointer_group_interface::add_grob (delimiter_,
+ ly_symbol2scm ("elements"), grob);
+ return true;
+ }
}
+ return false;
}
+/****************/
+
+class System_start_delimiter_engraver : public Engraver
+{
+public:
+ TRANSLATOR_DECLARATIONS (System_start_delimiter_engraver);
+
+protected:
+ Bracket_nesting_group *nesting_;
+
+ DECLARE_ACKNOWLEDGER (system_start_delimiter);
+ DECLARE_ACKNOWLEDGER (staff_symbol);
+
+ void process_music ();
+ virtual void finalize ();
+};
+
System_start_delimiter_engraver::System_start_delimiter_engraver ()
{
- delim_ = 0;
+ nesting_ = 0;
}
void
System_start_delimiter_engraver::process_music ()
{
- if (!delim_)
+ if (!nesting_)
{
- SCM delim_name = get_property ("systemStartDelimiter");
- delim_ = make_spanner_from_properties (this, delim_name, SCM_EOL,
- ly_symbol2string (delim_name).to_str0());
+ nesting_ = new Bracket_nesting_group ();
+ SCM hierarchy = get_property ("systemStartDelimiterHierarchy");
+ SCM delimiter_name = get_property ("systemStartDelimiter");
- delim_->set_bound (LEFT, unsmob_grob (get_property ("currentCommandColumn")));
-
+ nesting_->from_list (hierarchy);
+ nesting_->create_grobs (this, delimiter_name);
+ nesting_->set_bound (LEFT,
+ Grob::unsmob (get_property ("currentCommandColumn")));
}
}
+
void
System_start_delimiter_engraver::finalize ()
{
- if (delim_)
+ if (nesting_)
+ {
+ nesting_->set_bound (RIGHT,
+ Grob::unsmob (get_property ("currentCommandColumn")));
+ nesting_->set_nesting_support (0);
+
+ delete nesting_;
+ }
+}
+
+void
+System_start_delimiter_engraver::acknowledge_staff_symbol (Grob_info inf)
+{
+ Grob *staff = inf.grob ();
+ bool succ = nesting_->add_staff (staff);
+
+ if (!succ)
{
- delim_->set_bound (RIGHT, unsmob_grob (get_property ("currentCommandColumn")));
-
+ nesting_->children_.push_back (new Bracket_nesting_staff (0));
+ nesting_->add_staff (staff);
}
}
+void
+System_start_delimiter_engraver::acknowledge_system_start_delimiter (Grob_info inf)
+{
+ nesting_->add_support (inf.grob ());
+}
+
+#include "translator.icc"
+
+ADD_ACKNOWLEDGER (System_start_delimiter_engraver, staff_symbol);
+ADD_ACKNOWLEDGER (System_start_delimiter_engraver, system_start_delimiter);
+
ADD_TRANSLATOR (System_start_delimiter_engraver,
-/* descr */ "Creates a system start delimiter (ie. SystemStart@{Bar,Brace,Bracket@} spanner",
-/* creats*/ "SystemStartBar SystemStartBrace SystemStartBracket",
-/* accepts */ "",
-/* acks */ "system-start-delimiter-interface staff-symbol-interface",
-/* reads */ "systemStartDelimiter",
-/* write */ "");
+ /* doc */
+ "Create a system start delimiter (i.e., a"
+ " @code{SystemStartBar}, @code{SystemStartBrace},"
+ " @code{SystemStartBracket} or @code{SystemStartSquare}"
+ " spanner).",
+
+ /* create */
+ "SystemStartSquare "
+ "SystemStartBrace "
+ "SystemStartBracket "
+ "SystemStartBar ",
+
+ /* read */
+ "systemStartDelimiter "
+ "systemStartDelimiterHierarchy "
+ "currentCommandColumn ",
+
+ /* write */
+ ""
+ );
projects / lilypond.git / blobdiff