diff options
author | Guenter Geiger <ggeiger@users.sourceforge.net> | 2002-07-29 17:06:19 +0000 |
---|---|---|
committer | Guenter Geiger <ggeiger@users.sourceforge.net> | 2002-07-29 17:06:19 +0000 |
commit | 57045df5fe3ec557e57dc7434ac1a07b5521bffc (patch) | |
tree | 7174058b41b73c808107c7090d9a4e93ee202341 /pd/doc/6.externs/foo2.c | |
parent | da38b3424229e59f956252c3d89895e43e84e278 (diff) |
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
Diffstat (limited to 'pd/doc/6.externs/foo2.c')
-rw-r--r-- | pd/doc/6.externs/foo2.c | 49 |
1 files changed, 49 insertions, 0 deletions
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); +} + |