/* ascii-list
   input lists, strings, anythings, outputs a list of ascii codes
   
   tim@eclectronics.org 2008
   
   thanks to
   jdl@xdv.org 2002
*/

#include "m_pd.h"
#include <stdio.h>
#include <stdlib.h>
#include <string.h>

#define MAXMSGLEN 1024
#define LISTSEL "list"

t_class *asclist_class;

typedef struct asclist
{
  t_object x_obj;
} t_asclist;

void asclist_anything(t_asclist *x, t_symbol* s, t_int argc, t_atom* argv)
{
	
	int i = argc;
	int len;
	char tmp[MAXMSGLEN];
	char msg[MAXMSGLEN];
	len = 0;
	msg[0] = '\0';

	if(!strstr(s->s_name,LISTSEL)) strcat(msg,s->s_name);

	while (i--) {
		atom_string(argv, tmp, 1024);
		strcat(msg,tmp);
		argv++;
	}
	len = strlen(msg);

	t_atom tlist[len];
	for (i=0;i<len;i++) SETFLOAT(&tlist[i], msg[i] );
	outlet_list(x->x_obj.ob_outlet, gensym("list"), len, &tlist[0]);

}

void asclist_free(t_asclist *x)
{
 //
}

void *asclist_new(t_floatarg f)
{
    t_asclist *x = (t_asclist *)pd_new(asclist_class);
    outlet_new(&x->x_obj, &s_symbol);
    return (void *)x;
}

void asclist_setup(void)
{
  asclist_class = class_new(gensym("asclist"), (t_newmethod)asclist_new, (t_method)asclist_free, sizeof(t_asclist), 0, A_DEFFLOAT, 0);
  class_addanything(asclist_class,asclist_anything);
}