Pd-cvs January 2007

pd-cvs@lists.iem.at

21 participants
539 discussions

pd/src desire.c, 1.1.2.217.2.113, 1.1.2.217.2.114 m_pd.h, 1.4.4.11.2.33.2.36, 1.4.4.11.2.33.2.37 builtins_dsp.c, 1.1.2.13, 1.1.2.14
by Mathieu Bouchard 05 Jan '07

05 Jan '07

Update of /cvsroot/pure-data/pd/src In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv21904 Modified Files: Tag: desiredata desire.c m_pd.h builtins_dsp.c Log Message: removed s_ prefixes in t_signal Index: m_pd.h =================================================================== RCS file: /cvsroot/pure-data/pd/src/m_pd.h,v retrieving revision 1.4.4.11.2.33.2.36 retrieving revision 1.4.4.11.2.33.2.37 diff -C2 -d -r1.4.4.11.2.33.2.36 -r1.4.4.11.2.33.2.37 *** m_pd.h 4 Jan 2007 21:37:08 -0000 1.4.4.11.2.33.2.36 --- m_pd.h 4 Jan 2007 23:21:24 -0000 1.4.4.11.2.33.2.37 *************** *** 574,577 **** --- 574,591 ---- #define MAXSIGSIZE (1 << MAXLOGSIG) + /* this doesn't really have to do with C++, just with getting rid of prefixes */ + #ifdef PD_PLUSPLUS_FACE + struct t_signal { + int n; + t_sample *v; + float sr; + int refcount; + int isborrowed; + t_signal *borrowedfrom; + t_signal *nextfree; + t_signal *nextused; + int vecsize; + }; + #else typedef struct _signal { int s_n; /* number of points in the array */ *************** *** 585,589 **** int s_vecsize; /* allocated size of array in points */ } t_signal; ! typedef t_int *(*t_perfroutine)(t_int *args); --- 599,603 ---- int s_vecsize; /* allocated size of array in points */ } t_signal; ! #endif typedef t_int *(*t_perfroutine)(t_int *args); *************** *** 679,684 **** t_int downsample; /* downsampling factor */ t_int upsample; /* upsampling factor */ ! t_float *s_vec; /* here we hold the resampled data */ int s_n; t_float *coeffs; /* coefficients for filtering... */ int coefsize; --- 693,703 ---- t_int downsample; /* downsampling factor */ t_int upsample; /* upsampling factor */ ! #ifdef PD_PLUSPLUS_FACE ! t_float *v; /* here we hold the resampled data */ ! int s_n; ! #else ! t_float *s_vec; int s_n; + #endif t_float *coeffs; /* coefficients for filtering... */ int coefsize; Index: builtins_dsp.c =================================================================== RCS file: /cvsroot/pure-data/pd/src/Attic/builtins_dsp.c,v retrieving revision 1.1.2.13 retrieving revision 1.1.2.14 diff -C2 -d -r1.1.2.13 -r1.1.2.14 *** builtins_dsp.c 4 Jan 2007 23:16:06 -0000 1.1.2.13 --- builtins_dsp.c 4 Jan 2007 23:21:24 -0000 1.1.2.14 *************** *** 90,104 **** #define DSPDSP(NAME) \ static void NAME##_dsp(t_minus *x, t_signal **sp) { \ ! const int n = sp[0]->s_n; \ ! if(n&7) dsp_add(NAME##_perform, 4, sp[0]->s_vec, sp[1]->s_vec, sp[2]->s_vec, n); \ ! else if(SIMD_CHECK3(n,sp[0]->s_vec,sp[1]->s_vec,sp[2]->s_vec)) \ ! dsp_add(NAME##_perf_simd, 4, sp[0]->s_vec, sp[1]->s_vec, sp[2]->s_vec, n); \ ! else dsp_add(NAME##_perf8, 4, sp[0]->s_vec, sp[1]->s_vec, sp[2]->s_vec, n);} \ static void scalar##NAME##_dsp(t_scalarminus *x, t_signal **sp) { \ ! const int n = sp[0]->s_n;\ ! if(n&7) dsp_add(scalar##NAME##_perform, 4, sp[0]->s_vec, &x->b,sp[1]->s_vec, n);\ [...1094 lines suppressed...] --- 4184,4189 ---- } static void sigvcf_dsp(t_sigvcf *x, t_signal **sp) { ! x->ctl->isr = 6.28318f/sp[0]->sr; ! dsp_add(sigvcf_perform, 6, sp[0]->v, sp[1]->v, sp[2]->v, sp[3]->v, x->ctl, sp[0]->n); } *************** *** 4221,4225 **** } static void noise_dsp(t_noise *x, t_signal **sp) { ! dsp_add(noise_perform, 3, sp[0]->s_vec, &x->val, sp[0]->s_n); } static void noise_setup() { --- 4221,4225 ---- } static void noise_dsp(t_noise *x, t_signal **sp) { ! dsp_add(noise_perform, 3, sp[0]->v, &x->val, sp[0]->n); } static void noise_setup() { Index: desire.c =================================================================== RCS file: /cvsroot/pure-data/pd/src/Attic/desire.c,v retrieving revision 1.1.2.217.2.113 retrieving revision 1.1.2.217.2.114 diff -C2 -d -r1.1.2.217.2.113 -r1.1.2.217.2.114 *** desire.c 4 Jan 2007 21:55:35 -0000 1.1.2.217.2.113 --- desire.c 4 Jan 2007 23:21:22 -0000 1.1.2.217.2.114 *************** *** 3188,3197 **** if (x->directsignal) signal_setborrowed(sp[0], x->directsignal); else { ! const int vecsize = outsig->s_vecsize; ! /* if the outsig->s_vec is aligned the x->read will also be... */ ! if(vecsize&7) dsp_add(vinlet_perform, 3, x, outsig->s_vec,vecsize); ! else if(SIMD_CHECK1(n,outsig->s_vec)) ! dsp_add(vinlet_perfsimd, 3, x, outsig->s_vec,vecsize); ! else dsp_add(vinlet_perf8, 3, x, outsig->s_vec,vecsize); x->read = x->buf; } --- 3188,3197 ---- if (x->directsignal) signal_setborrowed(sp[0], x->directsignal); else { ! const int vecsize = outsig->vecsize; ! /* if the outsig->v is aligned the x->read will also be... */ ! if(vecsize&7) dsp_add(vinlet_perform, 3, x, outsig->v,vecsize); ! else if(SIMD_CHECK1(n,outsig->v)) ! dsp_add(vinlet_perfsimd, 3, x, outsig->v,vecsize); ! else dsp_add(vinlet_perf8, 3, x, outsig->v,vecsize); x->read = x->buf; } *************** *** 3236,3240 **** if (parentsigs) { insig = parentsigs[inlet_getsignalindex(x->inlet)]; ! parentvecsize = insig->s_vecsize; re_parentvecsize = parentvecsize * upsample / downsample; } else { --- 3236,3240 ---- if (parentsigs) { insig = parentsigs[inlet_getsignalindex(x->inlet)]; ! parentvecsize = insig->vecsize; re_parentvecsize = parentvecsize * upsample / downsample; } else { *************** *** 3258,3270 **** x->fill = x->endbuf - (x->hop - prologphase * re_parentvecsize); if (upsample * downsample == 1) ! dsp_add(vinlet_doprolog, 3, x, insig->s_vec, re_parentvecsize); else { ! resamplefrom_dsp(&x->updown, insig->s_vec, parentvecsize, re_parentvecsize, x->updown.method); ! dsp_add(vinlet_doprolog, 3, x, x->updown.s_vec, re_parentvecsize); } /* } IOhannes */ /* if the input signal's reference count is zero, we have to free it here because we didn't in ugen_doit(). */ ! if (!insig->s_refcount) signal_makereusable(insig); } else memset((char *)(x->buf), 0, bufsize * sizeof(*x->buf)); --- 3258,3270 ---- x->fill = x->endbuf - (x->hop - prologphase * re_parentvecsize); if (upsample * downsample == 1) ! dsp_add(vinlet_doprolog, 3, x, insig->v, re_parentvecsize); else { ! resamplefrom_dsp(&x->updown, insig->v, parentvecsize, re_parentvecsize, x->updown.method); ! dsp_add(vinlet_doprolog, 3, x, x->updown.v, re_parentvecsize); } /* } IOhannes */ /* if the input signal's reference count is zero, we have to free it here because we didn't in ugen_doit(). */ ! if (!insig->refcount) signal_makereusable(insig); } else memset((char *)(x->buf), 0, bufsize * sizeof(*x->buf)); *************** *** 3397,3401 **** t_float *out = (t_float *)(w[2]); /* IOhannes */ t_float *in = x->empty; ! if (x->updown.downsample != x->updown.upsample) out = x->updown.s_vec; /* IOhannes */ for (int n = (int)(w[3]); n--; in++) *out++ = *in, *in = 0; if (in == x->endbuf) in = x->buf; --- 3397,3401 ---- t_float *out = (t_float *)(w[2]); /* IOhannes */ t_float *in = x->empty; ! if (x->updown.downsample != x->updown.upsample) out = x->updown.v; /* IOhannes */ for (int n = (int)(w[3]); n--; in++) *out++ = *in, *in = 0; if (in == x->endbuf) in = x->buf; *************** *** 3408,3412 **** t_voutlet *x = (t_voutlet *)(w[1]); t_float *in = x->empty; ! t_float *out = x->updown.s_vec; /* IOhannes */ for (int n = (int)(w[2]); n--; in++) *out++ = *in, *in = 0; if (in == x->endbuf) in = x->buf; --- 3408,3412 ---- t_voutlet *x = (t_voutlet *)(w[1]); t_float *in = x->empty; ! t_float *out = x->updown.v; /* IOhannes */ for (int n = (int)(w[2]); n--; in++) *out++ = *in, *in = 0; if (in == x->endbuf) in = x->buf; *************** *** 3438,3448 **** if (!x->buf) return; insig = sp[0]; ! if (x->justcopyout) dsp_add_copy(insig->s_vec, x->directsignal->s_vec, insig->s_n); else if (x->directsignal) { /* if we're just going to make the signal available on the parent patch, hand it off to the parent signal. */ ! /* this is done elsewhere--> sp[0]->s_refcount++; */ signal_setborrowed(x->directsignal, sp[0]); ! } else dsp_add(voutlet_perform, 3, x, insig->s_vec, insig->s_n); } --- 3438,3448 ---- if (!x->buf) return; insig = sp[0]; ! if (x->justcopyout) dsp_add_copy(insig->v, x->directsignal->v, insig->n); else if (x->directsignal) { /* if we're just going to make the signal available on the parent patch, hand it off to the parent signal. */ ! /* this is done elsewhere--> sp[0]->refcount++; */ signal_setborrowed(x->directsignal, sp[0]); ! } else dsp_add(voutlet_perform, 3, x, insig->v, insig->n); } *************** *** 3463,3467 **** if (parentsigs) { outsig = parentsigs[outlet_getsignalindex(x->parentoutlet)]; ! parentvecsize = outsig->s_vecsize; re_parentvecsize = parentvecsize * upsample / downsample; } else { --- 3463,3467 ---- if (parentsigs) { outsig = parentsigs[outlet_getsignalindex(x->parentoutlet)]; ! parentvecsize = outsig->vecsize; re_parentvecsize = parentvecsize * upsample / downsample; } else { *************** *** 3496,3503 **** x->empty = x->buf + re_parentvecsize * epilogphase; if (upsample * downsample == 1) ! dsp_add(voutlet_doepilog, 3, x, outsig->s_vec, re_parentvecsize); else { dsp_add(voutlet_doepilog_resampling, 2, x, re_parentvecsize); ! resampleto_dsp(&x->updown, outsig->s_vec, re_parentvecsize, parentvecsize, x->updown.method); } /* } IOhannes */ --- 3496,3503 ---- x->empty = x->buf + re_parentvecsize * epilogphase; if (upsample * downsample == 1) ! dsp_add(voutlet_doepilog, 3, x, outsig->v, re_parentvecsize); else { dsp_add(voutlet_doepilog_resampling, 2, x, re_parentvecsize); ! resampleto_dsp(&x->updown, outsig->v, re_parentvecsize, parentvecsize, x->updown.method); } /* } IOhannes */ *************** *** 3510,3514 **** if (parentsigs) { t_signal *outsig = parentsigs[outlet_getsignalindex(x->parentoutlet)]; ! dsp_add_zero(outsig->s_vec, outsig->s_n); } } --- 3510,3514 ---- if (parentsigs) { t_signal *outsig = parentsigs[outlet_getsignalindex(x->parentoutlet)]; ! dsp_add_zero(outsig->v, outsig->n); } }

1 0

pd/src builtins_dsp.c,1.1.2.12,1.1.2.13
by Mathieu Bouchard 05 Jan '07

05 Jan '07

Update of /cvsroot/pure-data/pd/src In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv20072 Modified Files: Tag: desiredata builtins_dsp.c Log Message: shrink Index: builtins_dsp.c =================================================================== RCS file: /cvsroot/pure-data/pd/src/Attic/builtins_dsp.c,v retrieving revision 1.1.2.12 retrieving revision 1.1.2.13 diff -C2 -d -r1.1.2.12 -r1.1.2.13 *** builtins_dsp.c 4 Jan 2007 22:53:10 -0000 1.1.2.12 --- builtins_dsp.c 4 Jan 2007 23:16:06 -0000 1.1.2.13 *************** *** 347,353 **** /* ------------ tabplay~ - non-transposing sample playback --------------- */ - static t_class *tabplay_tilde_class; - struct t_tabplay_tilde : t_object { t_outlet *bangout; --- 347,351 ---- *************** *** 359,365 **** [...1967 lines suppressed...] static t_int *noise_perform(t_int *w) { t_float *out = (t_float *)w[1]; --- 4207,4210 ---- *************** *** 4474,4487 **** return w+4; } - static void noise_dsp(t_noise *x, t_signal **sp) { dsp_add(noise_perform, 3, sp[0]->s_vec, &x->val, sp[0]->s_n); } - static void noise_setup() { noise_class = class_new2("noise~",noise_new,0,sizeof(t_noise),0,""); class_addmethod2(noise_class, noise_dsp, "dsp",""); } - void builtins_dsp_setup() { plus_setup(); --- 4220,4230 ----

1 0

pd/src builtins_dsp.c,1.1.2.11,1.1.2.12
by Mathieu Bouchard 04 Jan '07

04 Jan '07

Update of /cvsroot/pure-data/pd/src In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv11167 Modified Files: Tag: desiredata builtins_dsp.c Log Message: shrink Index: builtins_dsp.c =================================================================== RCS file: /cvsroot/pure-data/pd/src/Attic/builtins_dsp.c,v retrieving revision 1.1.2.11 retrieving revision 1.1.2.12 diff -C2 -d -r1.1.2.11 -r1.1.2.12 *** builtins_dsp.c 4 Jan 2007 21:16:50 -0000 1.1.2.11 --- builtins_dsp.c 4 Jan 2007 22:53:10 -0000 1.1.2.12 *************** *** 314,321 **** t_garray *a = (t_garray *)pd_findbyclass(x->arrayname, garray_class); if (!a) { ! if (*s->s_name) pd_error(x, "tabwrite~: %s: no such array", x->arrayname->s_name); x->vec = 0; } else if (!garray_getfloatarray(a, &x->nsampsintab, &x->vec)) { ! pd_error(x, "%s: bad template for tabwrite~", x->arrayname->s_name); x->vec = 0; } else garray_usedindsp(a); --- 314,321 ---- t_garray *a = (t_garray *)pd_findbyclass(x->arrayname, garray_class); [...3945 lines suppressed...] *************** *** 5151,5167 **** sigwrap_setup(); mtof_tilde_setup(); - ftom_tilde_setup(); - dbtorms_tilde_setup(); - rmstodb_tilde_setup(); - dbtopow_tilde_setup(); - powtodb_tilde_setup(); - - class_sethelpsymbol(mtof_tilde_class, s); - class_sethelpsymbol(ftom_tilde_class, s); - class_sethelpsymbol(dbtorms_tilde_class, s); - class_sethelpsymbol(rmstodb_tilde_class, s); - class_sethelpsymbol(dbtopow_tilde_class, s); - class_sethelpsymbol(powtodb_tilde_class, s); - print_setup(); bang_tilde_setup(); --- 4551,4554 ----

1 0

pd/src desire.c,1.1.2.217.2.112,1.1.2.217.2.113
by Mathieu Bouchard 04 Jan '07

04 Jan '07

Update of /cvsroot/pure-data/pd/src In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv21713 Modified Files: Tag: desiredata desire.c Log Message: switching to class_new2 and class_addcreator2 Index: desire.c =================================================================== RCS file: /cvsroot/pure-data/pd/src/Attic/desire.c,v retrieving revision 1.1.2.217.2.112 retrieving revision 1.1.2.217.2.113 diff -C2 -d -r1.1.2.217.2.112 -r1.1.2.217.2.113 *** desire.c 4 Jan 2007 21:37:05 -0000 1.1.2.217.2.112 --- desire.c 4 Jan 2007 21:55:35 -0000 1.1.2.217.2.113 *************** *** 976,980 **** /* this routine starts DSP for all root canvases. */ ! static void canvas_start_dsp(void) { if (canvas_dspstate) ugen_stop(); else sys_gui("pdtk_pd_dsp 1\n"); --- 976,980 ---- /* this routine starts DSP for all root canvases. */ ! static void canvas_start_dsp() { if (canvas_dspstate) ugen_stop(); else sys_gui("pdtk_pd_dsp 1\n"); *************** *** 988,992 **** } ! static void canvas_stop_dsp(void) { if (canvas_dspstate) { ugen_stop(); --- 988,992 ---- } ! static void canvas_stop_dsp() { if (canvas_dspstate) { ugen_stop(); *************** *** 2156,2160 **** } ! static void g_array_setup(void) { t_class *c = garray_class = class_new2("array",0,garray_free,sizeof(t_garray),CLASS_GOBJ,""); class_addlist(garray_class, garray_list); --- 2156,2160 ---- } ! static void g_array_setup() { t_class *c = garray_class = class_new2("array",0,garray_free,sizeof(t_garray),CLASS_GOBJ,""); class_addlist(garray_class, garray_list); *************** *** 3303,3307 **** } ! static void vinlet_setup(void) { t_class *c = vinlet_class = class_new2("inlet",vinlet_new,vinlet_free,sizeof(t_vinlet),CLASS_NOINLET,"S"); class_addcreator2("inlet~",vinlet_newsig,"S"); --- 3303,3307 ---- } ! static void vinlet_setup() { t_class *c = vinlet_class = class_new2("inlet",vinlet_new,vinlet_free,sizeof(t_vinlet),CLASS_NOINLET,"S"); class_addcreator2("inlet~",vinlet_newsig,"S"); *************** *** 3544,3548 **** ! static void voutlet_setup(void) { t_class *c = voutlet_class = class_new2("outlet",voutlet_new,voutlet_free,sizeof(t_voutlet),CLASS_NOINLET,"S"); class_addcreator2("outlet~",voutlet_newsig,"S"); --- 3544,3548 ---- ! static void voutlet_setup() { t_class *c = voutlet_class = class_new2("outlet",voutlet_new,voutlet_free,sizeof(t_voutlet),CLASS_NOINLET,"S"); class_addcreator2("outlet~",voutlet_newsig,"S"); *************** *** 3779,3783 **** } ! static void g_scalar_setup(void) { scalar_class = class_new2("scalar",0,scalar_free,0,CLASS_GOBJ,""); class_setsavefn(scalar_class, scalar_save); --- 3779,3783 ---- } ! static void g_scalar_setup() { scalar_class = class_new2("scalar",0,scalar_free,0,CLASS_GOBJ,""); class_setsavefn(scalar_class, scalar_save); *************** *** 5042,5046 **** static void drawnumber_free(t_drawnumber *x) {} ! static void g_template_setup(void) { template_class = class_new2("template",0,template_free,sizeof(t_template),CLASS_PD,""); class_addmethod2(pd_canvasmaker._class, template_usetemplate, "struct", "*"); --- 5042,5046 ---- static void drawnumber_free(t_drawnumber *x) {} ! static void g_template_setup() { template_class = class_new2("template",0,template_free,sizeof(t_template),CLASS_PD,""); class_addmethod2(pd_canvasmaker._class, template_usetemplate, "struct", "*"); *************** *** 5628,5632 **** static void sublist_free(t_sublist *x, t_gpointer *gp) {gpointer_unset(&x->gp);} ! static void g_traversal_setup(void) { t_class *c = ptrobj_class = class_new2("pointer",ptrobj_new,ptrobj_free,sizeof(t_ptrobj),0,"*"); class_addmethod2(c, ptrobj_traverse,"traverse", "s"); --- 5628,5632 ---- static void sublist_free(t_sublist *x, t_gpointer *gp) {gpointer_unset(&x->gp);} ! static void g_traversal_setup() { t_class *c = ptrobj_class = class_new2("pointer",ptrobj_new,ptrobj_free,sizeof(t_ptrobj),0,"*"); class_addmethod2(c, ptrobj_traverse,"traverse", "s"); *************** *** 6156,6160 **** } ! static void g_text_setup(void) { t_class *c; text_class = class_new2("text", 0,0,sizeof(t_text),CLASS_NOINLET|CLASS_PATCHABLE,0); --- 6156,6160 ---- } ! static void g_text_setup() { t_class *c; text_class = class_new2("text", 0,0,sizeof(t_text),CLASS_NOINLET|CLASS_PATCHABLE,0); *************** *** 7303,7307 **** } ! static void g_canvas_setup(void) { reply_class = class_new2("reply",0,reply_free,sizeof(t_reply),CLASS_GOBJ,"!"); // class_setsavefn(reply_class, (t_savefn)reply_savefn); --- 7303,7307 ---- } ! static void g_canvas_setup() { reply_class = class_new2("reply",0,reply_free,sizeof(t_reply),CLASS_GOBJ,"!"); // class_setsavefn(reply_class, (t_savefn)reply_savefn); *************** *** 7330,7338 **** class_addmethod2(c,canvas_map,"map","f"); class_addmethod2(c,canvas_clear,"clear",""); ! class_addcreator((t_newmethod)subcanvas_new, gensym("pd"), A_DEFSYMBOL, 0); ! class_addcreator((t_newmethod)subcanvas_new, gensym("page"), A_DEFSYMBOL, 0); class_addmethod2(c,canvas_dsp,"dsp",""); class_addmethod2(c,canvas_rename_method,"rename","*"); ! class_addcreator((t_newmethod)table_new, gensym("table"), A_DEFSYM, A_DEFFLOAT, 0); class_addmethod2(c,canvas_close,"close","F"); class_addmethod2(c,canvas_find, "find","*"); --- 7330,7338 ---- class_addmethod2(c,canvas_map,"map","f"); class_addmethod2(c,canvas_clear,"clear",""); ! class_addcreator2("pd",subcanvas_new,"S"); ! class_addcreator2("page",subcanvas_new,"S"); class_addmethod2(c,canvas_dsp,"dsp",""); class_addmethod2(c,canvas_rename_method,"rename","*"); ! class_addcreator2("table",table_new,"SF"); class_addmethod2(c,canvas_close,"close","F"); class_addmethod2(c,canvas_find, "find","*"); *************** *** 7451,7461 **** } ! void desire_setup(void) { t_class *c; s_empty = gensym("empty"); s_Pd = gensym("Pd"); s_pd = gensym("pd"); ! manager_class = class_new(gensym("__manager"), (t_newmethod)manager_new, ! (t_method)manager_free, sizeof(t_manager), 0, A_GIMME, 0); class_addanything(manager_class,manager_anything); class_setnotice(manager_class,manager_notice); --- 7451,7460 ---- } ! static void desire_setup() { t_class *c; s_empty = gensym("empty"); s_Pd = gensym("Pd"); s_pd = gensym("pd"); ! manager_class = class_new2("__manager",manager_new,manager_free,sizeof(t_manager),0,"*"); class_addanything(manager_class,manager_anything); class_setnotice(manager_class,manager_notice); *************** *** 7465,7470 **** #undef S ! c = bng_class = class_new(gensym("bng"), (t_newmethod)bng_new, ! (t_method)iemgui_free, sizeof(t_bng), 0, A_GIMME, 0); iemgui_subclass(c); class_addbang (c, bng_bang); --- 7464,7468 ---- #undef S ! c = bng_class = class_new2("bng",bng_new,iemgui_free,sizeof(t_bng),0,"*"); iemgui_subclass(c); class_addbang (c, bng_bang); *************** *** 7483,7489 **** class_setfieldnames(c, "foo bar x1 y1 class w hold break isa snd rcv lab ldx ldy fstyle fs bcol fcol lcol"); ! c = toggle_class = class_new(gensym("tgl"), (t_newmethod)toggle_new, ! (t_method)iemgui_free, sizeof(t_toggle), 0, A_GIMME, 0); ! class_addcreator((t_newmethod)toggle_new, gensym("toggle"), A_GIMME, 0); iemgui_subclass(c); class_addbang(c, toggle_bang); --- 7481,7486 ---- class_setfieldnames(c, "foo bar x1 y1 class w hold break isa snd rcv lab ldx ldy fstyle fs bcol fcol lcol"); ! c = toggle_class = class_new2("tgl",toggle_new,iemgui_free,sizeof(t_toggle),0,"*"); ! class_addcreator2("toggle",toggle_new,"*"); iemgui_subclass(c); class_addbang(c, toggle_bang); *************** *** 7498,7503 **** class_sethelpsymbol(c, gensym("toggle")); ! c = radio_class = class_new(gensym("radio"), (t_newmethod)radio_new, ! (t_method)iemgui_free, sizeof(t_radio), 0, A_GIMME, 0); iemgui_subclass(c); class_addbang(c, radio_bang); --- 7495,7499 ---- class_sethelpsymbol(c, gensym("toggle")); ! c = radio_class = class_new2("radio",radio_new,iemgui_free,sizeof(t_radio),0,"*"); iemgui_subclass(c); class_addbang(c, radio_bang); *************** *** 7517,7534 **** class_setsavefn(c,(t_savefn)radio_savefn); class_sethelpsymbol(c, gensym("hradio")); ! class_addcreator((t_newmethod)radio_new, gensym("hradio"), A_GIMME, 0); ! class_addcreator((t_newmethod)radio_new, gensym("vradio"), A_GIMME, 0); ! class_addcreator((t_newmethod)radio_new, gensym("hdl"), A_GIMME, 0); ! class_addcreator((t_newmethod)radio_new, gensym("vdl"), A_GIMME, 0); ! class_addcreator((t_newmethod)radio_new, gensym("rdb"), A_GIMME, 0); ! class_addcreator((t_newmethod)radio_new, gensym("radiobut"), A_GIMME, 0); ! class_addcreator((t_newmethod)radio_new, gensym("radiobutton"), A_GIMME, 0); ! c = slider_class = class_new(gensym("slider"), (t_newmethod)slider_new, ! (t_method)iemgui_free, sizeof(t_slider), 0, A_GIMME, 0); ! class_addcreator((t_newmethod)slider_new, gensym("hslider"), A_GIMME, 0); ! class_addcreator((t_newmethod)slider_new, gensym("vslider"), A_GIMME, 0); ! class_addcreator((t_newmethod)slider_new, gensym( "hsl"), A_GIMME, 0); ! class_addcreator((t_newmethod)slider_new, gensym( "vsl"), A_GIMME, 0); iemgui_subclass(c); --- 7513,7529 ---- class_setsavefn(c,(t_savefn)radio_savefn); class_sethelpsymbol(c, gensym("hradio")); ! class_addcreator2("hradio",radio_new,"*"); ! class_addcreator2("vradio",radio_new,"*"); ! class_addcreator2("hdl",radio_new,"*"); ! class_addcreator2("vdl",radio_new,"*"); ! class_addcreator2("rdb",radio_new,"*"); ! class_addcreator2("radiobut",radio_new,"*"); ! class_addcreator2("radiobutton",radio_new,"*"); ! c = slider_class = class_new2("slider",slider_new,iemgui_free,sizeof(t_slider),0,"*"); ! class_addcreator2("hslider",slider_new,"*"); ! class_addcreator2("vslider",slider_new,"*"); ! class_addcreator2("hsl" ,slider_new,"*"); ! class_addcreator2("vsl" ,slider_new,"*"); iemgui_subclass(c); *************** *** 7550,7556 **** class_sethelpsymbol(c, gensym("hslider")); ! c = nbx_class = class_new(gensym("nbx"), (t_newmethod)nbx_new, ! (t_method)iemgui_free, sizeof(t_nbx), 0, A_GIMME, 0); ! class_addcreator((t_newmethod)nbx_new, gensym("nbx"), A_GIMME, 0); iemgui_subclass(c); class_addbang(c,nbx_bang); --- 7545,7549 ---- class_sethelpsymbol(c, gensym("hslider")); ! c = nbx_class = class_new2("nbx",nbx_new,iemgui_free,sizeof(t_nbx),0,"*"); iemgui_subclass(c); class_addbang(c,nbx_bang); *************** *** 7569,7575 **** class_sethelpsymbol(c, gensym("numbox2")); ! c = cnv_class = class_new(gensym("cnv"), (t_newmethod)cnv_new, ! (t_method)iemgui_free, sizeof(t_cnv), CLASS_NOINLET, A_GIMME, 0); ! class_addcreator((t_newmethod)cnv_new, gensym("cnv"), A_GIMME, 0); class_addmethod2(c,cnv_reload,"reload","*"); class_addmethod2(c,cnv_size,"size","*"); --- 7562,7566 ---- class_sethelpsymbol(c, gensym("numbox2")); ! c = cnv_class = class_new2("cnv",cnv_new,iemgui_free,sizeof(t_cnv),CLASS_NOINLET,"*"); class_addmethod2(c,cnv_reload,"reload","*"); class_addmethod2(c,cnv_size,"size","*"); *************** *** 7580,7584 **** class_sethelpsymbol(c, gensym("my_canvas")); ! c = vu_class = class_new(gensym("vu"), (t_newmethod)vu_new, (t_method)iemgui_free, sizeof(t_vu), 0, A_GIMME, 0); iemgui_subclass(c); class_addbang(c,vu_bang); --- 7571,7575 ---- class_sethelpsymbol(c, gensym("my_canvas")); ! c = vu_class = class_new2("vu",vu_new,iemgui_free,sizeof(t_vu),0,"*"); iemgui_subclass(c); class_addbang(c,vu_bang); *************** *** 7591,7596 **** class_sethelpsymbol(c, gensym("vu")); ! c = dropper_class = class_new(gensym("dropper"), (t_newmethod)dropper_new, ! (t_method)iemgui_free, sizeof(t_dropper), 0, A_GIMME, 0); iemgui_subclass(c); class_addbang(c, dropper_bang); --- 7582,7586 ---- class_sethelpsymbol(c, gensym("vu")); ! c = dropper_class = class_new2("dropper",dropper_new,iemgui_free,sizeof(t_dropper),0,"*"); iemgui_subclass(c); class_addbang(c, dropper_bang); *************** *** 7600,7605 **** class_sethelpsymbol(c, gensym("dropper")); ! visualloader_class = class_new(gensym("#V"), (t_newmethod)visualloader_new, ! (t_method)visualloader_free, sizeof(t_object), CLASS_GOBJ, A_GIMME, 0); class_addanything(visualloader_class,visualloader_anything); pd_bind(pd_new(visualloader_class),gensym("#V")); --- 7590,7594 ---- class_sethelpsymbol(c, gensym("dropper")); ! visualloader_class = class_new2("#V",visualloader_new,visualloader_free,sizeof(t_object),CLASS_GOBJ,"*"); class_addanything(visualloader_class,visualloader_anything); pd_bind(pd_new(visualloader_class),gensym("#V")); *************** *** 7737,7746 **** extern t_class *glob_pdobject; extern "C" void glob_init(void) { ! maxclass = class_new(gensym("max"), 0, 0, sizeof(t_pd), CLASS_DEFAULT, A_NULL); class_addanything(maxclass, max_default); pd_bind((t_pd *)&maxclass, gensym("max")); /* this smells bad... a conflict with [pd] subpatches */ ! t_class *c = glob_pdobject = class_new(gensym("pd"), 0, 0, sizeof(t_pd), CLASS_DEFAULT, A_NULL); class_addmethod2(c,glob_initfromgui, "init", "*"); class_addmethod2(c,glob_setfilename, "filename", "ss"); --- 7726,7736 ---- extern t_class *glob_pdobject; extern "C" void glob_init(void) { ! /* can this one really be called "max"? isn't that a name conflict? */ ! maxclass = class_new2("max",0,0,sizeof(t_pd),CLASS_DEFAULT,""); class_addanything(maxclass, max_default); pd_bind((t_pd *)&maxclass, gensym("max")); /* this smells bad... a conflict with [pd] subpatches */ ! t_class *c = glob_pdobject = class_new2("pd",0,0,sizeof(t_pd),CLASS_DEFAULT,""); class_addmethod2(c,glob_initfromgui, "init", "*"); class_addmethod2(c,glob_setfilename, "filename", "ss");

1 0

pd/src builtins.c,1.1.2.8,1.1.2.9
by Mathieu Bouchard 04 Jan '07

04 Jan '07

Update of /cvsroot/pure-data/pd/src In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv17934 Modified Files: Tag: desiredata builtins.c Log Message: finishing previous commit... Index: builtins.c =================================================================== RCS file: /cvsroot/pure-data/pd/src/Attic/builtins.c,v retrieving revision 1.1.2.8 retrieving revision 1.1.2.9 diff -C2 -d -r1.1.2.8 -r1.1.2.9 *** builtins.c 4 Jan 2007 21:37:27 -0000 1.1.2.8 --- builtins.c 4 Jan 2007 21:45:29 -0000 1.1.2.9 *************** *** 141,146 **** static void openpanel_free(t_openpanel *x) {pd_unbind(x, x->s);} static void openpanel_setup() { ! openpanel_class = class_new(gensym("openpanel"), (t_newmethod)openpanel_new, (t_method)openpanel_free, ! sizeof(t_openpanel), 0, A_DEFSYM, 0); class_addbang(openpanel_class, openpanel_bang); class_addmethod2(openpanel_class, openpanel_path, "path","s"); --- 141,145 ---- static void openpanel_free(t_openpanel *x) {pd_unbind(x, x->s);} static void openpanel_setup() { ! openpanel_class = class_new2("openpanel",openpanel_new,openpanel_free,sizeof(t_openpanel),0,"S"); class_addbang(openpanel_class, openpanel_bang); class_addmethod2(openpanel_class, openpanel_path, "path","s"); *************** *** 174,179 **** static void savepanel_free(t_savepanel *x) {pd_unbind(x, x->s);} static void savepanel_setup() { ! savepanel_class = class_new(gensym("savepanel"), (t_newmethod)savepanel_new, (t_method)savepanel_free, ! sizeof(t_savepanel), 0, A_DEFSYM, 0); class_addbang(savepanel_class, savepanel_bang); class_addmethod2(savepanel_class, openpanel_path, "path","s"); --- 173,177 ---- static void savepanel_free(t_savepanel *x) {pd_unbind(x, x->s);} static void savepanel_setup() { ! savepanel_class = class_new2("savepanel",savepanel_new,savepanel_free,sizeof(t_savepanel),0,"S"); class_addbang(savepanel_class, savepanel_bang); class_addmethod2(savepanel_class, openpanel_path, "path","s"); *************** *** 223,237 **** static void key_setup() { ! key_class = class_new(gensym("key"), (t_newmethod)key_new, (t_method)key_free, ! sizeof(t_key), CLASS_NOINLET, 0); class_addfloat(key_class, key_float); key_sym = gensym("#key"); ! keyup_class = class_new(gensym("keyup"), (t_newmethod)keyup_new, (t_method)keyup_free, ! sizeof(t_keyup), CLASS_NOINLET, 0); class_addfloat(keyup_class, keyup_float); keyup_sym = gensym("#keyup"); class_sethelpsymbol(keyup_class, gensym("key")); ! keyname_class = class_new(gensym("keyname"), (t_newmethod)keyname_new, (t_method)keyname_free, ! sizeof(t_keyname), CLASS_NOINLET, 0); class_addlist(keyname_class, keyname_list); keyname_sym = gensym("#keyname"); --- 221,232 ---- static void key_setup() { ! key_class = class_new2("key",key_new,key_free,sizeof(t_key),CLASS_NOINLET,""); class_addfloat(key_class, key_float); key_sym = gensym("#key"); ! keyup_class = class_new2("keyup",keyup_new,keyup_free,sizeof(t_keyup),CLASS_NOINLET,""); class_addfloat(keyup_class, keyup_float); keyup_sym = gensym("#keyup"); class_sethelpsymbol(keyup_class, gensym("key")); ! keyname_class = class_new2("keyname",keyname_new,keyname_free,sizeof(t_keyname),CLASS_NOINLET,""); class_addlist(keyname_class, keyname_list); keyname_sym = gensym("#keyname"); *************** *** 332,337 **** static void netsend_free(t_netsend *x) {netsend_disconnect(x);} static void netsend_setup() { ! netsend_class = class_new(gensym("netsend"), (t_newmethod)netsend_new, (t_method)netsend_free, ! sizeof(t_netsend), 0, A_DEFFLOAT, 0); class_addmethod2(netsend_class, netsend_connect, "connect","sf"); class_addmethod2(netsend_class, netsend_disconnect, "disconnect",""); --- 327,331 ---- static void netsend_free(t_netsend *x) {netsend_disconnect(x);} static void netsend_setup() { ! netsend_class = class_new2("netsend",netsend_new,netsend_free,sizeof(t_netsend),0,"F"); class_addmethod2(netsend_class, netsend_connect, "connect","sf"); class_addmethod2(netsend_class, netsend_disconnect, "disconnect",""); *************** *** 454,460 **** } static void netreceive_setup() { ! netreceive_class = class_new(gensym("netreceive"), ! (t_newmethod)netreceive_new, (t_method)netreceive_free, ! sizeof(t_netreceive), CLASS_NOINLET, A_DEFFLOAT, A_DEFFLOAT, A_DEFSYM, 0); } extern "C" t_socketreceiver *netreceive_newest_receiver(t_netreceive *x) {return x->sr;} --- 448,453 ---- } static void netreceive_setup() { ! netreceive_class = class_new2("netreceive",netreceive_new,netreceive_free, ! sizeof(t_netreceive),CLASS_NOINLET,"FFS"); } extern "C" t_socketreceiver *netreceive_newest_receiver(t_netreceive *x) {return x->sr;} *************** *** 763,767 **** } static void alist_setup() { ! alist_class = class_new(gensym("list inlet"), 0, 0, sizeof(t_alist), 0, 0); class_addlist(alist_class, alist_list); class_addanything(alist_class, alist_anything); --- 756,760 ---- } static void alist_setup() { ! alist_class = class_new2("list inlet",0,0,sizeof(t_alist),0,""); class_addlist(alist_class, alist_list); class_addanything(alist_class, alist_anything); *************** *** 801,806 **** static void list_append_free(t_list_append *x) {alist_clear(&x->alist);} static void list_append_setup() { ! list_append_class = class_new(gensym("list append"), ! (t_newmethod)list_append_new, (t_method)list_append_free, sizeof(t_list_append), 0, A_GIMME, 0); class_addlist(list_append_class, list_append_list); class_addanything(list_append_class, list_append_anything); --- 794,798 ---- static void list_append_free(t_list_append *x) {alist_clear(&x->alist);} static void list_append_setup() { ! list_append_class = class_new2("list append",list_append_new,list_append_free,sizeof(t_list_append),0,"*"); class_addlist(list_append_class, list_append_list); class_addanything(list_append_class, list_append_anything); *************** *** 841,846 **** static void list_prepend_free(t_list_prepend *x) {alist_clear(&x->alist);} static void list_prepend_setup() { ! list_prepend_class = class_new(gensym("list prepend"), (t_newmethod)list_prepend_new, ! (t_method)list_prepend_free, sizeof(t_list_prepend), 0, A_GIMME, 0); class_addlist(list_prepend_class, list_prepend_list); class_addanything(list_prepend_class, list_prepend_anything); --- 833,837 ---- static void list_prepend_free(t_list_prepend *x) {alist_clear(&x->alist);} static void list_prepend_setup() { ! list_prepend_class = class_new2("list prepend",list_prepend_new,list_prepend_free,sizeof(t_list_prepend),0,"*"); class_addlist(list_prepend_class, list_prepend_list); class_addanything(list_prepend_class, list_prepend_anything); *************** *** 882,888 **** } static void list_split_setup() { ! list_split_class = class_new(gensym("list split"), ! (t_newmethod)list_split_new, 0, ! sizeof(t_list_split), 0, A_DEFFLOAT, 0); class_addlist(list_split_class, list_split_list); class_addanything(list_split_class, list_split_anything); --- 873,877 ---- } static void list_split_setup() { ! list_split_class = class_new2("list split",list_split_new,0,sizeof(t_list_split),0,"F"); class_addlist(list_split_class, list_split_list); class_addanything(list_split_class, list_split_anything); *************** *** 905,910 **** } static void list_trim_setup() { ! list_trim_class = class_new(gensym("list trim"), (t_newmethod)list_trim_new, 0, ! sizeof(t_list_trim), 0, 0); class_addlist(list_trim_class, list_trim_list); class_addanything(list_trim_class, list_trim_anything); --- 894,898 ---- } static void list_trim_setup() { ! list_trim_class = class_new2("list trim",list_trim_new,0,sizeof(t_list_trim),0,""); class_addlist(list_trim_class, list_trim_list); class_addanything(list_trim_class, list_trim_anything); *************** *** 926,931 **** } static void list_length_setup() { ! list_length_class = class_new(gensym("list length"), (t_newmethod)list_length_new, 0, ! sizeof(t_list_length), 0, 0); class_addlist(list_length_class, list_length_list); class_addanything(list_length_class, list_length_anything); --- 914,918 ---- } static void list_length_setup() { ! list_length_class = class_new2("list length",list_length_new,0,sizeof(t_list_length),0,""); class_addlist(list_length_class, list_length_list); class_addanything(list_length_class, list_length_anything); *************** *** 983,988 **** static void random_seed(t_random *x, float f, float glob) {x->state = (int)f;} static void random_setup() { ! random_class = class_new(gensym("random"), (t_newmethod)random_new, 0, ! sizeof(t_random), 0, A_DEFFLOAT, 0); class_addbang(random_class, random_bang); class_addmethod2(random_class, random_seed,"seed","f"); --- 970,974 ---- static void random_seed(t_random *x, float f, float glob) {x->state = (int)f;} static void random_setup() { ! random_class = class_new2("random",random_new,0,sizeof(t_random),0,"F"); class_addbang(random_class, random_bang); class_addmethod2(random_class, random_seed,"seed","f"); *************** *** 1000,1005 **** } static void loadbang_setup() { ! loadbang_class = class_new(gensym("loadbang"), (t_newmethod)loadbang_new, 0, ! sizeof(t_loadbang), CLASS_NOINLET, 0); class_addmethod2(loadbang_class, loadbang_loadbang, "loadbang",""); } --- 986,990 ---- } static void loadbang_setup() { ! loadbang_class = class_new2("loadbang",loadbang_new,0,sizeof(t_loadbang),CLASS_NOINLET,""); class_addmethod2(loadbang_class, loadbang_loadbang, "loadbang",""); } *************** *** 1021,1027 **** } static void namecanvas_setup() { ! namecanvas_class = class_new(gensym("namecanvas"), ! (t_newmethod)namecanvas_new, (t_method)namecanvas_free, ! sizeof(t_namecanvas), CLASS_NOINLET, A_DEFSYM, 0); } --- 1006,1010 ---- } static void namecanvas_setup() { ! namecanvas_class = class_new2("namecanvas",namecanvas_new,namecanvas_free,sizeof(t_namecanvas),CLASS_NOINLET,"S"); } *************** *** 1088,1092 **** } static void cputime_setup() { ! cputime_class = class_new(gensym("cputime"), (t_newmethod)cputime_new, 0, sizeof(t_cputime), 0, 0); class_addbang(cputime_class, cputime_bang); class_addmethod2(cputime_class, cputime_bang2, "bang2",""); --- 1071,1075 ---- } static void cputime_setup() { ! cputime_class = class_new2("cputime",cputime_new,0,sizeof(t_cputime),0,""); class_addbang(cputime_class, cputime_bang); class_addmethod2(cputime_class, cputime_bang2, "bang2",""); *************** *** 1111,1115 **** } static void realtime_setup() { ! realtime_class = class_new(gensym("realtime"), (t_newmethod)realtime_new, 0, sizeof(t_realtime), 0, 0); class_addbang(realtime_class, realtime_bang); class_addmethod2(realtime_class, realtime_bang2, "bang2",""); --- 1094,1098 ---- } static void realtime_setup() { ! realtime_class = class_new2("realtime",realtime_new,0,sizeof(t_realtime),0,""); class_addbang(realtime_class, realtime_bang); class_addmethod2(realtime_class, realtime_bang2, "bang2",""); *************** *** 1142,1146 **** } static void print_setup() { ! print_class = class_new(gensym("print"), (t_newmethod)print_new, 0, sizeof(t_print), 0, A_DEFSYM, 0); class_addbang(print_class, print_bang); class_addfloat(print_class, print_float); --- 1125,1129 ---- } static void print_setup() { ! print_class = class_new2("print",print_new,0,sizeof(t_print),0,"S"); class_addbang(print_class, print_bang); class_addfloat(print_class, print_float); *************** *** 1270,1274 **** t_symbol *s = gensym("operators"); #define BINOPDECL(NAME,SYM) \ ! NAME##_class = class_new(gensym(SYM), (t_newmethod)NAME##_new, 0, sizeof(t_binop), 0, A_DEFFLOAT, 0); \ class_addbang(NAME##_class, NAME##_bang); \ class_addfloat(NAME##_class, (t_method)NAME##_float); \ --- 1253,1257 ---- t_symbol *s = gensym("operators"); #define BINOPDECL(NAME,SYM) \ ! NAME##_class = class_new2(SYM,NAME##_new,0,sizeof(t_binop),0,"F"); \ class_addbang(NAME##_class, NAME##_bang); \ class_addfloat(NAME##_class, (t_method)NAME##_float); \ *************** *** 1306,1310 **** #define FUNCDECL(NAME,SYM) \ ! NAME##_class = class_new(gensym(SYM), NAME##_new, 0, sizeof(t_object), 0, 0); \ class_addfloat(NAME##_class, (t_method)NAME##_float); \ class_sethelpsymbol(NAME##_class,s); --- 1289,1293 ---- #define FUNCDECL(NAME,SYM) \ ! NAME##_class = class_new2(SYM,NAME##_new,0,sizeof(t_object),0,""); \ class_addfloat(NAME##_class, (t_method)NAME##_float); \ class_sethelpsymbol(NAME##_class,s); *************** *** 1320,1325 **** FUNCDECL(abs,"abs"); ! clip_class = class_new(gensym("clip"), (t_newmethod)clip_new, 0, ! sizeof(t_clip), 0, A_DEFFLOAT, A_DEFFLOAT, 0); class_addfloat(clip_class, clip_float); class_addbang(clip_class, clip_bang); --- 1303,1307 ---- FUNCDECL(abs,"abs"); ! clip_class = class_new2("clip",clip_new,0,sizeof(t_clip),0,"FF"); class_addfloat(clip_class, clip_float); class_addbang(clip_class, clip_bang); *************** *** 1340,1344 **** static void pdint_float(t_pdint *x, t_float f) {x->f = f; pdint_bang(x);} void pdint_setup() { ! pdint_class = class_new(gensym("int"), (t_newmethod)pdint_new, 0, sizeof(t_pdint), 0, A_DEFFLOAT, 0); class_addcreator2("i",pdint_new,"F"); class_addbang(pdint_class, pdint_bang); --- 1322,1326 ---- static void pdint_float(t_pdint *x, t_float f) {x->f = f; pdint_bang(x);} void pdint_setup() { ! pdint_class = class_new2("int",pdint_new,0,sizeof(t_pdint),0,"F"); class_addcreator2("i",pdint_new,"F"); class_addbang(pdint_class, pdint_bang); *************** *** 1362,1366 **** static void pdfloat_float(t_pdfloat *x, t_float f) {x->f=f; pdfloat_bang(x);} void pdfloat_setup() { ! pdfloat_class = class_new(gensym("float"), (t_newmethod)pdfloat_new, 0, sizeof(t_pdfloat), 0, A_FLOAT, 0); class_addcreator2("f",pdfloat_new2,"F"); class_addbang(pdfloat_class, pdfloat_bang); --- 1344,1348 ---- static void pdfloat_float(t_pdfloat *x, t_float f) {x->f=f; pdfloat_bang(x);} void pdfloat_setup() { ! pdfloat_class = class_new2("float",pdfloat_new,0,sizeof(t_pdfloat),0,"F"); class_addcreator2("f",pdfloat_new2,"F"); class_addbang(pdfloat_class, pdfloat_bang); *************** *** 1395,1400 **** } void pdsymbol_setup() { ! pdsymbol_class = class_new(gensym("symbol"), (t_newmethod)pdsymbol_new, 0, ! sizeof(t_pdsymbol), 0, A_SYMBOL, 0); class_addbang(pdsymbol_class, pdsymbol_bang); class_addsymbol(pdsymbol_class, pdsymbol_symbol); --- 1377,1381 ---- } void pdsymbol_setup() { ! pdsymbol_class = class_new2("symbol",pdsymbol_new,0,sizeof(t_pdsymbol),0,"S"); class_addbang(pdsymbol_class, pdsymbol_bang); class_addsymbol(pdsymbol_class, pdsymbol_symbol); *************** *** 1414,1418 **** static void bang_bang(t_bang *x) {outlet_bang(x->outlet);} void bang_setup() { ! bang_class = class_new(gensym("bang"), (t_newmethod)bang_new, 0, sizeof(t_bang), 0, 0); class_addcreator2("b",bang_new2,""); class_addbang(bang_class, bang_bang); --- 1395,1399 ---- static void bang_bang(t_bang *x) {outlet_bang(x->outlet);} void bang_setup() { ! bang_class = class_new2("bang",bang_new,0,sizeof(t_bang),0,""); class_addcreator2("b",bang_new2,""); class_addbang(bang_class, bang_bang); *************** *** 1448,1452 **** } static void send_setup() { ! send_class = class_new(gensym("send"), (t_newmethod)send_new, 0, sizeof(t_send), 0, A_DEFSYM, 0); class_addcreator2("s",send_new,"S"); class_addbang(send_class, send_bang); --- 1429,1433 ---- } static void send_setup() { ! send_class = class_new2("send",send_new,0,sizeof(t_send),0,"S"); class_addcreator2("s",send_new,"S"); class_addbang(send_class, send_bang); *************** *** 1483,1488 **** static void receive_free(t_receive *x) {pd_unbind(x, x->sym);} static void receive_setup() { ! receive_class = class_new(gensym("receive"), (t_newmethod)receive_new, ! (t_method)receive_free, sizeof(t_receive), CLASS_NOINLET, A_DEFSYM, 0); class_addcreator2("r",receive_new,"S"); class_addbang(receive_class, receive_bang); --- 1464,1468 ---- static void receive_free(t_receive *x) {pd_unbind(x, x->sym);} static void receive_setup() { ! receive_class = class_new2("receive",receive_new,receive_free,sizeof(t_receive),CLASS_NOINLET,"S"); class_addcreator2("r",receive_new,"S"); class_addbang(receive_class, receive_bang);

1 0

pd/src builtins.c,1.1.2.7,1.1.2.8
by Mathieu Bouchard 04 Jan '07

04 Jan '07

Update of /cvsroot/pure-data/pd/src In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv14523 Modified Files: Tag: desiredata builtins.c Log Message: switching to class_new2 Index: builtins.c =================================================================== RCS file: /cvsroot/pure-data/pd/src/Attic/builtins.c,v retrieving revision 1.1.2.7 retrieving revision 1.1.2.8 diff -C2 -d -r1.1.2.7 -r1.1.2.8 *** builtins.c 4 Jan 2007 19:21:28 -0000 1.1.2.7 --- builtins.c 4 Jan 2007 21:37:27 -0000 1.1.2.8 *************** *** 104,108 **** static void C##_float(t_object *x, t_float a) {outlet_float(x->outlet, EXPR);} #define FUNC1DECL(C,SYM) \ ! C##_class = class_new(gensym(SYM), C##_new, 0, sizeof(t_object), 0, 0); \ class_addfloat(C##_class, (t_method)C##_float); \ class_sethelpsymbol(C##_class,s); --- 104,108 ---- static void C##_float(t_object *x, t_float a) {outlet_float(x->outlet, EXPR);} #define FUNC1DECL(C,SYM) \ ! C##_class = class_new2(SYM,C##_new,0,sizeof(t_object),0,""); \ class_addfloat(C##_class, (t_method)C##_float); \ class_sethelpsymbol(C##_class,s); *************** *** 1341,1345 **** void pdint_setup() { pdint_class = class_new(gensym("int"), (t_newmethod)pdint_new, 0, sizeof(t_pdint), 0, A_DEFFLOAT, 0); ! class_addcreator((t_newmethod)pdint_new, gensym("i"), A_DEFFLOAT, 0); class_addbang(pdint_class, pdint_bang); class_addfloat(pdint_class, pdint_float); --- 1341,1345 ---- void pdint_setup() { pdint_class = class_new(gensym("int"), (t_newmethod)pdint_new, 0, sizeof(t_pdint), 0, A_DEFFLOAT, 0); ! class_addcreator2("i",pdint_new,"F"); class_addbang(pdint_class, pdint_bang); class_addfloat(pdint_class, pdint_float); *************** *** 1363,1367 **** void pdfloat_setup() { pdfloat_class = class_new(gensym("float"), (t_newmethod)pdfloat_new, 0, sizeof(t_pdfloat), 0, A_FLOAT, 0); ! class_addcreator((t_newmethod)pdfloat_new2, gensym("f"), A_DEFFLOAT, 0); class_addbang(pdfloat_class, pdfloat_bang); class_addfloat(pdfloat_class, (t_method)pdfloat_float); --- 1363,1367 ---- void pdfloat_setup() { pdfloat_class = class_new(gensym("float"), (t_newmethod)pdfloat_new, 0, sizeof(t_pdfloat), 0, A_FLOAT, 0); ! class_addcreator2("f",pdfloat_new2,"F"); class_addbang(pdfloat_class, pdfloat_bang); class_addfloat(pdfloat_class, (t_method)pdfloat_float); *************** *** 1415,1419 **** void bang_setup() { bang_class = class_new(gensym("bang"), (t_newmethod)bang_new, 0, sizeof(t_bang), 0, 0); ! class_addcreator((t_newmethod)bang_new2, gensym("b"), 0); class_addbang(bang_class, bang_bang); class_addfloat(bang_class, bang_bang); --- 1415,1419 ---- void bang_setup() { bang_class = class_new(gensym("bang"), (t_newmethod)bang_new, 0, sizeof(t_bang), 0, 0); ! class_addcreator2("b",bang_new2,""); class_addbang(bang_class, bang_bang); class_addfloat(bang_class, bang_bang); *************** *** 1449,1453 **** static void send_setup() { send_class = class_new(gensym("send"), (t_newmethod)send_new, 0, sizeof(t_send), 0, A_DEFSYM, 0); ! class_addcreator((t_newmethod)send_new, gensym("s"), A_DEFSYM, 0); class_addbang(send_class, send_bang); class_addfloat(send_class, send_float); --- 1449,1453 ---- static void send_setup() { send_class = class_new(gensym("send"), (t_newmethod)send_new, 0, sizeof(t_send), 0, A_DEFSYM, 0); ! class_addcreator2("s",send_new,"S"); class_addbang(send_class, send_bang); class_addfloat(send_class, send_float); *************** *** 1485,1489 **** receive_class = class_new(gensym("receive"), (t_newmethod)receive_new, (t_method)receive_free, sizeof(t_receive), CLASS_NOINLET, A_DEFSYM, 0); ! class_addcreator((t_newmethod)receive_new, gensym("r"), A_DEFSYM, 0); class_addbang(receive_class, receive_bang); class_addfloat(receive_class, (t_method)receive_float); --- 1485,1489 ---- receive_class = class_new(gensym("receive"), (t_newmethod)receive_new, (t_method)receive_free, sizeof(t_receive), CLASS_NOINLET, A_DEFSYM, 0); ! class_addcreator2("r",receive_new,"S"); class_addbang(receive_class, receive_bang); class_addfloat(receive_class, (t_method)receive_float); *************** *** 1580,1591 **** } void select_setup() { ! sel1_class = class_new(gensym("select"), 0, 0, sizeof(t_sel1), 0, 0); class_addfloat(sel1_class, sel1_float); class_addsymbol(sel1_class, sel1_symbol); ! sel2_class = class_new(gensym("select"), 0, (t_method)sel2_free, sizeof(t_sel2), 0, 0); class_addfloat(sel2_class, sel2_float); class_addsymbol(sel2_class, sel2_symbol); ! class_addcreator((t_newmethod)select_new, gensym("select"), A_GIMME, 0); ! class_addcreator((t_newmethod)select_new, gensym("sel"), A_GIMME, 0); } --- 1580,1591 ---- } void select_setup() { ! sel1_class = class_new2("select",0,0,sizeof(t_sel1),0,""); class_addfloat(sel1_class, sel1_float); class_addsymbol(sel1_class, sel1_symbol); ! sel2_class = class_new2("select",0,sel2_free,sizeof(t_sel2),0,""); class_addfloat(sel2_class, sel2_float); class_addsymbol(sel2_class, sel2_symbol); ! class_addcreator2("select",select_new,"*"); ! class_addcreator2("sel", select_new,"*"); } *************** *** 1702,1707 **** } void route_setup() { ! route_class = class_new(gensym("route"), (t_newmethod)route_new, ! (t_method)route_free, sizeof(t_route), 0, A_GIMME, 0); class_addlist(route_class, route_list); class_addanything(route_class, route_anything); --- 1702,1706 ---- } void route_setup() { ! route_class = class_new2("route",route_new,route_free,sizeof(t_route),0,"*"); class_addlist(route_class, route_list); class_addanything(route_class, route_anything); *************** *** 1821,1826 **** } static void pack_setup() { ! pack_class = class_new(gensym("pack"), (t_newmethod)pack_new, ! (t_method)pack_free, sizeof(t_pack), 0, A_GIMME, 0); class_addbang(pack_class, pack_bang); class_addpointer(pack_class, pack_pointer); --- 1820,1824 ---- } static void pack_setup() { ! pack_class = class_new2("pack",pack_new,pack_free,sizeof(t_pack),0,"*"); class_addbang(pack_class, pack_bang); class_addpointer(pack_class, pack_pointer); *************** *** 1898,1903 **** static void unpack_free(t_unpack *x) {freebytes(x->vec, x->n * sizeof(*x->vec));} static void unpack_setup() { ! unpack_class = class_new(gensym("unpack"), (t_newmethod)unpack_new, ! (t_method)unpack_free, sizeof(t_unpack), 0, A_GIMME, 0); class_addlist(unpack_class, unpack_list); class_addanything(unpack_class, unpack_anything); --- 1896,1900 ---- static void unpack_free(t_unpack *x) {freebytes(x->vec, x->n * sizeof(*x->vec));} static void unpack_setup() { ! unpack_class = class_new2("unpack",unpack_new,unpack_free,sizeof(t_unpack),0,"*"); class_addlist(unpack_class, unpack_list); class_addanything(unpack_class, unpack_anything); *************** *** 1980,1986 **** static void trigger_free(t_trigger *x) {freebytes(x->vec, x->n * sizeof(*x->vec));} static void trigger_setup() { ! trigger_class = class_new(gensym("trigger"), (t_newmethod)trigger_new, ! (t_method)trigger_free, sizeof(t_trigger), 0, A_GIMME, 0); ! class_addcreator((t_newmethod)trigger_new, gensym("t"), A_GIMME, 0); class_addlist(trigger_class, trigger_list); class_addbang(trigger_class, trigger_bang); --- 1977,1982 ---- static void trigger_free(t_trigger *x) {freebytes(x->vec, x->n * sizeof(*x->vec));} static void trigger_setup() { ! trigger_class = class_new2("trigger",trigger_new,trigger_free,sizeof(t_trigger),0,"*"); ! class_addcreator2("t",trigger_new,"*"); class_addlist(trigger_class, trigger_list); class_addbang(trigger_class, trigger_bang); *************** *** 2015,2019 **** if (x->state) outlet_anything(x->outlet, s, argc, argv);} static void spigot_setup() { ! spigot_class = class_new(gensym("spigot"), (t_newmethod)spigot_new, 0, sizeof(t_spigot), 0, A_DEFFLOAT, 0); class_addbang(spigot_class, spigot_bang); class_addpointer(spigot_class, spigot_pointer); --- 2011,2015 ---- if (x->state) outlet_anything(x->outlet, s, argc, argv);} static void spigot_setup() { ! spigot_class = class_new2("spigot",spigot_new,0,sizeof(t_spigot),0,"F"); class_addbang(spigot_class, spigot_bang); class_addpointer(spigot_class, spigot_pointer); *************** *** 2042,2046 **** } static void moses_setup() { ! moses_class = class_new(gensym("moses"), (t_newmethod)moses_new, 0, sizeof(t_moses), 0, A_DEFFLOAT, 0); class_addfloat(moses_class, moses_float); } --- 2038,2042 ---- } static void moses_setup() { ! moses_class = class_new2("moses",moses_new,0,sizeof(t_moses),0,"F"); class_addfloat(moses_class, moses_float); } *************** *** 2069,2074 **** static void until_bang2(t_until *x) {x->run = 0;} static void until_setup() { ! until_class = class_new(gensym("until"), (t_newmethod)until_new, 0, ! sizeof(t_until), 0, 0); class_addbang(until_class, until_bang); class_addfloat(until_class, until_float); --- 2065,2069 ---- static void until_bang2(t_until *x) {x->run = 0;} static void until_setup() { ! until_class = class_new2("until",until_new,0,sizeof(t_until),0,""); class_addbang(until_class, until_bang); class_addfloat(until_class, until_float); *************** *** 2101,2106 **** static void makefilename_setup() { ! makefilename_class = class_new(gensym("makefilename"), (t_newmethod)makefilename_new, 0, ! sizeof(t_makefilename), 0, A_DEFSYM, 0); class_addfloat(makefilename_class, makefilename_float); class_addsymbol(makefilename_class, makefilename_symbol); --- 2096,2100 ---- static void makefilename_setup() { ! makefilename_class = class_new2("makefilename",makefilename_new,0,sizeof(t_makefilename),0,"S"); class_addfloat(makefilename_class, makefilename_float); class_addsymbol(makefilename_class, makefilename_symbol); *************** *** 2132,2137 **** } void swap_setup() { ! swap_class = class_new(gensym("swap"), (t_newmethod)swap_new, 0, sizeof(t_swap), 0, A_DEFFLOAT, 0); ! class_addcreator((t_newmethod)swap_new, gensym("fswap"), A_DEFFLOAT, 0); class_addbang(swap_class, swap_bang); class_addfloat(swap_class, swap_float); --- 2126,2131 ---- } void swap_setup() { ! swap_class = class_new2("swap",swap_new,0,sizeof(t_swap),0,"F"); ! class_addcreator2("fswap",swap_new,"F"); class_addbang(swap_class, swap_bang); class_addfloat(swap_class, swap_float); *************** *** 2157,2162 **** static void change_set(t_change *x, t_float f) {x->f = f;} void change_setup() { ! change_class = class_new(gensym("change"), (t_newmethod)change_new, 0, ! sizeof(t_change), 0, A_DEFFLOAT, 0); class_addbang(change_class, change_bang); class_addfloat(change_class, change_float); --- 2151,2155 ---- static void change_set(t_change *x, t_float f) {x->f = f;} void change_setup() { ! change_class = class_new2("change",change_new,0,sizeof(t_change),0,"F"); class_addbang(change_class, change_bang); class_addfloat(change_class, change_float); *************** *** 2222,2231 **** static void value_setup() { ! value_class = class_new(gensym("value"), (t_newmethod)value_new, ! (t_method)value_ff, sizeof(t_value), 0, A_DEFSYM, 0); ! class_addcreator((t_newmethod)value_new, gensym("v"), A_DEFSYM, 0); class_addbang(value_class, value_bang); class_addfloat(value_class, value_float); ! vcommon_class = class_new(gensym("value"), 0, 0, sizeof(t_vcommon), CLASS_PD, 0); } --- 2215,2223 ---- static void value_setup() { ! value_class = class_new2("value",value_new,value_ff,sizeof(t_value),0,"S"); ! class_addcreator2("v",value_new,"S"); class_addbang(value_class, value_bang); class_addfloat(value_class, value_float); ! vcommon_class = class_new2("value",0,0,sizeof(t_vcommon),CLASS_PD,""); } *************** *** 2269,2276 **** static void sysexin_free(t_midiin *x) {pd_unbind(x, sysexin_sym);} static void midiin_setup() { ! midiin_class = class_new(gensym("midiin"), (t_newmethod)midiin_new, ! (t_method)midiin_free, sizeof(t_midiin), CLASS_NOINLET, A_DEFFLOAT, 0); ! sysexin_class = class_new(gensym("sysexin"), (t_newmethod)sysexin_new, ! (t_method)sysexin_free, sizeof(t_midiin), CLASS_NOINLET, A_DEFFLOAT, 0); class_addlist(midiin_class, midiin_list); class_addlist(sysexin_class, midiin_list); --- 2261,2266 ---- static void sysexin_free(t_midiin *x) {pd_unbind(x, sysexin_sym);} static void midiin_setup() { ! midiin_class = class_new2("midiin",midiin_new,midiin_free,sizeof(t_midiin),CLASS_NOINLET,"F"); ! sysexin_class = class_new2("sysexin",sysexin_new,sysexin_free,sizeof(t_midiin),CLASS_NOINLET,"F"); class_addlist(midiin_class, midiin_list); class_addlist(sysexin_class, midiin_list); *************** *** 2320,2325 **** static void notein_free(t_notein *x) {pd_unbind(x, notein_sym);} static void notein_setup() { ! notein_class = class_new(gensym("notein"), (t_newmethod)notein_new, ! (t_method)notein_free, sizeof(t_notein), CLASS_NOINLET, A_DEFFLOAT, 0); class_addlist(notein_class, notein_list); class_sethelpsymbol(notein_class, gensym("midi")); --- 2310,2314 ---- static void notein_free(t_notein *x) {pd_unbind(x, notein_sym);} static void notein_setup() { ! notein_class = class_new2("notein",notein_new,notein_free,sizeof(t_notein),CLASS_NOINLET,"F"); class_addlist(notein_class, notein_list); class_sethelpsymbol(notein_class, gensym("midi")); *************** *** 2371,2376 **** static void ctlin_free(t_ctlin *x) {pd_unbind(x, ctlin_sym);} static void ctlin_setup() { ! ctlin_class = class_new(gensym("ctlin"), (t_newmethod)ctlin_new, ! (t_method)ctlin_free, sizeof(t_ctlin), CLASS_NOINLET, A_GIMME, 0); class_addlist(ctlin_class, ctlin_list); class_sethelpsymbol(ctlin_class, gensym("midi")); --- 2360,2364 ---- static void ctlin_free(t_ctlin *x) {pd_unbind(x, ctlin_sym);} static void ctlin_setup() { ! ctlin_class = class_new2("ctlin",ctlin_new,ctlin_free,sizeof(t_ctlin),CLASS_NOINLET,"*"); class_addlist(ctlin_class, ctlin_list); class_sethelpsymbol(ctlin_class, gensym("midi")); *************** *** 2420,2431 **** static void touchin_free(t_touchin *x) {pd_unbind(x, touchin_sym);} static void midi2_setup() { ! pgmin_class = class_new(gensym("pgmin"), (t_newmethod)pgmin_new, ! (t_method)pgmin_free, sizeof(t_pgmin), CLASS_NOINLET, A_DEFFLOAT, 0); class_addlist(pgmin_class,midi2_list); ! bendin_class = class_new(gensym("bendin"), (t_newmethod)bendin_new, ! (t_method)bendin_free, sizeof(t_bendin), CLASS_NOINLET, A_DEFFLOAT, 0); class_addlist(bendin_class,midi2_list); ! touchin_class = class_new(gensym("touchin"), (t_newmethod)touchin_new, ! (t_method)touchin_free, sizeof(t_touchin), CLASS_NOINLET, A_DEFFLOAT, 0); class_addlist(touchin_class,midi2_list); class_sethelpsymbol(pgmin_class, gensym("midi")); --- 2408,2416 ---- static void touchin_free(t_touchin *x) {pd_unbind(x, touchin_sym);} static void midi2_setup() { ! pgmin_class = class_new2("pgmin",pgmin_new,pgmin_free,sizeof(t_pgmin),CLASS_NOINLET,"F"); class_addlist(pgmin_class,midi2_list); ! bendin_class = class_new2("bendin",bendin_new,bendin_free,sizeof(t_bendin),CLASS_NOINLET,"F"); class_addlist(bendin_class,midi2_list); ! touchin_class = class_new2("touchin",touchin_new,touchin_free,sizeof(t_touchin),CLASS_NOINLET,"F"); class_addlist(touchin_class,midi2_list); class_sethelpsymbol(pgmin_class, gensym("midi")); *************** *** 2481,2487 **** static void polytouchin_free(t_polytouchin *x) {pd_unbind(x, polytouchin_sym);} static void polytouchin_setup() { ! polytouchin_class = class_new(gensym("polytouchin"), ! (t_newmethod)polytouchin_new, (t_method)polytouchin_free, ! sizeof(t_polytouchin), CLASS_NOINLET, A_DEFFLOAT, 0); class_addlist(polytouchin_class, polytouchin_list); class_sethelpsymbol(polytouchin_class, gensym("midi")); --- 2466,2471 ---- static void polytouchin_free(t_polytouchin *x) {pd_unbind(x, polytouchin_sym);} static void polytouchin_setup() { ! polytouchin_class = class_new2("polytouchin",polytouchin_new,polytouchin_free, ! sizeof(t_polytouchin), CLASS_NOINLET,"F"); class_addlist(polytouchin_class, polytouchin_list); class_sethelpsymbol(polytouchin_class, gensym("midi")); *************** *** 2518,2524 **** static void midiclkin_free(t_midiclkin *x) {pd_unbind(x, midiclkin_sym);} static void midiclkin_setup() { ! midiclkin_class = class_new(gensym("midiclkin"), ! (t_newmethod)midiclkin_new, (t_method)midiclkin_free, ! sizeof(t_midiclkin), CLASS_NOINLET, A_DEFFLOAT, 0); class_addlist(midiclkin_class, midiclkin_list); class_sethelpsymbol(midiclkin_class, gensym("midi")); --- 2502,2506 ---- static void midiclkin_free(t_midiclkin *x) {pd_unbind(x, midiclkin_sym);} static void midiclkin_setup() { ! midiclkin_class = class_new2("midiclkin",midiclkin_new,midiclkin_free,sizeof(t_midiclkin),CLASS_NOINLET,"F"); class_addlist(midiclkin_class, midiclkin_list); class_sethelpsymbol(midiclkin_class, gensym("midi")); *************** *** 2560,2566 **** static void midirealtimein_free(t_midirealtimein *x) {pd_unbind(x, midirealtimein_sym);} static void midirealtimein_setup() { ! midirealtimein_class = class_new(gensym("midirealtimein"), ! (t_newmethod)midirealtimein_new, (t_method)midirealtimein_free, ! sizeof(t_midirealtimein), CLASS_NOINLET, A_DEFFLOAT, 0); class_addlist(midirealtimein_class, midirealtimein_list); class_sethelpsymbol(midirealtimein_class, gensym("midi")); --- 2542,2547 ---- static void midirealtimein_free(t_midirealtimein *x) {pd_unbind(x, midirealtimein_sym);} static void midirealtimein_setup() { ! midirealtimein_class = class_new2("midirealtimein",midirealtimein_new,midirealtimein_free, ! sizeof(t_midirealtimein),CLASS_NOINLET,"F"); class_addlist(midirealtimein_class, midirealtimein_list); class_sethelpsymbol(midirealtimein_class, gensym("midi")); *************** *** 2595,2600 **** } static void midiout_setup() { ! midiout_class = class_new(gensym("midiout"), (t_newmethod)midiout_new, 0, ! sizeof(t_midiout), 0, A_DEFFLOAT, A_DEFFLOAT, 0); class_addfloat(midiout_class, midiout_float); class_sethelpsymbol(midiout_class, gensym("midi")); --- 2576,2580 ---- } static void midiout_setup() { ! midiout_class = class_new2("midiout",midiout_new,0,sizeof(t_midiout),0,"FF"); class_addfloat(midiout_class, midiout_float); class_sethelpsymbol(midiout_class, gensym("midi")); *************** *** 2620,2625 **** } static void noteout_setup() { ! noteout_class = class_new(gensym("noteout"), (t_newmethod)noteout_new, 0, ! sizeof(t_noteout), 0, A_DEFFLOAT, 0); class_addfloat(noteout_class, noteout_float); class_sethelpsymbol(noteout_class, gensym("midi")); --- 2600,2604 ---- } static void noteout_setup() { ! noteout_class = class_new2("noteout",noteout_new,0,sizeof(t_noteout),0,"F"); class_addfloat(noteout_class, noteout_float); class_sethelpsymbol(noteout_class, gensym("midi")); *************** *** 2645,2650 **** } static void ctlout_setup() { ! ctlout_class = class_new(gensym("ctlout"), (t_newmethod)ctlout_new, 0, ! sizeof(t_ctlout), 0, A_DEFFLOAT, A_DEFFLOAT, 0); class_addfloat(ctlout_class, ctlout_float); class_sethelpsymbol(ctlout_class, gensym("midi")); --- 2624,2628 ---- } static void ctlout_setup() { ! ctlout_class = class_new2("ctlout",ctlout_new,0,sizeof(t_ctlout),0,"FF"); class_addfloat(ctlout_class, ctlout_float); class_sethelpsymbol(ctlout_class, gensym("midi")); *************** *** 2676,2682 **** } static void mido2_setup() { ! pgmout_class = class_new(gensym("pgmout"), (t_newmethod)pgmout_new, 0, sizeof(t_pgmout), 0, A_DEFFLOAT, 0); ! bendout_class = class_new(gensym("bendout"), (t_newmethod)bendout_new, 0, sizeof(t_bendout), 0, A_DEFFLOAT, 0); ! touchout_class = class_new(gensym("touchout"), (t_newmethod)touchout_new, 0, sizeof(t_touchout), 0, A_DEFFLOAT, 0); class_addfloat(pgmout_class, pgmout_float); class_sethelpsymbol(pgmout_class, gensym("midi")); class_addfloat(bendout_class, bendout_float); class_sethelpsymbol(bendout_class, gensym("midi")); --- 2654,2660 ---- } static void mido2_setup() { ! pgmout_class = class_new2("pgmout", pgmout_new, 0, sizeof(t_pgmout), 0,"F"); ! bendout_class = class_new2("bendout", bendout_new, 0, sizeof(t_bendout), 0,"F"); ! touchout_class = class_new2("touchout", touchout_new, 0, sizeof(t_touchout), 0,"F"); class_addfloat(pgmout_class, pgmout_float); class_sethelpsymbol(pgmout_class, gensym("midi")); class_addfloat(bendout_class, bendout_float); class_sethelpsymbol(bendout_class, gensym("midi")); *************** *** 2702,2707 **** } static void polytouchout_setup() { ! polytouchout_class = class_new(gensym("polytouchout"), (t_newmethod)polytouchout_new, 0, ! sizeof(t_polytouchout), 0, A_DEFFLOAT, 0); class_addfloat(polytouchout_class, polytouchout_float); class_sethelpsymbol(polytouchout_class, gensym("midi")); --- 2680,2684 ---- } static void polytouchout_setup() { ! polytouchout_class = class_new2("polytouchout",polytouchout_new,0,sizeof(t_polytouchout),0,"F"); class_addfloat(polytouchout_class, polytouchout_float); class_sethelpsymbol(polytouchout_class, gensym("midi")); *************** *** 2780,2785 **** } static void makenote_setup() { ! makenote_class = class_new(gensym("makenote"), (t_newmethod)makenote_new, (t_method)makenote_clear, ! sizeof(t_makenote), 0, A_DEFFLOAT, A_DEFFLOAT, 0); class_addfloat(makenote_class, makenote_float); class_addmethod2(makenote_class, makenote_stop, "stop",""); --- 2757,2761 ---- } static void makenote_setup() { ! makenote_class = class_new2("makenote",makenote_new,makenote_clear,sizeof(t_makenote),0,"FF"); class_addfloat(makenote_class, makenote_float); class_addmethod2(makenote_class, makenote_stop, "stop",""); *************** *** 2806,2811 **** } static void stripnote_setup() { ! stripnote_class = class_new(gensym("stripnote"), ! (t_newmethod)stripnote_new, 0, sizeof(t_stripnote), 0, 0); class_addfloat(stripnote_class, stripnote_float); } --- 2782,2786 ---- } static void stripnote_setup() { ! stripnote_class = class_new2("stripnote",stripnote_new,0,sizeof(t_stripnote),0,""); class_addfloat(stripnote_class, stripnote_float); } *************** *** 2902,2907 **** static void poly_free(t_poly *x) {freebytes(x->vec, x->n * sizeof (*x->vec));} static void poly_setup() { ! poly_class = class_new(gensym("poly"), (t_newmethod)poly_new, (t_method)poly_free, ! sizeof(t_poly), 0, A_DEFFLOAT, A_DEFFLOAT, 0); class_addfloat(poly_class, poly_float); class_addmethod2(poly_class, poly_stop, "stop",""); --- 2877,2881 ---- static void poly_free(t_poly *x) {freebytes(x->vec, x->n * sizeof (*x->vec));} static void poly_setup() { ! poly_class = class_new2("poly",poly_new,poly_free,sizeof(t_poly),0,"FF"); class_addfloat(poly_class, poly_float); class_addmethod2(poly_class, poly_stop, "stop",""); *************** *** 2968,2972 **** } static void bag_setup() { ! bag_class = class_new(gensym("bag"), (t_newmethod)bag_new, (t_method)bag_clear, sizeof(t_bag), 0, 0); class_addfloat(bag_class, bag_float); class_addmethod2(bag_class,bag_flush,"flush",""); --- 2942,2946 ---- } static void bag_setup() { ! bag_class = class_new2("bag",bag_new,bag_clear,sizeof(t_bag),0,""); class_addfloat(bag_class, bag_float); class_addmethod2(bag_class,bag_flush,"flush",""); *************** *** 3003,3009 **** } static void delay_setup() { ! delay_class = class_new(gensym("delay"), (t_newmethod)delay_new, ! (t_method)delay_free, sizeof(t_delay), 0, A_DEFFLOAT, 0); ! class_addcreator((t_newmethod)delay_new, gensym("del"), A_DEFFLOAT, 0); class_addbang(delay_class, delay_bang); class_addmethod2(delay_class,delay_stop,"stop",""); --- 2977,2982 ---- } static void delay_setup() { ! delay_class = class_new2("delay",delay_new,delay_free,sizeof(t_delay),0,"F"); ! class_addcreator2("del",delay_new,"F"); class_addbang(delay_class, delay_bang); class_addmethod2(delay_class,delay_stop,"stop",""); *************** *** 3041,3046 **** } static void metro_setup() { ! metro_class = class_new(gensym("metro"), (t_newmethod)metro_new, ! (t_method)metro_free, sizeof(t_metro), 0, A_DEFFLOAT, 0); class_addbang(metro_class, metro_bang); class_addmethod2(metro_class,metro_stop,"stop",""); --- 3014,3018 ---- } static void metro_setup() { ! metro_class = class_new2("metro",metro_new,metro_free,sizeof(t_metro),0,"F"); class_addbang(metro_class, metro_bang); class_addmethod2(metro_class,metro_stop,"stop",""); *************** *** 3122,3127 **** } static void line_setup() { ! line_class = class_new(gensym("line"), (t_newmethod)line_new, ! (t_method)line_free, sizeof(t_line), 0, A_DEFFLOAT, A_DEFFLOAT, 0); class_addmethod2(line_class,line_ft1,"ft1","f"); class_addmethod2(line_class,line_stop,"stop",""); --- 3094,3098 ---- } static void line_setup() { ! line_class = class_new2("line",line_new,line_free,sizeof(t_line),0,"FF"); class_addmethod2(line_class,line_ft1,"ft1","f"); class_addmethod2(line_class,line_stop,"stop",""); *************** *** 3149,3153 **** } static void timer_setup() { ! timer_class = class_new(gensym("timer"), (t_newmethod)timer_new, 0, sizeof(t_timer), 0, A_DEFFLOAT, 0); class_addbang(timer_class, timer_bang); class_addmethod2(timer_class,timer_bang2,"bang2",""); --- 3120,3124 ---- } static void timer_setup() { ! timer_class = class_new2("timer",timer_new,0,sizeof(t_timer),0,"F"); class_addbang(timer_class, timer_bang); class_addmethod2(timer_class,timer_bang2,"bang2",""); *************** *** 3317,3321 **** } static void pipe_setup() { ! pipe_class = class_new(gensym("pipe"), (t_newmethod)pipe_new, (t_method)pipe_clear, sizeof(t_pipe), 0, A_GIMME, 0); class_addlist(pipe_class, pipe_list); class_addmethod2(pipe_class,pipe_flush,"flush",""); --- 3288,3292 ---- } static void pipe_setup() { ! pipe_class = class_new2("pipe",pipe_new,pipe_clear,sizeof(t_pipe),0,"*"); class_addlist(pipe_class, pipe_list); class_addmethod2(pipe_class,pipe_flush,"flush",""); *************** *** 3361,3365 **** value_setup(); ! qlist_class = class_new(gensym("qlist"), (t_newmethod)qlist_new, (t_method)qlist_free, sizeof(t_qlist), 0, 0); class_addmethod2(qlist_class,qlist_rewind, "rewind",""); class_addmethod2(qlist_class,qlist_next, "next","F"); --- 3332,3336 ---- value_setup(); ! qlist_class = class_new2("qlist",qlist_new,qlist_free,sizeof(t_qlist),0,""); class_addmethod2(qlist_class,qlist_rewind, "rewind",""); class_addmethod2(qlist_class,qlist_next, "next","F"); *************** *** 3375,3380 **** class_addbang(qlist_class, qlist_bang); ! textfile_class = class_new(gensym("textfile"), (t_newmethod)textfile_new, ! (t_method)textfile_free, sizeof(t_textfile), 0, 0); class_addmethod2(textfile_class,textfile_rewind, "rewind",""); class_addmethod2(textfile_class,qlist_set, "set","*"); --- 3346,3350 ---- class_addbang(qlist_class, qlist_bang); ! textfile_class = class_new2("textfile",textfile_new,textfile_free,sizeof(t_textfile),0,""); class_addmethod2(textfile_class,textfile_rewind, "rewind",""); class_addmethod2(textfile_class,qlist_set, "set","*"); *************** *** 3399,3403 **** list_trim_setup(); list_length_setup(); ! class_addcreator((t_newmethod)list_new, &s_list, A_GIMME, 0); arithmetic_setup(); midi_setup(); --- 3369,3373 ---- list_trim_setup(); list_length_setup(); ! class_addcreator2("list",list_new,"*"); arithmetic_setup(); midi_setup();

1 0

pd/src desire.c, 1.1.2.217.2.111, 1.1.2.217.2.112 m_pd.h, 1.4.4.11.2.33.2.35, 1.4.4.11.2.33.2.36 kernel.c, 1.1.2.29, 1.1.2.30
by Mathieu Bouchard 04 Jan '07

04 Jan '07

Update of /cvsroot/pure-data/pd/src In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv14160 Modified Files: Tag: desiredata desire.c m_pd.h kernel.c Log Message: we won't need original_name after all Index: m_pd.h =================================================================== RCS file: /cvsroot/pure-data/pd/src/m_pd.h,v retrieving revision 1.4.4.11.2.33.2.35 retrieving revision 1.4.4.11.2.33.2.36 diff -C2 -d -r1.4.4.11.2.33.2.35 -r1.4.4.11.2.33.2.36 *** m_pd.h 4 Jan 2007 19:24:51 -0000 1.4.4.11.2.33.2.35 --- m_pd.h 4 Jan 2007 21:37:08 -0000 1.4.4.11.2.33.2.36 *************** *** 486,494 **** EXTERN t_class *class_new2(const char *name,t_newmethod nu,t_method freem,size_t size,int flags,const char *sig); EXTERN void class_addcreator( t_newmethod nu, t_symbol *sel, t_atomtypearg arg1, ...); ! EXTERN void class_addcreator2(const char *name, t_newmethod nu, const char *original_name, const char *sig); EXTERN void class_addmethod( t_class *c, t_method fn, t_symbol *sel, t_atomtypearg arg1, ...); EXTERN void class_addmethod2( t_class *c, t_method fn, const char *sel, const char *sig); #define class_new2(NAME,NU,FREE,SIZE,FLAGS,SIG) class_new2(NAME,(t_newmethod)NU,(t_method)FREE,SIZE,FLAGS,SIG) ! #define class_addcreator2(NAME,NU,ORIG,SIG) class_addcreator2(NAME,(t_newmethod)NU,ORIG,SIG) #define class_addmethod2(NAME,METH,SEL,SIG) class_addmethod2(NAME,(t_method)METH,SEL,SIG) --- 486,494 ---- EXTERN t_class *class_new2(const char *name,t_newmethod nu,t_method freem,size_t size,int flags,const char *sig); EXTERN void class_addcreator( t_newmethod nu, t_symbol *sel, t_atomtypearg arg1, ...); ! EXTERN void class_addcreator2(const char *name, t_newmethod nu, const char *sig); EXTERN void class_addmethod( t_class *c, t_method fn, t_symbol *sel, t_atomtypearg arg1, ...); EXTERN void class_addmethod2( t_class *c, t_method fn, const char *sel, const char *sig); #define class_new2(NAME,NU,FREE,SIZE,FLAGS,SIG) class_new2(NAME,(t_newmethod)NU,(t_method)FREE,SIZE,FLAGS,SIG) ! #define class_addcreator2(NAME,NU,SIG) class_addcreator2(NAME,(t_newmethod)NU,SIG) #define class_addmethod2(NAME,METH,SEL,SIG) class_addmethod2(NAME,(t_method)METH,SEL,SIG) Index: kernel.c =================================================================== RCS file: /cvsroot/pure-data/pd/src/Attic/kernel.c,v retrieving revision 1.1.2.29 retrieving revision 1.1.2.30 diff -C2 -d -r1.1.2.29 -r1.1.2.30 *** kernel.c 4 Jan 2007 19:24:51 -0000 1.1.2.29 --- kernel.c 4 Jan 2007 21:37:08 -0000 1.1.2.30 *************** *** 1098,1102 **** can belong to, but this won't be used until the newmethod is actually called back (and the new method explicitly takes care of this.) */ ! void class_addcreator2(const char *ss, t_newmethod newmethod, const char *original_name, const char *sig) { t_symbol *s = gensym(ss); class_addmethod2(pd_objectmaker._class, (t_method)newmethod, ss, sig); --- 1098,1102 ---- can belong to, but this won't be used until the newmethod is actually called back (and the new method explicitly takes care of this.) */ ! void class_addcreator2(const char *ss, t_newmethod newmethod, const char *sig) { t_symbol *s = gensym(ss); class_addmethod2(pd_objectmaker._class, (t_method)newmethod, ss, sig); *************** *** 1111,1115 **** t_methodentry *m; int argtype = *fmt++; - int nargs; /* "signal" method specifies that we take audio signals but that we don't want automatic float to signal conversion. This --- 1111,1114 ---- *************** *** 1134,1138 **** m->me_name = sel; m->me_fun = (t_gotfn)fn; ! nargs = 0; while (argtype && nargs < MAXPDARG) { t_atomtype t; --- 1133,1137 ---- m->me_name = sel; m->me_fun = (t_gotfn)fn; ! int nargs = 0; while (argtype && nargs < MAXPDARG) { t_atomtype t; *************** *** 1179,1183 **** t=(t_atomtype)va_arg(ap,int); } ! *f=0; va_end(ap); class_addcreator2(s->name,newmethod,0,fmt); } void class_addmethod(t_class *c, t_method fn, t_symbol *sel, t_atomtypearg arg1, ...) { --- 1178,1182 ---- t=(t_atomtype)va_arg(ap,int); } ! *f=0; va_end(ap); class_addcreator2(s->name,newmethod,fmt); } void class_addmethod(t_class *c, t_method fn, t_symbol *sel, t_atomtypearg arg1, ...) { Index: desire.c =================================================================== RCS file: /cvsroot/pure-data/pd/src/Attic/desire.c,v retrieving revision 1.1.2.217.2.111 retrieving revision 1.1.2.217.2.112 diff -C2 -d -r1.1.2.217.2.111 -r1.1.2.217.2.112 *** desire.c 4 Jan 2007 18:25:10 -0000 1.1.2.217.2.111 --- desire.c 4 Jan 2007 21:37:05 -0000 1.1.2.217.2.112 *************** *** 3305,3309 **** static void vinlet_setup(void) { t_class *c = vinlet_class = class_new2("inlet",vinlet_new,vinlet_free,sizeof(t_vinlet),CLASS_NOINLET,"S"); ! class_addcreator2("inlet~",vinlet_newsig,"inlet","S"); class_addbang( c, vinlet_bang); class_addpointer( c, vinlet_pointer); --- 3305,3309 ---- static void vinlet_setup(void) { t_class *c = vinlet_class = class_new2("inlet",vinlet_new,vinlet_free,sizeof(t_vinlet),CLASS_NOINLET,"S"); ! class_addcreator2("inlet~",vinlet_newsig,"S"); class_addbang( c, vinlet_bang); class_addpointer( c, vinlet_pointer); *************** *** 3546,3550 **** static void voutlet_setup(void) { t_class *c = voutlet_class = class_new2("outlet",voutlet_new,voutlet_free,sizeof(t_voutlet),CLASS_NOINLET,"S"); ! class_addcreator2("outlet~",voutlet_newsig,"outlet~","S"); class_addbang( c, voutlet_bang); class_addpointer( c, voutlet_pointer); --- 3546,3550 ---- static void voutlet_setup(void) { t_class *c = voutlet_class = class_new2("outlet",voutlet_new,voutlet_free,sizeof(t_voutlet),CLASS_NOINLET,"S"); ! class_addcreator2("outlet~",voutlet_newsig,"S"); class_addbang( c, voutlet_bang); class_addpointer( c, voutlet_pointer); *************** *** 5046,5056 **** class_addmethod2(pd_canvasmaker._class, template_usetemplate, "struct", "*"); gtemplate_class = class_new2("struct",gtemplate_new,gtemplate_free,sizeof(t_gtemplate),CLASS_NOINLET,"*"); ! class_addcreator2("template",gtemplate_new_old,0,"*"); curve_class = class_new2("drawpolygon",curve_new,curve_free,sizeof(t_curve),0,"*"); class_setdrawcommand(curve_class); ! class_addcreator2("drawcurve", curve_new,0,"*"); ! class_addcreator2("filledpolygon",curve_new,0,"*"); ! class_addcreator2("filledcurve", curve_new,0,"*"); class_addfloat(curve_class, curve_float); plot_class = class_new2("plot",plot_new,0,sizeof(t_plot),0,"*"); --- 5046,5056 ---- class_addmethod2(pd_canvasmaker._class, template_usetemplate, "struct", "*"); gtemplate_class = class_new2("struct",gtemplate_new,gtemplate_free,sizeof(t_gtemplate),CLASS_NOINLET,"*"); ! class_addcreator2("template",gtemplate_new_old,"*"); curve_class = class_new2("drawpolygon",curve_new,curve_free,sizeof(t_curve),0,"*"); class_setdrawcommand(curve_class); ! class_addcreator2("drawcurve", curve_new,"*"); ! class_addcreator2("filledpolygon",curve_new,"*"); ! class_addcreator2("filledcurve", curve_new,"*"); class_addfloat(curve_class, curve_float); plot_class = class_new2("plot",plot_new,0,sizeof(t_plot),0,"*"); *************** *** 5060,5064 **** class_setdrawcommand(drawnumber_class); class_addfloat(drawnumber_class, drawnumber_float); ! class_addcreator2("drawsymbol",drawnumber_new,0,"*"); } --- 5060,5064 ---- class_setdrawcommand(drawnumber_class); class_addfloat(drawnumber_class, drawnumber_float); ! class_addcreator2("drawsymbol",drawnumber_new,"*"); }

1 0

pd/src builtins_dsp.c,1.1.2.10,1.1.2.11
by Mathieu Bouchard 04 Jan '07

04 Jan '07

Update of /cvsroot/pure-data/pd/src In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv6517 Modified Files: Tag: desiredata builtins_dsp.c Log Message: using class_new2 everywhere Index: builtins_dsp.c =================================================================== RCS file: /cvsroot/pure-data/pd/src/Attic/builtins_dsp.c,v retrieving revision 1.1.2.10 retrieving revision 1.1.2.11 diff -C2 -d -r1.1.2.10 -r1.1.2.11 *** builtins_dsp.c 4 Jan 2007 20:30:26 -0000 1.1.2.10 --- builtins_dsp.c 4 Jan 2007 21:16:50 -0000 1.1.2.11 *************** *** 45,48 **** --- 45,49 ---- template <class T> T min(T a, T b) {return a<b?a:b;} template <class T> T max(T a, T b) {return a>b?a:b;} + template <class T> T clip(T a, T b, T c) {return min(max(a,b),b);} /* ----------------------------- plus ----------------------------- */ *************** *** 78,86 **** return x;} \ static void NAME##_setup() { \ ! t_class *c = NAME##_class = class_new(gensym("+~"), (t_newmethod)NAME##_new, 0, sizeof(t_dop), 0, A_GIMME, 0); \ class_addmethod2(c, NAME##_dsp, "dsp",""); \ CLASS_MAINSIGNALIN(c, t_dop, a); \ class_sethelpsymbol(NAME##_class, gensym("sigbinops")); \ ! c = scalar##NAME##_class = class_new(gensym("+~"), 0, 0, sizeof(t_dop), 0, 0); \ CLASS_MAINSIGNALIN(c, t_dop, a); \ class_addmethod2(c, scalar##NAME##_dsp, "dsp",""); \ --- 79,87 ---- return x;} \ static void NAME##_setup() { \ ! t_class *c = NAME##_class = class_new2("+~",NAME##_new,0,sizeof(t_dop),0,"*"); \ class_addmethod2(c, NAME##_dsp, "dsp",""); \ CLASS_MAINSIGNALIN(c, t_dop, a); \ class_sethelpsymbol(NAME##_class, gensym("sigbinops")); \ ! c = scalar##NAME##_class = class_new2("+~",0,0,sizeof(t_dop),0,""); \ CLASS_MAINSIGNALIN(c, t_dop, a); \ class_addmethod2(c, scalar##NAME##_dsp, "dsp",""); \ *************** *** 244,250 **** /* ------------------------- tabwrite~ -------------------------- */ - static t_class *tabwrite_tilde_class; - struct t_tabwrite_tilde : t_object { int phase; --- 245,249 ---- *************** *** 254,258 **** float a; }; - static void *tabwrite_tilde_new(t_symbol *s) { t_tabwrite_tilde *x = (t_tabwrite_tilde *)pd_new(tabwrite_tilde_class); --- 253,256 ---- *************** *** 262,273 **** return x; } - static void tabwrite_tilde_redraw(t_tabwrite_tilde *x) { t_garray *a = (t_garray *)pd_findbyclass(x->arrayname, garray_class); ! if (!a) ! bug("tabwrite_tilde_redraw"); else garray_redraw(a); } - static t_int *tabwrite_tilde_perform(t_int *w) { t_tabwrite_tilde *x = (t_tabwrite_tilde *)w[1]; --- 260,268 ---- return x; } static void tabwrite_tilde_redraw(t_tabwrite_tilde *x) { t_garray *a = (t_garray *)pd_findbyclass(x->arrayname, garray_class); ! if (!a) bug("tabwrite_tilde_redraw"); else garray_redraw(a); } static t_int *tabwrite_tilde_perform(t_int *w) { t_tabwrite_tilde *x = (t_tabwrite_tilde *)w[1]; *************** *** 275,279 **** int n = (int)w[3], phase = x->phase, endphase = x->nsampsintab; if (!x->vec) goto bad; - if (endphase > phase) { int nxfer = endphase - phase; --- 270,273 ---- *************** *** 281,286 **** if (nxfer > n) nxfer = n; phase += nxfer; ! ! testcopyvec(fp, in, nxfer); if (phase >= endphase) { tabwrite_tilde_redraw(x); --- 275,279 ---- if (nxfer > n) nxfer = n; phase += nxfer; ! testcopyvec(fp, in, nxfer); if (phase >= endphase) { tabwrite_tilde_redraw(x); *************** *** 288,298 **** } x->phase = phase; ! } ! else x->phase = 0x7fffffff; bad: return w+4; } - - static t_int *tabwrite_tilde_perf_simd(t_int *w) { t_tabwrite_tilde *x = (t_tabwrite_tilde *)w[1]; --- 281,288 ---- } x->phase = phase; ! } else x->phase = 0x7fffffff; bad: return w+4; } static t_int *tabwrite_tilde_perf_simd(t_int *w) { t_tabwrite_tilde *x = (t_tabwrite_tilde *)w[1]; *************** *** 300,304 **** int n = (int)w[3], phase = x->phase, endphase = x->nsampsintab; if (!x->vec) goto bad; - if (endphase > phase) { int nxfer = endphase - phase; --- 290,293 ---- *************** *** 321,326 **** return w+4; } - - void tabwrite_tilde_set(t_tabwrite_tilde *x, t_symbol *s) { x->arrayname = s; --- 310,313 ---- *************** *** 334,338 **** } else garray_usedindsp(a); } - static void tabwrite_tilde_dsp(t_tabwrite_tilde *x, t_signal **sp) { tabwrite_tilde_set(x, x->arrayname); --- 321,324 ---- *************** *** 341,345 **** else dsp_add(tabwrite_tilde_perform, 3, x, sp[0]->s_vec, sp[0]->s_n); } - static void tabwrite_tilde_bang(t_tabwrite_tilde *x) {x->phase = 0;} static void tabwrite_tilde_start(t_tabwrite_tilde *x, t_floatarg f) {x->phase = (int)max((int)f,0);} --- 327,330 ---- *************** *** 350,357 **** } } - static void tabwrite_tilde_setup() { ! t_class *c = tabwrite_tilde_class = class_new(gensym("tabwrite~"), (t_newmethod)tabwrite_tilde_new, 0, ! sizeof(t_tabwrite_tilde), 0, A_DEFSYM, 0); CLASS_MAINSIGNALIN(c, t_tabwrite_tilde, a); class_addmethod2(c, tabwrite_tilde_dsp, "dsp",""); --- 335,341 ---- } } static void tabwrite_tilde_setup() { ! t_class *c = tabwrite_tilde_class = ! class_new2("tabwrite~",tabwrite_tilde_new,0,sizeof(t_tabwrite_tilde),0,"S"); CLASS_MAINSIGNALIN(c, t_tabwrite_tilde, a); class_addmethod2(c, tabwrite_tilde_dsp, "dsp",""); *************** *** 769,774 **** static void tabosc4_tilde_setup() { ! t_class *c = tabosc4_tilde_class = class_new(gensym("tabosc4~"), ! (t_newmethod)tabosc4_tilde_new, 0, sizeof(t_tabosc4_tilde), 0, A_DEFSYM, 0); CLASS_MAINSIGNALIN(c, t_tabosc4_tilde, a); class_addmethod2(c, tabosc4_tilde_dsp, "dsp",""); --- 753,758 ---- static void tabosc4_tilde_setup() { ! t_class *c = tabosc4_tilde_class = ! class_new2("tabosc4~",tabosc4_tilde_new,0,sizeof(t_tabosc4_tilde),0,"S"); CLASS_MAINSIGNALIN(c, t_tabosc4_tilde, a); class_addmethod2(c, tabosc4_tilde_dsp, "dsp",""); *************** *** 868,873 **** static void tabsend_setup() { ! tabsend_class = class_new(gensym("tabsend~"), (t_newmethod)tabsend_new, ! 0, sizeof(t_tabsend), 0, A_DEFSYM, 0); CLASS_MAINSIGNALIN(tabsend_class, t_tabsend, a); class_addmethod2(tabsend_class, tabsend_dsp, "dsp",""); --- 852,856 ---- static void tabsend_setup() { ! tabsend_class = class_new2("tabsend~",tabsend_new,0,sizeof(t_tabsend),0,"S"); CLASS_MAINSIGNALIN(tabsend_class, t_tabsend, a); class_addmethod2(tabsend_class, tabsend_dsp, "dsp",""); *************** *** 950,956 **** static void tabreceive_setup() { ! tabreceive_class = class_new(gensym("tabreceive~"), ! (t_newmethod)tabreceive_new, 0, ! sizeof(t_tabreceive), 0, A_DEFSYM, 0); class_addmethod2(tabreceive_class, tabreceive_dsp, "dsp",""); } --- 933,937 ---- static void tabreceive_setup() { ! tabreceive_class = class_new2("tabreceive~",tabreceive_new,0,sizeof(t_tabreceive),0,"S"); class_addmethod2(tabreceive_class, tabreceive_dsp, "dsp",""); } *************** *** 993,998 **** static void tabread_setup() { ! tabread_class = class_new(gensym("tabread"), (t_newmethod)tabread_new, ! 0, sizeof(t_tabread), 0, A_DEFSYM, 0); class_addfloat(tabread_class, tabread_float); class_addmethod2(tabread_class, tabread_set, "set","s"); --- 974,978 ---- static void tabread_setup() { ! tabread_class = class_new2("tabread",tabread_new,0,sizeof(t_tabread),0,"S"); class_addfloat(tabread_class, tabread_float); class_addmethod2(tabread_class, tabread_set, "set","s"); *************** *** 1052,1057 **** static void tabread4_setup() { ! tabread4_class = class_new(gensym("tabread4"), (t_newmethod)tabread4_new, ! 0, sizeof(t_tabread4), 0, A_DEFSYM, 0); class_addfloat(tabread4_class, tabread4_float); class_addmethod2(tabread4_class, tabread4_set, "set","s"); --- 1032,1036 ---- static void tabread4_setup() { ! tabread4_class = class_new2("tabread4",tabread4_new,0,sizeof(t_tabread4),0,"S"); class_addfloat(tabread4_class, tabread4_float); class_addmethod2(tabread4_class, tabread4_set, "set","s"); *************** *** 1100,1105 **** void tabwrite_setup() { ! tabwrite_class = class_new(gensym("tabwrite"), (t_newmethod)tabwrite_new, ! 0, sizeof(t_tabwrite), 0, A_DEFSYM, 0); class_addfloat(tabwrite_class, tabwrite_float); class_addmethod2(tabwrite_class, tabwrite_set, "set","s"); --- 1079,1083 ---- void tabwrite_setup() { ! tabwrite_class = class_new2("tabwrite",tabwrite_new,0,sizeof(t_tabwrite),0,"S"); class_addfloat(tabwrite_class, tabwrite_float); class_addmethod2(tabwrite_class, tabwrite_set, "set","s"); *************** *** 1168,1173 **** static void sig_tilde_setup() { ! sig_tilde_class = class_new(gensym("sig~"), (t_newmethod)sig_tilde_new, 0, ! sizeof(t_sig), 0, A_DEFFLOAT, 0); class_addfloat(sig_tilde_class, sig_tilde_float); class_addmethod2(sig_tilde_class, sig_tilde_dsp,"dsp",""); --- 1146,1150 ---- static void sig_tilde_setup() { ! sig_tilde_class = class_new2("sig~",sig_tilde_new,0,sizeof(t_sig),0,"F"); class_addfloat(sig_tilde_class, sig_tilde_float); class_addmethod2(sig_tilde_class, sig_tilde_dsp,"dsp",""); *************** *** 1596,1613 **** float val; if (x->gotone) { ! int indx = (int)(clock_gettimesince(x->time) * x->sampspermsec); ! if (indx < 0) ! indx = 0; ! else if (indx >= x->n) ! indx = x->n - 1; val = x->vec[indx]; ! } ! else val = 0; outlet_float(x->outlet, val); } static void vsnapshot_tilde_ff(t_vsnapshot *x) { ! if (x->vec) ! t_freebytes(x->vec, x->n * sizeof(t_sample)); } --- 1573,1584 ---- float val; if (x->gotone) { ! int indx = clip((int)(clock_gettimesince(x->time) * x->sampspermsec),0,x->n-1); val = x->vec[indx]; ! } else val = 0; outlet_float(x->outlet, val); } static void vsnapshot_tilde_ff(t_vsnapshot *x) { ! if (x->vec) t_freebytes(x->vec, x->n * sizeof(t_sample)); } *************** *** 2794,2800 **** static void sigrfftw_setup() { ! sigrfftw_class = class_new(gensym("rfft~"), sigrfftw_new, ! sigrfftw_free, ! sizeof(t_sigrfftw), 0, 0); CLASS_MAINSIGNALIN(sigrfftw_class, t_sigrfftw, a); class_addmethod2(sigrfftw_class, sigrfftw_dsp,"dsp",""); --- 2765,2769 ---- static void sigrfftw_setup() { ! sigrfftw_class = class_new2("rfft~",sigrfftw_new,sigrfftw_free,sizeof(t_sigrfftw),0,0); CLASS_MAINSIGNALIN(sigrfftw_class, t_sigrfftw, a); class_addmethod2(sigrfftw_class, sigrfftw_dsp,"dsp",""); *************** *** 2852,2858 **** static void sigrifftw_setup() { ! sigrifftw_class = class_new(gensym("rifft~"), sigrifftw_new, ! sigrifftw_free, ! sizeof(t_sigrifftw), 0, 0); CLASS_MAINSIGNALIN(sigrifftw_class, t_sigrifftw, a); class_addmethod2(sigrifftw_class, sigrifftw_dsp, "dsp",""); --- 2821,2825 ---- static void sigrifftw_setup() { ! sigrifftw_class = class_new2("rifft~",sigrifftw_new,sigrifftw_free,sizeof(t_sigrifftw),0,""); CLASS_MAINSIGNALIN(sigrifftw_class, t_sigrifftw, a); class_addmethod2(sigrifftw_class, sigrifftw_dsp, "dsp",""); *************** *** 2936,2941 **** static void sigframp_setup() { ! sigframp_class = class_new(gensym("framp~"), sigframp_new, 0, ! sizeof(t_sigframp), 0, 0); CLASS_MAINSIGNALIN(sigframp_class, t_sigframp, a); class_addmethod2(sigframp_class, sigframp_dsp, "dsp",""); --- 2903,2907 ---- static void sigframp_setup() { ! sigframp_class = class_new2("framp~",sigframp_new,0,sizeof(t_sigframp),0,""); CLASS_MAINSIGNALIN(sigframp_class, t_sigframp, a); class_addmethod2(sigframp_class, sigframp_dsp, "dsp",""); *************** *** 3021,3025 **** void sighip_setup() { ! sighip_class = class_new(gensym("hip~"), (t_newmethod)sighip_new, 0, sizeof(t_sighip), 0, A_DEFFLOAT, 0); CLASS_MAINSIGNALIN(sighip_class, t_sighip, a); class_addmethod2(sighip_class, sighip_dsp, "dsp",""); --- 2987,2991 ---- void sighip_setup() { ! sighip_class = class_new2("hip~",sighip_new,0,sizeof(t_sighip),0,"F"); CLASS_MAINSIGNALIN(sighip_class, t_sighip, a); class_addmethod2(sighip_class, sighip_dsp, "dsp",""); *************** *** 3100,3105 **** void siglop_setup() { ! siglop_class = class_new(gensym("lop~"), (t_newmethod)siglop_new, 0, ! sizeof(t_siglop), 0, A_DEFFLOAT, 0); CLASS_MAINSIGNALIN(siglop_class, t_siglop, a); class_addmethod2(siglop_class, siglop_dsp, "dsp",""); --- 3066,3070 ---- void siglop_setup() { ! siglop_class = class_new2("lop~",siglop_new,0,sizeof(t_siglop),0,"F"); CLASS_MAINSIGNALIN(siglop_class, t_siglop, a); class_addmethod2(siglop_class, siglop_dsp, "dsp",""); *************** *** 3218,3223 **** void sigbp_setup() { ! sigbp_class = class_new(gensym("bp~"), (t_newmethod)sigbp_new, 0, ! sizeof(t_sigbp), 0, A_DEFFLOAT, A_DEFFLOAT, 0); CLASS_MAINSIGNALIN(sigbp_class, t_sigbp, a); class_addmethod2(sigbp_class, sigbp_dsp, "dsp",""); --- 3183,3187 ---- void sigbp_setup() { ! sigbp_class = class_new2("bp~",sigbp_new,0,sizeof(t_sigbp),0,"FF"); CLASS_MAINSIGNALIN(sigbp_class, t_sigbp, a); class_addmethod2(sigbp_class, sigbp_dsp, "dsp",""); *************** *** 3406,3411 **** void sigbiquad_setup() { ! sigbiquad_class = class_new(gensym("biquad~"), (t_newmethod)sigbiquad_new, ! 0, sizeof(t_sigbiquad), 0, A_GIMME, 0); CLASS_MAINSIGNALIN(sigbiquad_class, t_sigbiquad, a); class_addmethod2(sigbiquad_class, sigbiquad_dsp, "dsp",""); --- 3370,3374 ---- void sigbiquad_setup() { ! sigbiquad_class = class_new2("biquad~",sigbiquad_new,0,sizeof(t_sigbiquad),0,"*"); CLASS_MAINSIGNALIN(sigbiquad_class, t_sigbiquad, a); class_addmethod2(sigbiquad_class, sigbiquad_dsp, "dsp",""); *************** *** 3472,3477 **** void sigsamphold_setup() { ! sigsamphold_class = class_new(gensym("samphold~"), ! (t_newmethod)sigsamphold_new, 0, sizeof(t_sigsamphold), 0, 0); CLASS_MAINSIGNALIN(sigsamphold_class, t_sigsamphold, a); class_addmethod2(sigsamphold_class, sigsamphold_set, "set","F"); --- 3435,3439 ---- void sigsamphold_setup() { ! sigsamphold_class = class_new2("samphold~",sigsamphold_new,0,sizeof(t_sigsamphold),0,""); CLASS_MAINSIGNALIN(sigsamphold_class, t_sigsamphold, a); class_addmethod2(sigsamphold_class, sigsamphold_set, "set","F"); *************** *** 3528,3533 **** void sigrpole_setup() { ! sigrpole_class = class_new(gensym("rpole~"), ! (t_newmethod)sigrpole_new, 0, sizeof(t_sigrpole), 0, A_DEFFLOAT, 0); CLASS_MAINSIGNALIN(sigrpole_class, t_sigrpole, a); class_addmethod2(sigrpole_class, sigrpole_set, "set","F"); --- 3490,3494 ---- void sigrpole_setup() { ! sigrpole_class = class_new2("rpole~",sigrpole_new,0,sizeof(t_sigrpole),0,"F"); CLASS_MAINSIGNALIN(sigrpole_class, t_sigrpole, a); class_addmethod2(sigrpole_class, sigrpole_set, "set","F"); *************** *** 3581,3586 **** void sigrzero_setup() { ! sigrzero_class = class_new(gensym("rzero~"), ! (t_newmethod)sigrzero_new, 0, sizeof(t_sigrzero), 0, A_DEFFLOAT, 0); CLASS_MAINSIGNALIN(sigrzero_class, t_sigrzero, a); class_addmethod2(sigrzero_class, sigrzero_set, "set","F"); --- 3542,3546 ---- void sigrzero_setup() { ! sigrzero_class = class_new2("rzero~",sigrzero_new,0,sizeof(t_sigrzero),0,"F"); CLASS_MAINSIGNALIN(sigrzero_class, t_sigrzero, a); class_addmethod2(sigrzero_class, sigrzero_set, "set","F"); *************** *** 3641,3647 **** void sigrzero_rev_setup() { ! sigrzero_rev_class = class_new(gensym("rzero_rev~"), ! (t_newmethod)sigrzero_rev_new, 0, sizeof(t_sigrzero_rev), ! 0, A_DEFFLOAT, 0); CLASS_MAINSIGNALIN(sigrzero_rev_class, t_sigrzero_rev, a); class_addmethod2(sigrzero_rev_class, sigrzero_rev_set, "set","F"); --- 3601,3605 ---- void sigrzero_rev_setup() { ! sigrzero_rev_class = class_new2("rzero_rev~",sigrzero_rev_new,0,sizeof(t_sigrzero_rev),0,"F"); CLASS_MAINSIGNALIN(sigrzero_rev_class, t_sigrzero_rev, a); class_addmethod2(sigrzero_rev_class, sigrzero_rev_set, "set","F"); *************** *** 3722,3727 **** void sigcpole_setup() { ! sigcpole_class = class_new(gensym("cpole~"), (t_newmethod)sigcpole_new, 0, sizeof(t_sigcpole), 0, ! A_DEFFLOAT, A_DEFFLOAT, 0); CLASS_MAINSIGNALIN(sigcpole_class, t_sigcpole, a); class_addmethod2(sigcpole_class, sigcpole_set, "set","FF"); --- 3680,3684 ---- void sigcpole_setup() { ! sigcpole_class = class_new2("cpole~",sigcpole_new,0,sizeof(t_sigcpole),0,"FF"); CLASS_MAINSIGNALIN(sigcpole_class, t_sigcpole, a); class_addmethod2(sigcpole_class, sigcpole_set, "set","FF"); *************** *** 3799,3804 **** void sigczero_setup() { ! sigczero_class = class_new(gensym("czero~"), ! (t_newmethod)sigczero_new, 0, sizeof(t_sigczero), 0, A_DEFFLOAT, A_DEFFLOAT, 0); CLASS_MAINSIGNALIN(sigczero_class, t_sigczero, a); class_addmethod2(sigczero_class, sigczero_set, "set","FF"); --- 3756,3760 ---- void sigczero_setup() { ! sigczero_class = class_new2("czero~",sigczero_new,0,sizeof(t_sigczero),0,"FF"); CLASS_MAINSIGNALIN(sigczero_class, t_sigczero, a); class_addmethod2(sigczero_class, sigczero_set, "set","FF"); *************** *** 3877,3882 **** void sigczero_rev_setup() { ! sigczero_rev_class = class_new(gensym("czero_rev~"), ! (t_newmethod)sigczero_rev_new, 0, sizeof(t_sigczero_rev), 0, A_DEFFLOAT, A_DEFFLOAT, 0); CLASS_MAINSIGNALIN(sigczero_rev_class, t_sigczero_rev, a); class_addmethod2(sigczero_rev_class, sigczero_rev_set, "set","FF"); --- 3833,3837 ---- void sigczero_rev_setup() { ! sigczero_rev_class = class_new2("czero_rev~",sigczero_rev_new,0,sizeof(t_sigczero_rev),0,"FF"); CLASS_MAINSIGNALIN(sigczero_rev_class, t_sigczero_rev, a); class_addmethod2(sigczero_rev_class, sigczero_rev_set, "set","FF"); *************** *** 4028,4034 **** static void sigreceive_setup() { ! sigreceive_class = class_new(gensym("receive~"), ! (t_newmethod)sigreceive_new, 0, ! sizeof(t_sigreceive), 0, A_DEFSYM, 0); class_addcreator((t_newmethod)sigreceive_new, gensym("r~"), A_DEFSYM, 0); class_addmethod2(sigreceive_class, sigreceive_set, "set","s"); --- 3983,3987 ---- static void sigreceive_setup() { ! sigreceive_class = class_new2("receive~",sigreceive_new,0,sizeof(t_sigreceive),0,"S"); class_addcreator((t_newmethod)sigreceive_new, gensym("r~"), A_DEFSYM, 0); class_addmethod2(sigreceive_class, sigreceive_set, "set","s"); *************** *** 4170,4175 **** static void sigthrow_setup() { ! sigthrow_class = class_new(gensym("throw~"), (t_newmethod)sigthrow_new, 0, ! sizeof(t_sigthrow), 0, A_DEFSYM, 0); class_addmethod2(sigthrow_class, sigthrow_set, "set","s"); CLASS_MAINSIGNALIN(sigthrow_class, t_sigthrow, a); --- 4123,4127 ---- static void sigthrow_setup() { ! sigthrow_class = class_new2("throw~",sigthrow_new,0,sizeof(t_sigthrow),0,"S"); class_addmethod2(sigthrow_class, sigthrow_set, "set","s"); CLASS_MAINSIGNALIN(sigthrow_class, t_sigthrow, a); *************** *** 4220,4225 **** static void clip_setup() { ! clip_class = class_new(gensym("clip~"), (t_newmethod)clip_new, 0, ! sizeof(t_clip), 0, A_DEFFLOAT, A_DEFFLOAT, 0); CLASS_MAINSIGNALIN(clip_class, t_clip, a); class_addmethod2(clip_class, clip_dsp, "dsp",""); --- 4172,4176 ---- static void clip_setup() { ! clip_class = class_new2("clip~",clip_new,0,sizeof(t_clip),0,"FF"); CLASS_MAINSIGNALIN(clip_class, t_clip, a); class_addmethod2(clip_class, clip_dsp, "dsp",""); *************** *** 4308,4314 **** void sigrsqrt_setup() { init_rsqrt(); ! sigrsqrt_class = class_new(gensym("rsqrt~"), (t_newmethod)sigrsqrt_new, 0, ! sizeof(t_sigrsqrt), 0, 0); ! /* an old name for it: */ class_addcreator(sigrsqrt_new, gensym("q8_rsqrt~"), 0); CLASS_MAINSIGNALIN(sigrsqrt_class, t_sigrsqrt, a); --- 4259,4264 ---- void sigrsqrt_setup() { init_rsqrt(); ! sigrsqrt_class = class_new2("rsqrt~",sigrsqrt_new,0,sizeof(t_sigrsqrt),0,""); ! /* an old name for it: */ class_addcreator(sigrsqrt_new, gensym("q8_rsqrt~"), 0); CLASS_MAINSIGNALIN(sigrsqrt_class, t_sigrsqrt, a); *************** *** 4357,4362 **** void sigsqrt_setup() { ! sigsqrt_class = class_new(gensym("sqrt~"), (t_newmethod)sigsqrt_new, 0, ! sizeof(t_sigsqrt), 0, 0); class_addcreator(sigsqrt_new, gensym("q8_sqrt~"), 0); /* old name */ CLASS_MAINSIGNALIN(sigsqrt_class, t_sigsqrt, a); --- 4307,4311 ---- void sigsqrt_setup() { ! sigsqrt_class = class_new2("sqrt~",sigsqrt_new,0,sizeof(t_sigsqrt),0,""); class_addcreator(sigsqrt_new, gensym("q8_sqrt~"), 0); /* old name */ CLASS_MAINSIGNALIN(sigsqrt_class, t_sigsqrt, a); *************** *** 4399,4404 **** void sigwrap_setup() { ! sigwrap_class = class_new(gensym("wrap~"), (t_newmethod)sigwrap_new, 0, ! sizeof(t_sigwrap), 0, 0); CLASS_MAINSIGNALIN(sigwrap_class, t_sigwrap, a); class_addmethod2(sigwrap_class, sigwrap_dsp, "dsp",""); --- 4348,4352 ---- void sigwrap_setup() { ! sigwrap_class = class_new2("wrap~",sigwrap_new,0,sizeof(t_sigwrap),0,""); CLASS_MAINSIGNALIN(sigwrap_class, t_sigwrap, a); class_addmethod2(sigwrap_class, sigwrap_dsp, "dsp",""); *************** *** 4439,4444 **** void mtof_tilde_setup() { ! mtof_tilde_class = class_new(gensym("mtof~"), (t_newmethod)mtof_tilde_new, 0, ! sizeof(t_mtof_tilde), 0, 0); CLASS_MAINSIGNALIN(mtof_tilde_class, t_mtof_tilde, a); class_addmethod2(mtof_tilde_class, mtof_tilde_dsp, "dsp",""); --- 4387,4391 ---- void mtof_tilde_setup() { ! mtof_tilde_class = class_new2("mtof~",mtof_tilde_new,0,sizeof(t_mtof_tilde),0,""); CLASS_MAINSIGNALIN(mtof_tilde_class, t_mtof_tilde, a); class_addmethod2(mtof_tilde_class, mtof_tilde_dsp, "dsp",""); *************** *** 4475,4480 **** void ftom_tilde_setup() { ! ftom_tilde_class = class_new(gensym("ftom~"), (t_newmethod)ftom_tilde_new, 0, ! sizeof(t_ftom_tilde), 0, 0); CLASS_MAINSIGNALIN(ftom_tilde_class, t_ftom_tilde, a); class_addmethod2(ftom_tilde_class, ftom_tilde_dsp, "dsp",""); --- 4422,4426 ---- void ftom_tilde_setup() { ! ftom_tilde_class = class_new2("ftom~",ftom_tilde_new,0,sizeof(t_ftom_tilde),0,""); CLASS_MAINSIGNALIN(ftom_tilde_class, t_ftom_tilde, a); class_addmethod2(ftom_tilde_class, ftom_tilde_dsp, "dsp",""); *************** *** 4516,4521 **** void dbtorms_tilde_setup() { ! dbtorms_tilde_class = class_new(gensym("dbtorms~"), (t_newmethod)dbtorms_tilde_new, 0, ! sizeof(t_dbtorms_tilde), 0, 0); CLASS_MAINSIGNALIN(dbtorms_tilde_class, t_dbtorms_tilde, a); class_addmethod2(dbtorms_tilde_class, dbtorms_tilde_dsp, "dsp",""); --- 4462,4466 ---- void dbtorms_tilde_setup() { ! dbtorms_tilde_class = class_new2("dbtorms~",dbtorms_tilde_new,0,sizeof(t_dbtorms_tilde),0,""); CLASS_MAINSIGNALIN(dbtorms_tilde_class, t_dbtorms_tilde, a); class_addmethod2(dbtorms_tilde_class, dbtorms_tilde_dsp, "dsp",""); *************** *** 4556,4561 **** void rmstodb_tilde_setup() { ! rmstodb_tilde_class = class_new(gensym("rmstodb~"), (t_newmethod)rmstodb_tilde_new, 0, ! sizeof(t_rmstodb_tilde), 0, 0); CLASS_MAINSIGNALIN(rmstodb_tilde_class, t_rmstodb_tilde, a); class_addmethod2(rmstodb_tilde_class, rmstodb_tilde_dsp, "dsp",""); --- 4501,4505 ---- void rmstodb_tilde_setup() { ! rmstodb_tilde_class = class_new2("rmstodb~",rmstodb_tilde_new,0,sizeof(t_rmstodb_tilde),0,""); CLASS_MAINSIGNALIN(rmstodb_tilde_class, t_rmstodb_tilde, a); class_addmethod2(rmstodb_tilde_class, rmstodb_tilde_dsp, "dsp",""); *************** *** 4597,4602 **** void dbtopow_tilde_setup() { ! dbtopow_tilde_class = class_new(gensym("dbtopow~"), (t_newmethod)dbtopow_tilde_new, 0, ! sizeof(t_dbtopow_tilde), 0, 0); CLASS_MAINSIGNALIN(dbtopow_tilde_class, t_dbtopow_tilde, a); class_addmethod2(dbtopow_tilde_class, dbtopow_tilde_dsp, "dsp",""); --- 4541,4545 ---- void dbtopow_tilde_setup() { ! dbtopow_tilde_class = class_new2("dbtopow~",dbtopow_tilde_new,0,sizeof(t_dbtopow_tilde),0,""); CLASS_MAINSIGNALIN(dbtopow_tilde_class, t_dbtopow_tilde, a); class_addmethod2(dbtopow_tilde_class, dbtopow_tilde_dsp, "dsp",""); *************** *** 4637,4642 **** void powtodb_tilde_setup() { ! powtodb_tilde_class = class_new(gensym("powtodb~"), (t_newmethod)powtodb_tilde_new, 0, ! sizeof(t_powtodb_tilde), 0, 0); CLASS_MAINSIGNALIN(powtodb_tilde_class, t_powtodb_tilde, a); class_addmethod2(powtodb_tilde_class, powtodb_tilde_dsp, "dsp",""); --- 4580,4584 ---- void powtodb_tilde_setup() { ! powtodb_tilde_class = class_new2("powtodb~",powtodb_tilde_new,0,sizeof(t_powtodb_tilde),0,""); CLASS_MAINSIGNALIN(powtodb_tilde_class, t_powtodb_tilde, a); class_addmethod2(powtodb_tilde_class, powtodb_tilde_dsp, "dsp",""); *************** *** 4695,4700 **** static void print_setup() { ! print_class = class_new(gensym("print~"), (t_newmethod)print_new, 0, ! sizeof(t_print), 0, A_DEFSYM, 0); CLASS_MAINSIGNALIN(print_class, t_print, a); class_addmethod2(print_class, print_dsp, "dsp",""); --- 4637,4641 ---- static void print_setup() { ! print_class = class_new2("print~",print_new,0,sizeof(t_print),0,"S"); CLASS_MAINSIGNALIN(print_class, t_print, a); class_addmethod2(print_class, print_dsp, "dsp",""); *************** *** 4797,4802 **** static void phasor_setup() { ! phasor_class = class_new(gensym("phasor~"), (t_newmethod)phasor_new, 0, ! sizeof(t_phasor), 0, A_DEFFLOAT, 0); CLASS_MAINSIGNALIN(phasor_class, t_phasor, a); class_addmethod2(phasor_class, phasor_dsp, "dsp",""); --- 4738,4742 ---- static void phasor_setup() { ! phasor_class = class_new2("phasor~",phasor_new,0,sizeof(t_phasor),0,"F"); CLASS_MAINSIGNALIN(phasor_class, t_phasor, a); class_addmethod2(phasor_class, phasor_dsp, "dsp",""); *************** *** 4894,4899 **** static void cos_setup() { ! cos_class = class_new(gensym("cos~"), (t_newmethod)cos_new, 0, ! sizeof(t_cos), 0, A_DEFFLOAT, 0); CLASS_MAINSIGNALIN(cos_class, t_cos, a); class_addmethod2(cos_class, cos_dsp, "dsp",""); --- 4834,4838 ---- static void cos_setup() { ! cos_class = class_new2("cos~",cos_new,0,sizeof(t_cos),0,"F"); CLASS_MAINSIGNALIN(cos_class, t_cos, a); class_addmethod2(cos_class, cos_dsp, "dsp",""); *************** *** 4986,4991 **** static void osc_setup() { ! osc_class = class_new(gensym("osc~"), (t_newmethod)osc_new, 0, ! sizeof(t_osc), 0, A_DEFFLOAT, 0); CLASS_MAINSIGNALIN(osc_class, t_osc, a); class_addmethod2(osc_class, osc_dsp, "dsp",""); --- 4925,4929 ---- static void osc_setup() { ! osc_class = class_new2("osc~",osc_new,0,sizeof(t_osc),0,"F"); CLASS_MAINSIGNALIN(osc_class, t_osc, a); class_addmethod2(osc_class, osc_dsp, "dsp",""); *************** *** 5101,5105 **** void sigvcf_setup() { ! sigvcf_class = class_new(gensym("vcf~"), (t_newmethod)sigvcf_new, 0, sizeof(t_sigvcf), 0, A_DEFFLOAT, 0); CLASS_MAINSIGNALIN(sigvcf_class, t_sigvcf, a); class_addmethod2(sigvcf_class, sigvcf_dsp, "dsp",""); --- 5039,5043 ---- void sigvcf_setup() { ! sigvcf_class = class_new2("vcf~",sigvcf_new,0,sizeof(t_sigvcf),0,"F"); CLASS_MAINSIGNALIN(sigvcf_class, t_sigvcf, a); class_addmethod2(sigvcf_class, sigvcf_dsp, "dsp",""); *************** *** 5141,5145 **** static void noise_setup() { ! noise_class = class_new(gensym("noise~"), (t_newmethod)noise_new, 0, sizeof(t_noise), 0, 0); class_addmethod2(noise_class, noise_dsp, "dsp",""); } --- 5079,5083 ---- static void noise_setup() { ! noise_class = class_new2("noise~",noise_new,0,sizeof(t_noise),0,""); class_addmethod2(noise_class, noise_dsp, "dsp",""); }

1 0

pd/src builtins_dsp.c,1.1.2.9,1.1.2.10
by Mathieu Bouchard 04 Jan '07

04 Jan '07

Update of /cvsroot/pure-data/pd/src In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv20417 Modified Files: Tag: desiredata builtins_dsp.c Log Message: fix typo Index: builtins_dsp.c =================================================================== RCS file: /cvsroot/pure-data/pd/src/Attic/builtins_dsp.c,v retrieving revision 1.1.2.9 retrieving revision 1.1.2.10 diff -C2 -d -r1.1.2.9 -r1.1.2.10 *** builtins_dsp.c 4 Jan 2007 19:21:56 -0000 1.1.2.9 --- builtins_dsp.c 4 Jan 2007 20:30:26 -0000 1.1.2.10 *************** *** 1614,1618 **** static void vsnapshot_tilde_setup() { vsnapshot_tilde_class = ! class_new2("vsnapshot~",vsnapshot_tilde_new, vsnapshot_tilde_ff,sizeof(t_vsnapshot), 0, 0); CLASS_MAINSIGNALIN(vsnapshot_tilde_class, t_vsnapshot, a); class_addmethod2(vsnapshot_tilde_class, vsnapshot_tilde_dsp, "dsp",""); --- 1614,1618 ---- static void vsnapshot_tilde_setup() { vsnapshot_tilde_class = ! class_new2("vsnapshot~",vsnapshot_tilde_new, vsnapshot_tilde_ff,sizeof(t_vsnapshot), 0,""); CLASS_MAINSIGNALIN(vsnapshot_tilde_class, t_vsnapshot, a); class_addmethod2(vsnapshot_tilde_class, vsnapshot_tilde_dsp, "dsp","");

1 0

pd/src desire.h, 1.1.2.49.2.24, 1.1.2.49.2.25 m_pd.h, 1.4.4.11.2.33.2.34, 1.4.4.11.2.33.2.35 kernel.c, 1.1.2.28, 1.1.2.29
by Mathieu Bouchard 04 Jan '07

04 Jan '07

Update of /cvsroot/pure-data/pd/src In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv29270 Modified Files: Tag: desiredata desire.h m_pd.h kernel.c Log Message: fix previous commit and switch gensym to const char Index: m_pd.h =================================================================== RCS file: /cvsroot/pure-data/pd/src/m_pd.h,v retrieving revision 1.4.4.11.2.33.2.34 retrieving revision 1.4.4.11.2.33.2.35 diff -C2 -d -r1.4.4.11.2.33.2.34 -r1.4.4.11.2.33.2.35 *** m_pd.h 4 Jan 2007 18:25:13 -0000 1.4.4.11.2.33.2.34 --- m_pd.h 4 Jan 2007 19:24:51 -0000 1.4.4.11.2.33.2.35 *************** *** 483,488 **** EXTERN t_class *class_find (t_symbol *s); ! EXTERN t_class *class_new( t_symbol *name,t_newmethod nu,t_method free,size_t size,int flags,t_atomtypearg arg1, ...); ! EXTERN t_class *class_new2(const char *name,t_newmethod nu,t_method free,size_t size,int flags,const char *sig); EXTERN void class_addcreator( t_newmethod nu, t_symbol *sel, t_atomtypearg arg1, ...); EXTERN void class_addcreator2(const char *name, t_newmethod nu, const char *original_name, const char *sig); --- 483,488 ---- EXTERN t_class *class_find (t_symbol *s); ! EXTERN t_class *class_new( t_symbol *name,t_newmethod nu,t_method freem,size_t size,int flags,t_atomtypearg arg1, ...); ! EXTERN t_class *class_new2(const char *name,t_newmethod nu,t_method freem,size_t size,int flags,const char *sig); EXTERN void class_addcreator( t_newmethod nu, t_symbol *sel, t_atomtypearg arg1, ...); EXTERN void class_addcreator2(const char *name, t_newmethod nu, const char *original_name, const char *sig); Index: kernel.c =================================================================== RCS file: /cvsroot/pure-data/pd/src/Attic/kernel.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 *** kernel.c 4 Jan 2007 18:25:13 -0000 1.1.2.28 --- kernel.c 4 Jan 2007 19:24:51 -0000 1.1.2.29 *************** *** 1250,1260 **** #ifdef NEWHASH ! static short hash(char *s, size_t n) { unsigned short hash1 = 0, hash2 = 0; #else ! static int hash(char *s, size_t n) { unsigned int hash1 = 0, hash2 = 0; #endif ! char *s2 = s; while (n) { hash1 += *s2; --- 1250,1260 ---- #ifdef NEWHASH ! static short hash(const char *s, size_t n) { unsigned short hash1 = 0, hash2 = 0; #else ! static int hash(const char *s, size_t n) { unsigned int hash1 = 0, hash2 = 0; #endif ! const char *s2 = s; while (n) { hash1 += *s2; *************** *** 1268,1272 **** /* tb: made dogensym() threadsafe * supported by vibrez.net */ ! t_symbol *dogensym(char *s, size_t n, t_symbol *oldsym) { static t_symbol *symhash[HASHSIZE]; #ifdef THREADSAFE_GENSYM --- 1268,1272 ---- /* tb: made dogensym() threadsafe * supported by vibrez.net */ ! t_symbol *dogensym(const char *s, size_t n, t_symbol *oldsym) { static t_symbol *symhash[HASHSIZE]; #ifdef THREADSAFE_GENSYM *************** *** 1320,1325 **** } ! t_symbol *gensym(char *s) {return dogensym(s,strlen(s),0);} ! t_symbol *gensym2(char *s, size_t n) {return dogensym(s,n,0);} static int tryingalready; --- 1320,1325 ---- } ! t_symbol *gensym( const char *s) {return dogensym(s,strlen(s),0);} ! t_symbol *gensym2(const char *s, size_t n) {return dogensym(s,n,0);} static int tryingalready; Index: desire.h =================================================================== RCS file: /cvsroot/pure-data/pd/src/Attic/desire.h,v retrieving revision 1.1.2.49.2.24 retrieving revision 1.1.2.49.2.25 diff -C2 -d -r1.1.2.49.2.24 -r1.1.2.49.2.25 *** desire.h 4 Jan 2007 04:58:27 -0000 1.1.2.49.2.24 --- desire.h 4 Jan 2007 19:24:51 -0000 1.1.2.49.2.25 *************** *** 316,321 **** void glob_update_class_info (t_pd *bogus, t_symbol *s, t_symbol *cb_recv, t_symbol *cb_sel); - #define class_addmethod3(_cl,_ptr,_str,_sig) class_addmethod2(_cl,(t_method)_ptr,gensym(_str),_sig) - #if defined(_LANGUAGE_C_PLUS_PLUS) || defined(__cplusplus) } --- 316,319 ----

1 0

← Newer
1
...
43
44
45
46
47
48
49
...
54
Older →

Jump to page:

2024

2023

2022

2021

2020

2019

2018

2017

2016

2015

2014

2013

2012

2011

2010

2009

2008

2007

2006

2005

2004

2003

Pd-cvs January 2007