From 17ec1deb74e2e934dc11fb4d9a2f8c6cef34c5a7 Mon Sep 17 00:00:00 2001
From: Hans-Christoph Steiner <eighthave@users.sourceforge.net>
Date: Mon, 9 Jul 2007 20:45:58 +0000
Subject: This commit was generated by cvs2svn to compensate for changes in
 r7949, which included commits to RCS files with non-trunk default branches.

svn path=/trunk/externals/moonlib/; revision=7950
---
 dinlet~.c | 136 ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
 1 file changed, 136 insertions(+)
 create mode 100644 dinlet~.c

(limited to 'dinlet~.c')

diff --git a/dinlet~.c b/dinlet~.c
new file mode 100644
index 0000000..dc7f260
--- /dev/null
+++ b/dinlet~.c
@@ -0,0 +1,136 @@
+/*
+Copyright (C) 2002 Antoine Rousseau 
+
+This library is free software; you can redistribute it and/or
+modify it under the terms of the GNU Lesser General Public
+License as published by the Free Software Foundation; either
+version 2.1 of the License, or (at your option) any later version.
+
+This library is distributed in the hope that it will be useful,
+but WITHOUT ANY WARRANTY; without even the implied warranty of
+MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
+Lesser General Public License for more details.
+
+You should have received a copy of the GNU Lesser General Public
+License along with this library; if not, write to the Free Software
+Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA  02111-1307  USA  
+
+*/
+
+/* this file is made from parts of m_object.c and g_io.c
+* 	it defines a signal inlet named dinlet~ which is the same as inlet~
+*  exepts you can give a default float value for the case none signal 
+*  is connected to this inlet~. */
+
+/***********************************************************************/
+/* CAUTION : 
+		You MUST fix a bug pd sources and recompile them in order to have 
+	dinlet~ working !!
+
+	this function must be fixed in pd/m_obj.c:								  */
+#if 0
+t_sample *obj_findsignalscalar(t_object *x, int m)
+{
+    int n = 0,mbak=m;
+    t_inlet *i;
+	 post("my obj_findsignalscalar");
+    if (x->ob_pd->c_firstin && x->ob_pd->c_floatsignalin)
+    {
+    	if (!m--)
+	    return (x->ob_pd->c_floatsignalin > 0 ?
+	    	(t_sample *)(((char *)x) + x->ob_pd->c_floatsignalin) : 0);
+    	n++;
+    }
+    for (i = x->ob_inlet; i; i = i->i_next, m--)
+    	if (i->i_symfrom == &s_signal)
+    {
+    	/*if (m == 0)*/
+		if(n==mbak)
+	    return (&i->i_un.iu_floatsignalvalue);
+    	n++;
+    }
+    return (0);
+}
+#endif
+/***********************************************************************/
+
+#include "m_pd.h"
+#include "m_imp.h"
+#include "g_canvas.h"
+#include <string.h>
+
+/******************** from m_obj.c: **************************/
+/* only because inlet_float() is not public... */
+union inletunion
+{
+    t_symbol *iu_symto;
+    t_gpointer *iu_pointerslot;
+    t_float *iu_floatslot;
+    t_symbol **iu_symslot;
+    t_sample iu_floatsignalvalue;
+};
+
+struct _inlet
+{
+    t_pd i_pd;
+    struct _inlet *i_next;
+    t_object *i_owner;
+    t_pd *i_dest;
+    t_symbol *i_symfrom;
+    union inletunion i_un;
+};
+
+#define i_symto i_un.iu_symto
+
+static void dinlet_float(t_inlet *x, t_float f)
+{
+    if (x->i_symfrom == &s_float)
+    	pd_vmess(x->i_dest, x->i_symto, "f", (t_floatarg)f);
+    else if (x->i_symfrom == &s_signal)
+    	x->i_un.iu_floatsignalvalue = f;
+    else if (!x->i_symfrom)
+    	pd_float(x->i_dest, f);
+    /*else inlet_wrong(x, &s_float);*/
+}
+/**************** from g_io.c : *********************************/
+
+void signal_setborrowed(t_signal *sig, t_signal *sig2);
+void signal_makereusable(t_signal *sig);
+
+/* ------------------------- vinlet -------------------------- */
+t_class *vinlet_class;
+
+typedef struct _vinlet
+{
+    t_object x_obj;
+    t_canvas *x_canvas;
+    t_inlet *x_inlet;
+    int x_bufsize;
+    t_float *x_buf; 	    /* signal buffer; zero if not a signal */
+    t_float *x_endbuf;
+    t_float *x_fill;
+    t_float *x_read;
+    int x_hop;
+    	/* if not reblocking, the next slot communicates the parent's inlet
+	signal from the prolog to the DSP routine: */
+    t_signal *x_directsignal;
+} t_vinlet;
+
+
+static void *dinlet_newsig(t_floatarg f)
+{
+    t_vinlet *x = (t_vinlet *)pd_new(vinlet_class);
+    x->x_canvas = canvas_getcurrent();
+    x->x_inlet = canvas_addinlet(x->x_canvas, &x->x_obj.ob_pd, &s_signal,0);
+    x->x_endbuf = x->x_buf = (t_float *)getbytes(0);
+    x->x_bufsize = 0;
+    x->x_directsignal = 0;
+	 x->x_inlet->i_un.iu_floatsignalvalue=f;
+    outlet_new(&x->x_obj, &s_signal);
+    return (x);
+}
+
+void dinlet_tilde_setup(void)
+{
+    class_addcreator((t_newmethod)dinlet_newsig, gensym("dinlet~"), A_DEFFLOAT,0);
+}
-- 
cgit v1.2.1