aboutsummaryrefslogtreecommitdiff
path: root/desiredata/src
diff options
context:
space:
mode:
Diffstat (limited to 'desiredata/src')
-rw-r--r--desiredata/src/builtins.c75
-rw-r--r--desiredata/src/builtins_dsp.c32
2 files changed, 45 insertions, 62 deletions
diff --git a/desiredata/src/builtins.c b/desiredata/src/builtins.c
index c50d22eb..8ee60324 100644
--- a/desiredata/src/builtins.c
+++ b/desiredata/src/builtins.c
@@ -325,10 +325,10 @@ static void netreceive_doit(t_netreceive *x, t_binbuf *b) {
goto nodice;
}
if (at[msg].a_type == A_FLOAT) {
- if (emsg > msg + 1) outlet_list(x->msgout, 0, emsg-msg, at + msg);
+ if (emsg > msg + 1) x->msgout->send(emsg-msg, at + msg);
else x->msgout->send(at[msg].a_float);
} else if (at[msg].a_type == A_SYMBOL)
- outlet_anything(x->msgout, at[msg].a_symbol, emsg-msg-1, at + msg + 1);
+ x->msgout->send(at[msg].a_symbol,emsg-msg-1,at+msg+1);
}
nodice:
msg = emsg + 1;
@@ -472,7 +472,7 @@ static void qlist_donext(t_qlist *x, int drop, int automatic) {
if (automatic) {
clock_delay(x->clock, x->clockdelay = ap->a_float * x->tempo);
x->whenclockset = clock_getsystime();
- } else outlet_list(x->outlet, 0, onset2-onset, ap);
+ } else x->outlet->send(onset2-onset,ap);
return;
}
ap2 = ap + 1;
@@ -590,9 +590,8 @@ static void textfile_bang(t_textfile *x) {
while (onset2 < argc && (ap2->a_type != A_SEMI && ap2->a_type != A_COMMA)) onset2++, ap2++;
if (onset2 > onset) {
x->onset = onset2;
- if (ap->a_type == A_SYMBOL)
- outlet_anything(x->outlet, ap->a_symbol, onset2-onset-1, ap+1);
- else outlet_list(x->outlet, 0, onset2-onset, ap);
+ if (ap->a_type == A_SYMBOL) x->outlet->send(ap->a_symbol,onset2-onset-1,ap+1);
+ else x->outlet->send( onset2-onset ,ap );
} else {
x->onset = 0x7fffffff;
x->out(1)->send();
@@ -684,27 +683,27 @@ static void list_append_list(t_list_append *x, t_symbol *s, int argc, t_atom *ar
t_atom *outv; int outc = x->alist->n + argc; ATOMS_ALLOCA(outv, outc);
atoms_copy(argc, argv, outv);
alist_toatoms(x->alist, outv+argc);
- outlet_list(x->outlet, &s_list, outc, outv); ATOMS_FREEA(outv, outc);
+ x->outlet->send(outc,outv); ATOMS_FREEA(outv,outc);
}
static void list_append_anything(t_list_append *x, t_symbol *s, int argc, t_atom *argv) {
t_atom *outv; int outc = x->alist->n+argc+1; ATOMS_ALLOCA(outv, outc);
SETSYMBOL(outv, s);
atoms_copy(argc, argv, outv + 1);
alist_toatoms(x->alist, outv + 1 + argc);
- outlet_list(x->outlet, &s_list, outc, outv); ATOMS_FREEA(outv, outc);
+ x->outlet->send(outc,outv); ATOMS_FREEA(outv,outc);
}
static void list_prepend_list(t_list_prepend *x, t_symbol *s, int argc, t_atom *argv) {
t_atom *outv; int outc = x->alist->n + argc; ATOMS_ALLOCA(outv, outc);
alist_toatoms(x->alist, outv);
atoms_copy(argc, argv, outv + x->alist->n);
- outlet_list(x->outlet, &s_list, outc, outv); ATOMS_FREEA(outv, outc);
+ x->outlet->send(outc,outv); ATOMS_FREEA(outv,outc);
}
static void list_prepend_anything(t_list_prepend *x, t_symbol *s, int argc, t_atom *argv) {
t_atom *outv; int outc = x->alist->n+argc+1; ATOMS_ALLOCA(outv, outc);
alist_toatoms(x->alist, outv);
SETSYMBOL(outv + x->alist->n, s);
atoms_copy(argc, argv, outv + x->alist->n + 1);
- outlet_list(x->outlet, &s_list, outc, outv); ATOMS_FREEA(outv, outc);
+ x->outlet->send(outc,outv); ATOMS_FREEA(outv,outc);
}
static t_pd *list_split_new(t_floatarg f) {
t_list_split *x = (t_list_split *)pd_new(list_split_class);
@@ -717,11 +716,11 @@ static t_pd *list_split_new(t_floatarg f) {
}
static void list_split_list(t_list_split *x, t_symbol *s, int argc, t_atom *argv) {
int n = (int)x->f;
- if (n < 0) n = 0;
+ if (n<0) n=0;
if (argc >= n) {
- outlet_list(x->out(1), &s_list, argc-n, argv+n);
- outlet_list(x->out(0), &s_list, n, argv);
- } else outlet_list(x->out(2), &s_list, argc, argv);
+ x->out(1)->send(argc-n,argv+n);
+ x->out(0)->send(n,argv);
+ } else x->out(2)->send(argc,argv);
}
static void list_split_anything(t_list_split *x, t_symbol *s, int argc, t_atom *argv) {
t_atom *outv;
@@ -738,12 +737,10 @@ static t_pd *list_trim_new() {
return x;
}
static void list_trim_list(t_list_trim *x, t_symbol *s, int argc, t_atom *argv) {
- if (argc < 1 || argv[0].a_type != A_SYMBOL) outlet_list(x->outlet, &s_list, argc, argv);
- else outlet_anything(x->outlet, argv[0].a_symbol, argc-1, argv+1);
-}
-static void list_trim_anything(t_list_trim *x, t_symbol *s, int argc, t_atom *argv) {
- outlet_anything(x->outlet, s, argc, argv);
+ if (argc < 1 || argv[0].a_type != A_SYMBOL) x->outlet->send(argc,argv);
+ else x->outlet->send(argv[0].a_symbol,argc-1,argv+1);
}
+static void list_trim_anything(t_list_trim *x, t_symbol *s, int argc, t_atom *argv) {x->outlet->send(s,argc,argv);}
static t_pd *list_length_new() {
t_list_length *x = (t_list_length *)pd_new(list_length_class);
@@ -1024,10 +1021,7 @@ static void *clipboard_new(t_symbol *s) {
}
static void clipboard_bang(t_clipboard *x) {sys_mgui(x->dix->canvas, "get_clipboard", "p", x);}
-
-static void clipboard_reply (t_clipboard *x, t_symbol *s, int argc, t_atom *argv) {
- outlet_list(x->dump, &s_list, argc, argv);
-}
+static void clipboard_reply (t_clipboard *x, t_symbol *s, int argc, t_atom *argv) {x->dump->send(argc,argv);}
static void clipboard_setup() {
t_class *c = clipboard_class = class_new2("clipboard",clipboard_new,0,sizeof(t_clipboard),0,"S");
@@ -1082,10 +1076,10 @@ static void *any_new(t_symbol *s,int argc, t_atom *argv) {
static void any_anything(t_any *x, t_symbol *s, int argc, t_atom *argv) {
t_atom *outv; int outc = x->alist->n+argc+1; ATOMS_ALLOCA(outv, outc);
if ((argv[0].a_type == A_FLOAT && s==&s_list) || s==&s_float) {
- alist_list(x->alist, 0, argc, argv); outlet_anything(x->outlet, &s_list, argc, argv);return;
+ alist_list(x->alist,0,argc,argv); x->outlet->send(argc,argv); return;
}
if ( argv[0].a_type == A_SYMBOL || s!=&s_list || s!=&s_float) {
- alist_anything(x->alist, s, argc, argv); outlet_anything(x->outlet, s, argc, argv);
+ alist_anything(x->alist,s,argc,argv); x->outlet->send(s,argc,argv);
}
}
@@ -1094,8 +1088,8 @@ static void any_bang(t_any *x) {
ATOMS_ALLOCA(outv, outc);
alist_toatoms(x->alist, outv);
if (!binbuf_getnatom(x->alist)) {x->outlet->send();return;}
- if (outv[0].a_type == A_FLOAT) {outlet_anything(x->outlet, &s_list, outc, outv);}
- if (outv[0].a_type == A_SYMBOL) {outlet_anything(x->outlet, outv[0].a_symbol, outc-1, outv+1);}
+ if (outv[0].a_type == A_FLOAT) {x->outlet->send(outc,outv);}
+ if (outv[0].a_type == A_SYMBOL) {x->outlet->send(outv[0].a_symbol,outc-1,outv+1);}
ATOMS_FREEA(outv, outc);
}
@@ -1453,15 +1447,15 @@ static void route_anything(t_route *x, t_symbol *sel, int argc, t_atom *argv) {
t_routeelement *e = x->vec;
post("1: sel=%s",sel->name);
for (int n = x->n; n--; e++) if (e->a.a_type == A_SYMBOL) if (e->a.a_symbol == sel) {
- if (argc > 0 && argv[0].a_type == A_SYMBOL) outlet_anything(e->out, argv[0].a_symbol, argc-1, argv+1);
+ if (argc > 0 && argv[0].a_type == A_SYMBOL) e->out->send(argv[0].a_symbol,argc-1,argv+1);
else { /* tb {: avoid 1 element lists */
- if (argc > 1) outlet_list(e->out, 0, argc, argv);
+ if (argc > 1) e->out->send(argc,argv);
else if (argc == 0) e->out->send();
else e->out->send(&argv[0]);
} /* tb } */
return;
}
- outlet_anything(x->rejectout, sel, argc, argv);
+ x->rejectout->send(sel,argc,argv);
}
#define route_eachr(E,L) for (t_routeelement *E = L->vec;E;E=0) for (int ROUTEN = x->n; ROUTEN--; E++)
@@ -1469,13 +1463,10 @@ static void route_list(t_route *x, t_symbol *sel, int argc, t_atom *argv) {
if (argc && argv->a_type == A_FLOAT) {
float f = atom_getfloat(argv);
route_eachr(e,x) if (e->a.a_type == A_FLOAT && e->a.a_float == f) {
- if (argc > 1 && argv[1].a_type == A_SYMBOL)
- outlet_anything(e->out, argv[1].a_symbol, argc-2, argv+2);
+ if (argc > 1 && argv[1].a_type == A_SYMBOL) e->out->send(argv[1].a_symbol,argc-2,argv+2);
else {
argc--; argv++;
- if (argc > 1) outlet_list(e->out, 0, argc, argv);
- else if (argc == 0) e->out->send();
- else e->out->send(&argv[0]);
+ if (argc>1) e->out->send(argc,argv); else if (argc==0) e->out->send(); else e->out->send(&argv[0]);
}
return;
} else if (e->a.a_type == A_SYMBOL && e->a.a_symbol == &s_float) {
@@ -1485,8 +1476,8 @@ static void route_list(t_route *x, t_symbol *sel, int argc, t_atom *argv) {
} else { /* symbol arguments */
if (argc > 1) { /* 2 or more args: treat as "list" */
route_eachr(e,x) if (e->a.a_type == A_SYMBOL && e->a.a_symbol == &s_list) {
- if (argv[0].a_type==A_SYMBOL) outlet_anything(e->out, argv[0].a_symbol, argc-1, argv+1);
- else outlet_list(e->out, 0, argc, argv);
+ if (argv[0].a_type==A_SYMBOL) e->out->send(argv[0].a_symbol,argc-1,argv+1);
+ else e->out->send(argc,argv);
return;
}
} else if (argc==0) {route_eachr(e,x) {if (e->a.a_symbol==&s_bang ) {e->out->send( ); return;}}
@@ -1495,7 +1486,7 @@ static void route_list(t_route *x, t_symbol *sel, int argc, t_atom *argv) {
} else if (argv[0].a_type==A_POINTER){route_eachr(e,x) {if (e->a.a_symbol==&s_pointer) {e->out->send(&argv[0]); return;}}
}
}
- if (!argc) x->rejectout->send(); else outlet_list(x->rejectout, 0, argc, argv);
+ if (!argc) x->rejectout->send(); else x->rejectout->send(argc,argv);
}
static void route_free(t_route *x) {free(x->vec);}
@@ -1570,7 +1561,7 @@ static void pack_bang(t_pack *x) {
x->outvec = 0;
}
memcpy(outvec, x->vec, size);
- outlet_list(x->outlet, &s_list, x->n, outvec);
+ x->outlet->send(x->n,outvec);
if (reentered) free(outvec); else x->outvec = outvec;
}
@@ -2884,7 +2875,7 @@ void unpost_anything (t_unpost *x, t_symbol *s, int argc, t_atom *argv) {
sys_printhook = unpost_printhook;
current_unpost = new t_unpost_frame;
current_unpost->self = x;
- outlet_anything(x->o0,s,argc,argv);
+ x->o0->send(s,argc,argv);
sys_printhook = backup1;
current_unpost = backup2;
}
@@ -2915,7 +2906,7 @@ void *parse_new (t_symbol *s) {
void parse_symbol (t_unpost *x, t_symbol *s) {
t_binbuf *b = binbuf_new();
binbuf_text(b,s->name,s->n);
- outlet_anything(x->outlet,&s_list,b->n,b->v);
+ x->outlet->send(&s_list,b->n,b->v);
binbuf_free(b);
}
@@ -2932,7 +2923,7 @@ void tracecall_anything (t_tracecall *x, t_symbol *dummy, int dum, t_atom *my) {
SETSYMBOL( &a[0],pd_stack[i].self->_class->name);
SETSYMBOL( &a[1],pd_stack[i].s);
//SETPOINTER(&a[2],pd_stack[i].self);
- outlet_list(x->outlet,&s_list,2,a);
+ x->outlet->send(2,a);
}
}
diff --git a/desiredata/src/builtins_dsp.c b/desiredata/src/builtins_dsp.c
index 0b767de2..fc4b9a1a 100644
--- a/desiredata/src/builtins_dsp.c
+++ b/desiredata/src/builtins_dsp.c
@@ -389,7 +389,7 @@ static void tabplay_tilde_list(t_tabplay_tilde *x, t_symbol *s, int argc, t_atom
x->phase = start;
}
static void tabplay_tilde_stop(t_tabplay_tilde *x) {x->phase = 0x7fffffff;}
-static void tabplay_tilde_tick(t_tabplay_tilde *x) {outlet_bang(x->out(1));}
+static void tabplay_tilde_tick(t_tabplay_tilde *x) {x->out(1)->send();}
static void tabplay_tilde_free(t_tabplay_tilde *x) {clock_free(x->clock);}
/******************** tabread~ ***********************/
@@ -769,7 +769,7 @@ static void tabread_float(t_tabread *x, t_float f) {
if (!a) {error("%s: no such array", x->arrayname->name); return;}
if (!garray_getfloatarray(a, &npoints, &vec)) {error("%s: bad template for tabread", x->arrayname->name); return;}
int n = clip(int(f),0,npoints-1);
- outlet_float(x->outlet, (npoints ? vec[n] : 0));
+ x->outlet->send(npoints ? vec[n] : 0);
}
static void tabread_set(t_tabread *x, t_symbol *s) {
x->arrayname = s;
@@ -797,15 +797,15 @@ static void tabread4_float(t_tabread4 *x, t_float f) {
t_float *vec;
if (!ar) {error("%s: no such array", x->arrayname->name); return;}
if (!garray_getfloatarray(ar, &npoints, &vec)) {error("%s: bad template for tabread4", x->arrayname->name); return;}
- if (npoints < 4) {outlet_float(x->outlet, 0); return;}
- if (f <= 1) {outlet_float(x->outlet, vec[1]); return;}
- if (f >= npoints-2) {outlet_float(x->outlet, vec[npoints-2]); return;}
+ if (npoints < 4) {x->outlet->send(0.); return;}
+ if (f <= 1) {x->outlet->send(vec[1]); return;}
+ if (f >= npoints-2) {x->outlet->send(vec[npoints-2]); return;}
int n = min(int(f),npoints-3);
float *fp = vec + n;
float frac = f - n;
float a=fp[-1], b=fp[0], c=fp[1], d=fp[2];
float cminusb = c-b;
- outlet_float(x->outlet, b + frac * (cminusb - 0.1666667f * (1.-frac) * ((d - a - 3.0f * cminusb) * frac + (d + 2.0f*a - 3.0f*b))));
+ x->outlet->send (b + frac * (cminusb - 0.1666667f * (1.-frac) * ((d - a - 3.0f * cminusb) * frac + (d + 2.0f*a - 3.0f*b))));
}
static void tabread4_set(t_tabread4 *x, t_symbol *s) {x->arrayname = s;}
static void *tabread4_new(t_symbol *s) {
@@ -1214,12 +1214,8 @@ static t_int *snapshot_tilde_perform(t_int *w) {
static void snapshot_tilde_dsp(t_snapshot *x, t_signal **sp) {
dsp_add(snapshot_tilde_perform, 2, sp[0]->v + (sp[0]->n-1), &x->value);
}
-static void snapshot_tilde_bang(t_snapshot *x) {
- outlet_float(x->outlet, x->value);
-}
-static void snapshot_tilde_set(t_snapshot *x, t_floatarg f) {
- x->value = f;
-}
+static void snapshot_tilde_bang(t_snapshot *x) {x->outlet->send(x->value);}
+static void snapshot_tilde_set(t_snapshot *x, t_floatarg f) {x->value = f;}
static void snapshot_tilde_setup() {
snapshot_tilde_class = class_new2("snapshot~",snapshot_tilde_new,0,sizeof(t_snapshot),0,"");
CLASS_MAINSIGNALIN(snapshot_tilde_class, t_snapshot, a);
@@ -1273,7 +1269,7 @@ static void vsnapshot_tilde_bang(t_vsnapshot *x) {
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);
+ x->outlet->send(val);
}
static void vsnapshot_tilde_ff(t_vsnapshot *x) {
if (x->vec) free(x->vec);
@@ -1418,9 +1414,7 @@ static void env_tilde_dsp(t_sigenv *x, t_signal **sp) {
else dsp_add(env_tilde_perf8, 3, x, sp[0]->v, sp[0]->n);
if (sp[0]->n > MAXVSTAKEN) bug("env_tilde_dsp");
}
-static void env_tilde_tick(t_sigenv *x) {
- outlet_float(x->outlet, powtodb(x->result));
-}
+static void env_tilde_tick(t_sigenv *x) {x->outlet->send(powtodb(x->result));}
static void env_tilde_ff(t_sigenv *x) {
clock_free(x->clock);
freealignedbytes(x->buf, (x->npoints + MAXVSTAKEN) * sizeof(float));
@@ -1473,9 +1467,7 @@ static void threshold_tilde_ft1(t_threshold_tilde *x, t_floatarg f) {
x->state = (f != 0);
x->deadwait = 0;
}
-static void threshold_tilde_tick(t_threshold_tilde *x) {
- outlet_bang(x->out(x->state?0:1));
-}
+static void threshold_tilde_tick(t_threshold_tilde *x) {x->out(!x->state)->send();}
static t_int *threshold_tilde_perform(t_int *w) {
PERFORM3ARGS(float *,in1, t_threshold_tilde *,x, int,n);
if (x->deadwait > 0)
@@ -3256,7 +3248,7 @@ static t_int *bang_tilde_perform(t_int *w) {
return w+2;
}
static void bang_tilde_dsp(t_bang *x, t_signal **sp) {dsp_add(bang_tilde_perform, 1, x);}
-static void bang_tilde_tick(t_bang *x) {outlet_bang(x->outlet);}
+static void bang_tilde_tick(t_bang *x) {x->outlet->send();}
static void bang_tilde_free(t_bang *x) {clock_free(x->clock);}
static void *bang_tilde_new(t_symbol *s) {
t_bang *x = (t_bang *)pd_new(bang_tilde_class);
generated by cgit v1.2.1 (git 2.18.0) at 2024-12-27 08:42:34 +0000