Function create_view

src/gpre/cmd.cpp:1708–1934

//

static bool create_view(gpre_req* request, act* action)
{
	// add relation name

	gpre_rel* relation = (gpre_rel*) action->act_object;
	put_symbol(request, isc_dyn_def_view, relation->rel_symbol);
	put_numeric(request, isc_dyn_rel_sql_protection, 1);

	// write out blr

	put_blr(request, isc_dyn_view_blr, (gpre_nod*) relation->rel_view_rse, CME_rse);

	// write out view source

	TEXT* view_source = (TEXT *) MSC_alloc(relation->rel_view_text->txt_length + 1);
	CPR_get_text(view_source, relation->rel_view_text);
	put_cstring(request, isc_dyn_view_source, view_source);

	// Write out view context info
	gpre_rel* sub_relation = 0;
	for (gpre_ctx* context = request->req_contexts; context; context = context->ctx_next)
	{
		sub_relation = context->ctx_relation;
		if (!sub_relation)
			continue;
		put_symbol(request, isc_dyn_view_relation, sub_relation->rel_symbol);
		put_numeric(request, isc_dyn_view_context, context->ctx_internal);
		if (context->ctx_symbol)
			put_symbol(request, isc_dyn_view_context_name, context->ctx_symbol);
		//if (context->ctx_type)
		//	put_numeric(request, isc_dyn_view_context_type, context->ctx_type);
		//if (context->ctx_package)
		//	put_symbol(request, isc_dyn_pkg_name, context->ctx_package);
		request->add_end();
	}

	// add the mapping from the rse to the view fields

	gpre_fld* field = relation->rel_fields;
	gpre_nod* fields = relation->rel_view_rse->rse_fields;
	SSHORT position = 0;
	bool non_updateable = false;

	gpre_nod** ptr;
	const gpre_nod* const* end;

	for (ptr = fields->nod_arg, end = ptr + fields->nod_count; ptr < end;
		 ptr++, (field = field ? field->fld_next : NULL))
	{
		const gpre_fld* fld = NULL;
		const gpre_ctx* context = NULL;
		gpre_nod* value = *ptr;
		if (value->nod_type == nod_field)
		{
			const ref* reference = (ref*) value->nod_arg[0];
			fld = reference->ref_field;
			const gpre_req* slice_req;
			const slc* slice;