[Gridflow-cvs] [svn] commit: r3485 - /trunk/base/flow_objects.c

gridflow-cvs at artengine.ca gridflow-cvs at artengine.ca
Mon Apr 14 14:13:07 EDT 2008


Author: matju
Date: Mon Apr 14 14:13:07 2008
New Revision: 3485

Log:
c++ [args] passes all tests

Modified:
    trunk/base/flow_objects.c

Modified: trunk/base/flow_objects.c
==============================================================================
--- trunk/base/flow_objects.c (original)
+++ trunk/base/flow_objects.c Mon Apr 14 14:13:07 2008
@@ -2661,7 +2661,7 @@
 	t_symbol *comma = gensym(",");
 	for (j=0; j<ac; j++) if (av[j].a_type==A_SYMBOL && av[j].a_w.w_symbol==comma) break;
 	int jj = handle_braces(j,av);
-	process_args(jj-1,av+1);
+	process_args(jj,av);
 	while (j<ac) {
 		j++;
 		int k=j;
@@ -2682,7 +2682,8 @@
 			}
 		} else v = &argv[i];
 		if (sargv[i].name==wildcard) {
-			outlet_list(bself->out[i],&s_list,argc-i,argv+i);
+			if (argc-i>0) outlet_list(bself->out[i],&s_list,argc-i,argv+i);
+			else outlet_bang(bself->out[i]);
 		} else {
 			if (v->a_type==A_LIST) {
 				t_binbuf *b = (t_binbuf *)v->a_w.w_gpointer;
@@ -2691,8 +2692,7 @@
 			else outlet_anything2(bself->out[i],1,v);
 		}
 	}
-	if (argc>sargc && sargv[sargc-1].name!=wildcard) post("warning: too many args (got %d, want %d), sargv[-1]=%s", argc, sargc,
-		sargv[sargc-1].name->s_name);
+	if (argc>sargc && sargv[sargc-1].name!=wildcard) post("warning: too many args (got %d, want %d)", argc, sargc);
 }
 \end class {install("args",1,1);}
 



More information about the Gridflow-cvs mailing list