From 335ee67f7313c76457f8d28cd7c8938fbcd14a10 Mon Sep 17 00:00:00 2001 From: Tim Blechmann Date: Sat, 18 Sep 2004 18:26:02 +0000 Subject: $0-aware send macros for float and symbol svn path=/trunk/externals/k_cext/; revision=2046 --- k_cext.c | 25 +++++++++++++++++++++++++ 1 file changed, 25 insertions(+) (limited to 'k_cext.c') diff --git a/k_cext.c b/k_cext.c index b2fdcee..a960302 100644 --- a/k_cext.c +++ b/k_cext.c @@ -353,3 +353,28 @@ int k_cext_setvalue(char c[],float f) } return value_setfloat(gensym(c),f); } + +void k_cext_sendfloat (char c[],float f) +{ + static t_symbol *k_cext_internal_symbol=NULL; + while ( isspace(c[0]) ) + { + c++; + } + if(k_cext_internal_symbol==NULL) k_cext_internal_symbol=gensym(c); + if(k_cext_internal_symbol->s_thing) + pd_float(k_cext_internal_symbol->s_thing, f); +} + +void k_cext_sendsymbol (char c[],char s[]) +{ + static t_symbol *k_cext_internal_symbol=NULL; + while ( isspace(c[0]) ) + { + c++; + } + if(k_cext_internal_symbol==NULL) + k_cext_internal_symbol=gensym(c); + if(k_cext_internal_symbol->s_thing) + pd_symbol(k_cext_internal_symbol->s_thing, gensym(s)); +} -- cgit v1.2.1