/*****************************************************************************
 *
 *	This code reeks but works (sometimes).  Good luck!
 * Modified for zText purposes
 */

//#include <stdio.h>
#include <iostream>
#include <fstream>
#include <stdlib.h>
#include <string.h>
#include <ctype.h>
#include <assert.h>

//#ifndef __GNUC__
#include <io.h>
//#else
//#include <unistd.h>
//#endif

#include <fcntl.h>
#include <versekey.h>


void writeidx(VerseKey &key1, VerseKey &key2, VerseKey &key3, long offset, short size);
char findbreak(int fp, long *offset, int *num1, int *num2, int *rangemax, unsigned short *size);
void openfiles(char *fname);
void checkparams(int argc, char **argv);


VerseKey key1, key2, key3;
int fp=0, vfp=0, cfp=0, bfp=0;
long chapoffset=0;
unsigned short chapsize=0;
long bookoffset=0;
unsigned short booksize=0;
long testoffset=0;
unsigned short testsize=0;
long verseoffset=0;
unsigned short versesize=0;
long nextoffset=0;
char testmnt=0;
int deadcount = 0;
int chapmark=-4, bookmark=-1;
ofstream cfile;


int main(int argc, char **argv)
{
	long pos, offset;
	int num1, num2, rangemax;//, curbook = 0, curchap = 0, curverse = 0;
	//char buf[127],
	char startflag = 0;
	unsigned short size;//, tmp;

	checkparams(argc, argv);

	openfiles(argv[1]);
	//key1 = "Matthew 1:1";
	//key2 = "Matthew 1:1";
	//key3 = "Matthew 1:1";

	testmnt = key1.Testament();
	cfile << "testament" << (int) testmnt << "\n";
	num1 = key1.Chapter();
	num2 = key1.Verse();
	pos  = 0;
	write(bfp, &pos, 4);  /* Book    offset for testament intros */
	pos = 4;
	write(cfp, &pos, 4);  /* Chapter offset for testament intro */


/*	Right now just zero out intros until parsing correctly */
	/*pos = 0;
	size = 0;
	write(vfp, &pos, 4);  // Module intro
	write(vfp, &size, 2);
	cfile << "modintro pos{" << pos << "} size{" << size << "}\n";
	write(vfp, &pos, 4);  // Testament intro
	write(vfp, &size, 2);
	cfile << "test intro pos{" << pos << "} size{" << size << "}\n";
	*/
	cout << "GBFIDX Running\n";
	cout.flush();
	while(!findbreak(fp, &offset, &num1, &num2, &rangemax, &size)) {
		if (!startflag) {
			startflag = 1;
		}
		else {
			if (num2 < key2.Verse()) {            // new chapter
				if (num1 <= key2.Chapter()) { // new book
					key2.Verse(1);
					key2.Chapter(1);
					key2.Book(key2.Book()+1);
				}
				cfile << "Found Chapter Break: " << num1 << " ('" << (const char *)key2 << "')\n";
				//chapoffset = offset;
				//chapsize = chapsize - size;
//				continue;
			}
		}
		key2.Verse(1);
		key2.Chapter(num1);
		key2.Verse(num2);

		key3 = key2;
//		key3 += (rangemax - key3.Verse());

		writeidx(key1, key2, key3, offset, size);
	}
	close(vfp);
	close(cfp);
	close(bfp);
	close(fp);

	return 1;
}


/**************************************************************************
 * writeidx:	key1	- current location of index
 * 	key2	- minimum keyval for which this offset is valid
 * 	key3	- maximum keyval for which this offset is valid
 */

void writeidx(VerseKey &key1, VerseKey &key2, VerseKey &key3, long offset, short size)
{
	long pos;
	unsigned short tmp;

	for (; ((key1 <= key3) && (key1.Error() != KEYERR_OUTOFBOUNDS) && (key1.Testament() == testmnt)); key1+=1) {
		if (chapmark>=2)
		{
			if (bookmark==2)
			{
				//booksize = booksize - chapsize + 7;
				cfile << "versesize " << versesize << " booksize " << booksize << " chapsize " << chapsize << " size " << size << "\n";
				//cfile.flush();
				//assert(chapsize < size);
				//if (chapsize > size)           // At start of Psalms gets chapsize rather than chapsize+size ???
				//{
				//	versesize = versesize - (booksize - (chapsize - size) + 7);
				//}
				//else
				//{
				versesize = versesize - (booksize - (chapsize) + 7);
				//}
					cfile << "Last verse in book\n";
			}
			//chapsize = chapsize - size;
			cfile << "versesize " << versesize << " chapsize " << chapsize << " size " << size<< "\n";
			cfile.flush();
			//assert(chapsize > size);
			//if (chapsize > size)           // At start of Psalms gets chapsize rather than chapsize+size ???
			//{
			//	versesize = versesize - (chapsize - size);
			//}
			//else
			//{
			versesize = versesize - (chapsize);
			//}
			cfile << "Last verse in chapter\n";
		}
		if (chapmark>=2 && bookmark!=1)
		{
			cfile << "prev verse pos{" << verseoffset << "} size{" << versesize << "} nextoffset{" << nextoffset << "}\n";
			cfile.flush();
			assert(verseoffset==nextoffset);
			write(vfp, &verseoffset, 4);
			write(vfp, &versesize, 2);
			nextoffset = verseoffset+versesize;
			bookmark = 0;
			chapmark = 0;
		}
		if (key1.Verse() == 1) {	// new chapter
			cfile << "size??? " << size << "\n";
			cfile.flush();
			//assert(chapsize > size || key1.Chapter()==1);
			//assert(chapsize > size);
			//if (chapsize > size)           // At start of books gets chapsize rather than chapsize+size
			//{
			//	chapsize = chapsize - size;
			//}
			if (key1.Chapter() == 1) {	// new book
				booksize = booksize - chapsize + 7;
				if (key1.Book() == 1)
				{
					pos = 0;
					//tmp = testoffset;
					tmp = 0;            	// better just remember that it goes up to the testament intro to avoid 64k limit
												// AV exceeds that anyway!
					write(vfp, &pos, 4);  /* Module intro */
					write(vfp, &tmp, 2);
					assert(nextoffset==0);
					cfile << "modintro pos{" << pos << "} size{" << tmp << "}\n";
					testsize = testsize - booksize - chapsize + 7;
					if (testsize > 10000)
					{
						cerr << "Error: testament too big " << testsize << "\n";
						exit(-1);
					}
					//assert(testoffset==nextoffset);
					write(vfp, &testoffset, 4);  /* Testament intro (vss)  */
					write(vfp, &testsize, 2);
					nextoffset = testoffset+testsize;
					cfile << "test intro pos{" << testoffset << "} size{" << testsize << "}\n";
				}
				pos = lseek(cfp, 0, SEEK_CUR);
				write(bfp, &pos, 4);
				pos = lseek(vfp, 0, SEEK_CUR); /* Book intro (cps) */
				write(cfp, &pos, 4);
				if (booksize > 10000)
				{
					cerr << "Error: book too big " << booksize << "\n";
					exit(-1);
				}
				assert(bookoffset==nextoffset);
				write(vfp, &bookoffset, 4);  /* Book intro (vss)  */
				write(vfp, &booksize, 2);
				nextoffset = bookoffset+booksize;
				cfile << "book intro pos{" << bookoffset << "} size{" << booksize << "}\n";
				//offset += booksize;
				//bookmark = false;
			}
			pos = lseek(vfp, 0, SEEK_CUR);
			write(cfp, &pos, 4);
			assert(chapsize < 10000);
			write(vfp, &chapoffset, 4);  /* Chapter intro */
			write(vfp, &chapsize, 2);
			nextoffset = chapoffset+chapsize;
			cfile << "chapter intro pos{" << chapoffset << "} size{" << chapsize << "}\n";
			//offset += chapsize;
			//size -= chapsize;
			//chapmark = false;
		}
		if (key1 >= key2) {
			if (size > 10000)
			{
				cerr << "Error: verse too big " << size << "\n";
				exit(-1);
			}
			if (!chapmark && !bookmark)
			{
				write(vfp, &offset, 4);
				write(vfp, &size, 2);
				cfile << "verse pos{" << offset << "} size{" << size << "}\n";
				cfile.flush();
				assert(offset==nextoffset);
				nextoffset = offset+size;
				//cfile << "bookmark " << bookmark << " chapmark " << chapmark << "\n";
			}
			else
			{
				verseoffset = offset;
				versesize = size;
				cfile << "saving verse pos{" << offset << "} size{" << size << "}\n";
				cfile << "bookmark " << bookmark << " chapmark " << chapmark << "\n";
			}
		}
		else	{
			pos = 0;
			tmp = 0;
			write(vfp, &pos, 4);
			write(vfp, &tmp, 2);
			cfile << "blank pos{" << pos << "} size{" << tmp << "}\n";
		}
	}
}

char startmod(char *buf)
{
	//char loop;

	if (buf[0] != '<')
		return 0;
	if (buf[1] != 'H')
		return 0;
	if (buf[2] != '0')
		return 0;
/*
	if (!isdigit(buf[2]))
		return 0;
	for (loop = 3; loop < 7; loop++) {
		if (buf[loop] == ' ')
			break;
		if ((!isdigit(buf[loop])) && (buf[loop] != ',') && (buf[loop] != '-'))
			return 0;
	}
*/
	return 1;
}


char starttest(char *buf)
{
	//char loop;

	if (buf[0] != '<')
		return 0;
	if (buf[1] != 'B')
		return 0;
	if (testmnt==2)
	{
		if (buf[2] != 'N')
			return 0;
	}
	else
	{
		if (buf[2] != 'O')
			return 0;
	}
	//if (buf[3] != '>')
	//	return 0;
/*
	if (!isdigit(buf[2]))
		return 0;
	for (loop = 3; loop < 7; loop++) {
		if (buf[loop] == ' ')
			break;
		if ((!isdigit(buf[loop])) && (buf[loop] != ',') && (buf[loop] != '-'))
			return 0;
	}
*/
	return 1;
}


char startbook(char *buf)
{
	//char loop;

	if (buf[0] != '<')
		return 0;
	if (buf[1] != 'S')
		return 0;
	if (buf[2] != 'B')
		return 0;
/*
	if (!isdigit(buf[2]))
		return 0;
	for (loop = 3; loop < 7; loop++) {
		if (buf[loop] == ' ')
			break;
		if ((!isdigit(buf[loop])) && (buf[loop] != ',') && (buf[loop] != '-'))
			return 0;
	}
*/
	return 1;
}


char startchap(char *buf)
{
	//char loop;

	if (buf[0] != '<')
		return 0;
	if (buf[1] != 'S')
		return 0;
	if (buf[2] != 'C')
		return 0;
/*
	if (!isdigit(buf[2]))
		return 0;
	for (loop = 3; loop < 7; loop++) {
		if (buf[loop] == ' ')
			break;
		if ((!isdigit(buf[loop])) && (buf[loop] != ',') && (buf[loop] != '-'))
			return 0;
	}
*/
	return 1;
}


char startentry(char *buf)
{
	//char loop;
	//cfile << "{SV}";

	if (buf[0] != '<')
	{
		//cfile << "{no<}";
		return 0;
	}
	if (buf[1] != 'S')
	{
		//cfile << "\n{noS}\n";
		return 0;
	}
	if (buf[2] != 'V')
	{
		//cfile << "\n{noV}\n";
		return 0;
	}
/*
	if (!isdigit(buf[2]))
		return 0;
	for (loop = 3; loop < 7; loop++) {
		if (buf[loop] == ' ')
			break;
		if ((!isdigit(buf[loop])) && (buf[loop] != ',') && (buf[loop] != '-'))
			return 0;
	}
*/
	return 1;
}


char findbreak(int fp, long *offset, int *num1, int *num2, int *rangemax, unsigned short *size)
{
	char buf[8];
	//char buf2[20];
	//char ch;
	char loop=0;
	long offset2;
	int ch2, vs2, rm2;
	bool flag;
	long versestart = 0;
	long chapstart = 0;
	long bookstart = 0;
	long teststart = 0;

	memset(buf, ' ', 8);

	while (1) {
		//cfile << "#" << buf << "#";
		//if (lseek(fp, 0, SEEK_CUR) > 2000000)
		//{
		//	cfile << lseek(fp, 0, SEEK_CUR) << "\n";
		//}
		if (starttest(buf)) {
			cfile << "\n{start of testament}\n";
			//chapstart = lseek(fp, 0, SEEK_CUR) - 7;
			teststart = lseek(fp, 0, SEEK_CUR) - 7;
			testoffset = teststart;
			memset(buf, ' ', 3);
			flag = false;
			for (loop = 3; loop < 6; loop++) {
				if (buf[loop]!='>')
					flag = true;
				else {
					buf[loop] = 0;
					break;
				}
			}
			ch2 = *num1;
			vs2 = 1;
			if (size) {
				if (findbreak(fp, &offset2, &ch2, &vs2, &rm2, 0)) {
					testsize = (unsigned short) (lseek(fp, 0, SEEK_END) - teststart-7);
				}
				else {
					if (vs2) {
						testsize = (offset2 - teststart - 7);
					}
				}
				lseek(fp, teststart+7, SEEK_SET);
				cfile << "\nGot testsize " << testsize << "\n";
			}
		}


		if (startbook(buf)) {
			cfile << "\n{start of book}\n";
			bookmark++;
			//chapstart = lseek(fp, 0, SEEK_CUR) - 7;
			bookstart = lseek(fp, 0, SEEK_CUR) - 7;
			bookoffset = bookstart;
			memset(buf, ' ', 3);
			flag = false;
			for (loop = 3; loop < 6; loop++) {
				if (buf[loop]!='>')
					flag = true;
				else {
					buf[loop] = 0;
					break;
				}
			}
			if (size) {
				ch2 = *num1;
				vs2 = 1;
				if (findbreak(fp, &offset2, &ch2, &vs2, &rm2, 0)) {
					booksize = (unsigned short) (lseek(fp, 0, SEEK_END) - bookstart - 7);
				}
				else {
					if (vs2) {
						booksize = (offset2 - bookstart - 7);
					}
				}
				lseek(fp, bookstart+7, SEEK_SET);
				cfile << "\nGot booksize " << booksize << "\n";
			}
		}

		if (startchap(buf)) {
			cfile << "{start of chapter}";
			chapmark++;
			//chapstart = lseek(fp, 0, SEEK_CUR) - 7;
			chapstart = lseek(fp, 0, SEEK_CUR) - 7;
			chapoffset = chapstart;
			memset(buf, ' ', 3);
			flag = false;
			for (loop = 3; loop < 6; loop++) {
				if (isdigit(buf[loop]))
					flag = true;
				else {
					buf[loop] = 0;
					break;
				}
			}
			if (flag)
				*num1 = atoi(buf);
			else	(*num1)++;

			if (size) {
				ch2 = *num1;
				vs2 = 1;
				lseek(fp, chapstart, SEEK_SET);
				if (findbreak(fp, &offset2, &ch2, &vs2, &rm2, 0)) {
					chapsize = (unsigned short) (lseek(fp, 0, SEEK_END) - chapstart);
					cfile << "getting chapsizeend{" << chapsize << "} = " << lseek(fp, 0, SEEK_END) << " - " << chapstart << "\n";
				}
				else {
					if (vs2) {
						chapsize = (offset2 - chapstart);
						cfile << "getting chapsize{" << chapsize << "} = " << offset2 << " - " << chapstart << "\n";
					}
				}
				lseek(fp, chapstart + 7, SEEK_SET);
				cfile << "\nGot chapsize " << chapsize << " loop{" << (int) loop << "}\n";
			}
			//return 0;

		}
		if (startentry(buf)) {
			//cfile << "{start of verse}";
			memset(buf, ' ', 3);
			flag = false;
			for (loop = 3; loop < 6; loop++) {
				if (isdigit(buf[loop]))
					flag = true;
				else {
					buf[loop] = 0;
					break;
				}
			if (flag)
				*num2 = atoi(buf);
			else	(*num2)++;
			}
			loop++;
			/*
			if (size)
			{
				// *offset = lseek(fp, 0, SEEK_CUR) - (7 - loop);
				 *offset = lseek(fp, 0, SEEK_CUR) - 7;
			}
			//else	*offset = (chapstart) ? chapstart : lseek(fp, 0, SEEK_CUR) - 7;
			else	*offset = (chapstart) ? chapstart : lseek(fp, 0, SEEK_CUR) - 7;
			*/
			/*if (chapstart)
			{
				chapsize = *offset-chapstart;
			}
			else
			{
				chapsize = 0;
			}*/
			*offset = lseek(fp, 0, SEEK_CUR) - 7;
			versestart = *offset;
			if (size) {
				ch2 = *num1;
				vs2 = *num2;
				if (findbreak(fp, &offset2, &ch2, &vs2, &rm2, 0)) {
					*size = (unsigned short) (lseek(fp, 0, SEEK_END) - versestart);
					cfile << "getting sizeend{" << *size << "} = " << lseek(fp, 0, SEEK_END) << " - " << versestart << "\n";
				}
				else {
					if (vs2) {
						*size = (offset2 - versestart);
						cfile << "getting size{" << *size << "} = " << offset2 << " - " << versestart << "\n";
					}
				}
				lseek(fp, *offset+1, SEEK_SET);
			}
			else
			{
				cfile << "got offset{" << *offset << "}\n";
			}
			return 0;
		}
		//cfile << "{ng}";
		//deadcount++;
		//if (deadcount==1000) exit(-1);
		//if (!size)
		//{
		//	cfile << "not bound offset{" << *offset << "}\n";
		//}
		memmove(buf, &buf[1], 6);
		if (read(fp, &buf[6], 1) != 1)
			return 1;
	}
}


void openfiles(char *fname)
{
#ifndef O_BINARY		// O_BINARY is needed in Borland C++ 4.53
#define O_BINARY 0		// If it hasn't been defined than we probably
#endif				// don't need it.
	char buf[255];

	if ((fp = open(fname, O_RDONLY|O_BINARY)) == -1) {
		fprintf(stderr, "Couldn't open file: %s\n", fname);
		exit(1);
	}

	sprintf(buf, "%s.vss", fname);
	if ((vfp = open(buf, O_CREAT|O_WRONLY|O_BINARY|O_TRUNC)) == -1) {
		fprintf(stderr, "Couldn't open file: %s\n", buf);
		exit(1);
	}

	sprintf(buf, "%s.cps", fname);
	if ((cfp = open(buf, O_CREAT|O_WRONLY|O_BINARY|O_TRUNC)) == -1) {
		fprintf(stderr, "Couldn't open file: %s\n", buf);
		exit(1);
	}

	sprintf(buf, "%s.bks", fname);
	if ((bfp = open(buf, O_CREAT|O_WRONLY|O_BINARY|O_TRUNC)) == -1) {
		fprintf(stderr, "Couldn't open file: %s\n", buf);
		exit(1);
	}
	cfile.open("gbfidx.log", ios::out);
	if (!cfile.is_open())
	{
		cerr << "Failed to open log file\n";
		exit(-1);
	}
}


void checkparams(int argc, char **argv)
{
	if (argc < 2) {
		fprintf(stderr, "usage: %s <file to process> [nt - for new testmt file]\n", argv[0]);
		exit(1);
	}
	if (!strcmp(argv[1], "nt"))
		key1 = key2 = key3 = "Matthew 1:1";
	else if (!strcmp(argv[1], "ot"))
	{
			key1 = key2 = key3 = "Genesis 1:1";
	}
	else
	{
		cerr << "File must be ot or nt\n";
		exit(-1);
	}
}