lilypond-0.1.57
[lilypond.git] / lily / translator.cc
blob5655da8a1592175968086058a6f35a4823c57894
1 /*
2 translator.cc -- implement Translator
4 source file of the GNU LilyPond music typesetter
6 (c) 1997 Han-Wen Nienhuys <hanwen@stack.nl>
7 */
10 #include "translator.hh"
11 #include "debug.hh"
12 #include "translator-group.hh"
13 #include "dictionary-iter.hh"
14 #include "rational.hh"
16 Translator::~Translator ()
20 Translator::Translator ()
22 status = ORPHAN;
23 daddy_trans_l_ = 0;
24 output_def_l_ = 0;
27 Translator::Translator (Translator const &s)
28 : Input (s)
30 status = ORPHAN;
31 daddy_trans_l_ =0;
32 output_def_l_ = s.output_def_l_;
33 properties_dict_ = s.properties_dict_;
34 type_str_ = s.type_str_;
37 bool
38 Translator::is_alias_b (String s) const
40 return s == type_str_;
43 bool
44 Translator::do_try_request (Request *)
46 return false;
50 Moment
51 Translator::now_moment () const
53 return daddy_trans_l_->now_moment ();
57 void
58 Translator::add_processing ()
60 if (status > ORPHAN)
61 return;
63 do_add_processing ();
64 status = VIRGIN;
67 void
68 Translator::do_add_processing ()
72 void
73 Translator::print () const
75 #ifndef NPRINT
76 DOUT << name () << " {";
77 if (name () != type_str_)
78 DOUT << "type = " << type_str_;
79 for (Dictionary_iter<Scalar> i (properties_dict_); i.ok (); i++)
81 DOUT << i.key () << "=" << i.val () <<"\n";
83 do_print ();
84 DOUT << "}\n";
85 #endif
88 void
89 Translator::do_print () const
93 IMPLEMENT_IS_TYPE_B(Translator);
96 void
97 Translator::creation_processing ()
99 if (status >= CREATION_INITED)
100 return ;
102 do_creation_processing ();
103 status = CREATION_INITED;
106 void
107 Translator::post_move_processing ()
109 if (status >= MOVE_INITED)
110 return;
112 creation_processing ();
113 do_post_move_processing ();
114 status = MOVE_INITED;
117 void
118 Translator::removal_processing ()
120 if (status == ORPHAN)
121 return;
122 creation_processing ();
123 do_removal_processing ();
124 // elegancy ...
125 // status = ORPHAN;
129 bool
130 Translator::try_request (Request * r)
132 if (status < MOVE_INITED)
133 post_move_processing ();
135 return do_try_request (r);
138 void
139 Translator::process_requests ()
141 if (status < PROCESSED_REQS)
142 post_move_processing ();
143 else if (status >= PROCESSED_REQS)
144 return;
146 status = PROCESSED_REQS;
147 do_process_requests ();
150 void
151 Translator::pre_move_processing ()
153 do_pre_move_processing ();
154 status = CREATION_INITED;
157 Scalar
158 Translator::get_property (String id)
160 if (properties_dict_.elt_b (id))
162 return properties_dict_[id];
165 if (daddy_trans_l_)
166 return daddy_trans_l_->get_property (id);
168 return "";
171 void
172 Translator::set_property (String id, Scalar val)
174 properties_dict_[id] = val;
178 Music_output_def *
179 Translator::output_def_l () const
181 return output_def_l_;