Function par_field_constraint

src/gpre/sql.cpp:5913–6018

//

static cnstrt* par_field_constraint( gpre_req* request, gpre_fld* for_field)
{
	cnstrt* new_constraint = (cnstrt*) MSC_alloc(CNSTRT_LEN);

	if (gpreGlob.token_global.tok_keyword == KW_CONSTRAINT)
	{
		PAR_get_token();
		new_constraint->cnstrt_name = (STR) MSC_alloc(NAME_SIZE + 1);
		SQL_resolve_identifier("<constraint name>",
							   new_constraint->cnstrt_name->str_string, NAME_SIZE + 1);
		if (gpreGlob.token_global.tok_length >= NAME_SIZE)
			PAR_error("Constraint name too long");

		PAR_get_token();
	}

	STR field_name;
	const kwwords_t keyword = gpreGlob.token_global.tok_keyword;
	switch (keyword)
	{
	case KW_NOT:
		PAR_get_token();
		if (!MSC_match(KW_NULL))
			CPR_s_error("NULL");
		new_constraint->cnstrt_type = CNSTRT_NOT_NULL;
		for_field->fld_flags |= FLD_not_null;
		break;

	case KW_PRIMARY:
	case KW_UNIQUE:
	case KW_REFERENCES:
		PAR_get_token();
		switch (keyword)
		{
		case KW_PRIMARY:
			if (!MSC_match(KW_KEY))
				CPR_s_error("KEY");
			new_constraint->cnstrt_type = CNSTRT_PRIMARY_KEY;
			break;
		case KW_REFERENCES:
			new_constraint->cnstrt_type = CNSTRT_FOREIGN_KEY;
			break;
		default:
			new_constraint->cnstrt_type = CNSTRT_UNIQUE;
		}

		// Set field for PRIMARY KEY or FOREIGN KEY or UNIQUE constraint

		field_name = (STR) MSC_alloc(NAME_SIZE + 1);
		strcpy(field_name->str_string, for_field->fld_symbol->sym_string);
		MSC_push((gpre_nod*) field_name, &new_constraint->cnstrt_fields);

		if (keyword == KW_REFERENCES)
		{
			// Relation name for foreign key

			new_constraint->cnstrt_referred_rel = (STR) MSC_alloc(NAME_SIZE + 1);
			SQL_resolve_identifier("referred <table name>",