[PD-cvs] pd/src builtins.c,1.1.2.28,1.1.2.29
Mathieu Bouchard
matju at users.sourceforge.net
Sun Jul 15 07:39:53 CEST 2007
Update of /cvsroot/pure-data/pd/src
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv20548
Modified Files:
Tag: desiredata
builtins.c
Log Message:
added [tracecall]
Index: builtins.c
===================================================================
RCS file: /cvsroot/pure-data/pd/src/Attic/builtins.c,v
retrieving revision 1.1.2.28
retrieving revision 1.1.2.29
diff -C2 -d -r1.1.2.28 -r1.1.2.29
*** builtins.c 11 Jul 2007 19:56:55 -0000 1.1.2.28
--- builtins.c 15 Jul 2007 05:39:51 -0000 1.1.2.29
***************
*** 3139,3142 ****
--- 3139,3160 ----
binbuf_free(b);
}
+
+ struct t_tracecall : t_object {};
+ static t_class *tracecall_class;
+ void *tracecall_new (t_symbol *s) {
+ t_tracecall *x = (t_tracecall *)pd_new(tracecall_class);
+ outlet_new(x,&s_list);
+ return x;
+ }
+ void tracecall_anything (t_tracecall *x, t_symbol *dummy, int dum, t_atom *my) {
+ t_atom a[2];
+ for (int i=pd_stackn-1; i>=0; i--) {
+ SETSYMBOL( &a[0],pd_stack[i].self->_class->name);
+ SETSYMBOL( &a[1],pd_stack[i].s);
+ //SETPOINTER(&a[2],pd_stack[i].self);
+ outlet_list(x->outlet,&s_list,2,a);
+ }
+ }
+
static void matju_setup() {
unpost_class = class_new2("unpost",unpost_new,0,sizeof(t_unpost),0,"");
***************
*** 3144,3147 ****
--- 3162,3167 ----
parse_class = class_new2("parse",parse_new,0,sizeof(t_parse),0,"");
class_addsymbol(parse_class, parse_symbol);
+ tracecall_class = class_new2("tracecall",tracecall_new,0,sizeof(t_tracecall),0,"");
+ class_addanything(tracecall_class,tracecall_anything);
}
More information about the Pd-cvs
mailing list