ÿþvar sValidChars = '0123456789ABCDEFGHIJKLMNOPQRSTUVWXYZÍÖÜÓP
ÚÉÁp
ÀÂÆÇÈÊËÎÏÔR
ÛÙÑ	
 !"#$%&'(';



var sSpaceChars = ' \r\n\t';

var sOperChars = '=/<>';

var icOperPriority = 4;

var icNotPriority = 5;

var icAndPriority = 6;

var icOrPriority = 7;

//var sTermOperChars = '+-';

var gsSource = '';

var iSourcePos = 0;



// Classes



function Element(sType, sValue, iPos, iPriority) {

	this.sType = sType;

	this.sValue = sValue;

	this.iPos = iPos;

	this.iPriority = iPriority;

}



function Node(sType, sValue, iPos, iPriority) {

	this.sType = sType;

	this.sValue = sValue;

	this.iPos = iPos;

	this.iPriority = iPriority;

	this.aChildren = new Array();

	this.copyTo = copyTo;

}



function copyTo(oNode) {

	oNode.sType = this.sType;

	oNode.sValue = this.sValue;

	oNode.iPos = this.iPos;

	oNode.iPriority = this.iPriority;

	oNode.aChildren = this.aChildren;

}



// Global functions



function initParser(sSource) {

	gsSource = sSource.toUpperCase();

	iSourcePos = 0;

	aoStack = new Array();

}



function getNextChar() {

	if (iSourcePos >= gsSource.length)

		return '\x00';

	else

		return gsSource.charAt(iSourcePos);

}



function getNextElement(bMinusAsNot) {

	var cChar = getNextChar();

	var sType = '', sValue = '';

	var iPos = iSourcePos;

	var iPriority = 0;



	if (sSpaceChars.indexOf(cChar) != -1) {

		sType = 'sp';

		while (sSpaceChars.indexOf(cChar) != -1) {

			sValue += cChar;

			iSourcePos++;

			cChar = getNextChar();

		}

	} else if (sValidChars.indexOf(cChar) != -1 || cChar == '*') {

		if (cChar == '*') {

			sValue += cChar;

			sType = 'wp';

			iSourcePos++;

			cChar = getNextChar();

		} else

			sType = 'wd';

			

		while (sValidChars.indexOf(cChar) != -1) {

			sValue += cChar;

			iSourcePos++;

			cChar = getNextChar();

		}

		if (cChar == '*') {

			sValue += cChar;

			sType = 'wp';

			iSourcePos++;

			cChar = getNextChar();

		}

		

		if (sType == 'wd') {

			switch (sValue.toLowerCase()) {

				case 'not':

					iPriority = icNotPriority;

					sType = 'op';

					break;

				case 'and':

					iPriority = icAndPriority;

					sType = 'op';

					break;

				case 'or':

					iPriority = icOrPriority;

					sType = 'op';

					break;

			}

		}



		if (sValue == '*')

			throw new Error(translate('err_star').replace(/\{([^\}]+)\}/g, function($0, $1) { 

				var sRes = eval($1); return sRes == null ? '' : sRes; 

			}) +' @' +iSourcePos +':1');

		

		if (sType == 'wp' || sType == 'wd')

			sValue = cleanupWord(sValue);

			

		if (sType == 'wd') {

			if (sValue.replace(/[\*0-9]/g, '').length == 0) {

				if (sValue.length != 2 && sValue.length != 4 && sValue.length != 6)

					throw new Error(translate('err_num').replace(/\{([^\}]+)\}/g, function($0, $1) { 

						var sRes = eval($1); return sRes == null ? '' : sRes; 

					}) +' @' +iSourcePos +':1');

				else

					sValue = ':' +sValue;

			}

	

			if (sValue.match(/^[A-Z][0-9]{4}$/))

				sValue = ':' +sValue;

				

			if (sValue.length < 2)

				throw new Error(translate('err_word').replace(/\{([^\}]+)\}/g, function($0, $1) { 

					var sRes = eval($1); return sRes == null ? '' : sRes; 

				}) +' @' +iSourcePos +':1');

		}

		

		if (sType == 'wp') {

			if (sValue == '*ING')

				throw new Error(translate('err_ing').replace(/\{([^\}]+)\}/g, function($0, $1) { 

					var sRes = eval($1); return sRes == null ? '' : sRes; 

				}) +' @' +iSourcePos +':1');

				

			if (sValue.replace(/[\*0-9]/g, '').length == 0)

				throw new Error(translate('err_ns').replace(/\{([^\}]+)\}/g, function($0, $1) { 

					var sRes = eval($1); return sRes == null ? '' : sRes; 

				}) +' @' +iSourcePos +':1');

		

			if (sValue.replace(/\*/g, '').length < 3)

				throw new Error(translate('err_ws').replace(/\{([^\}]+)\}/g, function($0, $1) { 

					var sRes = eval($1); return sRes == null ? '' : sRes; 

				}) +' @' +iSourcePos +':1');

		}

	} else

/*	if (sOperChars.indexOf(cChar) != -1) {

		sType = 'op';

		sValue = cChar;

		iSourcePos++;

		iPriority = icOperPriority;

		cChar = getNextChar();

	} else

	if (sTermOperChars.indexOf(cChar) != -1) {

		if (!bMinusAsNot || (bMinusAsNot && cChar != '-')) {

			sType = 'to';

			sValue = cChar;

		} else {

			sType = 'op';

			sValue = 'not';

			iPriority = icNotPriority;

		}



		iSourcePos++;

		cChar = getNextChar();

	} else*/

	if (cChar == '"') {

		iSourcePos++;

		cChar = getNextChar();

		if (cChar == '*') {

			sValue += cChar;

			sType = 'ep';

			iSourcePos++;

			cChar = getNextChar();

		} else

			sType = 'ex';

		

		while (cChar != '*' && cChar != '"' && cChar != '\x00') {

			sValue += cChar;

			iSourcePos++;

			cChar = getNextChar();

		}

		switch (cChar) {

			case '*':

				sValue += cChar;

				iSourcePos++;

				cChar = getNextChar();

				

				if (cChar != '"')

					throw new Error(translate('err_quot').replace(/\{([^\}]+)\}/g, function($0, $1) { 

						var sRes = eval($1); return sRes == null ? '' : sRes; 

					}) +' @' +iSourcePos +':1');

				sType = 'ep';

				

				break;

			case '\x00':

				throw new Error(translate('err_end').replace(/\{([^\}]+)\}/g, function($0, $1) { 

					var sRes = eval($1); return sRes == null ? '' : sRes; 

				}) +' @' +iSourcePos +':1');

				break;

		}



		if (sValue == '*')

			throw new Error(translate('err_star').replace(/\{([^\}]+)\}/g, function($0, $1) { 

				var sRes = eval($1); return sRes == null ? '' : sRes; 

			}) +' @' +iSourcePos +':1');



		iSourcePos++;

		cChar = getNextChar();

	} else

	if (cChar == '(') {

		sType = 'bs';

		iSourcePos++;

		cChar = getNextChar();

	} else

	if (cChar == ')') {

		sType = 'be';

		iSourcePos++;

		cChar = getNextChar();

	}



	if (sType == '') {

		if (cChar != '\x00')

			throw new Error(translate('err_char').replace(/\{([^\}]+)\}/g, function($0, $1) { 

				var sRes = eval($1); return sRes == null ? '' : sRes; 

			}) +' @' +iSourcePos +':1');

			

		return null;

	} else

		return new Element(sType, sValue, iPos, iPriority);

}



// Main functions



var aElementArray;

var iElementPos;



function buildElements(bMinusAsNot) {

	var sHTML = '';

	aElementArray = new Array();

	iElementPos = 0;

	for (var i = 0; i < 500; i++) {

		var oElem = getNextElement(bMinusAsNot);



		if (oElem == null)

			break;

		else {

			if (oElem.sType != 'sp') {

				aElementArray.push(oElem);

				sHTML += oElem.sType +': &quot;' +oElem.sValue +'&quot; (' +oElem.iPriority +') @' +oElem.iPos +'<br>';

			}

		}

	}

	return sHTML;

}



var aoStack;

var iLabelIndex;



function doRenderHTML(oNode) {

	var sHTML = '<table border="1" style="border-collapse: collapse" bordercolor="#000000" cellpadding="4"><tr><td colspan="' +oNode.aChildren.length +'" align="center">' +oNode.sValue +'</td></tr>';

	if (oNode.aChildren.length > 0)

		sHTML += '<tr>';

	for (var i = 0; i < oNode.aChildren.length; i++)

		sHTML += '<td>' +doRenderHTML(oNode.aChildren[i]) +'</td>';

	if (oNode.aChildren.length > 0)

		sHTML += '</tr>';

	sHTML += '</table>';

	

	return sHTML;

}



function doRenderQuery(oNode, bHilight) {

	return doRenderQueryCyc(oNode, 255, bHilight);

}



function doRenderQueryCyc(oNode, iPrevPriority, bHilight) {

	sHTML = '';

	switch (oNode.sType) {

		case 'op':

			if (oNode.iPriority > iPrevPriority)

				sHTML += '(';

			var iStart = 0;

/*			if (sOperChars.indexOf(oNode.sValue) != -1) {

				if (bHilight)

					sHTML += '<font color="#808000" style="font-weight:bold">';

				sHTML += oNode.aChildren[0].sValue +oNode.sValue;

				if (bHilight)

					sHTML += '</font>';

					

				iStart = 1;

			}	*/

			for (var i = iStart; i < oNode.aChildren.length; i++) {

				sHTML += doRenderQueryCyc(oNode.aChildren[i], oNode.iPriority, bHilight);

				if (i < oNode.aChildren.length -1) {

/*					if (sOperChars.indexOf(oNode.sValue) != -1)

						sHTML += oNode.sValue;

					else {*/

						if (bHilight)

							sHTML += '<font color="#008080">';

						sHTML += ' ' +oNode.sValue.toLowerCase() +' ';

						if (bHilight)

							sHTML += '</font>';

//					}

				}

			}

			if (oNode.iPriority > iPrevPriority)

				sHTML += ')';

			break;

		case 'to':

			sHTML += oNode.sValue +doRenderQueryCyc(oNode.aChildren[0], oNode.iPriority, bHilight);

			break;

		case 'wd':

		case 'wp':

			if (bHilight)

				sHTML += '<font color="#0040C0" style="font-weight:bold">';

			sHTML += oNode.sValue;

			if (bHilight)

				sHTML += '</font>';

			break;

		case 'ex':

		case 'ep':

			sHTML = '"' +oNode.sValue +'"';

			break;

	}

	return sHTML;

}



function doCleanStopwords(oNode, aStopWords) {

	var bResult = true;

	switch (oNode.sType) {

		case 'op':

			bResult = false;

			

			for (var i = oNode.aChildren.length -1; i >= 0; i--) {

				var bRes = doCleanStopwords(oNode.aChildren[i], aStopWords);

				if (!bRes)

					oNode.aChildren.splice(i, 1);

				bResult |= bRes;

			}

			

			if (oNode.aChildren.length == 1) {

//				if (sOperChars.indexOf(oNode.sValue) == -1)

					oNode.aChildren[0].copyTo(oNode);

/*				else

					throw new Error('Field \'' +oNode.aChildren[0].sValue +'\' can not be used on stopword @' 

						+oNode.aChildren[0].iPos +':' +oNode.aChildren[0].sValue.length);*/

			}

			

			break;

		case 'to': // This always results acceptable words, doesent matter what is below, but - cant be used on stopwords

			var bTemp = false;

			

			for (var i = oNode.aChildren.length -1; i >= 0; i--)

				bTemp |= doCleanStopwords(oNode.aChildren[i], aStopWords);



			if (oNode.sValue == '-' && !bTemp)

				throw new Error(translate('err_minus').replace(/\{([^\}]+)\}/g, function($0, $1) { 

					var sRes = eval($1); return sRes == null ? '' : sRes; 

				}) +' @' +oNode.iPos

					 +':' +oNode.sValue.length);

		

			break;

		case 'wd':

		case 'wp':

		case 'ex':

		case 'ep':

			var sWord = oNode.sValue.replace(/\*/g, '');

			for (var i = 0; i < aStopWords.length; i++)

				if (aStopWords[i] == sWord) {

					bResult = false;

					break;

				}

			

			break;

	}

	return bResult;

}



function checkParentheses(sText) {

	var iParenthesesDepth = 0;

	for (var i = 0; i < sText.length; i++)

		switch (sText.charAt(i)) {

			case '(':

				iParenthesesDepth++;

				break;

			case ')':

				if (iParenthesesDepth == 0)

					throw new Error(translate('err_spar').replace(/\{([^\}]+)\}/g, function($0, $1) { 

						var sRes = eval($1); return sRes == null ? '' : sRes; 

					}) +' @' +i +':1');

			

				iParenthesesDepth--;

				break;

		}

		

	if (iParenthesesDepth != 0)

		throw new Error(translate('err_cpar').replace(/\{([^\}]+)\}/g, function($0, $1) { 

			var sRes = eval($1); return sRes == null ? '' : sRes; 

		}) +' @' +i +':1');

}



function insertAnd(iPos) {

//	var oElement = new Element('op', 'AND', iPos, icAndPriority);

	var oElement = new Element('op', 'OR', iPos, icOrPriority);

	aElementArray.push(null);

	for (var i = aElementArray.length -1; i > iElementPos; i--)

		aElementArray[i] = aElementArray[i -1];

	aElementArray[iElementPos] = oElement;

}



function parseItems(iPrevPriority, bMergeOps) {

	var iWordCount = 0;

	while (iElementPos < aElementArray.length) {

		oElement = aElementArray[iElementPos];

			

		switch (oElement.sType) {

			case 'ex':

			case 'ep':

			case 'wd':

			case 'wp':

//					alert(iWordCount +': ' +oElement.sValue);

			

				if (iWordCount == 0) {

					aoStack.push(new Node(oElement.sType, oElement.sValue, oElement.iPos, oElement.iPriority));

					iElementPos++;

				} else

					insertAnd(oElement.iPos);



				iWordCount++;

				

				break;

			case 'bs': // (

				if (iWordCount == 0) {

					iElementPos++;

					parseItems(255, bMergeOps);

					iElementPos++;

				} else

					insertAnd(oElement.iPos);



				iWordCount++;

				

				break;

			case 'be': // )

				return;

			case 'to': // +, -

				if (iWordCount == 0) {

					var oTempNode = new Node(oElement.sType, oElement.sValue, oElement.iPos, oElement.iPriority);

					

					iElementPos++;

					parseItems(0, bMergeOps);



					if (aoStack.length == 0)

						throw new Error(translate('err_nopar').replace(/\{([^\}]+)\}/g, function($0, $1) { 

							var sRes = eval($1); return sRes == null ? '' : sRes; 

						}) +' @' +oTempNode.iPos  +':' +oTempNode.sValue.length);



					oTempNode.aChildren.push(aoStack.pop());

					aoStack.push(oTempNode);

				} else

					insertAnd(oElement.iPos);



				iWordCount++;



				break;

			case 'op': // operators

				var oTempNode = new Node(oElement.sType, oElement.sValue, oElement.iPos, oElement.iPriority);

				

				//alert(oElement.sValue +': ' +oElement.iPriority +', ' +iPrevPriority);

				

				if (oElement.iPriority > iPrevPriority) 

					return;

				else {

					iElementPos++;

					parseItems(oElement.iPriority, bMergeOps);

					

					if (aoStack.length < 2)

						throw new Error(translate('err_nopar').replace(/\{([^\}]+)\}/g, function($0, $1) { 

							var sRes = eval($1); return sRes == null ? '' : sRes; 

						}) +' @' +oTempNode.iPos +':' +oTempNode.sValue.length);



					var oTemp2 = aoStack.pop(); // For swap order

					var oTemp1 = aoStack.pop();

					

					if (bMergeOps) {

						if (oTemp1.sType == 'op' && oTemp1.sValue == oTempNode.sValue) {

							for (var i = 0; i < oTemp1.aChildren.length; i++)

								oTempNode.aChildren.push(oTemp1.aChildren[i]);

						} else

							oTempNode.aChildren.push(oTemp1);



						if (oTemp2.sType == 'op' && oTemp2.sValue == oTempNode.sValue) {

							for (var i = 0; i < oTemp2.aChildren.length; i++)

								oTempNode.aChildren.push(oTemp2.aChildren[i]);

						} else

							oTempNode.aChildren.push(oTemp2);

					} else {

						oTempNode.aChildren.push(oTemp1);

						oTempNode.aChildren.push(oTemp2);

					}

						

					aoStack.push(oTempNode);

				}

				

				iWordCount++;



				break;

			default:

				iElementPos++;

				break;

		}

	}

	

	return;

}



function doParse(sText, bMinusAsNot, bMergeOps, bStopword, aStopWords) {

	sText = replaceQuotesWithAnds(sText);	

	checkParentheses(sText);

	initParser(sText);

	buildElements(bMinusAsNot);

	parseItems(255, bMergeOps);

	if (aoStack.length == 0)

		throw new Error(translate('err_empty'));

	var oRoot = aoStack[0];

	if (bStopword && !doCleanStopwords(oRoot, aStopWords))

		throw new Error(translate('err_stop'));

	return oRoot;

}



// XSLT search functions



var iResultIndex;



function doExecSearch(oNode) {

    var sFilter = doCollectWordsCyc(oNode);

    var sFilter = sFilter.substr(0, sFilter.length -1);

    var sOp = '';

    iResultIndex = 1;

    var iLevel = 0;

    while (true) {

    	if (oNode.sType == 'wd' || oNode.sType == 'wp' || oNode.sType == 'ex' || oNode.sType == 'ep')

    		break;

    		

    	if (sOp != '')

    		sOp += ';';



    	sOp += doExecSearchCyc(oNode);

    	

	    var sCopy = doCollectWordsCyc(oNode);

	    if (sCopy != '')

		    sOp += 'C(' +sCopy.substr(0, sCopy.length -1) +')';

		    

		iLevel++;

	}

    

    sURL = '&xsl0=xslt/wordfilter.xsl&filter=' +sFilter +'&op=' +sOp;

    for (var i = 0; i < iLevel; i++)

    	sURL += '&xsl' +(i +1) +'=xslt/opfilter.xsl';



	return sURL;

}



function doCollectWordsCyc(oNode) {

	sWords = '';

	switch (oNode.sType) {

		case 'op':

			for (var i = 0; i < oNode.aChildren.length; i++)

				sWords += doCollectWordsCyc(oNode.aChildren[i]);

			break;

		case 'wd':

		case 'wp':

		case 'ex':

		case 'ep':

			if (oNode.sValue.charAt(0) == '#')

				oNode.sValue = 'R' +oNode.sValue.substr(1);

			else

				sWords += oNode.sValue +',';

			break;

	}

	return sWords;

}



//'A(ABDOMINAL,CORSETS,R1)A(BELT*,PURPOSES,R2);O(R1,R2,R3)';

function doExecSearchCyc(oNode) {

	sQuery = '';

	switch (oNode.sType) {

		case 'op':

			var oNode1 = oNode.aChildren[0];

			var oNode2 = oNode.aChildren[1];

			

			var bOk = (oNode1.sType == 'wd' || oNode1.sType == 'wp' || oNode1.sType == 'ex' || oNode1.sType == 'ep')

				&& (oNode2.sType == 'wd' || oNode2.sType == 'wp' || oNode2.sType == 'ex' || oNode2.sType == 'ep');

				

			if (bOk) {

				sQuery += oNode.sValue.charAt(0) +'(' +oNode1.sValue +',' +oNode2.sValue +',R' +iResultIndex +')';

				oNode.sType = 'wd';

				oNode.sValue = '#' +iResultIndex;

				iResultIndex++;

			} else 	

				for (var i = 0; i < oNode.aChildren.length; i++)

					sQuery += doExecSearchCyc(oNode.aChildren[i]);



			break;

	}

	return sQuery;

}



function replaceQuotesWithAnds(sText) {

	var aSplits = sText.split('"');

	var i = 1;

	while (i < aSplits.length) {

		aSplits[i] = aSplits[i].replace(/ /mig, ' and ');

		i += 2;

	}

	sText = '';

	for (i = 0; i < aSplits.length; i++)

		sText += aSplits[i];

	return sText;

}