/* 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>

/* ----------------------- splitfilename -------------------------- */
/* -- splits a symbol into 2 parts (path + file) at the position -- */
/* -- of the first separator-character beginnig from the right ---- */
/* ---------- eliminating the separator-character ----------------- */

static t_class *splitfilename_class;

typedef struct _splitfilename
{
	t_object x_obj;
	char     x_sep[2];
	void     *x_outpath;
	void     *x_outfile;
} t_splitfilename;

static void splitfilename_separator(t_splitfilename *x, t_symbol *s, int ac, t_atom *av)
{
	if(ac > 0)
	{
		if(IS_A_SYMBOL(av, 0))
		{
			if(strlen(av->a_w.w_symbol->s_name) == 1)
				x->x_sep[0] = av->a_w.w_symbol->s_name[0];
			else if(!strcmp(av->a_w.w_symbol->s_name, "backslash"))
				x->x_sep[0] = '\\';
			else if(!strcmp(av->a_w.w_symbol->s_name, "slash"))
				x->x_sep[0] = '/';
			else if(!strcmp(av->a_w.w_symbol->s_name, "blank"))
				x->x_sep[0] = ' ';
			else if(!strcmp(av->a_w.w_symbol->s_name, "space"))
				x->x_sep[0] = ' ';
			else if(!strcmp(av->a_w.w_symbol->s_name, "dollar"))
				x->x_sep[0] = '$';
			else if(!strcmp(av->a_w.w_symbol->s_name, "comma"))
				x->x_sep[0] = ',';
			else if(!strcmp(av->a_w.w_symbol->s_name, "semi"))
				x->x_sep[0] = ';';
			else if(!strcmp(av->a_w.w_symbol->s_name, "leftbrace"))
				x->x_sep[0] = '{';
			else if(!strcmp(av->a_w.w_symbol->s_name, "rightbrace"))
				x->x_sep[0] = '}';
			else
				x->x_sep[0] = '/';
		}
		else if(IS_A_FLOAT(av, 0))
		{
			int i;
			float f=fabs(av->a_w.w_float);
			
			while(f >= 10.0)
				f *= 0.1;
			i = (int)f;
			x->x_sep[0] = (char)i + '0';
		}
	}
	else
		x->x_sep[0] = 0;
}

static void splitfilename_symbol(t_splitfilename *x, t_symbol *s)
{
	int len = strlen(s->s_name);
	
	if(len)
	{
		if(x->x_sep[0] != 0)
		{
			char *str_path = (char *)getbytes(len*sizeof(char));
			char *str_file = (char *)getbytes(len*sizeof(char));
			char *cpp, *cpf;
			
			strcpy(str_path, s->s_name);
			strcpy(str_file, s->s_name);
			cpp = strrchr(str_path, x->x_sep[0]);
			cpf = strrchr(str_file, x->x_sep[0]);
			if(!cpp) /* JMZ: 20050701 */
			{
			  post("1");
				outlet_symbol(x->x_outfile, gensym(str_file));
				outlet_symbol(x->x_outpath, &s_);			  
			} 
			else if (!cpf) /* JMZ: 20050701 */
			{
			  post("2");
				outlet_symbol(x->x_outfile, &s_);
				outlet_symbol(x->x_outpath, gensym(str_path));
			}
			else if((cpp - str_path) < 0) /* JMZ:removed typecast (char*) to (int); this is not portable */
			  {
				outlet_symbol(x->x_outfile, gensym(str_file));
				outlet_symbol(x->x_outpath, &s_);
			  }
			else if((cpp - str_path) >= len) /* JMZ: removed typecast (char*) to (int) */
			    {
				outlet_symbol(x->x_outfile, &s_);
				outlet_symbol(x->x_outpath, gensym(str_path));
			  }
			  else
			  {
				*cpp = 0;
				cpf++;
				outlet_symbol(x->x_outfile, gensym(cpf));
				outlet_symbol(x->x_outpath, gensym(str_path));
			  }
			freebytes(str_file, len*sizeof(char));
			freebytes(str_path, len*sizeof(char));
		}
		else
		{
			outlet_symbol(x->x_outfile, &s_);
			outlet_symbol(x->x_outpath, s);
		}
	}
}

static void *splitfilename_new(t_symbol *s, int ac, t_atom *av)
{
	t_splitfilename *x = (t_splitfilename *)pd_new(splitfilename_class);
	
	x->x_sep[0] = 0;
	x->x_sep[1] = 0;
	if(ac == 0)
		x->x_sep[0] = '/';
	else
		splitfilename_separator(x, s, ac, av);
	x->x_outpath = outlet_new(&x->x_obj, &s_symbol);
	x->x_outfile = outlet_new(&x->x_obj, &s_symbol);
	return (x);
}

void splitfilename_setup(void)
{
	splitfilename_class = class_new(gensym("splitfilename"), (t_newmethod)splitfilename_new,
		0, sizeof(t_splitfilename), 0, A_GIMME, 0);
	class_addsymbol(splitfilename_class, splitfilename_symbol);
	class_addmethod(splitfilename_class, (t_method)splitfilename_separator, gensym("separator"), A_GIMME, 0);
	class_addmethod(splitfilename_class, (t_method)splitfilename_separator, gensym("sep"), A_GIMME, 0);
	class_sethelpsymbol(splitfilename_class, gensym("iemhelp/help-splitfilename"));
}