/* this routine is called when a new "object" is requested whose class Pd
doesn't know. Pd tries to load it as an extern, then as an abstraction. */
void new_anything(void *dummy, t_symbol *s, int argc, t_atom *argv)
{
int fd;
char dirbuf[MAXPDSTRING], classslashclass[MAXPDSTRING], *nameptr;
if (tryingalready>MAXOBJDEPTH){
error("maximum object loading depth %d reached", MAXOBJDEPTH);
return;
}
if (s == &s_anything){
error("object name \"%s\" not allowed", s->s_name);
return;
}
pd_this->pd_newest = 0;
class_loadsym = s;
pd_globallock();
if (sys_load_lib(canvas_getcurrent(), s->s_name))
{
tryingalready++;
typedmess(dummy, s, argc, argv);
tryingalready--;
return;
}
class_loadsym = 0;
pd_globalunlock();
}
EXTERN t_pdinstance *pdinstance_new(void)
{
t_pdinstance *x = (t_pdinstance *)getbytes(sizeof(t_pdinstance));
t_class *c;
int i;
pd_this = x;
s_inter_newpdinstance();
pdinstance_init(x);
sys_lock();
pd_globallock();
pd_instances = (t_pdinstance **)resizebytes(pd_instances,
pd_ninstances * sizeof(*pd_instances),
(pd_ninstances+1) * sizeof(*pd_instances));
pd_instances[pd_ninstances] = x;
for (c = class_list; c; c = c->c_next)
{
c->c_methods = (t_methodentry **)t_resizebytes(c->c_methods,
pd_ninstances * sizeof(*c->c_methods),
(pd_ninstances + 1) * sizeof(*c->c_methods));
c->c_methods[pd_ninstances] = t_getbytes(0);
for (i = 0; i < c->c_nmethod; i++)
class_addmethodtolist(c, &c->c_methods[pd_ninstances], i,
c->c_methods[0][i].me_fun,
dogensym(c->c_methods[0][i].me_name->s_name, 0, x),
c->c_methods[0][i].me_arg, x);
}
pd_ninstances++;
pdinstance_renumber();
pd_bind(&glob_pdobject, gensym("pd"));
text_template_init();
garray_init();
pd_globalunlock();
sys_unlock();
return (x);
}
void *libpd_openfile(const char *basename, const char *dirname) {
void * retval;
sys_lock();
pd_globallock();
retval = (void *)glob_evalfile(NULL, gensym(basename), gensym(dirname));
pd_globalunlock();
sys_unlock();
return retval;
}
void mess_init(void)
{
if (pd_objectmaker)
return;
#ifdef PDINSTANCE
pd_this = &pd_maininstance;
#endif
s_inter_newpdinstance();
sys_lock();
pd_globallock();
pdinstance_init(&pd_maininstance);
class_extern_dir = &s_;
pd_objectmaker = class_new(gensym("objectmaker"), 0, 0, sizeof(t_pd),
CLASS_DEFAULT, A_NULL);
pd_canvasmaker = class_new(gensym("canvasmaker"), 0, 0, sizeof(t_pd),
CLASS_DEFAULT, A_NULL);
class_addanything(pd_objectmaker, (t_method)new_anything);
pd_globalunlock();
sys_unlock();
}
EXTERN void pdinstance_free(t_pdinstance *x)
{
t_symbol *s;
t_canvas *canvas;
int i, instanceno = x->pd_instanceno;
t_class *c;
pd_setinstance(x);
sys_lock();
pd_globallock();
canvas_suspend_dsp();
while (x->pd_canvaslist)
pd_free((t_pd *)x->pd_canvaslist);
for (c = class_list; c; c = c->c_next)
{
c->c_methods = (t_methodentry **)t_resizebytes(c->c_methods,
pd_ninstances * sizeof(*c->c_methods),
(pd_ninstances + 1) * sizeof(*c->c_methods));
c->c_methods[pd_ninstances] = t_getbytes(0);
for (i = 0; i < c->c_nmethod; i++)
class_addmethodtolist(c, &c->c_methods[pd_ninstances], i,
c->c_methods[0][i].me_fun,
dogensym(c->c_methods[0][i].me_name->s_name, 0, x),
c->c_methods[0][i].me_arg, x);
}
for (i =0; i < SYMTABHASHSIZE; i++)
{
while ((s = x->pd_symhash[i]))
{
x->pd_symhash[i] = s->s_next;
if(s != &x->pd_s_pointer &&
s != &x->pd_s_float &&
s != &x->pd_s_symbol &&
s != &x->pd_s_bang &&
s != &x->pd_s_list &&
s != &x->pd_s_anything &&
s != &x->pd_s_signal &&
s != &x->pd_s__N &&
s != &x->pd_s__X &&
s != &x->pd_s_x &&
s != &x->pd_s_y &&
s != &x->pd_s_)
freebytes(s, sizeof(*s));
}
}
freebytes(x->pd_symhash, SYMTABHASHSIZE * sizeof (*x->pd_symhash));
x_midi_freepdinstance();
g_canvas_freepdinstance();
d_ugen_freepdinstance();
s_stuff_freepdinstance();
s_inter_freepdinstance();
for (i = instanceno; i < pd_ninstances-1; i++)
pd_instances[i] = pd_instances[i+1];
pd_instances = (t_pdinstance **)resizebytes(pd_instances,
pd_ninstances * sizeof(*pd_instances),
(pd_ninstances-1) * sizeof(*pd_instances));
pd_ninstances--;
pdinstance_renumber();
pd_globalunlock();
sys_unlock();
pd_setinstance(&pd_maininstance);
}
