From 20c8f604bb7ea3a2b7b06d836fb231ef6de7ece1 Mon Sep 17 00:00:00 2001
From: Thomas O Fredericks <mrtof@users.sourceforge.net>
Date: Wed, 21 Oct 2009 23:24:17 +0000
Subject: Added tokenArgs

svn path=/trunk/externals/tof/; revision=12631
---
 test/tokenArgs.c | 80 ++++++++++++++++++++++++++++++++++++++++++++++++++++++++
 1 file changed, 80 insertions(+)
 create mode 100644 test/tokenArgs.c

diff --git a/test/tokenArgs.c b/test/tokenArgs.c
new file mode 100644
index 0000000..80d8c16
--- /dev/null
+++ b/test/tokenArgs.c
@@ -0,0 +1,80 @@
+
+
+#include "../src/tof.h"
+ 
+
+static t_class *tokenArgs_class;
+ 
+
+typedef struct _tokenArgs
+{
+  t_object                  	x_obj;
+  t_outlet*			       	 	outlet;
+  t_canvas*						canvas;
+  char							token;
+  int                           size;
+  int                           ac;
+  t_atom*                       av;
+} t_tokenArgs;
+
+
+
+// Dump out
+static void tokenArgs_bang(t_tokenArgs *x) {
+	
+    int ac_a;
+    t_atom* av_a;
+    t_symbol* selector_a;
+    int iter = 0 ;
+	while ( tof_next_tagged_argument(x->token, x->ac, x->av, &ac_a, &av_a,&iter)) {
+        tof_set_selector(&selector_a,&ac_a,&av_a);
+        outlet_anything(x->outlet, selector_a, ac_a, av_a);
+    }
+    
+}
+
+
+static void tokenArgs_free(t_tokenArgs *x)
+{
+    freebytes(x->av,x->ac*sizeof(*(x->av)));
+}
+
+
+static void *tokenArgs_new(t_symbol *s) {
+  t_tokenArgs *x = (t_tokenArgs *)pd_new(tokenArgs_class);
+  
+  
+  x->token = s->s_name[0];
+  
+  //x->canvas = tof_get_canvas();
+  // I guess the canvas is currently set :)
+  int ac;
+  t_atom* av;
+  canvas_getargs(&ac, &av);
+   
+   x->ac = ac;
+   x->av = getbytes(x->ac * sizeof(*(x->av)));
+   tof_copy_atoms(av,x->av,x->ac);
+   
+   x->outlet = outlet_new(&x->x_obj, &s_list);
+    
+  return (x);
+}
+
+void tokenArgs_setup(void) {
+  tokenArgs_class = class_new(gensym("tokenArgs"),
+    (t_newmethod)tokenArgs_new, (t_method)tokenArgs_free,
+    sizeof(t_tokenArgs), 0, A_DEFSYMBOL, 0);
+
+ class_addbang(tokenArgs_class, tokenArgs_bang);
+ //class_addsymbol(tokenArgs_class, tokenArgs_symbol);
+
+ //class_addmethod(tokenArgs_class, (t_method) tokenArgs_values, gensym("values"), A_DEFSYMBOL,0);
+ 
+ //class_addmethod(tokenArgs_class, (t_method) tokenArgs_guis, gensym("guis"), A_DEFSYMBOL,0);
+ //class_addmethod(tokenArgs_class, (t_method) tokenArgs_updateguis, gensym("updateguis"), A_DEFSYMBOL,0);
+
+ 
+ //class_addmethod(tokenArgs_class, (t_method) tokenArgs_update_guis, gensym("update"), A_DEFSYMBOL,0);
+
+}
-- 
cgit v1.2.1