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


char findbreak(int fd, long *offset, int *num1, int *num2, short *size);


main(int argc, char **argv)
{
	int fd, vfd, cfd, bfd;
	long pos, offset;
	short size, tmp;
	int num1, num2, curbook = 0, curchap = 0, curverse = 0;
	char buf[127];

	if (argc != 2) {
		fprintf(stderr, "usage: %s <file to process>\n", argv[0]);
		exit(1);
	}
#ifndef O_BINARY		// O_BINARY is for Borland to be happy.  If we're in GNU, just define it to a NULL mask
#define O_BINARY 0
#endif
	if ((fd = open(argv[1], O_RDONLY|O_BINARY)) == -1) {
		fprintf(stderr, "Couldn't open file: %s\n", argv[1]);
		exit(1);
	}

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

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

	sprintf(buf, "%s.bks", argv[1]);
	if ((bfd = open(buf, O_CREAT|O_WRONLY|O_BINARY)) == -1) {
		fprintf(stderr, "Couldn't open file: %s\n", buf);
		exit(1);
	}

	pos  = 0;
	write(bfd, &pos, 4);  /* Book    offset for testament intros */
	pos = 4;
	write(cfd, &pos, 4);  /* Chapter offset for testament intro */


/*	Right now just zero out intros until parsing correctly */
	pos = 0;
	size = 0;
	write(vfd, &pos, 4);  /* Module intro */
	write(vfd, &size, 2);
	write(vfd, &pos, 4);  /* Testament intro */
	write(vfd, &size, 2);

	while (!findbreak(fd, &offset, &num1, &num2, &size)) {

		if (num2 == 1) {  		/* if we're at a new chapter */
			if (num1 == 1) {	/* if we're at a new book */
				pos = lseek(cfd, 0, SEEK_CUR);
				write(bfd, &pos, 4);
				pos = lseek(vfd, 0, SEEK_CUR); /* Book intro (cps) */
				write(cfd, &pos, 4);
				pos  = 0;
				tmp = 0;
				write(vfd, &pos, 4);  /* Book intro (vss) */
				write(vfd, &tmp, 2);
				curbook++;
				curchap = 0;
			}
			pos = lseek(vfd, 0, SEEK_CUR);
			write(cfd, &pos, 4);
			curverse = 1;
			pos  = 0;
			tmp = 0;
			write(vfd, &pos, 4);  /* Chapter intro */
			write(vfd, &tmp, 2);
			curchap++;
		}
		else curverse++;
	
		printf("%2d:%3d:%3d found at offset: %7ld\n", curbook, num1, num2, offset);

		if (num1 != curchap) {
			fprintf(stderr, "Error: Found chaptures out of sequence (%2d:%3d:%3d)\n", curbook, num1-1, num2);
			curchap = num1;
//			break;
		}
		if (num2 != curverse) {
			fprintf(stderr, "Error: Found verses out of sequence (%2d:%3d:%3d)\n", curbook, num1, num2-1);
//			break;
			tmp = 0;
			curverse = num2;
			write(vfd, &offset, 4);
			write(vfd, &tmp, 2);
		}
		write(vfd, &offset, 4);
		write(vfd, &size, 2);
	}
	
	close(vfd);
	close(cfd);
	close(bfd);
	close(fd);
}


char findbreak(int fd, long *offset, int *num1, int *num2, short *size)
{
	char buf[8];
	char buf2[7];
	char loop, len;

	memset(buf, ' ', 7);
	buf[7] = 0;

	while (1) {

		memmove(buf, &buf[1], 6);
		if (read(fd, &buf[6], 1) != 1)
			return 1;

		if ((buf[0] == 10) && (isdigit(buf[1]))) {
			sscanf(buf, "%d %s", num2, buf2);
			if (!strncmp(buf2, "KAP", 3)) {
				*num1 = *num2;
				continue;
			}
			sprintf(buf, "%d", *num2);
			(*offset)  = lseek(fd, 0, SEEK_CUR);
			(*offset) -= (5-strlen(buf));
			for (len = 1; len == 1; len = read(fd, &loop, 1)) {
				if ((loop == 10) || (loop == 13))
					break;
			}

			*size = (short)(lseek(fd, 0, SEEK_CUR) - *offset) - 1;
			lseek(fd, -1, SEEK_CUR);
			break;
		}
	}
	return 0;
}