X-Git-Url: https://git.donarmstrong.com/?a=blobdiff_plain;f=lily%2Ftranslator-ctors.cc;h=7f9f41bce7b0b3472dd2eaf1cbd39100df313b12;hb=6eced6a93bbfda6e6af37a7d77a8e75a5052dbee;hp=3b08edc159bba2aca74ef73618c07947f3e052f2;hpb=ac93c7dd01e0b6661c360acf89721ce9d32e4e4c;p=lilypond.git diff --git a/lily/translator-ctors.cc b/lily/translator-ctors.cc index 3b08edc159..7f9f41bce7 100644 --- a/lily/translator-ctors.cc +++ b/lily/translator-ctors.cc @@ -3,7 +3,7 @@ source file of the GNU LilyPond music typesetter - (c) 1997--2004 Han-Wen Nienhuys + (c) 1997--2005 Han-Wen Nienhuys */ #include "translator.hh" @@ -14,15 +14,14 @@ should delete these after exit. */ -Scheme_hash_table *global_translator_dict=0; +Scheme_hash_table *global_translator_dict = 0; -LY_DEFINE (get_all_translators,"ly:get-all-translators", 0, 0, 0, (), - "Return a list of all translator objects that may be instantiated. " - ) +LY_DEFINE (get_all_translators, "ly:get-all-translators", 0, 0, 0, (), + "Return a list of all translator objects that may be instantiated. ") { - SCM l = global_translator_dict ? global_translator_dict->to_alist () : SCM_EOL; + SCM l = global_translator_dict ? global_translator_dict->to_alist () : SCM_EOL; - for (SCM s =l; scm_is_pair (s); s = scm_cdr (s)) + for (SCM s = l; scm_is_pair (s); s = scm_cdr (s)) { scm_set_car_x (s, scm_cdar (s)); } @@ -36,13 +35,13 @@ add_translator (Translator *t) if (!global_translator_dict) global_translator_dict = new Scheme_hash_table; - SCM k= ly_symbol2scm (classname (t)); + SCM k = ly_symbol2scm (classname (t)); global_translator_dict->set (k, t->self_scm ()); scm_gc_unprotect_object (t->self_scm ()); } -Translator* +Translator * get_translator (SCM sym) { SCM v = SCM_BOOL_F;