Method yylexAux

src/dsql/Parser.cpp:390–1245

int Parser::yylexAux()
{
	thread_db* tdbb = JRD_get_thread_data();
	Database* const dbb = tdbb->getDatabase();
	MemoryPool& pool = *tdbb->getDefaultPool();

	unsigned maxByteLength, maxCharLength;

	if (scratch->flags & DsqlCompilerScratch::FLAG_INTERNAL_REQUEST)
	{
		maxByteLength = MAX_SQL_IDENTIFIER_LEN;
		maxCharLength = METADATA_IDENTIFIER_CHAR_LEN;
	}
	else
	{
		maxByteLength = dbb->dbb_config->getMaxIdentifierByteLength();
		maxCharLength = dbb->dbb_config->getMaxIdentifierCharLength();
	}

	SSHORT c = lex.ptr[-1];
	UCHAR tok_class = classes(c);
	char string[MAX_TOKEN_LEN];

	// Depending on tok_class of token, parse token

	lex.last_token = lex.ptr - 1;

	if (tok_class & CHR_INTRODUCER)
	{
		// The Introducer (_) is skipped, all other idents are copied
		// to become the name of the character set.
		char* p = string;
		for (; lex.ptr < lex.end && (classes(*lex.ptr) & CHR_IDENT); lex.ptr++)
		{
			if (lex.ptr >= lex.end)
				return -1;

			check_copy_incr(p, UPPER7(*lex.ptr), string);
		}

		check_bound(p, string);

		if (p > string + maxByteLength || p > string + maxCharLength)
			yyabandon(yyposn, -104, isc_dyn_name_longer);

		*p = 0;

		// make a string value to hold the name, the name is resolved in pass1_constant.
		yylval.metaNamePtr = FB_NEW_POOL(pool) MetaName(pool, string, p - string);

		return TOK_INTRODUCER;
	}

	// parse a quoted string, being sure to look for double quotes

	if (tok_class & CHR_QUOTE)
	{
		StrMark mark;