Function act_declare_table

src/gpre/sql.cpp:2425–2506

//

static act* act_declare_table( gpre_sym* symbol, gpre_dbb* db)
{
	// create a local request block

	gpre_req* request = (gpre_req*) MSC_alloc(REQ_LEN);
	request->req_type = REQ_ddl;

	// create relation block

	gpre_rel* relation = make_relation(0, symbol->sym_string);

	if (!db)
		db = relation->rel_database;

	request->req_database = db;

	relation->rel_next = db->dbb_relations;
	db->dbb_relations = relation;
	gpre_fld* dbkey = MET_make_field("rdb$db_key", dtype_text, 8, false);
	relation->rel_dbkey = dbkey;
	dbkey->fld_flags |= FLD_dbkey | FLD_text | FLD_charset;
	dbkey->fld_ttype = ttype_binary;

	// if relation name already in incore metadata, remove it & its fields

	gpre_sym* old_symbol = HSH_lookup(relation->rel_symbol->sym_string);

	while (old_symbol)
	{
		if (old_symbol->sym_type == SYM_relation)
		{
			gpre_rel* tmp_relation = (gpre_rel*) old_symbol->sym_object;
			if (tmp_relation->rel_meta)
				PAR_error("Multiple DECLARE TABLE statements for table");
			gpre_sym* tmp_symbol = old_symbol->sym_homonym;
			HSH_remove(old_symbol);
			for (gpre_fld* field = tmp_relation->rel_fields; field; field = field->fld_next)
			{
				 HSH_remove(field->fld_symbol);
			}
			old_symbol = tmp_symbol;
		}
		else
			old_symbol = old_symbol->sym_homonym;
	}

	// add new symbol to incore metadata

	HSH_insert(relation->rel_symbol);

	// create action block

	act* action = (act*) MSC_alloc(ACT_LEN);
	action->act_type = ACT_noop;
	action->act_object = (ref*) relation;

	// parse field list and create corresponding field blocks
	// include size information for message length calculations