#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"; staticintword(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;} staticintset(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 */staticintriostrtol(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;} staticintparsewctl(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, cnt, cmd, j, id, hideit, scrollit, pid;	char *arg, *dir, *err;	Mouse m;	Rectangle rect; 	cnt = n;	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";}