Added to_ and from_ascii_code

svn path=/trunk/externals/tof/; revision=13515

1 files changed, 97 insertions, 0 deletions

diff --git a/src/to_ascii_code.c b/src/to_ascii_code.c
new file mode 100644
index 0000000..8aa3155
--- /dev/null
+++ b/src/to_ascii_code.c
@@ -0,0 +1,97 @@
+#include "m_pd.h"
+
+// Common string to all objects
+static char* to_ascii_code_text;
+// Common binbuf to all objects
+static t_binbuf* to_ascii_code_binbuf;
+
+typedef struct _to_ascii_code
+{
+	
+	t_object 			x_ob;
+	int					eof_is_set;
+	int				    eof;
+	t_outlet*			outlet_left;
+	//t_outlet*			outlet_right;
+} t_to_ascii_code;
+
+static t_class *to_ascii_code_class;
+
+static void to_ascii_code_bang(t_to_ascii_code *x) {
+	// Do nothing
+}
+
+
+static void to_ascii_code_anything(t_to_ascii_code *x, t_symbol *s, int ac, t_atom *av) {
+	
+	binbuf_clear(to_ascii_code_binbuf);
+	// Add selector if it is not standard
+	if ( s != &s_list && s !=  &s_float && s != &s_symbol && s != &s_) {
+		t_atom a;
+		SETSYMBOL(&a, s);
+		binbuf_add(to_ascii_code_binbuf,1,&a);
+	}
+	// Add all the atoms to the binbuf
+	binbuf_add(to_ascii_code_binbuf, ac, av);
+	
+	
+	
+	// Get the contents as a text
+	int size=0;
+	binbuf_gettext(to_ascii_code_binbuf, &to_ascii_code_text, &size); //void binbuf_gettext(t_binbuf *x, char **bufp, int *lengthp);
+	
+	// Convert to a list of floats
+	
+	t_atom *list_floats = getbytes((size+1)*sizeof(*list_floats));	// Add some space for the eof character 
+	int i;
+	for ( i=0; i < size; i++ ) {
+		SETFLOAT(list_floats+i,(t_float)to_ascii_code_text[i]);
+	}
+	if ( x->eof_is_set ) { // Append eof if set
+		SETFLOAT(list_floats+size, x->eof);
+		//outlet_float(x->outlet_right,size+1);
+		outlet_list(x->outlet_left,&s_list,size+1,list_floats);
+	} else {
+		//outlet_float(x->outlet_right,size);
+		outlet_list(x->outlet_left,&s_list,size,list_floats);
+	}
+	freebytes(list_floats, (size+1)*sizeof(*list_floats));
+	
+}
+
+
+static void *to_ascii_code_new(t_symbol *s, int ac, t_atom *av)
+{
+    t_to_ascii_code *x = (t_to_ascii_code *)pd_new(to_ascii_code_class);
+    
+    // set eof if eof is set
+    if ( ac && ((av)->a_type == A_FLOAT)) {
+		x->eof = (int) atom_getfloat(av);
+		x->eof_is_set = 1;
+    } else {
+		x->eof_is_set = 0;
+	}
+    
+    x->outlet_left = outlet_new(&x->x_ob, &s_list);
+    //x->outlet_right = outlet_new(&x->x_ob, &s_float);
+    
+    return (x);
+}
+
+void to_ascii_code_setup(void)
+{
+	// create binbuf (no need to ever free)
+	to_ascii_code_binbuf = binbuf_new();
+	
+	// create text (no need to ever free)
+	to_ascii_code_text = getbytes(MAXPDSTRING*sizeof(*to_ascii_code_text));	
+	
+    to_ascii_code_class = class_new(gensym("to_ascii_code"),
+			    (t_newmethod)to_ascii_code_new, 0,
+			    sizeof(t_to_ascii_code), 0, A_GIMME, 0);
+    
+    class_addbang(to_ascii_code_class, to_ascii_code_bang);
+    class_addanything(to_ascii_code_class, to_ascii_code_anything);
+    
+    
+    }