From 57045df5fe3ec557e57dc7434ac1a07b5521bffc Mon Sep 17 00:00:00 2001 From: Guenter Geiger Date: Mon, 29 Jul 2002 17:06:19 +0000 Subject: This commit was generated by cvs2svn to compensate for changes in r58, which included commits to RCS files with non-trunk default branches. svn path=/trunk/; revision=59 --- pd/doc/6.externs/foo2.c | 49 +++++++++++++++++++++++++++++++++++++++++++++++++ 1 file changed, 49 insertions(+) create mode 100644 pd/doc/6.externs/foo2.c (limited to 'pd/doc/6.externs/foo2.c') diff --git a/pd/doc/6.externs/foo2.c b/pd/doc/6.externs/foo2.c new file mode 100644 index 00000000..e68ed996 --- /dev/null +++ b/pd/doc/6.externs/foo2.c @@ -0,0 +1,49 @@ +/* code for foo2 pd class */ + +#include "m_pd.h" + +typedef struct foo2 +{ + t_object t_ob; +} t_foo2; + +void foo2_float(t_foo2 *x, t_floatarg f) +{ + post("foo2: %f", f); +} + +void foo2_rats(t_foo2 *x) +{ + post("foo2: rats"); +} + +void foo2_ft1(t_foo2 *x, t_floatarg g) +{ + post("ft1: %f", g); +} + +void foo2_free(void) +{ + post("foo2_free"); +} + +t_class *foo2_class; + +void *foo2_new(void) +{ + t_foo2 *x = (t_foo2 *)pd_new(foo2_class); + inlet_new(&x->t_ob, &x->t_ob.ob_pd, gensym("float"), gensym("ft1")); + post("foo2_new"); + return (void *)x; +} + +void foo2_setup(void) +{ + post("foo2_setup"); + foo2_class = class_new(gensym("foo2"), (t_newmethod)foo2_new, + (t_method)foo2_free, sizeof(t_foo2), 0, 0); + class_addmethod(foo2_class, (t_method)foo2_rats, gensym("rats"), 0); + class_addmethod(foo2_class, (t_method)foo2_ft1, gensym("ft1"), A_FLOAT, 0); + class_addfloat(foo2_class, foo2_float); +} + -- cgit v1.2.1