#include <ctype.h>
#include <lib9.h>
#include <draw.h>
#include <cursor.h>
#include "dat.h"
#include "fns.h"

/* >= Top are disallowed if mouse button is pressed */
enum
{
	New,
	Resize,
	Move,
	Scroll,
	Noscroll,
	Set,
	Top,
	Bottom,
	Current,
	Hide,
	Unhide,
	Delete,
};

static char *cmds[] = {
	[New]	= "new",
	[Resize]	= "resize",
	[Move]	= "move",
	[Scroll]	= "scroll",
	[Noscroll]	= "noscroll",
	[Set]		= "set",
	[Top]	= "top",
	[Bottom]	= "bottom",
	[Current]	= "current",
	[Hide]	= "hide",
	[Unhide]	= "unhide",
	[Delete]	= "delete",
	nil
};

enum
{
	Cd,
	Deltax,
	Deltay,
	Hidden,
	Id,
	Maxx,
	Maxy,
	Minx,
	Miny,
	PID,
	R,
	Scrolling,
	Noscrolling,
};

static char *params[] = {
	[Cd]	 			= "-cd",
	[Deltax]			= "-dx",
	[Deltay]			= "-dy",
	[Hidden]			= "-hide",
	[Id]				= "-id",
	[Maxx]			= "-maxx",
	[Maxy]			= "-maxy",
	[Minx]			= "-minx",
	[Miny]			= "-miny",
	[PID]				= "-pid",
	[R]				= "-r",
	[Scrolling]			= "-scroll",
	[Noscrolling]		= "-noscroll",
	nil
};

/* Error messages */
char
//	Ebadcmd[] =	"unrecognized wctl command",
	Ebadparam[] =	"missing or bad wctl parameter",
	Ebadmsg[] =	"invalid wctl message",
	Emouse[] =	"action disallowed when mouse active",
	Enowinid[] =	"no such window id";
//	Edeleted[] =	"window deleted";

static
int
word(char **sp, char *tab[])
{
	char *s, *t;
	int i;

	s = *sp;
	while(isspace(*s))
		s++;
	t = s;
	while(*s!='\0' && !isspace(*s))
		s++;
	for(i=0; tab[i]!=nil; i++)
		if(strncmp(tab[i], t, strlen(tab[i])) == 0){
			*sp = s;
			return i;
	}
	return -1;
}

static
int
set(int sign, int neg, int abs, int pos)
{
	if(sign < 0)
		return neg;
	if(sign > 0)
		return pos;
	return abs;
}

/* permit square brackets, in the manner of %R */
static
int
riostrtol(char *s, char **t)
{
	int n;

	while(*s!='\0' && (*s==' ' || *s=='\t' || *s=='['))
		s++;
	if(*s == '[')
		s++;
	n = strtol(s, t, 10);
	if(*t != s)
		while((*t)[0] == ']')
			(*t)++;
	return n;
}

static
int
parsewctl(char **argp, Rectangle r, Rectangle *rp, int *pidp, int *idp, int *hiddenp, int *scrollingp, char **cdp, char *s, char *err)
{
	int cmd, param, xy, sign;
	char *t;

	/*
	 * Scrolling defaults to the option given in rio,
	 * we ignore it, so it is set to 0.
	 * The New command does not create windows
	 * yet, but it sets their parameters to do it later.
	 */
	*pidp = 0;
	*hiddenp = 0;
	*scrollingp = 0;
	*cdp = nil;
	cmd = word(&s, cmds);
	if(cmd < 0){
		err = "unrecognized wctl command";
		return -1;
	}

	err = "missing or bad wctl parameter";
	while((param = word(&s, params)) >= 0){
		switch(param){	/* special cases */
		case Hidden:
			*hiddenp = 1;
			continue;
		case Scrolling:
			*scrollingp = 1;
			continue;
		case Noscrolling:
			*scrollingp = 0;
			continue;
		case R:
			r.min.x = riostrtol(s, &t);
			if(t == s)
				return -1;
			s = t;
			r.min.y = riostrtol(s, &t);
			if(t == s)
				return -1;
			s = t;
			r.max.x = riostrtol(s, &t);
			if(t == s)
				return -1;
			s = t;
			r.max.y = riostrtol(s, &t);
			if(t == s)
				return -1;
			s = t;
			continue;
		}
		while(isspace(*s))
			s++;
		if(param == Cd){
			*cdp = s;
			while(*s && !isspace(*s))
				s++;
			if(*s != '\0')
				*s++ = '\0';
			continue;
		}
		sign = 0;
		if(*s == '-'){
			sign = -1;
			s++;
		}else if(*s == '+'){
			sign = +1;
			s++;
		}
		if(!isdigit(*s))
			return -1;
		xy = riostrtol(s, &s);
		switch(param){
		case -1:
			err = "unrecognized wctl parameter";
			return -1;
		case Minx:
			r.min.x = set(sign, r.min.x-xy, xy, r.min.x+xy);
			break;
		case Miny:
			r.min.y = set(sign, r.min.y-xy, xy, r.min.y+xy);
			break;
		case Maxx:
			r.max.x = set(sign, r.max.x-xy, xy, r.max.x+xy);
			break;
		case Maxy:
			r.max.y = set(sign, r.max.y-xy, xy, r.max.y+xy);
			break;
		case Deltax:
			r.max.x = set(sign, r.max.x-xy, r.min.x+xy, r.max.x+xy);
			break;
		case Deltay:
			r.max.y = set(sign, r.max.y-xy, r.min.y+xy, r.max.y+xy);
			break;
		case Id:
			if(idp != nil)
				*idp = xy;
			break;
		case PID:
			if(pidp != nil)
				*pidp = xy;
			break;
		}
	}

	*rp = r;

	while(isspace(*s))
		s++;
	if(cmd!=New && *s!='\0'){
		err = "extraneous text in wctl message";
		return -1;
	}

	if(argp)
		*argp = s;

	return cmd;
}

char*
wctlmesg(Window *w, char *a, int n)
{
	int buttons, cmd, j, id, hideit, scrollit, pid;
	char *arg, *dir, *err;
	Mouse m;
	Rectangle rect;

	id = pid = 0;
	err = nil;
	buttons = w->mouse.m[w->mouse.ri].buttons;

	rect = rectaddpt(w->screenr, w->orig);
	cmd = parsewctl(&arg, rect, &rect, &pid, &id, &hideit, &scrollit, &dir, a, err);
	if(cmd < 0)
		return err;

	if(buttons!=0 && cmd>=Top)
		return "action disallowed when mouse active";

	if(id != 0){
		for(j=0; j<nwindow; j++)
			if(window[j]->id == id)
				break;
		if(j == nwindow)
			return "no such window id";
		w = window[j];
		if(w->deleted)
			return "window deleted";
	}

	switch(cmd){
	case New:
		w->pid = pid;
		w->screenr = rect;
		w->visible = !hideit;
		if(arg)
			w->label = strdup(arg);
		return nil;
	case Set:
		w->pid = pid;
		return nil;
	case Move:
		rect = Rect(rect.min.x, rect.min.y, rect.min.x+Dx(w->screenr), rect.min.y+Dy(w->screenr));
		/* fall through */
	case Resize:
		if(eqrect(rect, rectaddpt(w->screenr, w->orig)))
			return nil;
		xresizewindow(w, rect);
		writemouse(w, m, 1); // XXX
		return nil;
	case Scroll:
		// w->scrolling = 1;
		// wshow(w, w->nr);
		// wsendctlmesg(w, Wakeup, ZR, nil);
		return nil;
	case Noscroll:
		// w->scrolling = 0;
		// wsendctlmesg(w, Wakeup, ZR, nil);
		return nil;
	case Top:
		xtopwindow(w);
		return nil;
	case Bottom:
		xbottomwindow(w);
		return nil;
	case Current:
		xcurrentwindow(w);
		return nil;
	case Hide:
		if(!w->visible)
			return nil;
		w->visible = 0;
		rect = rectaddpt(w->screenr, w->orig);
		xresizewindow(w, rect);
		return nil;
	case Unhide:
		if(w->visible)
			return nil;
		w->visible = 1;
		rect = rectaddpt(w->screenr, w->orig);
		xresizewindow(w, rect);
		return nil;
	case Delete:
		deletewin(w);
		return nil;
	}
	return "invalid wctl message";
}