/* scenes.c   by Michael Thorpe   2023-03-13 */

#include <ctype.h>
#include <curses.h>
#include <stdio.h>
#include <stdlib.h>
#include <string.h>
#include "runner.h"

#define CUEFILE "cues.tsv"

#define CUENUMSIZE 6
#define AUDIOSIZE 3
#define PAGESIZE 4
#define DESCSIZE 150
#define FADEFOLLOWLEN 5

#define DOUBLETAP_LOCKOUT .25

struct scene {
	char cuenum[CUENUMSIZE];
	struct look *look;
	char audio[AUDIOSIZE];
	char page[PAGESIZE];
	char desc[DESCSIZE];
	double fadetime,followtime;
	int mhlscene;
};

static struct scene *scenes=0;
static int numscenes=0,pos=0;

void startscene(int scenenum);
void gotoscene(int scenenum);
static void scenes_redraw();

#include "fade.c"

/* Switch to a scene, play SFX, setup fade, start autofollow, etc. */
void startscene(int scenenum) {
	if(scenes[scenenum].fadetime || scenes[scenenum].followtime) {
		fade_setup(scenenum);
	} else {
		curlook=scenes[scenenum].look;
	}
	pos=scenenum;
	playaudio(scenes[pos].audio);
	mhl_setscene(scenes[pos].mhlscene);
}

/* Switch to a scene immediately and quietly */
void gotoscene(int scenenum) {
	curlook=scenes[scenenum].look;
	pos=scenenum;
	mhl_setscene(scenes[pos].mhlscene);
	scenes_redraw();
}

/* Returns 0 if the scene was found or 1 if it wasn't */
int find_scene(const char *cuename,int dofades) {
	int i,cuesize;
	char searchfor[CUENUMSIZE];

	i=strlen(cuename);
	if(CUENUMSIZE<=i)
		return(1);
	cuesize=strlen(scenes[0].cuenum);
	memcpy(searchfor+cuesize-i,cuename,i+1);
	for(i=cuesize-i;0<i;)
		searchfor[--i]=' ';
	for(i=pos+1;i<numscenes;i++) {
		if(!memcmp(searchfor,scenes[i].cuenum,cuesize)) {
			dofades?startscene(i):gotoscene(i);
			return(0);
		}
	}
	for(i=0;i<=pos;i++) {
		if(!memcmp(searchfor,scenes[i].cuenum,cuesize)) {
			dofades?startscene(i):gotoscene(i);
			return(0);
		}
	}
	return(1);
}

int scenes_load() {
	FILE *f;
	int i,j,line=0;
	int mhlscene=-1;
	int extracuenum=CUENUMSIZE-1;
	int extrapage=PAGESIZE-1;
	char *t[7];
	char buf[250];
	char *tmp;
	if(scenes) {
		scenes=0;
		numscenes=0;
	}
	f=fopen(CUEFILE,"r");
	if(!f) {
		perror("open(cues.tsv)");
		return(1);
	}
	while(fgets(buf,sizeof(buf),f)) {
		line++;
		if(!strcmp("Cue\tBoard\tAudio\tFade\tPg#\tCue to start\n",buf))
			continue;
		if(!strcmp("Cue\tLights\tAudio\tFade\tPg#\tCue to start\n",buf))
			continue;
		if('#'==buf[0])
			continue;
		t[0]=buf-1;
		for(i=1;i<7;i++)
			t[i]=t[i-1]?strchr(t[i-1]+1,'\t'):0;
		if(t[6] || !t[5]) {
			fprintf(stderr,CUEFILE":%d: wrong number of tabs\n",line);
			return(1);
		}
		t[6]=strchr(t[5]+1,'\n');
		if(!t[6]) {
			fprintf(stderr,CUEFILE":%d: missing newline\n",line);
			return(1);
		}
		t[0]++;
		for(i=1;i<7;i++) {
			*t[i]='\0';
			t[i]++;
		}
		if(t[2][0]) {
			tmp=strchr(t[2]+1,'='); /* An initial = doesn't get chopped, as that is an audio cutoff key */
			if(tmp)
				*tmp='\0'; /* Ignore stuff after the = in an audio field */
		}
		if(CUENUMSIZE<=strlen(t[0]) || AUDIOSIZE<=strlen(t[2]) || PAGESIZE<=strlen(t[4]) || DESCSIZE<=strlen(t[5])) {
			fprintf(stderr,CUEFILE":%d: overlong field\n",line);
			return(1);
		}
/* Add a scene */
		numscenes++;
		scenes=(struct scene *)realloc(scenes,numscenes*sizeof(struct scene));
		if(!scenes) {
			perror("malloc");
			return(1);
		}
/* Handle the cue number */
		i=strlen(t[0]);
		j=CUENUMSIZE-1-i;
		if(j<extracuenum)
			extracuenum=j;
		memcpy(scenes[numscenes-1].cuenum+j,t[0],i+1);
		while(j)
			scenes[numscenes-1].cuenum[--j]=' ';
/* Check for MHL changes */
		if(isdigit(t[1][0]) && '+'==t[1][1]) {
			mhlscene=t[1][0]-'0';
			t[1]+=2;
		}
		scenes[numscenes-1].mhlscene=mhlscene;
/* Set up the look */
		if(t[1][0])
			scenes[numscenes-1].look=getlook(t[1]);
		else if(1<numscenes)
			scenes[numscenes-1].look=scenes[numscenes-2].look;
		else {
			fprintf(stderr,CUEFILE":%d: blank initial look\n",line);
			return(1);
		}
/* Set up the audio */
		strcpy(scenes[numscenes-1].audio,t[2]);
/* Set up the fade time(s) */
		scenes[numscenes-1].fadetime=strtod(t[3],&tmp);
		if('>'==tmp[0]) {
			scenes[numscenes-1].followtime=strtod(tmp+1,&tmp);
			if(0==scenes[numscenes-1].followtime)
				scenes[numscenes-1].followtime=.0000001;
		} else {
			scenes[numscenes-1].followtime=0;
		}
		if(tmp[0]) {
			fprintf(stderr,CUEFILE":%d: bad fade/follow time\n",line);
			return(1);
		}
/* Handle page number */
		i=strlen(t[4]);
		j=PAGESIZE-1-i;
		if(j<extrapage)
			extrapage=j;
		memcpy(scenes[numscenes-1].page+j,t[4],i+1);
		while(j)
			scenes[numscenes-1].page[--j]=' ';
/* Copy cue description */
		strcpy(scenes[numscenes-1].desc,t[5]);
	}
	if(fclose(f)) {
		perror("close");
		return(1);
	}
	if(extracuenum)
		for(i=0;i<numscenes;i++)
			memmove(scenes[i].cuenum,scenes[i].cuenum+extracuenum,CUENUMSIZE-extracuenum);
	if(extrapage)
		for(i=0;i<numscenes;i++)
			memmove(scenes[i].page,scenes[i].page+extrapage,PAGESIZE-extrapage);
	if(1<=numscenes && scenes[numscenes-1].followtime) {
		fprintf(stderr,CUEFILE":%d: can't follow into nothing\n",line);
		return(1);
	}
	if(-1 != mhlscene) { /* back-propagate mhlscene to earliest scenes */
		for(i=0;-1==scenes[i].mhlscene;i++)
			;
		mhlscene=scenes[i].mhlscene;
		for(i=0;-1==scenes[i].mhlscene;i++)
			scenes[i].mhlscene=mhlscene;
	}
	if(numscenes<=pos)
		pos=numscenes-1;
	if(numscenes && !curlook) {
		curlook=scenes[0].look;
		mhl_setscene(scenes[pos].mhlscene);
	}
	return(0);
}

static void scenes_redraw() {
	int first,i,j,k;
	char fadefollowstr[FADEFOLLOWLEN+1];
	int looksize=scenesframe.w/8; if(looksize<8) looksize=8;
	if(!scenesframe.h || !scenesframe.w)
		return;
	draw_titlebar(&scenesframe);
	first=pos-(scenesframe.h-1)/2;
	if(numscenes<first+scenesframe.h)
		first=numscenes-scenesframe.h;
	if(first<0)
		first=0;
	for(i=0;i<scenesframe.h && first+i<numscenes;i++) {
		if(first+i==pos)
			standout();
		move(scenesframe.y+i,scenesframe.x);
		addstr(scenes[first+i].cuenum);
		addch(' ');
		j=strlen(scenes[first+i].cuenum)+1;
		if(60<scenesframe.w-j) {
			for(k=0;k<2 && scenes[first+i].audio[k];k++) {
				addch(scenes[first+i].audio[k]);
				j++;
			}
			while(k<2) {
				addch(' ');
				j++;
				k++;
			}
/* No forced gap here, since two-char audio cues should be rare */
		}
		if(40<scenesframe.w-j) {
			for(k=0;k<looksize && scenes[first+i].look->name[k];k++) {
				addch(scenes[first+i].look->name[k]);
				j++;
			}
			while(k<looksize) {
				addch(' ');
				j++;
				k++;
			}
			addch(' ');
			j++;
		}
		if(40<scenesframe.w-j) {
			if(scenes[first+i].fadetime || scenes[first+i].followtime) {
				snprintf(fadefollowstr,FADEFOLLOWLEN+1,"%4.1f",scenes[first+i].fadetime);
				if(scenes[first+i].followtime)
					fadefollowstr[4]='+';
				else
					fadefollowstr[4]=' ';
			} else {
				memset(fadefollowstr,' ',FADEFOLLOWLEN);
			}
			for(k=0;k<FADEFOLLOWLEN;k++) {
				addch(fadefollowstr[k]);
				j++;
			}
			addch(' ');
			j++;
		}
/* FIXME: We should display mhlscene as well */
		addstr(scenes[first+i].page);
		addch(' ');
		j+=strlen(scenes[first+i].page)+1;
		if(scenesframe.w-j<(int)strlen(scenes[first+i].desc)) {
			if('"'==scenes[first+i].desc[0]) {
/* It's a quotation; trim the beginning */
				addstr("\"...");
				j+=4;
				addstr(scenes[first+i].desc+strlen(scenes[first+i].desc)-(scenesframe.w-j));
				j=scenesframe.w;
			} else {
/* It's a description; trim the end */
				for(k=0;j+3<scenesframe.w;j++,k++)
					addch(scenes[first+i].desc[k]);
				addstr("...");
				j+=3;
			}
		} else {
			addstr(scenes[first+i].desc);
			j+=strlen(scenes[first+i].desc);
		}
		while(j<scenesframe.w) {
			addch(' ');
			j++;
		}
		if(first+i==pos)
			standend();
	}
	for(;i<scenesframe.h;i++) {
		move(scenesframe.y+i,scenesframe.x);
		for(j=0;j<scenesframe.w;j++)
			addch(' ');
	}
}

static int scenes_input(int c) {
	int newpos;
#ifdef DOUBLETAP_LOCKOUT
	static double lastspace=0;
	double curtime;
#endif
	switch(c) {
	case 18: /* Ctrl-R */
		scenes_load();
		scenes_redraw();
		return(1);
	case ' ':
#ifdef DOUBLETAP_LOCKOUT
		curtime=gettime();
		if(curtime<lastspace+DOUBLETAP_LOCKOUT)
			return(0); /* ignore double-taps to the spacebar */
		lastspace=curtime;
#endif
		if(pos<numscenes-1) {
			startscene(pos+1);
			scenes_redraw();
		} else {
			errmsg("Already at bottom");
		}
		return(1);
	case KEY_UP:
		if(0<pos) {
			gotoscene(pos-1);
		} else {
			errmsg("Already at top");
		}
		return(1);
	case KEY_DOWN:
		if(pos<numscenes-1) {
			gotoscene(pos+1);
		} else {
			errmsg("Already at bottom");
		}
		return(1);
	case KEY_HOME:
		gotoscene(0);
		return(1);
	case KEY_END:
		gotoscene(numscenes-1);
		return(1);
	case KEY_PPAGE:
		if(0<pos) {
			newpos=pos-scenesframe.h/2+1;
			if(newpos<0)
				newpos=0;
			gotoscene(newpos);
		} else {
			errmsg("Already at top");
		}
		return(1);
	case KEY_NPAGE:
		if(pos<numscenes-1) {
			newpos=pos+scenesframe.h/2+1;
			if(numscenes<=newpos)
				newpos=numscenes-1;
			gotoscene(newpos);
		} else {
			errmsg("Already at bottom");
		}
		return(1);
	}
	return(0);
}

struct frame scenesframe={draw:scenes_redraw,input:scenes_input};