Imported Upstream version 1.5.3

1 files changed, 463 insertions, 0 deletions

diff --git a/src/modules/filters/gbfthml.cpp b/src/modules/filters/gbfthml.cpp
new file mode 100644
index 0000000..ca03e71
--- /dev/null
+++ b/src/modules/filters/gbfthml.cpp
@@ -0,0 +1,463 @@
+/***************************************************************************
+                     gbfthml.cpp  -  GBF to ThML filter
+                             -------------------
+    begin                : 1999-10-27
+    copyright            : 2001 by CrossWire Bible Society
+ ***************************************************************************/
+
+/***************************************************************************
+ *                                                                         *
+ *   This program is free software; you can redistribute it and/or modify  *
+ *   it under the terms of the GNU General Public License as published by  *
+ *   the Free Software Foundation; either version 2 of the License, or     *
+ *   (at your option) any later version.                                   *
+ *                                                                         *
+ ***************************************************************************/
+
+#include <stdlib.h>
+#include <string.h>
+#include <gbfthml.h>
+
+
+GBFThML::GBFThML()
+{
+}
+
+
+char GBFThML::ProcessText(char *text, int maxlen)
+{
+	char *to, *from, token[2048];
+	int tokpos = 0;
+	bool intoken 	= false;
+	int len;
+	const char *tok;
+
+	len = strlen(text) + 1;						// shift string to right of buffer
+	if (len < maxlen) {
+		memmove(&text[maxlen - len], text, len);
+		from = &text[maxlen - len];
+	}
+	else	from = text;							// -------------------------------
+
+	for (to = text; *from; from++)
+	{
+		if (*from == '<') {
+			intoken = true;
+			tokpos = 0;
+			token[0] = 0;
+			token[1] = 0;
+			token[2] = 0;
+			continue;
+		}
+		if (*from == '>')
+		{
+			intoken = false;
+			// process desired tokens
+			switch (*token) {
+			case 'W':	// Strongs
+			  switch(token[1]) {
+			  case 'G':
+			  case 'H':			    
+			    *to++ = '<';
+			    *to++ = 's';
+			    *to++ = 'y';
+			    *to++ = 'n';
+			    *to++ = 'c';
+			    *to++ = ' ';
+			    *to++ = 't';
+			    *to++ = 'y';
+			    *to++ = 'p';
+			    *to++ = 'e';
+			    *to++ = '=';
+			    *to++ = '"';
+			    *to++ = 'S';
+			    *to++ = 't';
+			    *to++ = 'r';
+			    *to++ = 'o';
+			    *to++ = 'n';
+			    *to++ = 'g';
+			    *to++ = 's';
+			    *to++ = '"';
+			    *to++ = ' ';
+			    *to++ = 'v';
+			    *to++ = 'a';
+			    *to++ = 'l';
+			    *to++ = 'u';
+			    *to++ = 'e';
+			    *to++ = '=';
+			    *to++ = '"';
+			    for (tok = token + 1; *tok; tok++)
+			      *to++ = *tok;
+			    *to++ = '"';
+			    *to++ = ' ';
+			    *to++ = '/';
+			    *to++ = '>';
+			    continue;
+			    
+			  case 'T':               // Tense
+			    *to++ = '<';
+			    *to++ = 's';
+			    *to++ = 'y';
+			    *to++ = 'n';
+			    *to++ = 'c';
+			    *to++ = ' ';
+			    *to++ = 't';
+			    *to++ = 'y';
+			    *to++ = 'p';
+			    *to++ = 'e';
+			    *to++ = '=';
+			    *to++ = '"';
+			    *to++ = 'M';
+			    *to++ = 'o';
+			    *to++ = 'r';
+			    *to++ = 'p';
+			    *to++ = 'h';
+			    *to++ = '"';
+			    *to++ = ' ';
+			    *to++ = 'v';
+			    *to++ = 'a';
+			    *to++ = 'l';
+			    *to++ = 'u';
+			    *to++ = 'e';
+			    *to++ = '=';
+			    *to++ = '"';
+			    for (tok = token + 2; *tok; tok++)
+			      *to++ = *tok;
+			    *to++ = '"';
+			    *to++ = ' ';
+			    *to++ = '/';
+			    *to++ = '>';
+			    continue;
+				}
+			  break;
+			case 'R':
+			  switch(token[1])
+			    {
+			    case 'X':
+			      *to++ = '<';
+			      *to++ = 'a';
+			      *to++ = ' ';
+			      *to++ = 'h';
+			      *to++ = 'r';
+			      *to++ = 'e';
+			      *to++ = 'f';
+			      *to++ = '=';
+			      *to++ = '\"';
+			      for (tok = token + 3; *tok; tok++) {
+				if(*tok != '<' && *tok+1 != 'R' && *tok+2 != 'x') {
+				  *to++ = *tok;
+				}
+				else {
+				  break;
+				}
+			      }
+			      *to++ = '\"';
+			      *to++ = '>';
+			      continue;
+			    case 'x':
+			      *to++ = '<';
+			      *to++ = '/';
+			      *to++ = 'a';
+			      *to++ = '>';
+			      continue;
+			    case 'F':               // footnote begin
+			      *to++ = '<';
+			      *to++ = 'n';
+			      *to++ = 'o';
+			      *to++ = 't';
+			      *to++ = 'e';
+			      *to++ = ' ';
+			      *to++ = 'p';
+			      *to++ = 'l';
+			      *to++ = 'a';
+			      *to++ = 'c';
+			      *to++ = 'e';
+			      *to++ = '=';
+			      *to++ = '"';
+			      *to++ = 'f';
+			      *to++ = 'o';
+			      *to++ = 'o';
+			      *to++ = 't';
+			      *to++ = '"';
+			      *to++ = '>';
+			      continue;
+			    case 'f':               // footnote end
+			      *to++ = '<';
+			      *to++ = '/';
+			      *to++ = 'n';
+			      *to++ = 'o';
+			      *to++ = 't';
+			      *to++ = 'e';
+			      *to++ = '>';
+			      continue;
+			    }
+			  break;
+			case 'F':			// font tags
+			  switch(token[1])
+			    {
+			    case 'N':
+			      *to++ = '<';
+			      *to++ = 'f';
+			      *to++ = 'o';
+			      *to++ = 'n';
+			      *to++ = 't';
+			      *to++ = ' ';
+			      *to++ = 'f';
+			      *to++ = 'a';
+			      *to++ = 'c';
+			      *to++ = 'e';
+			      *to++ = '=';
+			      *to++ = '"';		
+			      for (tok = token + 2; *tok; tok++)
+				*to++ = *tok;
+			      *to++ = '"';
+			      *to++ = '>';
+			      continue;
+			    case 'n':
+			      *to++ = '<';
+			      *to++ = '/';
+			      *to++ = 'f';
+			      *to++ = 'o';
+			      *to++ = 'n';
+			      *to++ = 't';
+			      *to++ = '>';
+			      continue;
+			    case 'I':		// italic start
+			      *to++ = '<';
+			      *to++ = 'i';
+			      *to++ = '>';
+			      continue;
+			    case 'i':		// italic end
+			      *to++ = '<';
+			      *to++ = '/';
+			      *to++ = 'i';
+			      *to++ = '>';
+			      continue;
+			    case 'B':		// bold start
+			      *to++ = '<';
+			      *to++ = 'b';
+			      *to++ = '>';
+			      continue;
+			    case 'b':		// bold end
+			      *to++ = '<';
+			      *to++ = '/';
+			      *to++ = 'b';
+			      *to++ = '>';
+			      continue;
+
+			    case 'R':		// words of Jesus begin
+			      *to++ = '<';
+			      *to++ = 'f';
+			      *to++ = 'o';
+			      *to++ = 'n';
+			      *to++ = 't';
+			      *to++ = ' ';
+			      *to++ = 'c';
+			      *to++ = 'o';
+			      *to++ = 'l';
+			      *to++ = 'o';
+			      *to++ = 'r';
+			      *to++ = '=';
+			      *to++ = '\"';
+			      *to++ = '#';
+			      *to++ = 'f';
+			      *to++ = 'f';
+			      *to++ = '0';
+			      *to++ = '0';
+			      *to++ = '0';
+			      *to++ = '0';
+			      *to++ = '\"';
+			      *to++ = '>';
+			      continue;
+			    case 'r':		// words of Jesus end
+			      *to++ = '<';
+			      *to++ = '/';
+			      *to++ = 'f';
+			      *to++ = 'o';
+			      *to++ = 'n';
+			      *to++ = 't';
+			      *to++ = '>';
+			      continue;
+			    case 'U':		// Underline start
+			      *to++ = '<';
+			      *to++ = 'u';
+			      *to++ = '>';
+			      continue;
+			    case 'u':		// Underline end
+			      *to++ = '<';
+			      *to++ = '/';
+			      *to++ = 'u';
+			      *to++ = '>';
+			      continue;
+			    case 'O':		// Old Testament quote begin
+			      *to++ = '<';
+			      *to++ = 'c';
+			      *to++ = 'i';
+			      *to++ = 't';
+			      *to++ = 'e';
+			      *to++ = '>';
+			      continue;
+			    case 'o':		// Old Testament quote end
+			      *to++ = '<';
+			      *to++ = '/';
+			      *to++ = 'c';
+			      *to++ = 'i';
+			      *to++ = 't';
+			      *to++ = 'e';
+			      *to++ = '>';
+			      continue;
+			    case 'S':		// Superscript begin
+			      *to++ = '<';
+			      *to++ = 's';
+			      *to++ = 'u';
+			      *to++ = 'p';
+			      *to++ = '>';
+			      continue;
+			    case 's':		// Superscript end
+			      *to++ = '<';
+			      *to++ = '/';
+			      *to++ = 's';
+			      *to++ = 'u';
+			      *to++ = 'p';
+			      *to++ = '>';
+			      continue;
+			    case 'V':		// Subscript begin
+			      *to++ = '<';
+			      *to++ = 's';
+			      *to++ = 'u';
+			      *to++ = 'b';
+			      *to++ = '>';
+			      continue;
+			    case 'v':		// Subscript end
+			      *to++ = '<';
+			      *to++ = '/';
+			      *to++ = 's';
+			      *to++ = 'u';
+			      *to++ = 'b';
+			      *to++ = '>';
+			      continue;
+			    }
+			  break;
+			case 'C':			// special character tags
+			  switch(token[1])
+				{
+				case 'A':               // ASCII value
+				  *to++ = (char)atoi(&token[2]);
+				  continue;
+				case 'G':
+				  //*to++ = ' ';
+				  continue;
+				case 'L':               // line break
+				  *to++ = '<';
+				  *to++ = 'b';
+				  *to++ = 'r';
+				  *to++ = ' ';
+				  *to++ = '/';
+				  *to++ = '>';
+				  *to++ = ' ';
+				  continue;
+				case 'M':               // new paragraph
+				  *to++ = '<';
+				  *to++ = 'p';
+				  *to++ = ' ';
+				  *to++ = '/';
+				  *to++ = '>';
+				  continue;
+				case 'T':
+				  //*to++ = ' ';
+				  continue;
+				}
+			  break;
+			case 'T':			// title formatting
+			  switch(token[1])
+			    {
+			    case 'T':               // Book title begin
+			      *to++ = '<';
+			      *to++ = 'b';
+			      *to++ = 'i';
+			      *to++ = 'g';
+			      *to++ = '>';
+			      continue;
+			    case 't':
+			      *to++ = '<';
+			      *to++ = '/';
+			      *to++ = 'b';
+			      *to++ = 'i';
+			      *to++ = 'g';
+			      *to++ = '>';
+			      continue;
+			    case 'S':
+			      *to++ = '<';
+			      *to++ = 'd';
+			      *to++ = 'i';
+			      *to++ = 'v';
+			      *to++ = ' ';
+			      *to++ = 'c';
+			      *to++ = 'l';
+			      *to++ = 'a';
+			      *to++ = 's';
+			      *to++ = 's';
+			      *to++ = '=';
+			      *to++ = '\"';
+			      *to++ = 's';
+			      *to++ = 'e';
+			      *to++ = 'c';
+			      *to++ = 'h';
+			      *to++ = 'e';
+			      *to++ = 'a';
+			      *to++ = 'd';
+			      *to++ = '\"';
+			      *to++ = '>';
+			      continue;
+			    case 's':
+			      *to++ = '<';
+			      *to++ = '/';
+			      *to++ = 'd';
+			      *to++ = 'i';
+			      *to++ = 'v';
+			      *to++ = '>';
+			      continue;
+			    }
+			  break;
+
+			case 'P':			// special formatting
+			  switch(token[1])
+			    {
+			    case 'P':               // Poetry begin
+			      *to++ = '<';
+			      *to++ = 'v';
+			      *to++ = 'e';
+			      *to++ = 'r';
+			      *to++ = 's';
+			      *to++ = 'e';
+			      *to++ = '>';
+			      continue;
+			    case 'p':
+			      *to++ = '<';
+			      *to++ = '/';
+			      *to++ = 'v';
+			      *to++ = 'e';
+			      *to++ = 'r';
+			      *to++ = 's';
+			      *to++ = 'e';
+			      *to++ = '>';
+			      continue;
+			    }
+			  break;
+			}
+			continue;
+		}
+		if (intoken) {
+			if (tokpos < 2045)
+				token[tokpos++] = *from;
+				token[tokpos+2] = 0;
+		}
+		else	*to++ = *from;
+	}
+	*to++ = 0;
+	*to = 0;
+	return 0;
+}
+
+
+