Function SQE_value

src/gpre/sqe.cpp:1174–1217

//

gpre_nod* SQE_value(gpre_req* request, bool aster_ok, USHORT* paren_count, bool* bool_flag)
{
	USHORT local_count;
	bool local_flag;

	assert_IS_REQ(request);

	if (!paren_count)
	{
		local_count = 0;
		paren_count = &local_count;
	}
	if (!bool_flag)
	{
		local_flag = false;
		bool_flag = &local_flag;
	}

	MSC_match(KW_PLUS);
	gpre_nod* node = par_multiply(request, aster_ok, paren_count, bool_flag);
	assert_IS_NOD(node);
	if (node->nod_type == nod_asterisk)
	{
		par_terminating_parens(paren_count, &local_count);
		return node;
	}

	nod_t nod_type;
	while (true)
	{
		if (MSC_match(KW_PLUS))
			nod_type = nod_plus;
		else if (MSC_match(KW_MINUS))
			nod_type = nod_minus;
		else if (MSC_match(KW_OR1))
			nod_type = nod_concatenate;
		else
		{
			par_terminating_parens(paren_count, &local_count);
			return node;
		}
		node = MSC_binary(nod_type, node, par_multiply(request, false, paren_count, bool_flag));
	}
}


//____________________________________________________________