Function gen_request

src/gpre/c_cxx.cpp:2801–2938

//

static void gen_request(const gpre_req* request)
{
	if (!(request->req_flags & (REQ_exp_hand | REQ_sql_blob_open | REQ_sql_blob_create)) &&
		request->req_type != REQ_slice && request->req_type != REQ_procedure)
	{
		printa(0, "static isc_req_handle\n   %s = 0;\t\t/* request handle */\n", request->req_handle);
	}

	// check the case where we need to extend the dpb dynamically at runtime,
	// in which case we need dpb length and a pointer to be defined even if
	// there is no static dpb defined

	if (request->req_flags & REQ_extend_dpb)
	{
		printa(0, "static char\n   *isc_%dp;", request->req_ident);
		if (!request->req_length)
			printa(0, "static short\n   isc_%dl = %d;", request->req_ident, request->req_length);
	}

	if (request->req_type == REQ_create_database)
		printa(0, "static %s\n   *isc_%dt;", DCL_LONG, request->req_ident);

	if (request->req_flags & (REQ_sql_blob_open | REQ_sql_blob_create))
		printa(0, "static isc_stmt_handle\n   isc_%ds;\t\t/* sql statement handle */",
			   request->req_ident);

	if (request->req_length)
	{
		if (request->req_flags & REQ_sql_cursor)
			printa(0, "static isc_stmt_handle\n   isc_%ds;\t\t/* sql statement handle */",
				   request->req_ident);
		printa(0, "static %sshort\n   isc_%dl = %d;",
			   (request->req_flags & REQ_extend_dpb) ? "" : CONST_STR,
			   request->req_ident, request->req_length);

		const TEXT* string_type = "blr";
		bool is_blr = true;

		switch (request->req_type)
		{
			case REQ_create_database:
			case REQ_ready:
				string_type = "dpb";
				is_blr = false;
				break;

			case REQ_ddl:
				string_type = "dyn";
				is_blr = false;
				break;

			case REQ_slice:
				string_type = "sdl";
				is_blr = false;
				break;
		}

		if (is_blr)