1 files changed, 93 insertions, 0 deletions
diff --git a/src/modules/filters/gbfredletterwords.cpp b/src/modules/filters/gbfredletterwords.cpp
new file mode 100644
index 0000000..a79802d
--- /dev/null
+++ b/src/modules/filters/gbfredletterwords.cpp
@@ -0,0 +1,93 @@
+/******************************************************************************
+ *
+ * GBFRedLetterWords -	SWFilter descendant to toggle red coloring of words of
+ *			Christ in a GBF module.
+ */
+
+
+#include <stdlib.h>
+#include <gbfredletterwords.h>
+#include <swmodule.h>
+#include <ctype.h>
+
+SWORD_NAMESPACE_START
+
+const char oName[] = "Words of Christ in Red";
+const char oTip[] = "Toggles Red Coloring for Words of Christ On and Off if they are marked";
+
+const SWBuf choices[3] = {"Off", "On", ""};
+const StringList oValues(&choices[0], &choices[2]);
+
+GBFRedLetterWords::GBFRedLetterWords() : SWOptionFilter(oName, oTip, &oValues) {
+	setOptionValue("Off");
+}
+
+
+GBFRedLetterWords::~GBFRedLetterWords() {
+}
+
+
+char GBFRedLetterWords::processText(SWBuf &text, const SWKey *key, const SWModule *module) {
+/** This function removes the red letter words in Bible like the WEB
+* The words are marked by <FR> as start and <Fr> as end tag.
+*/
+	if (!option) {	// if we don't want footnotes
+		char token[4096]; // cheese.  Fix.
+		int tokpos = 0;
+		bool intoken = false;
+		bool hide = false;
+
+	const char *from;
+	SWBuf orig = text;
+	from = orig.c_str();
+	for (text = ""; *from; from++) {
+			if (*from == '<') {
+				intoken = true;
+				tokpos = 0;
+//				memset(token, 0, 4096);
+				token[0] = 0;
+				token[1] = 0;
+				token[2] = 0;
+				continue;
+			}
+			if (*from == '>') {	// process tokens
+				intoken = false;
+				/*switch (*token) {
+				case 'F':			// Font attribute
+					switch(token[1]) {
+					case 'R':               // Begin red letter words
+						hide = true;
+						break;
+					case 'r':               // end red letter words
+						hide = false;
+						break;
+					}
+					continue;	// skip token
+				}*/
+
+				//hide the token if either FR or Fr was detected
+				hide = (token[0] == 'F' && ( (token[1] == 'R') || (token[1] == 'r') ));
+
+				// if not a red letter word token, keep token in text
+				if (!hide) {
+					text += '<';
+					for (char *tok = token; *tok; tok++)
+						text += *tok;
+					text += '>';
+				}
+				continue;
+			}
+			if (intoken) {
+				if (tokpos < 4090)
+					token[tokpos++] = *from;
+					token[tokpos+2] = 0;	// +2 cuz we init token with 2 extra '0' because of switch statement
+			}
+			else {
+				text += *from;
+			}
+		}
+	}
+	return 0;
+}
+
+SWORD_NAMESPACE_END