delouding magic
#include <string.h>
#include "m_pd.h"
#include "unstable/magic.h"
-// #include "common/loud.h"
#include "unstable/pd_imp.h"
/* this one rather belongs to fringe.c... */
@@ -142,54 +141,6 @@ t_outconnect *magic_outlet_nextconnection(t_outconnect *last,
return (obj_nexttraverseoutlet(last, destp, &dummy, innop));
}
-/* silent, if caller is empty */
-t_object *magic_outlet_destination(t_outlet *op,
- int ntypes, t_symbol **types,
- t_pd *caller, char *errand)
-{
- t_object *booty = 0;
- t_symbol *badtype = 0;
- int count = 0;
- t_outconnect *tobooty = magic_outlet_connections(op);
- while (tobooty)
- {
- t_object *ob;
- int inno;
- count++;
- tobooty = magic_outlet_nextconnection(tobooty, &ob, &inno);
- if (ob && inno == 0)
- {
- /* LATER ask for class_getname()'s symbol version */
- t_symbol **tp, *dsttype = gensym(class_getname(*(t_pd *)ob));
- int i;
- for (i = 0, tp = types; i < ntypes; i++, tp++)
- {
- if (*tp == dsttype)
- {
- booty = ob;
- break;
- }
- else badtype = dsttype;
- }
- }
- }
- if (booty)
-/* {
- if (count > 1 && caller)
- loud_warning(caller, 0, "multiple targets");
- }
- else if (caller)
- {
- if (badtype)
- loud_error(caller, "bad target type '%s'", badtype->s_name);
- else
- loud_error(caller, "no target");
- if (errand)
- loud_errand(caller, errand);
- } */
- return (booty);
-}
-
/* These are local to m_obj.c. */
union inletunion
{
