Function gen_cursor_close

src/gpre/languages/pas.cpp:1060–1079

//

static int gen_cursor_close( const act* action, const gpre_req* request, int column)
{
	const TEXT* pattern1 = "if %RIs <> nil then";
	const TEXT* pattern2 = "isc_dsql_free_statement (%V1, %RF%RIs, %N1);";

	PAT args;
	args.pat_request = request;
	args.pat_vector1 = status_vector(action);
	args.pat_value1 = 1;

	PATTERN_expand(column, pattern1, &args);
	column += INDENT;
	begin(column);
	PATTERN_expand(column, pattern2, &args);
	printa(column, "if (gds__status[2] = 0) then");
	column += INDENT;
	begin(column);

	return column;
}


//____________________________________________________________