/* quad.c   by Michael Thorpe   2019-08-10 */

#include <assert.h>
#include <curses.h>
#include <errno.h>
#include <signal.h>
#include <stdio.h>
#include <stdlib.h>
#include <string.h>
#include "runner.h"

enum dispmode_t {WIDE,LOOKS,MHL};

static enum dispmode_t dispmode=WIDE;
static int midy,midx;
struct frame *curframe=0;

static void cleanup() {
	signal(SIGINT,SIG_IGN);
	move(LINES-1,0);
	clrtoeol();
	refresh();
	endwin();
}

void draw_titlebar(struct frame *frame) {
	int i,l;
	if(frame->title && 0<frame->y && 8<=frame->w) {
		l=strlen(frame->title);
		if(l+2<=frame->w) {
			move(frame->y-1,frame->x);
			for(i=0;i<(frame->w-(l+2))/2;i++)
				addch('-');
			if(frame==curframe)
				standout();
			addch(' ');
			addstr(frame->title);
			addch(' ');
			if(frame==curframe)
				standend();
			i+=l+2;
			for(;i<frame->w;i++)
				addch('-');
		}
	}
}

static void setupscreen() {
	midy=(LINES-1)/2,midx=COLS/2;
	if(midy<1+12 && 1+12+1<LINES-1)
		midy=1+12;
	midx=COLS/2;
	scenesframe.y=1;
	scenesframe.x=0;
	scenesframe.h=midy-1;
	scenesframe.w=COLS;
	scenesframe.title="SCENES";
	looksframe.y=1;
	looksframe.x=midx+1;
	looksframe.h=midy-1;
	looksframe.w=0;
	looksframe.title="LOOKS";
	mhlframe.y=1;
	mhlframe.x=midx+1;
	mhlframe.h=midy-1;
	mhlframe.w=0;
	mhlframe.title="MOVING LIGHT";
	dmxinframe.y=midy+1;
	dmxinframe.x=0;
	dmxinframe.h=LINES-1-(midy+1);
	dmxinframe.w=midx;
	if(!dmxinframe.title)
		dmxinframe.title="DMX IN";
	dmxoutframe.y=midy+1;
	dmxoutframe.x=midx+1;
	dmxoutframe.h=LINES-(midy+1);
	dmxoutframe.w=COLS-dmxoutframe.x;
	dmxoutframe.title="DMX OUT";
	cliframe.y=LINES-1;
	cliframe.x=0;
	cliframe.h=1;
	cliframe.w=midx;
	cliframe.title=0;
	if(!curframe)
		curframe=&scenesframe;
}

static void drawscreen() {
	int i;
	setupscreen();
/* The horizontal lines shouldn't be necessary */
	move(0,0);
	for(i=0;i<COLS;i++)
		addch('-');
	move(midy,0);
	for(i=0;i<COLS;i++)
		addch('-');
	if(WIDE != dispmode) {
		mvaddch(0,midx,'+');
		for(i=1;i<midy;i++)
			mvaddch(i,midx,'|');
	}
	mvaddch(midy,midx,'+');
	for(i=midy+1;i<LINES;i++)
		mvaddch(i,midx,'|');
	switch(dispmode) {
	case WIDE:
		scenesframe.w=COLS;
		looksframe.w=0;
		mhlframe.w=0;
		break;
	case LOOKS:
		scenesframe.w=midx;
		looksframe.w=COLS-midx-1;
		mhlframe.w=0;
		looksframe.draw();
		break;
	case MHL:
		scenesframe.w=midx;
		looksframe.w=0;
		mhlframe.w=COLS-midx-1;
		mhlframe.draw();
		break;
	}
	scenesframe.draw(&scenesframe);
	dmxinframe.draw(&dmxinframe);
	dmxoutframe.draw(&dmxoutframe);
	cliframe.draw(&cliframe);
}

void setdispmode(enum dispmode_t new) {
	struct frame *oldframe;
	if(curframe) {
		oldframe=curframe;
		curframe=0;
		draw_titlebar(oldframe);
		curframe=oldframe;
	}
	switch(new) {
	case WIDE:
		curframe=&scenesframe;
		break;
	case LOOKS:
		curframe=&looksframe;
		break;
	case MHL:
		curframe=&mhlframe;
		break;
	}
	dispmode=new;
	drawscreen();
	if(curframe)
		draw_titlebar(curframe);
}

static void handle_stdin(int c) {
/* First handle the stuff that doesn't get grabbed by cliframe */
	if(EOF==c || 3==c) /* Ctrl-C */
		exit(0);
	if(KEY_RESIZE==c) {
		drawscreen();
		return;
	}
/* Now let cliframe take anything it wants if it's active */
	if(&cliframe==curframe && cliframe.input(c))
		return;
/* Then grab our "default" keybindings and let the active frame take the rest */
	switch(c) {
	case 12: /* Ctrl-L: redraw screen */
		move(0,0);
		clrtobot();
		refresh();
		drawscreen();
		break;
	case ' ':
		scenesframe.input(c);
		break;
	case ':':
		cliframe.input(c);
		break;
	case 'L':
		if(LOOKS==dispmode)
			setdispmode(WIDE);
		else
			setdispmode(LOOKS);
		break;
	case 'M':
		if(MHL==dispmode)
			setdispmode(WIDE);
		else
			setdispmode(MHL);
		break;
	default:
		if(curframe && curframe->input && (curframe->input)(c))
			break;
		if('\x08'==c || '='==c || '\x7F'==c)
			playaudio("=");
		else if('+'==c)
			playaudio("+");
		else
			errmsg("Unknown char");
		break;
	}
}

int main(int argc,char **argv) {
	fd_set r;
	int c,i,maxfd;
	struct timeval tv;
	int testmode=0;
	if(1 != argc) {
		if(2==argc && !strcmp("-t",argv[1])) {
			testmode=1;
		} else {
			fputs("usage: runner [-t]\n",stderr);
			return(1);
		}
	}
	if(startaudio(testmode)) { /* this needs to be above looks_load */
		fputs("failed to start audio\n",stderr);
		return(1);
	}
	if(looks_load()) { /* this needs to be above scenes_load */
		fputs("failed to load looks\n",stderr);
		return(1);
	}
	if(mhl_load()) { /* this needs to be above scenes_load */
		fputs("failed to load MHL settings\n",stderr);
		return(1);
	}
	if(scenes_load()) {
		fputs("failed to load scenes\n",stderr);
		return(1);
	}
	if(fade_init()) { /* this needs to be after looks_load */
		fputs("failed to initialize fading\n",stderr);
		return(1);
	}
	if(dmx_setup(testmode)) {
		fputs("failed to load DMX\n",stderr);
		return(1);
	}
	if(!initscr()) {
		perror("initscr");
		return(1);
	}
	atexit(cleanup);
	signal(SIGINT,cleanup);
	raw();
	noecho();
	keypad(stdscr,1);
	drawscreen();
	while(1) {
		move(LINES-1,rest_column);
		refresh();
		FD_ZERO(&r);
		FD_SET(0,&r);
		maxfd=0;
		if(-1 != dmxin.fd) {
			FD_SET(dmxin.fd,&r);
			if(maxfd<dmxin.fd)
				maxfd=dmxin.fd;
		}
		for(i=0;i<numprocdmx;i++) {
			if(-1==procdmx[i]->fd)
				continue;
			FD_SET(procdmx[i]->fd,&r);
			if(maxfd<procdmx[i]->fd)
				maxfd=procdmx[i]->fd;
		}
		tv.tv_sec=0;
		tv.tv_usec=(curlook && nullupdate != curlook->update)?25000:125000;
		if(-1==select(maxfd+1,&r,0,0,&tv)) {
			if(EINTR==errno) {
/* It may be a window-resize event, in which case we need to getch the KEY_RESIZE which doesn't show up in select */
				halfdelay(1);
				c=getch();
				raw(); // this seems to clear halfdelay, so we don't need nocbreak()
				if(ERR != c)
					handle_stdin(c);
				continue;
			}
			perror("select");
			exit(-1);
		}
		if(FD_ISSET(0,&r))
			handle_stdin(getch());
		if(-1 != dmxin.fd && FD_ISSET(dmxin.fd,&r))
			dmx_readable(&dmxin);
		for(i=0;i<numprocdmx;i++) {
			if(FD_ISSET(procdmx[i]->fd,&r))
				dmx_readable(procdmx[i]);
		}
		dmxout_doit();
	}
	return(0);
}