Function fxCharSetStringsDisjunction

xs/sources/xsre.c:1315–1345

}

void* fxCharSetStringsDisjunction(txPatternParser* parser, txCharSet* set)
{
	void* result = set;
	if (set->strings) {
		txDisjunction* disjunction;
		txInteger index = 0;
		void* left = NULL;
		void* right = NULL;
		while (index < set->stringCount) {
			right = fxCharSetStringsSequence(parser, set->strings[index]);
			if (left) {
				disjunction = fxPatternParserCreateTerm(parser, sizeof(txDisjunction), fxDisjunctionMeasure);
				disjunction->left = left;
				disjunction->right = right;
				result = disjunction;
			}
			else {
				result = right;
			}
			left = result;
			index++;
		}
		if (set->characters[0]) {
			disjunction = fxPatternParserCreateTerm(parser, sizeof(txDisjunction), fxDisjunctionMeasure);
			disjunction->left = result;
			disjunction->right = (txTerm*)set;
			result = disjunction;
		}
	}
	return result;
}

void* fxCharSetStringsSequence(txPatternParser* parser, txString string)
{