#include <u.h>
#include <libc.h>
#include <draw.h>
#include <thread.h>
#include <mouse.h>
#include <keyboard.h>
#include <control.h>

typedef struct Radio Radio;

struct Radio
{
	Control;
	int		value;
	int		lastbut;
	Control	**buttons;
	int		nbuttons;
	char		*eventstr;
};

enum{
	EAdd,
	EButton,
	EFocus,
	EFormat,
	EHide,
	ERect,
	EReveal,
	EShow,
	ESize,
	EValue,
};

static char *cmds[] = {
	[EAdd] =		"add",
	[EButton] =	"button",
	[EFocus] = 	"focus",
	[EFormat] = 	"format",
	[EHide] =		"hide",
	[ERect] =		"rect",
	[EReveal] =	"reveal",
	[EShow] =		"show",
	[ESize] =		"size",
	[EValue] =		"value",
	nil
};

static void	radioshow(Radio*);
static void	radiofree(Radio*);

static void
radiomouse(Control *c, Mouse *m)
{
	Radio *r;
	int i;

	r = (Radio*)c;
	for(i=0; i<r->nbuttons; i++)
		if(ptinrect(m->xy, r->buttons[i]->rect) && r->buttons[i]->mouse){
			(r->buttons[i]->mouse)(r->buttons[i], m);
			break;
		}
}

static void
radiofree(Radio*)
{
}

static void
radioshow(Radio *r)
{
	int i;

	if (r->hidden)
		return;
	for(i=0; i<r->nbuttons; i++){
		_ctlprint(r->buttons[i], "value %d", (r->value==i));
		_ctlprint(r->buttons[i], "show");
	}
}

static void
radioctl(Control *c, CParse *cp)
{
	int cmd, i;
	Rectangle rect;
	Radio *r;
	char fmt[256];

	r = (Radio*)c;

	cmd = _ctllookup(cp->args[0], cmds, nelem(cmds));
	switch(cmd){
	default:
		ctlerror("%q: unrecognized message '%s'", r->name, cp->str);
		break;
	case EAdd:
		_ctlargcount(r, cp, 2);
		c = controlcalled(cp->args[1]);
		if(c == nil)
			ctlerror("%q: can't add %s: %r", r->name, cp->args[1]);
		snprint(fmt, sizeof fmt, "%%q: %q button %%d", r->name);
		_ctlprint(c, "format %q", fmt);
		controlwire(c, "event", c->controlset->ctl);
		r->buttons = ctlrealloc(r->buttons, (r->nbuttons+1)*sizeof(Control*));
		r->buttons[r->nbuttons] = c;
		r->nbuttons++;
		r->value = -1;
		radioshow(r);
		break;
	case EButton:
		if (cp->sender == nil)
			ctlerror("%q: senderless buttonevent: %q", r->name, cp->str);
		c = controlcalled(cp->sender);
		for(i=0; i<r->nbuttons; i++)
			if (c == r->buttons[i])
				break;
		if (i == r->nbuttons)
			ctlerror("%q: not my event: %q", r->name, cp->str);
		if(cp->iargs[1] == 0){
			/* button was turned off; turn it back on */
			_ctlprint(c, "value 1");
		}else{
			r->value = i;
			chanprint(r->event, r->format, r->name, i);
			radioshow(r);
		}
		break;
	case EFormat:
		_ctlargcount(r, cp, 2);
		r->format = ctlstrdup(cp->args[1]);
		break;
	case EHide:
		_ctlargcount(r, cp, 1);
		r->hidden = 1;
		break;
	case EFocus:
		/* ignore focus change */
		break;
	case ERect:
		_ctlargcount(r, cp, 5);
		rect.min.x = cp->iargs[1];
		rect.min.y = cp->iargs[2];
		rect.max.x = cp->iargs[3];
		rect.max.y = cp->iargs[4];
		r->rect = rect;
		break;
	case EReveal:
		_ctlargcount(r, cp, 1);
		r->hidden = 0;
		radioshow(r);
		break;
	case EShow:
		_ctlargcount(r, cp, 1);
		radioshow(r);
		break;
	case ESize:
		if (cp->nargs == 3)
			rect.max = Pt(0x7fffffff, 0x7fffffff);
		else{
			_ctlargcount(r, cp, 5);
			rect.max.x = cp->iargs[3];
			rect.max.y = cp->iargs[4];
		}
		rect.min.x = cp->iargs[1];
		rect.min.y = cp->iargs[2];
		if(rect.min.x<=0 || rect.min.y<=0 || rect.max.x<=0 || rect.max.y<=0 || rect.max.x < rect.min.x || rect.max.y < rect.min.y)
			ctlerror("%q: bad sizes: %s", r->name, cp->str);
		r->size.min = rect.min;
		r->size.max = rect.max;
		break;
	case EValue:
		_ctlargcount(r, cp, 2);
		r->value = cp->iargs[1];
		radioshow(r);
		break;
	}
}

Control*
createradiobutton(Controlset *cs, char *name)
{
	Radio *r;

	r = (Radio*)_createctl(cs, "label", sizeof(Radio), name);
	r->format = ctlstrdup("%q: value %d");
	r->value = -1;	/* nobody set at first */
	r->mouse = radiomouse;
	r->ctl = radioctl;
	return (Control*)r;
}