From faada59567f8cb252f4a909116595ce309ff5828 Mon Sep 17 00:00:00 2001
From: "N.N." <krzyszcz@users.sourceforge.net>
Date: Fri, 23 May 2003 12:29:55 +0000
Subject: This commit was generated by cvs2svn to compensate for changes in
 r647, which included commits to RCS files with non-trunk default branches.

svn path=/trunk/externals/miXed/; revision=648
---
 cyclone/hammer/midiparse.c | 132 +++++++++++++++++++++++++++++++++++++++++++++
 1 file changed, 132 insertions(+)
 create mode 100644 cyclone/hammer/midiparse.c

(limited to 'cyclone/hammer/midiparse.c')

diff --git a/cyclone/hammer/midiparse.c b/cyclone/hammer/midiparse.c
new file mode 100644
index 0000000..9a79a39
--- /dev/null
+++ b/cyclone/hammer/midiparse.c
@@ -0,0 +1,132 @@
+/* Copyright (c) 2002-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"
+
+typedef struct _midiparse
+{
+    t_object       x_ob;
+    unsigned char  x_ready;
+    unsigned char  x_status;
+    unsigned char  x_channel;
+    unsigned char  x_data1;
+    t_outlet      *x_polyout;
+    t_outlet      *x_ctlout;
+    t_outlet      *x_pgmout;
+    t_outlet      *x_touchout;
+    t_outlet      *x_bendout;
+    t_outlet      *x_chanout;
+} t_midiparse;
+
+static t_class *midiparse_class;
+
+static void midiparse_clear(t_midiparse *x)
+{
+    x->x_status = 0;
+    x->x_ready = 0;
+}
+
+static void midiparse_float(t_midiparse *x, t_float f)
+{
+    int ival = (int)f;  /* CHECKED */
+    if (ival < 0)
+    {
+	/* CHECKME */
+	return;
+    }
+    if (ival < 256)  /* CHECKED clear if input over 255 */
+    {
+	unsigned char bval = ival;
+	if (bval & 0x80)
+	{
+	    unsigned char status = bval & 0xF0;
+	    if (status == 0xF0)
+	    {
+		/* CHECKED no such test in max -- this is incompatible,
+		   but real-time messages are out-of-band, and they
+		   should be ignored here.  LATER rethink the 0xFE case. */
+		if (bval < 0xF8)
+		    midiparse_clear(x);
+	    }
+	    else
+	    {
+		x->x_status = status;
+		x->x_channel = bval & 0x0F;
+		x->x_ready = (status == 0xC0 || status == 0xD0);
+	    }
+	}
+	else if (x->x_ready)
+	{
+	    t_atom at[2];
+	    x->x_ready = 0;
+	    outlet_float(x->x_chanout, x->x_channel + 1);
+	    switch (x->x_status)
+	    {
+	    case 0x80:
+		SETFLOAT(&at[0], x->x_data1);
+		SETFLOAT(&at[1], 0);
+		outlet_list(((t_object *)x)->ob_outlet, 0, 2, at);
+		break;
+	    case 0x90:
+		SETFLOAT(&at[0], x->x_data1);
+		SETFLOAT(&at[1], bval);
+		outlet_list(((t_object *)x)->ob_outlet, 0, 2, at);
+		break;
+	    case 0xA0:
+		SETFLOAT(&at[0], bval);
+		SETFLOAT(&at[1], x->x_data1);
+		outlet_list(x->x_polyout, 0, 2, at);
+		break;
+	    case 0xB0:
+		SETFLOAT(&at[0], bval);
+		SETFLOAT(&at[1], x->x_data1);
+		outlet_list(x->x_ctlout, 0, 2, at);
+		break;
+	    case 0xC0:
+		outlet_float(x->x_pgmout, bval);
+		x->x_ready = 1;
+		break;
+	    case 0xD0:
+		outlet_float(x->x_touchout, bval);
+		x->x_ready = 1;
+		break;
+	    case 0xE0:
+		/* CHECKED: ignores data1 */
+		outlet_float(x->x_bendout, bval);
+		break;
+	    default:;
+	    }
+	}
+	else if (x->x_status)
+	{
+	    x->x_data1 = bval;  /* CHECKED key #0 accepted */
+	    x->x_ready = 1;
+	}
+    }
+    else midiparse_clear(x);
+}
+
+static void *midiparse_new(void)
+{
+    t_midiparse *x = (t_midiparse *)pd_new(midiparse_class);
+    outlet_new((t_object *)x, &s_list);
+    x->x_polyout = outlet_new((t_object *)x, &s_list);
+    x->x_ctlout = outlet_new((t_object *)x, &s_list);
+    x->x_pgmout = outlet_new((t_object *)x, &s_float);
+    x->x_touchout = outlet_new((t_object *)x, &s_float);
+    x->x_bendout = outlet_new((t_object *)x, &s_float);
+    x->x_chanout = outlet_new((t_object *)x, &s_float);
+    midiparse_clear(x);
+    return (x);
+}
+
+void midiparse_setup(void)
+{
+    midiparse_class = class_new(gensym("midiparse"), 
+				(t_newmethod)midiparse_new, 0,
+				sizeof(t_midiparse), 0, 0);
+    class_addbang(midiparse_class, midiparse_clear);
+    class_addfloat(midiparse_class, midiparse_float);
+    /* CHECKED autocasting lists to floats */
+}
-- 
cgit v1.2.1