Function act_create_table

src/gpre/sql.cpp:2011–2081

//

static act* act_create_table()
{
	gpre_req* request = MSC_request(REQ_ddl);
	gpre_rel* relation = par_relation(request);

	if (MSC_match(KW_EXTERNAL))
	{
		TEXT* string = NULL;
		MSC_match(KW_FILE);
		if (isQuoted(gpreGlob.token_global.tok_type))
		{
			string = (TEXT*) MSC_alloc(gpreGlob.token_global.tok_length + 1);
			relation->rel_ext_file = string;
			MSC_copy(gpreGlob.token_global.tok_string, gpreGlob.token_global.tok_length, string);
			PAR_get_token();
		}
		else
			CPR_s_error("<quoted filename>");

		if (!check_filename(string))
			PAR_error("node name not permitted");	// a node name is not permitted in external file name
	}

	// CHECK Constraints require the context to be set to the
	// current relation

	gpre_ctx* context = MSC_context(request);
	request->req_contexts = context;
	context->ctx_relation = relation;

	// Reserve context 1 for relation on which constraint is
	// being defined
	context->ctx_internal++;
	request->req_internal++;

	// create action block

	act* action = MSC_action(request, ACT_create_table);
	action->act_whenever = gen_whenever();
	action->act_object = (ref*) relation;

	EXP_left_paren(0);
	gpre_fld** ptr = &relation->rel_fields;
	cnstrt** cnstrt_ptr = &relation->rel_constraints;

	for (;;)
	{
		switch (gpreGlob.token_global.tok_keyword)
		{
		case KW_CONSTRAINT:
		case KW_PRIMARY:
		case KW_UNIQUE:
		case KW_FOREIGN:
		case KW_CHECK:
			*cnstrt_ptr = par_table_constraint(request);
			cnstrt_ptr = &(*cnstrt_ptr)->cnstrt_next;
			break;