From a58c8f0d4947f0b5d038df1c15745018390c0e24 Mon Sep 17 00:00:00 2001 From: "N.N." Date: Sat, 25 Apr 2009 04:20:33 +0000 Subject: fix [any] svn path=/trunk/; revision=11137 --- desiredata/src/builtins.c | 9 +++++---- 1 file changed, 5 insertions(+), 4 deletions(-) (limited to 'desiredata/src') diff --git a/desiredata/src/builtins.c b/desiredata/src/builtins.c index 891e1f60..a67b22ca 100644 --- a/desiredata/src/builtins.c +++ b/desiredata/src/builtins.c @@ -544,7 +544,7 @@ static void qlist_write(t_qlist *x, t_symbol *filename, t_symbol *format) { char *buf = canvas_makefilename(x->canvas,filename->name,0,0); if (!strcmp(format->name, "cr")) cr = 1; else if (*format->name) error("qlist_read: unknown flag: %s", format->name); - if (binbuf_write(x->binbuf, buf, "", cr)) error("%s: write failed", filename->name); + if (binbuf_write(x->binbuf,buf,"",cr)) error("%s: write failed", filename->name); free(buf); } static void qlist_print(t_qlist *x) { @@ -666,7 +666,8 @@ static void alist_anything(t_binbuf *x, t_symbol *s, int argc, t_atom *argv) { } static void alist_toatoms(t_binbuf *x, t_atom *to) {for (size_t i=0; in; i++) to[i] = x->v[i];} -t_class *list_append_class; struct t_list_append : t_object {t_binbuf *alist;}; +//t_class *list_any_class; struct t_list_any : t_object {t_binbuf *alist;}; +t_class *list_append_class; struct t_list_append : t_object {t_binbuf *alist;}; t_class *list_prepend_class; struct t_list_prepend : t_object {t_binbuf *alist;}; t_class *list_split_class; struct t_list_split : t_object {t_float f;}; t_class *list_trim_class; struct t_list_trim : t_object {}; @@ -1086,10 +1087,10 @@ static void *any_new(t_symbol *s,int argc, t_atom *argv) { static void any_anything(t_any *x, t_symbol *s, int argc, t_atom *argv) { t_atom *outv; int outc = x->alist->n+argc+1; ATOMS_ALLOCA(outv, outc); - if (argv[0].a_type == A_FLOAT && s->name == "list" || s->name == "float") { + if (argv[0].a_type == A_FLOAT && *s=="list" || *s=="float") { alist_list(x->alist, 0, argc, argv); outlet_anything(x->outlet, &s_list, argc, argv);return; } - if (argv[0].a_type == A_SYMBOL || s->name != "list" || s->name != "float") { + if (argv[0].a_type == A_SYMBOL || *s!="list" || *s!="float") { alist_anything(x->alist, s, argc, argv); outlet_anything(x->outlet, s, argc, argv); } } -- cgit v1.2.1