/* past.c -- triggering after numbers get "past" a certain point ------- */

#include "ext.h"

typedef struct past
{
	t_object p_ob;
	t_atom p_vector[8];
	short p_size;
	short p_set;
	void *p_out;
} t_past;

void past_int(t_past *x, long n);
void past_float(t_past *x, double f);
void past_list(t_past *x, Symbol *s, short ac, Atom *av);
void past_clear(t_past *x);
void past_set(t_past *x, Symbol *s, short ac, Atom *av);
void past_assist(t_past *x, void *b, long m, long a, char *s);
void *past_new(Symbol *s, short ac, Atom *av);
void past_assign(t_past *x, short ac, Atom *av);
short past_compare(t_past *x, t_atom *a, long index);

void *past_class;

void main()
{
	setup((t_messlist **)&past_class, (method)past_new,0L, (short)sizeof(t_past), 0L, A_GIMME, 0);
	addint((method)past_int);
	addfloat((method)past_float);
	addmess((method)past_list,	"list",		A_GIMME,0);
	addmess((method)past_clear,	"clear", 	0);
	addmess((method)past_assist,"assist",	A_CANT,0);
	addmess((method)past_set,	"set",		A_GIMME,0);
	finder_addclass("Control","past");
	rescopy('STR#',3010);	
}

void past_int(t_past *x, long n)
{
	t_atom a;
	
	a.a_type = A_LONG;
	a.a_w.w_long = n;
	if (x->p_size==1) {
		if (past_compare(x,&a,0) > 0) {
			if (!x->p_set) {
				x->p_set = 1;
				outlet_bang(x->p_out);
			}
		} else {
			x->p_set = 0;
		}
	} else {
		if (past_compare(x,&a,0) < 0)
			x->p_set = 0;
	}
}

void past_float(t_past *x, double f)
{
	Boolean failed = TRUE;
	t_atom a;
	
	a.a_type = A_FLOAT;
	a.a_w.w_float = f;
	if (x->p_size==1) {
		if (past_compare(x,&a,0) > 0) {
			if (!x->p_set) {
				x->p_set = 1;
				outlet_bang(x->p_out);
			}
		} else {
			x->p_set = 0;
		}
	} else {
		if (past_compare(x,&a,0) < 0)
			x->p_set = 0;
	}
}

void past_list(t_past *x, Symbol *s, short ac, Atom *av)
{
	short i;
	short canfail,result;
	
	canfail = false;
	if (ac <= x->p_size) {
		result = past_compare(x,av,0);
		if (result >= 0) {
			if (result == 0)
				canfail = true;
			for (i=1; i < ac; i++) {
				result = past_compare(x,av+i,i);
				if (result < 0) {
					if (canfail) {
						x->p_set = 0;
						return;	/* move this inside bracket 7/8/92 */
					}
				}
				if (canfail && result == 0)
					canfail = 1;
				else
					canfail = 0;
			}
			if (!x->p_set) {
				x->p_set = 1;
				outlet_bang(x->p_out);
			}	
		} else {
			x->p_set = 0;
		}
	}
}

void past_clear(t_past *x)
{
	x->p_set = 0;
}

void past_set(t_past *x, Symbol *s, short ac, Atom *av)
{
	if (ac)
		past_assign(x,ac,av);
}

void past_assist(t_past *x, void *b, long m, long a, char *s)
{
	assist_string(3010,m,a,1,2,s);
}

void *past_new(Symbol *s, short ac, Atom *av)
{
	t_past *x;
	Symbol *nn;
	short i;
	Atom *temp;
	
	x = (t_past *)newobject(past_class);
	x->p_out = bangout((t_object *)x);
	past_assign(x,ac,av);
	x->p_set = 0;
	return x;
}			

void past_assign(t_past *x, short ac, Atom *av)
{
	short i;
	
	if (ac > 8)
		ac = 8;
	for (i = 0; i < ac; i++,av++)
		x->p_vector[i] = *av;
	x->p_size = ac;
}

short past_compare(t_past *x, t_atom *a, long index)
{
	t_atom *b;
	float temp1,temp2;
	
	b = x->p_vector + index;
	if (a->a_type == A_LONG) {
		if (b->a_type == A_LONG) {
			if (a->a_w.w_long > b->a_w.w_long)
				return 1;
			else if (a->a_w.w_long == b->a_w.w_long)
				return 0;
			else
				return -1;
		} else if (b->a_type == A_FLOAT) {
			temp1 = (float)a->a_w.w_long;
			if (temp1 > b->a_w.w_float)
				return 1;
			else if (temp1 == b->a_w.w_float)
				return 0;
			else
				return -1;
		} else {
			if (a->a_w.w_long > 0)
				return 1;
			else if (a->a_w.w_long == 0)
				return 0;
			else
				return -1;
		}
	} else if (a->a_type == A_FLOAT) {
		if (b->a_type == A_LONG) {
			temp1 = (float)b->a_w.w_long;
			if (a->a_w.w_float > temp1)
				return 1;
			else if (a->a_w.w_float == temp1)
				return 0;
			else
				return -1;
		} else if (b->a_type == A_FLOAT) {
			if (a->a_w.w_float > b->a_w.w_float)
				return 1;
			else if (a->a_w.w_float == b->a_w.w_float)
				return 0;
			else
				return -1;
		} else {
			if (a->a_w.w_float > 0.)
				return 1;
			else if (a->a_w.w_float == 0.)
				return 0;
			else
				return -1;
		}
	}
	return -1;
}