added split. split incoming symbol at delim

svn path=/trunk/externals/cxc/; revision=434

1 files changed, 8 insertions, 1 deletions

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);
 }