diff options
author | IOhannes m zmölnig <zmoelnig@users.sourceforge.net> | 2005-06-02 18:25:00 +0000 |
---|---|---|
committer | IOhannes m zmölnig <zmoelnig@users.sourceforge.net> | 2005-06-02 18:25:00 +0000 |
commit | 0c9b89b1018eb7760708ee5b080cd96846861328 (patch) | |
tree | f43a2b20292bba90931fe84e67aca8fb0013a984 /src/iemlib2/iem_i_route.c | |
parent | d56ec9d039c904e9230137254ff2fe281320eed9 (diff) |
updated to release-1.16
svn path=/trunk/externals/iemlib/; revision=3102
Diffstat (limited to 'src/iemlib2/iem_i_route.c')
-rw-r--r-- | src/iemlib2/iem_i_route.c | 223 |
1 files changed, 112 insertions, 111 deletions
diff --git a/src/iemlib2/iem_i_route.c b/src/iemlib2/iem_i_route.c index 48855e6..8831f07 100644 --- a/src/iemlib2/iem_i_route.c +++ b/src/iemlib2/iem_i_route.c @@ -1,111 +1,112 @@ -/* For information on usage and redistribution, and for a DISCLAIMER OF ALL -* WARRANTIES, see the file, "LICENSE.txt," in this distribution. - -iemlib2 written by Thomas Musil, Copyright (c) IEM KUG Graz Austria 2000 - 2003 */ - -#ifdef NT -#pragma warning( disable : 4244 ) -#pragma warning( disable : 4305 ) -#endif - -#include "m_pd.h" -#include "iemlib.h" -#include <stdlib.h> -#include <string.h> -#include <stdio.h> -#include <math.h> - -/* -------------------------- iem_i_route ------------------------------ */ -/* routes a list beginning with a float to an outlet, which are defined by - first- , last- index and offset-index */ - -static t_class *iem_i_route_class; - -typedef struct _iem_i_route -{ - t_object x_obj; - int x_first_element; - int x_last_element; - t_outlet **x_out; -} t_iem_i_route; - -static void iem_i_route_list(t_iem_i_route *x, t_symbol *sel, int argc, t_atom *argv) -{ - t_outlet **out; - int first, last, i; - - if(!argc) - return; - i = (int)atom_getintarg(0, argc, argv); - first = x->x_first_element; - last = x->x_last_element; - out = x->x_out; - if((i >= first)&&(i <= last)) - { - out += i - first; - if(argc >= 3) - { - if(IS_A_FLOAT(argv,1)) - outlet_list(*out, &s_list, argc-1, argv+1); - else if(IS_A_SYMBOL(argv,1)) - outlet_anything(*out, atom_getsymbolarg(1, argc, argv), argc-2, argv+2); - } - else if(argc >= 2) - { - if(IS_A_FLOAT(argv,1)) - outlet_float(*out, (float)atom_getfloatarg(1, argc, argv)); - else if(IS_A_SYMBOL(argv,1)) - outlet_anything(*out, atom_getsymbolarg(1, argc, argv), 0, argv+2); - } - else - outlet_bang(*out); - } - else - { - out += last - first + 1; - outlet_list(*out, &s_list, argc, argv); - } -} - -static void iem_i_route_free(t_iem_i_route *x) -{ - freebytes(x->x_out, (x->x_last_element-x->x_first_element+2) * sizeof(t_outlet *)); -} - -static void *iem_i_route_new(t_symbol *s, int argc, t_atom *argv) -{ - int n, i; - t_outlet **out; - t_iem_i_route *x = (t_iem_i_route *)pd_new(iem_i_route_class); - - if((argc >= 2)&&IS_A_FLOAT(argv,0)&&IS_A_FLOAT(argv,1)) - { - x->x_first_element = (int)atom_getintarg(0, argc, argv); - x->x_last_element = (int)atom_getintarg(1, argc, argv); - if((argc >= 3)&&IS_A_FLOAT(argv,2)) - { - i = (int)atom_getintarg(2, argc, argv); - x->x_first_element += i; - x->x_last_element += i; - } - x->x_out = (t_outlet **)getbytes((x->x_last_element-x->x_first_element+2) * sizeof(t_outlet *)); - n = x->x_last_element - x->x_first_element + 2; - for(i=0, out=x->x_out; i<n; i++, out++) - *out = outlet_new(&x->x_obj, &s_list); - return (x); - } - else - { - post("iem_i_route-ERROR: needs 3 floats!!"); - return(0); - } -} - -void iem_i_route_setup(void) -{ - iem_i_route_class = class_new(gensym("iem_i_route"), (t_newmethod)iem_i_route_new, - (t_method)iem_i_route_free, sizeof(t_iem_i_route), 0, A_GIMME, 0); - class_addcreator((t_newmethod)iem_i_route_new, gensym("iiroute"), A_GIMME, 0); - class_addlist(iem_i_route_class, iem_i_route_list); - class_sethelpsymbol(iem_i_route_class, gensym("iemhelp/help-iem_i_route")); -} +/* For information on usage and redistribution, and for a DISCLAIMER OF ALL
+* WARRANTIES, see the file, "LICENSE.txt," in this distribution.
+
+iemlib2 written by Thomas Musil, Copyright (c) IEM KUG Graz Austria 2000 - 2005 */
+
+#ifdef NT
+#pragma warning( disable : 4244 )
+#pragma warning( disable : 4305 )
+#endif
+
+#include "m_pd.h"
+#include "iemlib.h"
+#include <stdlib.h>
+#include <string.h>
+#include <stdio.h>
+#include <math.h>
+
+/* -------------------------- iem_i_route ------------------------------ */
+/* ---- routes a list beginning with a float to an outlet, which is ---- */
+/* -- defined by the 3 initial arguments first index, last index and --- */
+/* ---------------------- offset index --------------------------------- */
+
+static t_class *iem_i_route_class;
+
+typedef struct _iem_i_route
+{
+ t_object x_obj;
+ int x_first_element;
+ int x_last_element;
+ t_outlet **x_out;
+} t_iem_i_route;
+
+static void iem_i_route_list(t_iem_i_route *x, t_symbol *sel, int argc, t_atom *argv)
+{
+ t_outlet **out;
+ int first, last, i;
+
+ if(!argc)
+ return;
+ i = (int)atom_getintarg(0, argc, argv);
+ first = x->x_first_element;
+ last = x->x_last_element;
+ out = x->x_out;
+ if((i >= first)&&(i <= last))
+ {
+ out += i - first;
+ if(argc >= 3)
+ {
+ if(IS_A_FLOAT(argv,1))
+ outlet_list(*out, &s_list, argc-1, argv+1);
+ else if(IS_A_SYMBOL(argv,1))
+ outlet_anything(*out, atom_getsymbolarg(1, argc, argv), argc-2, argv+2);
+ }
+ else if(argc >= 2)
+ {
+ if(IS_A_FLOAT(argv,1))
+ outlet_float(*out, (float)atom_getfloatarg(1, argc, argv));
+ else if(IS_A_SYMBOL(argv,1))
+ outlet_anything(*out, atom_getsymbolarg(1, argc, argv), 0, argv+2);
+ }
+ else
+ outlet_bang(*out);
+ }
+ else
+ {
+ out += last - first + 1;
+ outlet_list(*out, &s_list, argc, argv);
+ }
+}
+
+static void iem_i_route_free(t_iem_i_route *x)
+{
+ freebytes(x->x_out, (x->x_last_element-x->x_first_element+2) * sizeof(t_outlet *));
+}
+
+static void *iem_i_route_new(t_symbol *s, int argc, t_atom *argv)
+{
+ int n, i;
+ t_outlet **out;
+ t_iem_i_route *x = (t_iem_i_route *)pd_new(iem_i_route_class);
+
+ if((argc >= 2)&&IS_A_FLOAT(argv,0)&&IS_A_FLOAT(argv,1))
+ {
+ x->x_first_element = (int)atom_getintarg(0, argc, argv);
+ x->x_last_element = (int)atom_getintarg(1, argc, argv);
+ if((argc >= 3)&&IS_A_FLOAT(argv,2))
+ {
+ i = (int)atom_getintarg(2, argc, argv);
+ x->x_first_element += i;
+ x->x_last_element += i;
+ }
+ x->x_out = (t_outlet **)getbytes((x->x_last_element-x->x_first_element+2) * sizeof(t_outlet *));
+ n = x->x_last_element - x->x_first_element + 2;
+ for(i=0, out=x->x_out; i<n; i++, out++)
+ *out = outlet_new(&x->x_obj, &s_list);
+ return (x);
+ }
+ else
+ {
+ post("iem_i_route-ERROR: needs 3 floats!!");
+ return(0);
+ }
+}
+
+void iem_i_route_setup(void)
+{
+ iem_i_route_class = class_new(gensym("iem_i_route"), (t_newmethod)iem_i_route_new,
+ (t_method)iem_i_route_free, sizeof(t_iem_i_route), 0, A_GIMME, 0);
+ class_addcreator((t_newmethod)iem_i_route_new, gensym("iiroute"), A_GIMME, 0);
+ class_addlist(iem_i_route_class, iem_i_route_list);
+ class_sethelpsymbol(iem_i_route_class, gensym("iemhelp/help-iem_i_route"));
+}
|