Function par_cursor

src/gpre/sql.cpp:5727–5770

//

static gpre_req* par_cursor( gpre_sym** symbol_ptr)
{
	// par_cursor() is called to use a previously declared cursor.
	// tok_symbol == NULL means one of the two things.
	// a) The name does not belong to a cursor. OR
	// b) get_token() function in gpre.cpp was not able to find the cursor
	//    in hash table.
	//
	// case a) is an error condition.
	// case b) Could have resulted because the cursor name was upcased and
	//  inserted into hash table since it was not quoted and it is
	//  now being refered as it was declared.
	//
	// Hence, Try and lookup the cursor name after resolving it once more. If
	// it still cannot be located, Its an error

	SQL_resolve_identifier("<cursor name>", NULL, MAX_CURSOR_SIZE);
	gpre_sym* symbol = HSH_lookup(gpreGlob.token_global.tok_string);
	gpreGlob.token_global.tok_symbol = symbol;
	if (symbol && symbol->sym_type == SYM_keyword)
		gpreGlob.token_global.tok_keyword = (kwwords_t) symbol->sym_keyword;
	else
		gpreGlob.token_global.tok_keyword = KW_none;

	symbol = MSC_find_symbol(gpreGlob.token_global.tok_symbol, SYM_cursor);

	if (!symbol)
		symbol = MSC_find_symbol(gpreGlob.token_global.tok_symbol, SYM_delimited_cursor);

	if (symbol)
	{
		PAR_get_token();
		if (symbol_ptr)
			*symbol_ptr = symbol;
		return (gpre_req*) symbol->sym_object;
	}

	symbol = MSC_find_symbol(gpreGlob.token_global.tok_symbol, SYM_dyn_cursor);
	if (symbol)
		PAR_error("DSQL cursors require DSQL update & delete statements");

	CPR_s_error("<cursor name>");
	return NULL;				// silence compiler
}


//____________________________________________________________