Function gen_t_start

src/gpre/c_cxx.cpp:3329–3382

//

static void gen_t_start( const act* action, int column)
{
	const TEXT* vector = status_vector(action);

	// if this is a purely default transaction, just let it through

	const gpre_tra* trans;
	if (!action || !(trans = (gpre_tra*) action->act_object))
	{
		t_start_auto(action, 0, vector, column, false);
		return;
	}

	// build a complete statement, including tpb's. Ready db's
	const tpb* tpb_iterator;

	if (gpreGlob.sw_auto)
		for (tpb_iterator = trans->tra_tpb; tpb_iterator; tpb_iterator = tpb_iterator->tpb_tra_next)
		{
			const gpre_dbb* db = tpb_iterator->tpb_database;
			const TEXT* filename = db->dbb_runtime;
			if (filename || !(db->dbb_flags & DBB_sqlca))
			{
				printa(column, "if (!%s)", db->dbb_name->sym_string);
				make_ready(db, filename, vector, (USHORT) (column + INDENT), 0);
			}
		}

	printa(column, "isc_start_transaction (%s, (FB_API_HANDLE*) &%s, (short) %d", vector,
		   trans->tra_handle ? trans->tra_handle : gpreGlob.transaction_name, trans->tra_db_count);

	// Some systems don't like infinitely long lines.  Limit them to 256.

	int remaining = static_cast<int>(256 - column - strlen(vector) -
		strlen(trans->tra_handle ? trans->tra_handle : gpreGlob.transaction_name) - 31);

	for (tpb_iterator = trans->tra_tpb; tpb_iterator; tpb_iterator = tpb_iterator->tpb_tra_next)
	{
		int length = static_cast<int>(strlen(tpb_iterator->tpb_database->dbb_name->sym_string) + 22);
		if (length > remaining)
		{
			align(column + INDENT);
			remaining = 256 - column - INDENT;
		}
		remaining -= length;
		fprintf(gpreGlob.out_file, ", &%s, (short) %d, isc_tpb_%d",
				   tpb_iterator->tpb_database->dbb_name->sym_string,
				   tpb_iterator->tpb_length, tpb_iterator->tpb_ident);
	}

	fprintf(gpreGlob.out_file, ");");

	set_sqlcode(action, column);
}


//____________________________________________________________