From 08596048cf2b13cfba6d7fabe5ad5604875d9a45 Mon Sep 17 00:00:00 2001
From: Ed Kelly <edkelly@users.sourceforge.net>
Date: Thu, 1 Dec 2005 11:22:08 +0000
Subject: This commit was generated by cvs2svn to compensate for changes in
 r4096, which included commits to RCS files with non-trunk default branches.

svn path=/trunk/; revision=4097
---
 externals/build/src/cup.c | 42 ++++++++++++++++++++++++++++++++++++++++++
 1 file changed, 42 insertions(+)
 create mode 100644 externals/build/src/cup.c

(limited to 'externals/build/src/cup.c')

diff --git a/externals/build/src/cup.c b/externals/build/src/cup.c
new file mode 100644
index 00000000..6aca2141
--- /dev/null
+++ b/externals/build/src/cup.c
@@ -0,0 +1,42 @@
+#include "m_pd.h"
+
+t_class *cup_class;
+
+typedef struct _cup
+{
+  t_object x_obj;
+  t_int f_count, fa;
+  t_outlet *count;
+} t_cup;
+
+void cup_float(t_cup *y, t_floatarg f)
+{
+  y->f_count = f;
+}
+
+void cup_bang(t_cup *y)
+{
+  outlet_float(y->count, y->f_count);
+  y->f_count += 1;
+}
+
+void *cup_new(t_floatarg f)
+{
+  t_cup *y = (t_cup *)pd_new(cup_class);
+  y->fa = f;
+  y->f_count = 0;
+  y->count = outlet_new(&y->x_obj, gensym("float"));
+  return(void *)y;
+}
+
+void cup_setup(void) 
+{
+  cup_class = class_new(gensym("cup"),
+  (t_newmethod)cup_new,
+  0, sizeof(t_cup),
+  0, A_DEFFLOAT, 0);
+  post("cup counts up ^_^");
+  class_sethelpsymbol(cup_class, gensym("help-cup"));
+  class_addbang(cup_class, cup_bang);
+  class_addfloat(cup_class, cup_float);
+}
-- 
cgit v1.2.1