diff options
author | Kjetil S. Matheussen <ksvalast@users.sourceforge.net> | 2004-01-12 13:25:12 +0000 |
---|---|---|
committer | Kjetil S. Matheussen <ksvalast@users.sourceforge.net> | 2004-01-12 13:25:12 +0000 |
commit | 3a3bc5212c4956426f967d3dacc076905cac14d6 (patch) | |
tree | e1e4d67b0e679707cc251059ead412cbd03c7657 /k_guile.c | |
parent | e4a6ea79702e5f0356a7c5a04c54d12a09eb704b (diff) |
eval message to evaluate scheme code in the global environment
svn path=/trunk/externals/k_guile/; revision=1256
Diffstat (limited to 'k_guile.c')
-rw-r--r-- | k_guile.c | 12 |
1 files changed, 11 insertions, 1 deletions
@@ -100,7 +100,7 @@ static SCM pd_backtrace_run1; static SCM pd_backtrace_run2; static SCM pd_backtrace_run3; static SCM pd_backtrace_run4; - +static SCM eval_string_func; @@ -473,6 +473,8 @@ static void k_guile_init(void){ pd_backtrace_run4=EVAL("pd-backtrace-run4"); scm_permanent_object(pd_backtrace_run4); + + eval_string_func=EVAL("eval-string"); } @@ -557,6 +559,12 @@ static void k_guile_reload(t_k_guile *x){ k_guile_load(x,x->filename); } +static void k_guile_eval(t_k_guile *x,t_symbol *s){ + scm_call_2(pd_backtrace_run1,eval_string_func,MAKE_STRING(s->s_name)); +} + +//static void k_guile_evalfile(t_k_guile *x,t_symbol *s){ +//} /***************************************************************************************************** @@ -573,6 +581,8 @@ void k_guile_setup(void){ class_addanything(k_guile_class, (t_method)k_guile_anything_first); class_addmethod(k_guile_class, (t_method)k_guile_reload, gensym("reload"), 0); + class_addmethod(k_guile_class, (t_method)k_guile_eval, gensym("eval"), A_DEFSYM, 0); + //class_addmethod(k_guile_class, (t_method)k_guile_evalfile, gensym("evalfile"), A_DEFSYM, 0); class_sethelpsymbol(k_guile_class, gensym("help-k_guile.pd")); |