From 76430a8935097f4cee5befd550d2dcc043774d19 Mon Sep 17 00:00:00 2001 From: jdl Date: Wed, 26 Feb 2003 22:06:39 +0000 Subject: added split. split incoming symbol at delim svn path=/trunk/externals/cxc/; revision=434 --- ascseq.c | 9 ++++++++- 1 file changed, 8 insertions(+), 1 deletion(-) (limited to 'ascseq.c') diff --git a/ascseq.c b/ascseq.c index 1cdc6d5..7213d43 100644 --- a/ascseq.c +++ b/ascseq.c @@ -44,7 +44,7 @@ static void ascseq_tick(t_ascseq *x) } } -void ascseq_anything(t_ascseq *x,t_symbol* s,t_int argc,t_atom* argv) +void ascseq_anything(t_ascseq *x, t_symbol* s, t_int argc, t_atom* argv) { int i = argc; int chr, cnt, len; @@ -82,6 +82,12 @@ void ascseq_anything(t_ascseq *x,t_symbol* s,t_int argc,t_atom* argv) /* } */ } +void ascseq_symbol(t_ascseq *x, t_symbol *s) +{ + t_atom* a; + ascseq_anything(x, s, 0, a); +} + void ascseq_float(t_ascseq *x, t_floatarg f) { int chr, cnt, len; @@ -141,4 +147,5 @@ void ascseq_setup(void) class_addanything(ascseq_class,ascseq_anything); class_addfloat(ascseq_class, ascseq_float); class_addmethod(ascseq_class, (t_method)ascseq_ft1, gensym("ft1"), A_FLOAT, 0); + class_addsymbol(ascseq_class, ascseq_symbol); } -- cgit v1.2.1