- for (int i=0; i < consists_str_arr_.size(); i++)
- {
- Translator * t = output_def_l ()->find_translator_l (consists_str_arr_[i]);
- if (!t)
- warning (_f ("can't find `%s\'", consists_str_arr_[i]));
- else
- add_translator (t->clone ());
- }
+ Translator *t = unsmob_translator (context);
+ Translator_group* tr= dynamic_cast<Translator_group*> (t);
+ SCM_ASSERT_TYPE(tr, context, SCM_ARG1, __FUNCTION__, "Translator group");
+ SCM_ASSERT_TYPE(gh_symbol_p (name), name, SCM_ARG2, __FUNCTION__, "symbol");
+
+ return tr->internal_get_property (name);
+
+}
+
+LY_DEFINE(ly_set_context_property,
+ "ly-set-context-property", 3, 0, 0,
+ (SCM context, SCM name, SCM val),
+ "set value of property @var{sym} in context @var{tr} to @var{val}.
+")
+{
+ Translator *t = unsmob_translator (context);
+ Translator_group* tr= dynamic_cast<Translator_group*> (t);
+
+ SCM_ASSERT_TYPE(tr, context, SCM_ARG1, __FUNCTION__, "Context");
+ tr->internal_set_property (name, val);
+
+ return SCM_UNSPECIFIED;