set_expr *set_expr_copy(set_expr *expr) {
list *expr_head = copy(expr->expr_head);
return SET_EXPR(expr_head);
}
/* CHANGE this will have to be taken care of */
default:
post("expr: bang: unrecognized result %ld\n", x->exp_res[i].ex_type);
}
}
}
static t_expr *
#ifdef PD
expr_new(t_symbol *s, int ac, t_atom *av)
#else /* MSP */
Nexpr_new(t_symbol *s, int ac, t_atom *av)
#endif
{
struct expr *x;
int i, ninlet;
struct ex_ex *eptr;
t_atom fakearg;
int dsp_index; /* keeping track of the dsp inlets */
/*
* SDY - we may need to call dsp_setup() in this function
*/
if (!ac)
{
ac = 1;
av = &fakearg;
SETFLOAT(&fakearg, 0);
}
#ifdef PD
/*
* figure out if we are expr, expr~, or fexpr~
*/
if (!strcmp("expr", s->s_name)) {
x = (t_expr *)pd_new(expr_class);
SET_EXPR(x);
} else if (!strcmp("expr~", s->s_name)) {
x = (t_expr *)pd_new(expr_tilde_class);
SET_EXPR_TILDE(x);
} else if (!strcmp("fexpr~", s->s_name)) {
x = (t_expr *)pd_new(fexpr_tilde_class);
SET_FEXPR_TILDE(x);
} else {
post("expr_new: bad object name '%s'", s->s_name);
/* assume expr */
x = (t_expr *)pd_new(expr_class);
SET_EXPR(x);
}
#else /* MSP */
/* for now assume an expr~ */
x = (t_expr *)pd_new(expr_tilde_class);
SET_EXPR_TILDE(x);
#endif
/*
* initialize the newly allocated object
*/
x->exp_proxy = 0;
x->exp_nivec = 0;
x->exp_nexpr = 0;
x->exp_error = 0;
for (i = 0; i < MAX_VARS; i++) {
x->exp_stack[i] = (struct ex_ex *)0;
x->exp_outlet[i] = (t_outlet *)0;
x->exp_res[i].ex_type = 0;
x->exp_res[i].ex_int = 0;
x->exp_p_res[i] = (t_float *)0;
x->exp_var[i].ex_type = 0;
x->exp_var[i].ex_int = 0;
x->exp_p_var[i] = (t_float *)0;
x->exp_tmpres[i] = (t_float *)0;
x->exp_vsize = 0;
}
x->exp_f = 0; /* save the control value to be transformed to signal */
if (expr_donew(x, ac, av))
{
pd_error(x, "expr: syntax error");
/*
SDY the following coredumps why?
pd_free(&x->exp_ob.ob_pd);
*/
return (0);
}
ninlet = 1;
for (i = 0, eptr = x->exp_var; i < MAX_VARS ; i++, eptr++)
if (eptr->ex_type) {
ninlet = i + 1;
}
/*
* create the new inlets
*/
for (i = 1, eptr = x->exp_var + 1, dsp_index=1; i<ninlet ; i++, eptr++)
{
t_exprproxy *p;
switch (eptr->ex_type)
{
case 0:
/* nothing is using this inlet */
if (i < ninlet)
#ifdef PD
floatinlet_new(&x->exp_ob, &eptr->ex_flt);
#else /* MSP */
inlet_new(&x->exp_ob, "float");
#endif
break;
case ET_II:
case ET_FI:
p = exprproxy_new(x, i);
#ifdef PD
inlet_new(&x->exp_ob, &p->p_pd, &s_float, &s_float);
#else /* MSP */
inlet_new(&x->exp_ob, "float");
#endif
break;
case ET_SI:
#ifdef PD
symbolinlet_new(&x->exp_ob, (t_symbol **)&eptr->ex_ptr);
#else /* MSP */
inlet_new(&x->exp_ob, "symbol");
#endif
break;
case ET_XI:
case ET_VI:
if (!IS_EXPR(x)) {
dsp_index++;
#ifdef PD
inlet_new(&x->exp_ob, &x->exp_ob.ob_pd,
&s_signal, &s_signal);
#else /* MSP */
inlet_new(&x->exp_ob, "signal");
#endif
break;
} else
post("expr: internal error expr_new");
default:
pd_error(x, "expr: bad type (%lx) inlet = %d\n",
eptr->ex_type, i + 1);
break;
}
}
if (IS_EXPR(x)) {
for (i = 0; i < x->exp_nexpr; i++)
x->exp_outlet[i] = outlet_new(&x->exp_ob, 0);
} else {
for (i = 0; i < x->exp_nexpr; i++)
x->exp_outlet[i] = outlet_new(&x->exp_ob,
gensym("signal"));
x->exp_nivec = dsp_index;
}
/*
* for now assume a 64 sample size block but this may change once
* expr_dsp is called
*/
x->exp_vsize = 64;
for (i = 0; i < x->exp_nexpr; i++) {
x->exp_p_res[i] = fts_calloc(x->exp_vsize, sizeof (t_float));
x->exp_tmpres[i] = fts_calloc(x->exp_vsize, sizeof (t_float));
}
for (i = 0; i < MAX_VARS; i++)
x->exp_p_var[i] = fts_calloc(x->exp_vsize, sizeof (t_float));
return (x);
}
