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

int	Nline;

enum{
	Back,
	Shade,
	Light,
	Mask,
	Ncol
};

enum {
	Keyback		= 0xeeee9eff,
	Keyshade		= 0xaaaa55ff,
	Keylight		= DWhite,
	Keymask		= 0x0C0C0C0C,
};

Image	*cols[Ncol];

int nline;

char *lines[24];	/* plus one so last line gets terminated by getfields */
Control *entry[24];
Control *kbd;
Control *scrib;
Controlset *keyboard;
Controlset *text;
int kbdy;

int resizeready;

int ctldeletequits = 1;

Channel *eventchan;

void
resizecontrolset(Controlset *cs)
{
	int i;
	Rectangle r, r1;

	if(cs != keyboard)
		return;
	if (!resizeready)
		return;
	if(getwindow(display, Refnone) < 0)
		ctlerror("resize failed: %r");
	draw(screen, screen->r, cols[Back], nil, ZP);
	r = insetrect(screen->r, 4);
	for(i=0; i<Nline; i++){
		r.max.y = r.min.y + font->height;
		ctlprint(entry[i], "rect %R", r);
		ctlprint(entry[i], "show");
		r.min.y = r.max.y;
	}
	kbdy = r.min.y;

	r = screen->r;
	r.min.y = kbdy;
	r.max.y = screen->r.max.y;
	r.min.y = r.max.y - 2*2 - 5*13;
	if(r.min.y >= r.max.y)
		r.min.y = r.max.y;
	r1 = r;
	if(scrib)
		r.max.x = (3*r.max.x + r.min.x)/4;
	ctlprint(kbd, "rect %R", r);
	ctlprint(kbd, "show");
	if(scrib){
		r1.min.x = (3*r1.max.x + r1.min.x)/4;
		ctlprint(scrib, "rect %R", r1);
		ctlprint(scrib, "show");
	}
}

void
readall(char *s)
{
	char *buf;
	int fd;
	Dir *d;

	fd = open(s, OREAD);
	if(fd < 0){
		fprint(2, "prompter: can't open %s: %r\n", s);
		exits("open");
	}
	d = dirfstat(fd);
	if(d == nil){
		fprint(2, "prompter: can't stat %s: %r\n", s);
		exits("stat");
	}
	buf = ctlmalloc(d->length+1);	/* +1 for NUL on end */
	if(read(fd, buf, d->length) != d->length){
		fprint(2, "prompter: can't read %s: %r\n", s);
		exits("stat");
	}
	nline = getfields(buf, lines, nelem(lines), 0, "\n");
	free(d);
	close(fd);
}

void
mousemux(void *v)
{
	Mouse m;
	Channel *c;

	c = v;

	for(;;){
		if(recv(c, &m) < 0)
			break;
		if(m.buttons & 0x20) {
			sendp(eventchan, "mouse: exit");
			break;
		}
		if(m.xy.y >= kbdy)
			send(keyboard->mousec, &m);
		else
			send(text->mousec, &m);
	}
}

void
resizemux(void *v)
{
	Channel *c;

	c = v;

	for(;;){
		if(recv(c, nil) < 0)
			break;
		send(keyboard->resizec, nil);
		send(text->resizec, nil);
	}
}

void
writeall(char *s)
{
	int fd;
	int i, n;

	fd = create(s, OWRITE, 0666);
	if(fd < 0){
		fprint(2, "prompter: can't create %s: %r\n", s);
		exits("open");
	}

	for(n=Nline; --n>=0; )
		if(lines[n][0] != '\0')
			break;

	for(i=0; i<=n; i++)
		fprint(fd, "%s\n", lines[i]);
	close(fd);
}

void
usage(void)
{
	fprint(2, "usage: prompter file\n");
	threadexitsall("usage");
}

void
threadmain(int argc, char *argv[])
{
	char *s;
	Font *f;
	int i, n;
	char buf[32], *args[3];
	Keyboardctl *kbdctl;
	Mousectl *mousectl;
	Rune r;
	Channel *mtok, *mtot, *ktok, *rtok, *rtot;
	int noscrib;

	noscrib = 0;
	ARGBEGIN{
	case 'n':
		noscrib++;
		break;
	default:
		usage();
	}ARGEND

	if(argc != 1)
		usage();

	readall(argv[0]);

	initdraw(0, 0, "prompter");
	mousectl = initmouse(nil, screen);
	kbdctl = initkeyboard(nil);

	mtok = chancreate(sizeof(Mouse), 0);
	mtot = chancreate(sizeof(Mouse), 0);
	ktok = chancreate(sizeof(Rune), 20);
	rtok = chancreate(sizeof(int), 2);
	rtot = chancreate(sizeof(int), 2);

	initcontrols();

	keyboard = newcontrolset(screen, ktok, mtok, rtok);
	text = newcontrolset(screen, kbdctl->c, mtot, rtot);
	text->clicktotype = 1;

	threadcreate(mousemux, mousectl->c, 4096);
	threadcreate(resizemux, mousectl->resizec, 4096);

	eventchan = chancreate(sizeof(char*), 0);

	cols[Back] = allocimage(display, Rect(0,0,1,1), screen->chan, 1, Keyback);
	namectlimage(cols[Back], "keyback");
	cols[Light] = allocimage(display, Rect(0,0,1,1), screen->chan, 1, Keylight);
	namectlimage(cols[Light], "keylight");
	cols[Shade] = allocimage(display, Rect(0,0,1,1), screen->chan, 1, Keyshade);
	namectlimage(cols[Shade], "keyshade");
	cols[Mask] = allocimage(display, Rect(0,0,1,1), RGBA32, 1, Keymask);
	namectlimage(cols[Shade], "keymask");
	f = openfont(display, "/lib/font/bit/lucidasans/boldlatin1.6.font");
	namectlfont(f, "bold");
	f = openfont(display, "/lib/font/bit/lucidasans/unicode.6.font");
	namectlfont(f, "roman");
	font = f;

	Nline = (screen->r.max.y - 2*2 - 5*13 - 8)/font->height;
	if (Nline > nelem(entry)) Nline = nelem(entry);

	for(i=0; i<Nline; i++){
		snprint(buf, sizeof buf, "line.%.2d", i);
		entry[i] = createentry(text, buf);
		ctlprint(entry[i], "font roman");
		ctlprint(entry[i], "image keyback");
		if(i < nline)
			ctlprint(entry[i], "value %q", lines[i]);
		controlwire(entry[i], "event", eventchan);
		activate(entry[i]);
	}

	kbd = createkeyboard(keyboard, "keyboard");
	ctlprint(kbd, "font bold roman");
	ctlprint(kbd, "image keyback");
	ctlprint(kbd, "light keylight");
	ctlprint(kbd, "mask keymask");
	ctlprint(kbd, "border 1");
	controlwire(kbd, "event", eventchan);

	scrib = nil;
	if(!noscrib){
		scrib = createscribble(keyboard, "scribble");
		ctlprint(scrib, "font bold");
		ctlprint(scrib, "image keyback");
		ctlprint(scrib, "border 1");
		controlwire(scrib, "event", eventchan);
		activate(scrib);
	}

	activate(kbd);
	resizeready = 1;
	resizecontrolset(keyboard);

	for(;;){
		s = recvp(eventchan);
		n = tokenize(s, args, nelem(args));
		if(n == 2 && strcmp(args[0], "mouse:")==0 && strcmp(args[1], "exit")==0)
			break;
		if(n == 3)
		if(strcmp(args[0], "keyboard:")==0 || strcmp(args[0], "scribble:")==0)
		if(strcmp(args[1], "value") == 0){
			n = strtol(args[2], 0, 0);
			if(n == '\033')	/* Escape exits */
				break;
			if(n <= Runemax){
				r = n;
				send(kbdctl->c, &r);
			}
		}
	}

	for(i=0; i<Nline; i++){
		ctlprint(entry[i], "data");
		lines[i] = ctlstrdup(recvp(entry[i]->data));
	}

	writeall(argv[0]);

	draw(screen, screen->r, display->white, nil, ZP);
	flushimage(display, 1);

	threadexitsall(nil);
}