1 files changed, 56 insertions, 0 deletions
diff --git a/shared/unstable/forky.c b/shared/unstable/forky.c
new file mode 100644
index 0000000..7fb6b08
--- /dev/null
+++ b/shared/unstable/forky.c
@@ -0,0 +1,56 @@
+/* Copyright (c) 2003 krzYszcz and others.
+ * For information on usage and redistribution, and for a DISCLAIMER OF ALL
+ * WARRANTIES, see the file, "LICENSE.txt," in this distribution.  */
+
+#include "m_pd.h"
+#include "g_canvas.h"
+#include "shared.h"
+#include "unstable/forky.h"
+
+//#define FORKY_DEBUG
+
+/* To be called in a 'dsp' method -- e.g. if there are no feeders, the caller
+   might use an optimized version of a 'perform' routine.
+   LATER think about replacing 'linetraverser' calls with something faster. */
+int forky_hasfeeders(t_object *x, t_glist *glist, int inno, t_symbol *outsym)
+{
+    t_linetraverser t;
+    linetraverser_start(&t, glist);
+    while (linetraverser_next(&t))
+	if (t.tr_ob2 == x && t.tr_inno == inno
+#ifdef PD_VERSION  /* FIXME ask Miller */
+	    && (!outsym || outsym == outlet_getsymbol(t.tr_outlet))
+#endif
+	    )
+	    return (1);
+    return (0);
+}
+
+/* Not really a forky, just found no better place to put it in.
+   Used in bitwise signal binops (sickle).  Checked against msp2. */
+t_int forky_getbitmask(int ac, t_atom *av)
+{
+    t_int result = 0;
+    if (sizeof(shared_t_bitmask) >= sizeof(t_int))
+    {
+	int nbits = sizeof(t_int) * 8;
+	shared_t_bitmask bitmask = 1 << (nbits - 1);
+	if (ac > nbits)
+	    ac = nbits;
+	while (ac--)
+	{
+	    if (av->a_type == A_FLOAT &&
+		(int)av->a_w.w_float)  /* CHECKED */
+		result |= bitmask;
+	    /* CHECKED symbols are zero */
+	    bitmask >>= 1;
+	    av++;
+	}
+	/* CHECKED missing are zero */
+#ifdef FORKY_DEBUG
+	post("mask set to %.8x", result);
+#endif
+    }
+    else bug("sizeof(shared_t_bitmask)");
+    return (result);
+}