]> git.donarmstrong.com Git - lilypond.git/blob - lily/output-property-engraver.cc
Release: bump VERSION_DEVEL.
[lilypond.git] / lily / output-property-engraver.cc
1 /*
2   This file is part of LilyPond, the GNU music typesetter.
3
4   Copyright (C) 2000--2014 Han-Wen Nienhuys <hanwen@xs4all.nl>
5
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.
10
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.
15
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/>.
18 */
19
20 #include "engraver.hh"
21 #include "context.hh"
22 #include "grob.hh"
23 #include "stream-event.hh"
24
25 #include "translator.icc"
26
27
28 class Output_property_engraver : public Engraver
29 {
30   TRANSLATOR_DECLARATIONS (Output_property_engraver);
31 protected:
32   vector<Stream_event*> props_;
33   
34   DECLARE_ACKNOWLEDGER (grob);
35   DECLARE_TRANSLATOR_LISTENER (apply_output);
36
37   void stop_translation_timestep ();
38 };
39
40 IMPLEMENT_TRANSLATOR_LISTENER (Output_property_engraver, apply_output);
41 void
42 Output_property_engraver::listen_apply_output (Stream_event *ev)
43 {
44   /*
45     UGH. Only swallow the output property event in the context
46     it was intended for. This is inelegant but not inefficient.
47   */
48   if (context ()->is_alias (ev->get_property ("context-type")))
49     props_.push_back (ev);
50 }
51
52 void
53 Output_property_engraver::acknowledge_grob (Grob_info inf)
54 {
55   for (vsize i = props_.size (); i--;)
56     {
57       Stream_event *o = props_[i];
58       Context *d = inf.context ();
59       SCM proc = o->get_property ("procedure");
60       scm_call_3 (proc,
61                   inf.grob ()->self_scm (),
62                   d->self_scm (), 
63                   context ()->self_scm ());
64     }
65 }
66
67 void
68 Output_property_engraver::stop_translation_timestep ()
69 {
70   props_.clear ();
71 }
72
73 Output_property_engraver::Output_property_engraver ()
74 {
75 }
76
77 ADD_ACKNOWLEDGER (Output_property_engraver, grob);
78 ADD_TRANSLATOR (Output_property_engraver,
79                 /* doc */
80                 "Apply a procedure to any grob acknowledged.",
81                 
82                 /* create */
83                 "",
84                 
85                 /* read */
86                 "",
87                 
88                 /* write */
89                 ""
90                 );