Function act_create_domain

src/gpre/sql.cpp:1785–1860

//

static act* act_create_domain()
{
	// create request block

	gpre_req* request = MSC_request(REQ_ddl);
	if (gpreGlob.isc_databases && !gpreGlob.isc_databases->dbb_next)
		request->req_database = gpreGlob.isc_databases;
	else
		PAR_error("Can only CREATE DOMAIN in context of single database");

	// create action block

	act* action = MSC_action(request, ACT_create_domain);

	gpre_fld* field = make_field(0);
	MSC_match(KW_AS);
	SQL_par_field_dtype(request, field, false);

	// Check if default value was specified

	if (gpreGlob.token_global.tok_keyword == KW_DEFAULT)
	{
		field->fld_default_source = CPR_start_text();
		PAR_get_token();

		if (MSC_match(KW_USER))
			field->fld_default_value = MSC_node(nod_user_name, 0);
		else if (MSC_match(KW_NULL))
			field->fld_default_value = MSC_node(nod_null, 0);
		else
		{
			if (MSC_match(KW_MINUS))
			{
				if (gpreGlob.token_global.tok_type != tok_number)
					CPR_s_error("<number>");

				gpre_nod* literal_node = EXP_literal();
				field->fld_default_value = MSC_unary(nod_negate, literal_node);
			}
			else if ((field->fld_default_value = EXP_literal()) == NULL)
				CPR_s_error("<constant>");
		}
		CPR_end_text(field->fld_default_source);
	}


	// Check for any column level constraints

	cnstrt** cnstrt_ptr = &field->fld_constraints;
	bool in_constraints = true;

	while (in_constraints)
	{
		switch (gpreGlob.token_global.tok_keyword)
		{
		case KW_CONSTRAINT:
		case KW_CHECK:
		case KW_NOT: