OLD | NEW |
1 /* | 1 /* |
2 This file is part of LilyPond, the GNU music typesetter. | 2 This file is part of LilyPond, the GNU music typesetter. |
3 | 3 |
4 Copyright (C) 1997--2015 Han-Wen Nienhuys <hanwen@xs4all.nl>, | 4 Copyright (C) 1997--2015 Han-Wen Nienhuys <hanwen@xs4all.nl>, |
5 Erik Sandberg <mandolaerik@gmail.com> | 5 Erik Sandberg <mandolaerik@gmail.com> |
6 | 6 |
7 LilyPond is free software: you can redistribute it and/or modify | 7 LilyPond is free software: you can redistribute it and/or modify |
8 it under the terms of the GNU General Public License as published by | 8 it under the terms of the GNU General Public License as published by |
9 the Free Software Foundation, either version 3 of the License, or | 9 the Free Software Foundation, either version 3 of the License, or |
10 (at your option) any later version. | 10 (at your option) any later version. |
(...skipping 306 matching lines...) Expand 10 before | Expand all | Expand 10 after Loading... |
317 vector<Method_instance> &bindings (precomputed_method_bindings_[idx]); | 317 vector<Method_instance> &bindings (precomputed_method_bindings_[idx]); |
318 for (vsize i = 0; i < bindings.size (); i++) | 318 for (vsize i = 0; i < bindings.size (); i++) |
319 bindings[i](); | 319 bindings[i](); |
320 } | 320 } |
321 | 321 |
322 Translator_group::~Translator_group () | 322 Translator_group::~Translator_group () |
323 { | 323 { |
324 } | 324 } |
325 | 325 |
326 | 326 |
327 const char Translator_group::type_p_name_[] = "ly:translator-group?"; | 327 const char * const Translator_group::type_p_name_ = "ly:translator-group?"; |
328 | 328 |
329 int | 329 int |
330 Translator_group::print_smob (SCM port, scm_print_state *) const | 330 Translator_group::print_smob (SCM port, scm_print_state *) const |
331 { | 331 { |
332 scm_puts ("#<Translator_group ", port); | 332 scm_puts ("#<Translator_group ", port); |
333 scm_puts (class_name (), port); | 333 scm_puts (class_name (), port); |
334 scm_display (simple_trans_list_, port); | 334 scm_display (simple_trans_list_, port); |
335 scm_puts (" >", port); | 335 scm_puts (" >", port); |
336 return 1; | 336 return 1; |
337 } | 337 } |
338 | 338 |
339 SCM | 339 SCM |
340 Translator_group::mark_smob () const | 340 Translator_group::mark_smob () const |
341 { | 341 { |
342 derived_mark (); | 342 derived_mark (); |
343 scm_gc_mark (protected_events_); | 343 scm_gc_mark (protected_events_); |
344 return simple_trans_list_; | 344 return simple_trans_list_; |
345 } | 345 } |
OLD | NEW |