diff options
author | IOhannes m zmölnig <zmoelnig@users.sourceforge.net> | 2005-03-22 20:58:25 +0000 |
---|---|---|
committer | IOhannes m zmölnig <zmoelnig@users.sourceforge.net> | 2005-03-22 20:58:25 +0000 |
commit | 2b60d55c919e7588f5aff15936e83c300b3660bb (patch) | |
tree | 14d860de7f28083d3756ad91b627de70f26788f6 /src/sum.c | |
parent | c500bc542cb7cc78d6dac3f7da3bff626056b1aa (diff) |
zexy-2.0:
- use of abstractions for objects that allow it
- some objects are build both as externals and abstractions (as slower fallbacks)
- code-layout is now 1:1 c-file<->object (this should allow for building of zexy as a collection of externals instead as a big library)
- matrix-objects have moved to iemmatrix !!
svn path=/trunk/externals/zexy/; revision=2641
Diffstat (limited to 'src/sum.c')
-rw-r--r-- | src/sum.c | 61 |
1 files changed, 61 insertions, 0 deletions
diff --git a/src/sum.c b/src/sum.c new file mode 100644 index 0000000..67019ee --- /dev/null +++ b/src/sum.c @@ -0,0 +1,61 @@ +/****************************************************** + * + * zexy - implementation file + * + * copyleft (c) IOhannes m zmölnig + * + * 1999:forum::für::umläute:2004 + * + * institute of electronic music and acoustics (iem) + * + ****************************************************** + * + * license: GNU General Public License v.2 + * + ******************************************************/ + +#include "zexy.h" + +/* sum :: the sum of a list of floats */ + +static t_class *sum_class; + +typedef struct _sum +{ + t_object x_obj; +} t_sum; + +static void sum_list(t_sum *x, t_symbol *s, int argc, t_atom *argv) +{ + t_float sum = 0.f; + + while(argc--)sum+=atom_getfloat(argv++); + + outlet_float(x->x_obj.ob_outlet,sum); +} + +static void *sum_new(void) +{ + t_sum *x = (t_sum *)pd_new(sum_class); + + outlet_new(&x->x_obj, gensym("float")); + + return (x); +} + +static void sum_help(void) +{ + post("sum\t:: calculate the sum of a list of floats"); +} + +void sum_setup(void) +{ + sum_class = class_new(gensym("sum"), (t_newmethod)sum_new, 0, + sizeof(t_sum), 0, A_DEFFLOAT, 0); + + class_addlist(sum_class, (t_method)sum_list); + class_addmethod(sum_class, (t_method)sum_help, gensym("help"), 0); + + class_sethelpsymbol(sum_class, gensym("zexy/sum")); + zexy_register("sum"); +} |