2 This file is part of LilyPond, the GNU music typesetter.
4 Copyright (C) 2000--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/>.
20 #include "engraver.hh"
23 #include "stream-event.hh"
25 #include "translator.icc"
28 class Output_property_engraver
: public Engraver
30 TRANSLATOR_DECLARATIONS (Output_property_engraver
);
32 vector
<Stream_event
*> props_
;
34 DECLARE_ACKNOWLEDGER (grob
);
35 DECLARE_TRANSLATOR_LISTENER (apply_output
);
37 void stop_translation_timestep ();
40 IMPLEMENT_TRANSLATOR_LISTENER (Output_property_engraver
, apply_output
);
42 Output_property_engraver::listen_apply_output (Stream_event
*ev
)
45 UGH. Only swallow the output property event in the context
46 it was intended for. This is inelegant but not inefficient.
48 if (context ()->is_alias (ev
->get_property ("context-type")))
49 props_
.push_back (ev
);
53 Output_property_engraver::acknowledge_grob (Grob_info inf
)
55 for (vsize i
= props_
.size (); i
--;)
57 Stream_event
*o
= props_
[i
];
58 Context
*d
= inf
.context ();
59 SCM proc
= o
->get_property ("procedure");
61 inf
.grob ()->self_scm (),
63 context ()->self_scm ());
68 Output_property_engraver::stop_translation_timestep ()
73 Output_property_engraver::Output_property_engraver ()
77 ADD_ACKNOWLEDGER (Output_property_engraver
, grob
);
78 ADD_TRANSLATOR (Output_property_engraver
,
80 "Apply a procedure to any grob acknowledged.",