From 9c0e19a3be2288db79e2502e5fa450c3e20a668d Mon Sep 17 00:00:00 2001
From: Guenter  Geiger <ggeiger@users.sourceforge.net>
Date: Fri, 9 May 2003 16:04:00 +0000
Subject: This commit was generated by cvs2svn to compensate for changes in
 r610, which included commits to RCS files with non-trunk default branches.

svn path=/trunk/; revision=611
---
 pd/src/m_obj.c | 15 +++++++++++++++
 1 file changed, 15 insertions(+)

(limited to 'pd/src/m_obj.c')

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;
-- 
cgit v1.2.1