Imported Upstream version 1.5.3

1 files changed, 295 insertions, 0 deletions

diff --git a/olb/olb2sword.cpp b/olb/olb2sword.cpp
new file mode 100644
index 0000000..6364047
--- /dev/null
+++ b/olb/olb2sword.cpp
@@ -0,0 +1,295 @@
+
+#pragma hdrstop
+#include <condefs.h>
+
+
+//---------------------------------------------------------------------------
+#pragma argsused
+/*****************************************************************************
+ *
+ */
+
+ extern "C" {
+#include "online.h"
+}
+
+#include <stdio.h>
+#include <stdlib.h>
+#include <string.h>
+#include <ctype.h>
+
+#ifndef __GNUC__
+#include <io.h>
+#else
+#include <unistd.h>
+#endif
+
+#include <fcntl.h>
+#include <versekey.h>
+
+
+USEUNIT("..\src\keys\listkey.cpp");
+USEUNIT("..\src\keys\strkey.cpp");
+USEUNIT("..\src\keys\swkey.cpp");
+USEUNIT("..\src\keys\versekey.cpp");
+USEUNIT("..\src\utilfuns\utilstr.cpp");
+USEUNIT("all.c");
+//---------------------------------------------------------------------------
+void writeidx(VerseKey &key1, VerseKey &key2, VerseKey &key3, long offset, short size);
+char findbreak(int fp, long *offset, int *num1, int *num2, int *rangemax, short *size);
+void openfiles();
+void checkparams(int argc, char **argv);
+void charsetconvert(char *data);
+
+
+VerseKey key1, key2, key3;
+int fp, vfp, cfp, bfp;
+long chapoffset;
+short chapsize;
+char testmnt;
+char startflag = 0;
+VerseKey inckey;
+
+
+main(int argc, char **argv)
+{
+	long pos, offset;
+	int num1, num2, rangemax, curbook = 0, curchap = 0, curverse = 0;
+	char buf[127];
+	short size, tmp;
+	extern struct zonline online;
+
+	checkparams(argc, argv);
+
+	inckey = key1 = key2 = key3 = "Genesis 1:1";
+
+	openfiles();
+
+	num1    = key1.Chapter();
+	num2    = key1.Verse();
+
+	DOINIT(argv[1]);   /* initialize OLB system */
+
+	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);
+				}
+				printf("Found Chapter Break: %d ('%s')\n", num1, (const char *)key2);
+				chapoffset = offset;
+				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);
+	DOEND();		// close OLB system
+}
+
+
+/**************************************************************************
+ * ENT:	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;
+	short tmp;
+
+		if (key1.Verse() == 1) {	// new chapter
+			if (key1.Chapter() == 1) {	// new book
+				pos = lseek(cfp, 0, SEEK_CUR);
+				write(bfp, &pos, 4);
+				pos = lseek(vfp, 0, SEEK_CUR); /* Book intro (cps) */
+				write(cfp, &pos, 4);
+				write(vfp, &chapoffset, 4);  /* Book intro (vss)  set to same as chap for now(it should be chap 1 which usually contains the book into anyway)*/
+				write(vfp, &chapsize, 2);
+			}
+			pos = lseek(vfp, 0, SEEK_CUR);
+			write(cfp, &pos, 4);
+			write(vfp, &chapoffset, 4);  /* Chapter intro */
+			write(vfp, &chapsize, 2);
+		}
+		if (key1 >= key2) {
+			write(vfp, &offset, 4);
+			write(vfp, &size, 2);
+		}
+		else	{
+			pos = 0;
+			tmp = 0;
+			write(vfp, &pos, 4);
+			write(vfp, &tmp, 2);
+		}
+		key1++;
+}
+
+
+
+char findbreak(int fp, long *offset, int *num1, int *num2, int *rangemax, short *size)
+{
+	char buf[7];
+	char buf2[20];
+	char ch;
+	char loop;
+	long offset2;
+	int ch2, vs2, rm2;
+	bool flag;
+	long chapstart = 0; 
+	static int olbvnum = 0;
+	short versedata[MAX_VERSE];
+	char data[MAX_DATA];
+	int len;
+
+
+	if (++olbvnum <= 31102) {
+
+		if (olbvnum == 23146) {	// "Matthew 1:1"	
+			close(vfp);
+			close(cfp);
+			close(bfp);
+			close(fp);
+			key1 = key2 = key3 = inckey = "Matthew 1:1";
+			openfiles();
+			startflag = 0;
+		}
+
+
+		*offset = lseek(fp, 0, SEEK_CUR);
+
+		if ((olbvnum!=1) && (olbvnum != 23146))
+			inckey++;
+			
+		*num1 = inckey.Chapter();
+		*num2 = inckey.Verse();
+	
+	// output verse from olb
+//		printf("%s\n", (const char *)inckey);
+		GETEXT(olbvnum, versedata, 1, 1, 1, 1);
+		BLDVERSE(versedata, data);
+		charsetconvert(data);
+		len = strlen(data);
+		if (len)
+			write(fp, data, strlen(data));
+
+		*size = lseek(fp, 0, SEEK_CUR) - *offset;
+		write(fp, "\n", 1);
+		return 0;
+	}
+	return 1;
+}
+
+void charsetconvert(char *data)
+{
+	for (;*data; data++) {
+//		printf("%c %d", *data, *data);
+		switch((unsigned char)*data) {
+		case 129: *data = 252; break;
+		case 130: *data = 233; break;
+		case 131: *data = 226; break;
+		case 133: *data = 224; break;
+		case 135: *data = 231; break;
+		case 136: *data = 234; break;
+		case 137: *data = 235; break;
+		case 138: *data = 232; break;
+		case 139: *data = 239; break;
+		case 140: *data = 238; break;
+		case 144: *data = 201; break;
+		case 147: *data = 244; break;
+		case 150: *data = 251; break;
+		case 151: *data = 249; break;
+		case 160: *data = 225; break;
+		case 161: *data = 237; break;
+		case 162: *data = 243; break;
+		case 163: *data = 250; break;
+		case 164: *data = 241; break;
+		case 168: *data = 191; break;
+		case 173: *data = 161; break;
+		default:
+			if ((unsigned char)*data > 126)
+				fprintf(stderr, "Suspicious character: %c (%d); %s\n", *data, (unsigned char )*data, (const char *)inckey);
+			break;
+		}
+	}
+}
+
+
+void openfiles()
+{
+	char buf[255];
+	char fname[5];
+	long pos;
+	short size;
+	
+	testmnt = key1.Testament();
+
+	strcpy(fname, (testmnt==2) ? "nt" : "ot");
+	unlink(fname);
+	if ((fp = open(fname, O_CREAT|O_RDWR|O_BINARY)) == -1) {
+		fprintf(stderr, "Couldn't open file: %s\n", fname);
+		exit(1);
+	}
+
+	sprintf(buf, "%s.vss", fname);
+	unlink(buf);
+	if ((vfp = open(buf, O_CREAT|O_WRONLY|O_BINARY)) == -1) {
+		fprintf(stderr, "Couldn't open file: %s\n", buf);
+		exit(1);
+	}
+
+	sprintf(buf, "%s.cps", fname);
+	unlink(buf);
+	if ((cfp = open(buf, O_CREAT|O_WRONLY|O_BINARY)) == -1) {
+		fprintf(stderr, "Couldn't open file: %s\n", buf);
+		exit(1);
+	}
+
+	sprintf(buf, "%s.bks", fname);
+	unlink(buf);
+	if ((bfp = open(buf, O_CREAT|O_WRONLY|O_BINARY)) == -1) {
+		fprintf(stderr, "Couldn't open file: %s\n", buf);
+		exit(1);
+	}
+
+	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);
+	write(vfp, &pos, 4);  /* Testament intro */
+	write(vfp, &size, 2);
+
+}
+
+
+void checkparams(int argc, char **argv)
+{
+	if (argc < 2) {
+		fprintf(stderr, "usage: %s <path to OLB module directory (e.g. \"G:\\BIBLE\\AV\")>\n", argv[0]);
+		exit(1);
+	}
+}