aboutsummaryrefslogtreecommitdiff
path: root/cmos/cd4002.c
diff options
context:
space:
mode:
authorMartin Peach <mrpeach@users.sourceforge.net>2007-03-20 16:06:17 +0000
committerMartin Peach <mrpeach@users.sourceforge.net>2007-03-20 16:06:17 +0000
commit8a36990c0305ea2effba5e869351b902ecb429b0 (patch)
tree01aa72be2cddadbe1f26db56ce17c84f3bf99127 /cmos/cd4002.c
parentaf3619555f5c60450da97c74ec3c1f9c14f3133d (diff)
CMOS digital logic emulation objects
svn path=/trunk/externals/mrpeach/; revision=7509
Diffstat (limited to 'cmos/cd4002.c')
-rwxr-xr-xcmos/cd4002.c119
1 files changed, 119 insertions, 0 deletions
diff --git a/cmos/cd4002.c b/cmos/cd4002.c
new file mode 100755
index 0000000..b55769f
--- /dev/null
+++ b/cmos/cd4002.c
@@ -0,0 +1,119 @@
+/* cd4002.c MP 20070315 */
+/* Emulate a cd4002b */
+#include "m_pd.h"
+
+typedef struct _cd4002
+{
+ t_object x_obj;
+ t_int x_in1;
+ t_int x_in2;
+ t_int x_in3;
+ t_int x_in4;
+ t_outlet *x_out;
+ t_inlet *x_inlet2;/* extra inlets are 'live' like the first */
+ t_inlet *x_inlet3;
+ t_inlet *x_inlet4;
+} t_cd4002;
+
+static t_class *cd4002_class;
+
+void cd4002_setup(void);
+static void *cd4002_new(t_symbol *s, int argc, t_atom *argv);
+static void cd4002_free(t_cd4002 *x);
+static void cd4002_bang(t_cd4002 *x);
+static void cd4002_float(t_cd4002 *x, t_float f);
+static void cd4002_inlet2(t_cd4002 *x, t_float f);
+static void cd4002_inlet3(t_cd4002 *x, t_float f);
+static void cd4002_inlet4(t_cd4002 *x, t_float f);
+static void cd4002_update_outlets(t_cd4002 *x);
+
+static void cd4002_float(t_cd4002 *x, t_float f)
+{
+ if (f == 1) x->x_in1 = 1;
+ else if (f == 0) x->x_in1 = 0;
+ else
+ {
+ post("cd4002 inlet 2 accepts 1 or 0.");
+ return;
+ }
+ cd4002_update_outlets(x);
+}
+
+static void cd4002_bang(t_cd4002 *x)
+{
+ cd4002_update_outlets(x);
+}
+
+static void cd4002_inlet2(t_cd4002 *x, t_float f)
+{
+ if (f == 1) x->x_in2 = 1;
+ else if (f == 0) x->x_in2 = 0;
+ else
+ {
+ post("cd4002 inlet 2 accepts 1 or 0.");
+ return;
+ }
+ cd4002_update_outlets(x);
+}
+
+static void cd4002_inlet3(t_cd4002 *x, t_float f)
+{
+ if (f == 1) x->x_in3 = 1;
+ else if (f == 0) x->x_in3 = 0;
+ else
+ {
+ post("cd4002 inlet 3 accepts 1 or 0.");
+ return;
+ }
+ cd4002_update_outlets(x);
+}
+
+static void cd4002_inlet4(t_cd4002 *x, t_float f)
+{
+ if (f == 1) x->x_in4 = 1;
+ else if (f == 0) x->x_in4 = 0;
+ else
+ {
+ post("cd4002 inlet 4 accepts 1 or 0.");
+ return;
+ }
+ cd4002_update_outlets(x);
+}
+
+static void cd4002_update_outlets(t_cd4002 *x)
+{ /* Quadruple NOR function */
+ outlet_float(x->x_out, ((x->x_in1 + x->x_in2 + x->x_in3 + x->x_in4) != 0)?0:1);
+}
+
+static void cd4002_free(t_cd4002 *x)
+{
+ return;
+}
+
+static void *cd4002_new(t_symbol *s, int argc, t_atom *argv)
+{
+ t_cd4002 *x;
+
+ x = (t_cd4002 *)pd_new(cd4002_class);
+ if (x == NULL) return (x);
+ x->x_out = outlet_new((t_object *)x, &s_float);
+ x->x_inlet2 = inlet_new(&x->x_obj, &x->x_obj.ob_pd, &s_float, gensym("inlet2"));
+ x->x_inlet3 = inlet_new(&x->x_obj, &x->x_obj.ob_pd, &s_float, gensym("inlet3"));
+ x->x_inlet4 = inlet_new(&x->x_obj, &x->x_obj.ob_pd, &s_float, gensym("inlet4"));
+ return (x);
+}
+
+void cd4002_setup(void)
+{
+ cd4002_class = class_new(gensym("cd4002"),
+ (t_newmethod)cd4002_new,
+ (t_method)cd4002_free,
+ sizeof(t_cd4002), 0, 0); /* no arguments */
+ class_addbang(cd4002_class, cd4002_bang);
+ class_addfloat(cd4002_class, cd4002_float);
+ class_addmethod(cd4002_class, (t_method)cd4002_inlet2, gensym("inlet2"), A_FLOAT, 0);
+ class_addmethod(cd4002_class, (t_method)cd4002_inlet3, gensym("inlet3"), A_FLOAT, 0);
+ class_addmethod(cd4002_class, (t_method)cd4002_inlet4, gensym("inlet4"), A_FLOAT, 0);
+}
+/* end cd4002.c */
+