2 lyric-number-engraver.cc -- implement Stanza_number_engraver
4 source file of the GNU LilyPond music typesetter
6 (c) 2000--2005 Han-Wen Nienhuys <hanwen@cs.uu.nl>, Glen Prideaux <glenprideaux@iname.com>
10 #include "side-position-interface.hh"
12 class Stanza_number_engraver
: public Engraver
18 TRANSLATOR_DECLARATIONS (Stanza_number_engraver
);
19 void process_music ();
20 virtual void derived_mark () const;
21 void stop_translation_timestep ();
22 DECLARE_ACKNOWLEDGER (lyric_syllable
);
26 Stanza_number_engraver::derived_mark () const
28 scm_gc_mark (last_stanza_
);
32 TODO: should make engraver that collects all the stanzas on a higher
33 level, and then groups them to the side. Stanza numbers should be
37 Stanza_number_engraver::Stanza_number_engraver ()
40 last_stanza_
= SCM_EOL
;
44 Stanza_number_engraver::process_music ()
46 SCM stanza
= get_property ("stanza");
48 if (scm_is_string (stanza
) && stanza
!= last_stanza_
)
50 last_stanza_
= stanza
;
52 text_
= make_item ("StanzaNumber", SCM_EOL
);
53 text_
->set_property ("text", stanza
);
58 Stanza_number_engraver::acknowledge_lyric_syllable (Grob_info inf
)
62 Side_position_interface::add_support (text_
, inf
.grob ());
67 Stanza_number_engraver::stop_translation_timestep ()
72 #include "translator.icc"
74 ADD_ACKNOWLEDGER (Stanza_number_engraver
, lyric_syllable
);
75 ADD_TRANSLATOR (Stanza_number_engraver
,
77 /* create */ "StanzaNumber",