Function par_ready

src/gpre/par.cpp:2525–2694

//

static act* par_ready()
{
	gpre_req* request;
	gpre_sym* symbol;
	gpre_dbb* db;
	bool need_handle = false;
	USHORT default_buffers = 0;

	act* action = MSC_action(0, ACT_ready);

	if (gpreGlob.token_global.tok_keyword == KW_CACHE)
		CPR_s_error("database name or handle");

	while (!terminator())
	{
		// this default mechanism is left here for backwards
		// compatibility, but it is no longer documented and
		// is not something we should maintain for all ready
		// options since it needlessly complicates the ready
		// statement without providing any extra functionality

		if (MSC_match(KW_DEFAULT))
		{
			if (!MSC_match(KW_CACHE))
				CPR_s_error("database name or handle");
			default_buffers = atoi(gpreGlob.token_global.tok_string);
			CPR_eol_token();
			MSC_match(KW_BUFFERS);
			continue;
		}

		rdy* ready = (rdy*) MSC_alloc(RDY_LEN);
		ready->rdy_next = (rdy*) action->act_object;
		action->act_object = (ref*) ready;

		if (!(symbol = gpreGlob.token_global.tok_symbol) || symbol->sym_type != SYM_database)
		{
			ready->rdy_filename = PAR_native_value(false, false);
			if (MSC_match(KW_AS))
				need_handle = true;
		}

		if (!(symbol = gpreGlob.token_global.tok_symbol) || symbol->sym_type != SYM_database)
		{
			if (!gpreGlob.isc_databases || gpreGlob.isc_databases->dbb_next || need_handle)
			{
				need_handle = false;
				CPR_s_error("database handle");
			}
			ready->rdy_database = gpreGlob.isc_databases;
		}

		need_handle = false;
		if (!ready->rdy_database)
			ready->rdy_database = (gpre_dbb*) symbol->sym_object;
		if (terminator())
			break;
		CPR_eol_token();