Function par_table_constraint

src/gpre/sql.cpp:6217–6351

//

static cnstrt* par_table_constraint( gpre_req* request)
{
	cnstrt* constraint = (cnstrt*) MSC_alloc(CNSTRT_LEN);

	if (gpreGlob.token_global.tok_keyword == KW_CONSTRAINT)
	{
		PAR_get_token();
		constraint->cnstrt_name = (STR) MSC_alloc(NAME_SIZE + 1);
		SQL_resolve_identifier("<constraint name>",
							   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();
	}

	gpre_lls** fields;
	USHORT num_for_key_flds = 0, num_prim_key_flds = 0;

	const kwwords_t keyword = gpreGlob.token_global.tok_keyword;
	switch (keyword)
	{
	case KW_PRIMARY:
	case KW_UNIQUE:
	case KW_FOREIGN:
		PAR_get_token();
		switch (keyword)
		{
		case KW_PRIMARY:
			if (!MSC_match(KW_KEY))
				CPR_s_error("KEY");
			constraint->cnstrt_type = CNSTRT_PRIMARY_KEY;
			break;
		case KW_FOREIGN:
			if (!MSC_match(KW_KEY))
				CPR_s_error("KEY");
			constraint->cnstrt_type = CNSTRT_FOREIGN_KEY;
			break;
		default:
			constraint->cnstrt_type = CNSTRT_UNIQUE;
		}

		EXP_left_paren(0);

		// Get list of fields for PRIMARY KEY or FOREIGN KEY or UNIQUE constraint

		fields = &constraint->cnstrt_fields;
		do {
			STR field_name = (STR) MSC_alloc(NAME_SIZE + 1);
			SQL_resolve_identifier("<column name>", field_name->str_string, NAME_SIZE + 1);
			if (gpreGlob.token_global.tok_length >= NAME_SIZE)
				PAR_error("Field name too long");

			MSC_push((gpre_nod*) field_name, fields);
			fields = &(*fields)->lls_next;
			++num_for_key_flds;
			CPR_token();
		} while (MSC_match(KW_COMMA));