Function act_declare

src/gpre/sql.cpp:2231–2357

//

static act* act_declare()
{
	gpre_dbb* db = NULL;

	if (gpreGlob.token_global.tok_symbol && (gpreGlob.token_global.tok_symbol->sym_type == SYM_database))
	{
		// must be a database specifier in a DECLARE TABLE statement

		db = (gpre_dbb*) gpreGlob.token_global.tok_symbol->sym_object;
		PAR_get_token();
		if (!MSC_match(KW_DOT))
			CPR_s_error(". (period)");
		gpre_sym* symbol = PAR_symbol(SYM_dummy);
		if (gpreGlob.token_global.tok_keyword != KW_TABLE)
			CPR_s_error("TABLE");
		return (act_declare_table(symbol, db));
	}

	switch (gpreGlob.token_global.tok_keyword)
	{
	case KW_FILTER:
		return (act_declare_filter());
		break;

	case KW_EXTERNAL:
		PAR_get_token();
		if (MSC_match(KW_FUNCTION))
			return (act_declare_udf());

		CPR_s_error("FUNCTION");
		break;
	}

	bool delimited = false;

	{ // Scope
		TEXT t_str[MAX_CURSOR_SIZE];
		SQL_resolve_identifier("<Cursor Name>", t_str, MAX_CURSOR_SIZE);
		gpre_sym* symb = NULL;
		if (gpreGlob.token_global.tok_type == tok_dblquoted)
		{
			delimited = true;
			symb = HSH_lookup(t_str);
		}
		else {
			symb = HSH_lookup2(t_str);
		}
		if (symb &&
			(symb->sym_type == SYM_cursor || symb->sym_type == SYM_delimited_cursor))
		{
			char s[ERROR_LENGTH];
			fb_utils::snprintf(s, sizeof(s), "symbol %s is already in use", t_str);
			PAR_error(s);
		}
	} // end scope

	act* action = NULL;
	gpre_sym* symbol = PAR_symbol(SYM_cursor);