/******************************************************************************
 *
 * thmlplain -	SWFilter decendant to strip out all ThML tags or convert to
 *		ASCII rendered symbols.
 */


#include <stdlib.h>
#include <string.h>
#include <thmlplain.h>


ThMLPlain::ThMLPlain() {
}


char ThMLPlain::ProcessText(char *text, int maxlen)
{
	char *to, *from, token[2048];
	int tokpos = 0;
	bool intoken = false;
	int len;
	bool ampersand = false;

	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 == 10 || *from == 13)
			from++;
		if (*from == '<') {
			intoken = true;
			tokpos = 0;
			token[0] = 0;
			token[1] = 0;
			token[2] = 0;
			ampersand = false;
			continue;
		}
		else if (*from == '&') {
			intoken = true;
			tokpos = 0;
			token[0] = 0;
			token[1] = 0;
			token[2] = 0;
			ampersand = true;
			continue;
		}
		if (*from == ';' && ampersand) {
			intoken = false;

			if (!strncmp("nbsp", token, 4)) *to++ = ' ';
			else if (!strncmp("quot", token, 4)) *to++ = '"';
			else if (!strncmp("amp", token, 3)) *to++ = '&';
			else if (!strncmp("lt", token, 2)) *to++ = '<';
			else if (!strncmp("gt", token, 2)) *to++ = '>';
			else if (!strncmp("brvbar", token, 6)) *to++ = '|';
			else if (!strncmp("sect", token, 4)) *to++ = '§';
			else if (!strncmp("copy", token, 4)) *to++ = '©';
			else if (!strncmp("laquo", token, 5)) *to++ = '«';
			else if (!strncmp("reg", token, 3)) *to++ = '®';
			else if (!strncmp("acute", token, 5)) *to++ = '´';
			else if (!strncmp("para", token, 4)) *to++ = '¶';
			else if (!strncmp("raquo", token, 5)) *to++ = '»';

			else if (!strncmp("Aacute", token, 6)) *to++ = 'Á';
			else if (!strncmp("Agrave", token, 6)) *to++ = 'À';
			else if (!strncmp("Acirc", token, 5)) *to++ = 'Â';
			else if (!strncmp("Auml", token, 4)) *to++ = 'Ä';
			else if (!strncmp("Atilde", token, 6)) *to++ = 'Ã';
			else if (!strncmp("Aring", token, 5)) *to++ = 'Å';
			else if (!strncmp("aacute", token, 6)) *to++ = 'á';
			else if (!strncmp("agrave", token, 6)) *to++ = 'à';
			else if (!strncmp("acirc", token, 5)) *to++ = 'â';
			else if (!strncmp("auml", token, 4)) *to++ = 'ä';
			else if (!strncmp("atilde", token, 6)) *to++ = 'ã';
			else if (!strncmp("aring", token, 5)) *to++ = 'å';
			else if (!strncmp("Eacute", token, 6)) *to++ = 'É';
			else if (!strncmp("Egrave", token, 6)) *to++ = 'È';
			else if (!strncmp("Ecirc", token, 5)) *to++ = 'Ê';
			else if (!strncmp("Euml", token, 4)) *to++ = 'Ë';
			else if (!strncmp("eacute", token, 6)) *to++ = 'é';
			else if (!strncmp("egrave", token, 6)) *to++ = 'è';
			else if (!strncmp("ecirc", token, 5)) *to++ = 'ê';
			else if (!strncmp("euml", token, 4)) *to++ = 'ë';
			else if (!strncmp("Iacute", token, 6)) *to++ = 'Í';
			else if (!strncmp("Igrave", token, 6)) *to++ = 'Ì';
			else if (!strncmp("Icirc", token, 5)) *to++ = 'Î';
			else if (!strncmp("Iuml", token, 4)) *to++ = 'Ï';
			else if (!strncmp("iacute", token, 6)) *to++ = 'í';
			else if (!strncmp("igrave", token, 6)) *to++ = 'ì';
			else if (!strncmp("icirc", token, 5)) *to++ = 'î';
			else if (!strncmp("iuml", token, 4)) *to++ = 'ï';
			else if (!strncmp("Oacute", token, 6)) *to++ = 'Ó';
			else if (!strncmp("Ograve", token, 6)) *to++ = 'Ò';
			else if (!strncmp("Ocirc", token, 5)) *to++ = 'Ô';
			else if (!strncmp("Ouml", token, 4)) *to++ = 'Ö';
			else if (!strncmp("Otilde", token, 6)) *to++ = 'Õ';
			else if (!strncmp("oacute", token, 6)) *to++ = 'ó';
			else if (!strncmp("ograve", token, 6)) *to++ = 'ò';
			else if (!strncmp("ocirc", token, 5)) *to++ = 'ô';
			else if (!strncmp("ouml", token, 4)) *to++ = 'ö';
			else if (!strncmp("otilde", token, 6)) *to++ = 'õ';
			else if (!strncmp("Uacute", token, 6)) *to++ = 'Ú';
			else if (!strncmp("Ugrave", token, 6)) *to++ = 'Ù';
			else if (!strncmp("Ucirc", token, 5)) *to++ = 'Û';
			else if (!strncmp("Uuml", token, 4)) *to++ = 'Ü';
			else if (!strncmp("uacute", token, 6)) *to++ = 'ú';
			else if (!strncmp("ugrave", token, 6)) *to++ = 'ù';
			else if (!strncmp("ucirc", token, 5)) *to++ = 'û';
			else if (!strncmp("uuml", token, 4)) *to++ = 'ü';
			else if (!strncmp("Yacute", token, 6)) *to++ = 'Ý';
			else if (!strncmp("yacute", token, 6)) *to++ = 'ý';
			else if (!strncmp("yuml", token, 4)) *to++ = 'ÿ';

			else if (!strncmp("deg", token, 3)) *to++ = '°';
			else if (!strncmp("plusmn", token, 6)) *to++ = '±';
			else if (!strncmp("sup2", token, 4)) *to++ = '²';
			else if (!strncmp("sup3", token, 4)) *to++ = '³';
			else if (!strncmp("sup1", token, 4)) *to++ = '¹';
			else if (!strncmp("nbsp", token, 4)) *to++ = 'º';
			else if (!strncmp("pound", token, 5)) *to++ = '£';
			else if (!strncmp("cent", token, 4)) *to++ = '¢';
			else if (!strncmp("frac14", token, 6)) *to++ = '¼';
			else if (!strncmp("frac12", token, 6)) *to++ = '½';
			else if (!strncmp("frac34", token, 6)) *to++ = '¾';
			else if (!strncmp("iquest", token, 6)) *to++ = '¿';
			else if (!strncmp("iexcl", token, 5)) *to++ = '¡';
			else if (!strncmp("ETH", token, 3)) *to++ = 'Ð';
			else if (!strncmp("eth", token, 3)) *to++ = 'ð';
			else if (!strncmp("THORN", token, 5)) *to++ = 'Þ';
			else if (!strncmp("thorn", token, 5)) *to++ = 'þ';
			else if (!strncmp("AElig", token, 5)) *to++ = 'Æ';
			else if (!strncmp("aelig", token, 5)) *to++ = 'æ';
			else if (!strncmp("Oslash", token, 6)) *to++ = 'Ø';
			else if (!strncmp("curren", token, 6)) *to++ = '¤';
			else if (!strncmp("Ccedil", token, 6)) *to++ = 'Ç';
			else if (!strncmp("ccedil", token, 6)) *to++ = 'ç';
			else if (!strncmp("szlig", token, 5)) *to++ = 'ß';
			else if (!strncmp("Ntilde", token, 6)) *to++ = 'Ñ';
			else if (!strncmp("ntilde", token, 6)) *to++ = 'ñ';
			else if (!strncmp("yen", token, 3)) *to++ = '¥';
			else if (!strncmp("not", token, 3)) *to++ = '¬';
			else if (!strncmp("ordf", token, 4)) *to++ = 'ª';
			else if (!strncmp("uml", token, 3)) *to++ = '¨';
			else if (!strncmp("shy", token, 3)) *to++ = '­';
			else if (!strncmp("macr", token, 4)) *to++ = '¯';
			continue;

		}
		else if (*from == '>' && !ampersand) {
			intoken = false;
			// process desired tokens
			if (!strncmp(token, "sync type=\"Strongs\" value=\"", 27)) {
				*to++ = ' ';
				*to++ = '<';
				for (unsigned int i = 27; token[i] != '\"'; i++)
					*to++ = token[i];
				*to++ = '>';
				continue;
			}
			if (!strncmp(token, "sync type=\"morph\" value=\"", 25)) {
				*to++ = ' ';
				*to++ = '(';
				for (unsigned int i = 25; token[i] != '\"'; i++)
					*to++ = token[i];
				*to++ = ')';
				continue;
			}
			if (!strncmp("note", token, 4)) {
				*to++ = ' ';
				*to++ = '(';
			}
			else if (!strncmp("br", token, 2))
				*to++ = '\n';
			else if (!strncmp("/p", token, 2))
				*to++ = '\n';
			else if (!strncmp("/note", token, 5)) {
				*to++ = ')';
				*to++ = ' ';
			}
			continue;
		}
		if (intoken) {
			if (tokpos < 2045)
				token[tokpos++] = *from;
				token[tokpos+2] = 0;
		}
		else	*to++ = *from;
	}
	*to++ = 0;
	*to = 0;

	return 0;
}