Function gen_request

src/gpre/obj_cxx.cpp:2817–2955

//

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 Firebird::IRequest*\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   *fb_%dp;", request->req_ident);
		if (!request->req_length)
			printa(0, "static short\n   fb_%dl = %d;", request->req_ident, request->req_length);
	}

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

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

	if (request->req_length)
	{
		if (request->req_flags & REQ_sql_cursor)
			printa(0, "static Firebird::IStatement*\n   fb_%ds;\t\t/* sql statement handle */",
				   request->req_ident);
		printa(0, "static %sunsigned\n   fb_%dl = %d;",
			   (request->req_flags & REQ_extend_dpb) ? "" : CONST_STR,
			   request->req_ident, request->req_length);
		printa(0, "static %sunsigned char\n   fb_%d [] = {", CONST_STR, request->req_ident);

		const TEXT* string_type = "blr";
		if (gpreGlob.sw_raw)
		{
			gen_raw(request->req_blr, request->req_length);

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

			case REQ_ddl:
				string_type = "dyn";
				break;
			case REQ_slice:
				string_type = "sdl";
				break;

			default:
				string_type = "blr";
			}