diff options
Diffstat (limited to 'pd/src/m_obj.c')
-rw-r--r-- | pd/src/m_obj.c | 15 |
1 files changed, 15 insertions, 0 deletions
diff --git a/pd/src/m_obj.c b/pd/src/m_obj.c index 6e3e1c19..e1f0f54a 100644 --- a/pd/src/m_obj.c +++ b/pd/src/m_obj.c @@ -6,6 +6,7 @@ can interconnect via inlets and outlets; also, the (terse) generic behavior for "gobjs" appears at the end of this file. */ +#include "m_pd.h" #include "m_imp.h" union inletunion @@ -609,6 +610,20 @@ int obj_siginletindex(t_object *x, int m) return (-1); } +int obj_issignalinlet(t_object *x, int m) +{ + t_inlet *i; + if (x->ob_pd->c_firstin) + { + if (!m) + return (x->ob_pd->c_firstin && x->ob_pd->c_floatsignalin); + else m--; + } + for (i = x->ob_inlet; i && m; i = i->i_next, m--) + ; + return (i && (i->i_symfrom == &s_signal)); +} + int obj_nsigoutlets(t_object *x) { int n; |