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/init.c | |
parent | d56ec9d039c904e9230137254ff2fe281320eed9 (diff) |
updated to release-1.16
svn path=/trunk/externals/iemlib/; revision=3102
Diffstat (limited to 'src/iemlib2/init.c')
-rw-r--r-- | src/iemlib2/init.c | 407 |
1 files changed, 204 insertions, 203 deletions
diff --git a/src/iemlib2/init.c b/src/iemlib2/init.c index e7ab93b..786cdc9 100644 --- a/src/iemlib2/init.c +++ b/src/iemlib2/init.c @@ -1,203 +1,204 @@ -/* 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> - -/* ------------------------ init ---------------------------- */ -static t_class *init_class; - -typedef struct _init -{ - t_object x_obj; - int x_n; - int x_ac; - t_atom *x_at; - t_symbol *x_sym; - t_atomtype x_type; -} t_init; - -static void init_bang(t_init *x) -{ - if(x->x_type == A_FLOAT) - outlet_float(x->x_obj.ob_outlet, atom_getfloat(x->x_at)); - else if(x->x_type == A_SYMBOL) - outlet_symbol(x->x_obj.ob_outlet, atom_getsymbol(x->x_at)); - else if(x->x_type == A_NULL) - outlet_bang(x->x_obj.ob_outlet); - else if(x->x_type == A_COMMA) - outlet_anything(x->x_obj.ob_outlet, x->x_sym, x->x_ac, x->x_at); - else if(x->x_type == A_GIMME) - outlet_list(x->x_obj.ob_outlet, &s_list, x->x_ac, x->x_at); - else if(x->x_type == A_POINTER) - outlet_pointer(x->x_obj.ob_outlet, (t_gpointer *)x->x_at->a_w.w_gpointer); -} - -static void init_loadbang(t_init *x) -{ - if(!sys_noloadbang) - init_bang(x); -} - -static void init_float(t_init *x, t_float f) -{ - x->x_ac = 1; - SETFLOAT(x->x_at, f); - x->x_sym = &s_float; - x->x_type = A_FLOAT; - outlet_float(x->x_obj.ob_outlet, f); -} - -static void init_symbol(t_init *x, t_symbol *s) -{ - x->x_ac = 1; - SETSYMBOL(x->x_at, s); - x->x_sym = &s_symbol; - x->x_type = A_SYMBOL; - outlet_symbol(x->x_obj.ob_outlet, s); -} - -static void init_pointer(t_init *x, t_gpointer *gp) -{ - x->x_ac = 1; - SETPOINTER(x->x_at, gp); - x->x_sym = &s_pointer; - x->x_type = A_POINTER; - outlet_pointer(x->x_obj.ob_outlet, gp); -} - -static void init_list(t_init *x, t_symbol *s, int ac, t_atom *av) -{ - t_atom *at; - - if(ac > x->x_n) - { - if(x->x_at) - freebytes(x->x_at, x->x_n * sizeof(t_atom)); - x->x_n = ac; - x->x_at = (t_atom *)getbytes(x->x_n * sizeof(t_atom)); - } - x->x_ac = ac; - x->x_sym = &s_list; - at = x->x_at; - while(ac--) - *at++ = *av++; - x->x_type = A_GIMME; - outlet_list(x->x_obj.ob_outlet, &s_list, x->x_ac, x->x_at); -} - -static void init_anything(t_init *x, t_symbol *s, int ac, t_atom *av) -{ - t_atom *at; - - if(ac > x->x_n) - { - if(x->x_at) - freebytes(x->x_at, x->x_n * sizeof(t_atom)); - x->x_n = ac; - x->x_at = (t_atom *)getbytes(x->x_n * sizeof(t_atom)); - } - x->x_ac = ac; - x->x_sym = s; - at = x->x_at; - while(ac--) - *at++ = *av++; - x->x_type = A_COMMA; - outlet_anything(x->x_obj.ob_outlet, x->x_sym, x->x_ac, x->x_at); -} - -static void init_free(t_init *x) -{ - if(x->x_at) - freebytes(x->x_at, x->x_n * sizeof(t_atom)); -} - -static void *init_new(t_symbol *s, int ac, t_atom *av) -{ - t_init *x = (t_init *)pd_new(init_class); - int i; - - x->x_type = A_NULL; - if(!ac) - { - x->x_type = A_NULL; - x->x_sym = &s_bang; - x->x_n = 1; - x->x_ac = 0; - x->x_at = (t_atom *)getbytes(x->x_n * sizeof(t_atom)); - } - else if(ac == 1) - { - if(IS_A_SYMBOL(av,0)) - { - x->x_type = A_COMMA; - x->x_sym = atom_getsymbol(av); - x->x_n = 1; - x->x_ac = 0; - x->x_at = (t_atom *)getbytes(x->x_n * sizeof(t_atom)); - } - else - { - if(IS_A_FLOAT(av,0)) - { - x->x_type = A_FLOAT; - x->x_sym = &s_float; - } - else if(IS_A_POINTER(av,0)) - { - x->x_type = A_POINTER; - x->x_sym = &s_pointer; - } - x->x_n = x->x_ac = 1; - x->x_at = (t_atom *)getbytes(x->x_n * sizeof(t_atom)); - x->x_at[0] = *av; - } - } - else - { - if(IS_A_SYMBOL(av,0)) - { - x->x_type = A_COMMA;/*for anything*/ - x->x_sym = atom_getsymbol(av++); - ac--; - } - else - { - x->x_type = A_GIMME; - x->x_sym = &s_list; - } - x->x_n = x->x_ac = ac; - x->x_at = (t_atom *)getbytes(x->x_n * sizeof(t_atom)); - for(i=0; i<ac; i++) - x->x_at[i] = *av++; - } - outlet_new(&x->x_obj, &s_list); - return (x); -} - -void init_setup(void) -{ - init_class = class_new(gensym("init"), (t_newmethod)init_new, - (t_method)init_free, sizeof(t_init), 0, A_GIMME, 0); - class_addcreator((t_newmethod)init_new, gensym("ii"), A_GIMME, 0); - class_addmethod(init_class, (t_method)init_loadbang, gensym("loadbang"), 0); - class_addbang(init_class, (t_method)init_bang); - class_addanything(init_class, init_anything); - class_addlist(init_class, init_list); - class_addpointer(init_class, init_pointer); - class_addfloat(init_class, (t_method)init_float); - class_addsymbol(init_class, init_symbol); - class_sethelpsymbol(init_class, gensym("iemhelp/help-init")); -} - +/* 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>
+
+/* ------------------------ init ---------------------------- */
+/* -------- a combination of loadbang and any --------------- */
+
+static t_class *init_class;
+
+typedef struct _init
+{
+ t_object x_obj;
+ int x_n;
+ int x_ac;
+ t_atom *x_at;
+ t_symbol *x_sym;
+ t_atomtype x_type;
+} t_init;
+
+static void init_bang(t_init *x)
+{
+ if(x->x_type == A_FLOAT)
+ outlet_float(x->x_obj.ob_outlet, atom_getfloat(x->x_at));
+ else if(x->x_type == A_SYMBOL)
+ outlet_symbol(x->x_obj.ob_outlet, atom_getsymbol(x->x_at));
+ else if(x->x_type == A_NULL)
+ outlet_bang(x->x_obj.ob_outlet);
+ else if(x->x_type == A_COMMA)
+ outlet_anything(x->x_obj.ob_outlet, x->x_sym, x->x_ac, x->x_at);
+ else if(x->x_type == A_GIMME)
+ outlet_list(x->x_obj.ob_outlet, &s_list, x->x_ac, x->x_at);
+ else if(x->x_type == A_POINTER)
+ outlet_pointer(x->x_obj.ob_outlet, (t_gpointer *)x->x_at->a_w.w_gpointer);
+}
+
+static void init_loadbang(t_init *x)
+{
+ if(!sys_noloadbang)
+ init_bang(x);
+}
+
+static void init_float(t_init *x, t_float f)
+{
+ x->x_ac = 1;
+ SETFLOAT(x->x_at, f);
+ x->x_sym = &s_float;
+ x->x_type = A_FLOAT;
+ outlet_float(x->x_obj.ob_outlet, f);
+}
+
+static void init_symbol(t_init *x, t_symbol *s)
+{
+ x->x_ac = 1;
+ SETSYMBOL(x->x_at, s);
+ x->x_sym = &s_symbol;
+ x->x_type = A_SYMBOL;
+ outlet_symbol(x->x_obj.ob_outlet, s);
+}
+
+static void init_pointer(t_init *x, t_gpointer *gp)
+{
+ x->x_ac = 1;
+ SETPOINTER(x->x_at, gp);
+ x->x_sym = &s_pointer;
+ x->x_type = A_POINTER;
+ outlet_pointer(x->x_obj.ob_outlet, gp);
+}
+
+static void init_list(t_init *x, t_symbol *s, int ac, t_atom *av)
+{
+ t_atom *at;
+
+ if(ac > x->x_n)
+ {
+ if(x->x_at)
+ freebytes(x->x_at, x->x_n * sizeof(t_atom));
+ x->x_n = ac;
+ x->x_at = (t_atom *)getbytes(x->x_n * sizeof(t_atom));
+ }
+ x->x_ac = ac;
+ x->x_sym = &s_list;
+ at = x->x_at;
+ while(ac--)
+ *at++ = *av++;
+ x->x_type = A_GIMME;
+ outlet_list(x->x_obj.ob_outlet, &s_list, x->x_ac, x->x_at);
+}
+
+static void init_anything(t_init *x, t_symbol *s, int ac, t_atom *av)
+{
+ t_atom *at;
+
+ if(ac > x->x_n)
+ {
+ if(x->x_at)
+ freebytes(x->x_at, x->x_n * sizeof(t_atom));
+ x->x_n = ac;
+ x->x_at = (t_atom *)getbytes(x->x_n * sizeof(t_atom));
+ }
+ x->x_ac = ac;
+ x->x_sym = s;
+ at = x->x_at;
+ while(ac--)
+ *at++ = *av++;
+ x->x_type = A_COMMA;
+ outlet_anything(x->x_obj.ob_outlet, x->x_sym, x->x_ac, x->x_at);
+}
+
+static void init_free(t_init *x)
+{
+ if(x->x_at)
+ freebytes(x->x_at, x->x_n * sizeof(t_atom));
+}
+
+static void *init_new(t_symbol *s, int ac, t_atom *av)
+{
+ t_init *x = (t_init *)pd_new(init_class);
+ int i;
+
+ x->x_type = A_NULL;
+ if(!ac)
+ {
+ x->x_type = A_NULL;
+ x->x_sym = &s_bang;
+ x->x_n = 1;
+ x->x_ac = 0;
+ x->x_at = (t_atom *)getbytes(x->x_n * sizeof(t_atom));
+ }
+ else if(ac == 1)
+ {
+ if(IS_A_SYMBOL(av,0))
+ {
+ x->x_type = A_COMMA;
+ x->x_sym = atom_getsymbol(av);
+ x->x_n = 1;
+ x->x_ac = 0;
+ x->x_at = (t_atom *)getbytes(x->x_n * sizeof(t_atom));
+ }
+ else
+ {
+ if(IS_A_FLOAT(av,0))
+ {
+ x->x_type = A_FLOAT;
+ x->x_sym = &s_float;
+ }
+ else if(IS_A_POINTER(av,0))
+ {
+ x->x_type = A_POINTER;
+ x->x_sym = &s_pointer;
+ }
+ x->x_n = x->x_ac = 1;
+ x->x_at = (t_atom *)getbytes(x->x_n * sizeof(t_atom));
+ x->x_at[0] = *av;
+ }
+ }
+ else
+ {
+ if(IS_A_SYMBOL(av,0))
+ {
+ x->x_type = A_COMMA;/*for anything*/
+ x->x_sym = atom_getsymbol(av++);
+ ac--;
+ }
+ else
+ {
+ x->x_type = A_GIMME;
+ x->x_sym = &s_list;
+ }
+ x->x_n = x->x_ac = ac;
+ x->x_at = (t_atom *)getbytes(x->x_n * sizeof(t_atom));
+ for(i=0; i<ac; i++)
+ x->x_at[i] = *av++;
+ }
+ outlet_new(&x->x_obj, &s_list);
+ return (x);
+}
+
+void init_setup(void)
+{
+ init_class = class_new(gensym("init"), (t_newmethod)init_new,
+ (t_method)init_free, sizeof(t_init), 0, A_GIMME, 0);
+ class_addcreator((t_newmethod)init_new, gensym("ii"), A_GIMME, 0);
+ class_addmethod(init_class, (t_method)init_loadbang, gensym("loadbang"), 0);
+ class_addbang(init_class, (t_method)init_bang);
+ class_addanything(init_class, init_anything);
+ class_addlist(init_class, init_list);
+ class_addpointer(init_class, init_pointer);
+ class_addfloat(init_class, (t_method)init_float);
+ class_addsymbol(init_class, init_symbol);
+ class_sethelpsymbol(init_class, gensym("iemhelp/help-init"));
+}
|