Function act_alter_domain

src/gpre/sql.cpp:1223–1310

//

static act* act_alter_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 ALTER a domain in context of single database");

	// create action block

	act* action = MSC_action(request, ACT_alter_domain);

	PAR_get_token();
	gpre_fld* field = make_field(0);
	cnstrt** cnstrt_ptr = &field->fld_constraints;

	// Check if default value was specified

	while (!end_of_command())
	{
		if (MSC_match(KW_SET))
		{
			if (gpreGlob.token_global.tok_keyword == KW_DEFAULT)
			{
				field->fld_default_source = CPR_start_text();
				PAR_get_token();
			}
			else
				CPR_s_error("DEFAULT");

			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);
		}
		else if (MSC_match(KW_ADD))
		{
			MSC_match(KW_CONSTRAINT);
			if (gpreGlob.token_global.tok_keyword == KW_CHECK)
			{
				cnstrt* cnstrt_str = par_field_constraint(request, field);
				*cnstrt_ptr = cnstrt_str;