]> git.donarmstrong.com Git - lilypond.git/blob - lily/performer-group-performer.cc
patch::: 1.3.108.jcn3
[lilypond.git] / lily / performer-group-performer.cc
1 /*
2   performer-group-performer.cc -- implement Performer_group_performer
3
4   source file of the GNU LilyPond music typesetter
5
6   (c) 1996--2000 Han-Wen Nienhuys <hanwen@cs.uu.nl>
7                Jan Nieuwenhuizen <janneke@gnu.org>
8  */
9
10 #include "performer-group-performer.hh"
11
12 #include "audio-element.hh"
13 #include "debug.hh"
14
15
16 ADD_THIS_TRANSLATOR(Performer_group_performer);
17
18
19 void
20 Performer_group_performer::announce_element (Audio_element_info info)
21 {
22   announce_info_arr_.push (info);
23   Performer::announce_element (info);
24 }
25
26
27
28 void
29 Performer_group_performer::do_announces()
30 {
31   for (SCM p = trans_group_list_; gh_pair_p (p); p =gh_cdr ( p))
32     {
33       Translator * t = unsmob_translator (gh_car (p));
34       dynamic_cast<Performer_group_performer*> (t)->do_announces ();
35     }
36   
37   // debug
38   int i = 0;
39   do
40   {
41     i++;
42     for (int j =0; j < announce_info_arr_.size(); j++)
43       {
44         Audio_element_info info = announce_info_arr_[j];
45
46         if (i > 10)
47           {
48             printf ("elt: %s\n",
49                     classname (announce_info_arr_[j].elem_l_));
50             announce_info_arr_.clear ();
51           }
52
53           for (SCM p = simple_trans_list_; gh_pair_p (p); p = gh_cdr (p))
54             {
55               Translator * t = unsmob_translator (gh_car (p));
56               Performer * eng = dynamic_cast<Performer*> (t);
57               if (eng && eng!= info.origin_trans_l_)
58                 eng->acknowledge_element (info);
59             }
60         }
61       announce_info_arr_.clear ();
62       for (SCM p = simple_trans_list_; gh_pair_p (p); p = gh_cdr ( p))
63         {
64           Translator * t = unsmob_translator (gh_car (p));
65           Performer * eng = dynamic_cast<Performer*> (t);
66           if (eng)
67             eng->process_acknowledged ();
68         }
69     }
70   while (announce_info_arr_.size ());
71 }
72
73
74
75
76
77