Function create_table

src/gpre/cmd.cpp:1606–1661

//

static void create_table( gpre_req* request, const act* action)
{
	// add relation name

	const gpre_rel* relation = (gpre_rel*) action->act_object;
	put_symbol(request, isc_dyn_def_rel, relation->rel_symbol);

	// If the relation is defined as an external file, add dyn for that

	if (relation->rel_ext_file)
		put_cstring(request, isc_dyn_rel_ext_file, relation->rel_ext_file);

	put_numeric(request, isc_dyn_rel_sql_protection, 1);

	// add field info
	USHORT position = 0;
	for (const gpre_fld* field = relation->rel_fields; field; field = field->fld_next)
	{
		if (field->fld_global)
		{
			put_symbol(request, isc_dyn_def_local_fld, field->fld_symbol);
			put_symbol(request, isc_dyn_fld_source, field->fld_global);
		}
		else
			put_symbol(request, isc_dyn_def_sql_fld, field->fld_symbol);

		put_field_attributes(request, field);
		put_numeric(request, isc_dyn_fld_position, position++);

		if (field->fld_default_value)
		{
			put_blr(request, isc_dyn_fld_default_value, field->fld_default_value, CME_expr);
			TEXT* default_source = (TEXT*) MSC_alloc(field->fld_default_source->txt_length + 1);
			CPR_get_text(default_source, field->fld_default_source);
			put_cstring(request, isc_dyn_fld_default_source, default_source);
		}

		request->add_end();
		if (field->fld_constraints)
			create_constraint(request, action, field->fld_constraints);
	}


	if (relation->rel_constraints)
		create_constraint(request, action, relation->rel_constraints);

	request->add_end();

	// Need to create an index for any fields (columns) declared with the UNIQUE constraint.

	for (const gpre_fld* field = relation->rel_fields; field; field = field->fld_next)
	{
		if (field->fld_index)
			create_index(request, field->fld_index);
	}
}