Function gen_database

src/gpre/obj_cxx.cpp:1426–1567

}

static void gen_database(int column)
{
	if (global_first_flag)
		return;

	global_first_flag = true;

	fprintf(gpreGlob.out_file, "\n/**** GDS Preprocessor Definitions ****/\n");
	fprintf(gpreGlob.out_file, "#ifndef JRD_IBASE_H\n#include %s\n#endif\n", GDS_INCLUDE);
	fprintf(gpreGlob.out_file, "#include <firebird/Interface.h>\n");

	fprintf(gpreGlob.out_file, "#define CAST_CONST_MSG(A) (reinterpret_cast<const unsigned char*>(A))\n");
	fprintf(gpreGlob.out_file, "#define CAST_MSG(A) (reinterpret_cast<unsigned char*>(A))\n");

	ifndef("fbBlobNull");
	printa(column, "static %sISC_QUAD", CONST_STR);
	printa(column + INDENT, "fbBlobNull = {0, 0};\t/* initializer for blobs */");
	endif();

	const TEXT* scope = "";

	bool all_static = true;
	bool all_extern = true;

	const gpre_dbb* db;
	for (db = gpreGlob.isc_databases; db; db = db->dbb_next)
	{
		all_static = all_static && (db->dbb_scope == DBB_STATIC);
		all_extern = all_extern && (db->dbb_scope == DBB_EXTERN);

		ifndef(db->dbb_name->sym_string);
		if (db->dbb_scope == DBB_STATIC)
			scope = "static ";
		else if (db->dbb_scope == DBB_EXTERN)
			scope = "extern ";
		printa(column, "%sFirebird::IAttachment*", scope);
		if (!all_extern)
			printa(column + INDENT, "%s = 0;\t\t/* database handle */\n", db->dbb_name->sym_string);
		else
			printa(column + INDENT, "%s;\t\t/* database handle */\n", db->dbb_name->sym_string);
		endif();
	}

	if (all_static)
		scope = "static ";
	else if (all_extern)
		scope = "extern ";

	ifndef(gpreGlob.transaction_name);
	printa(column, "%sFirebird::ITransaction*", scope);
	if (!all_extern)
		printa(column + INDENT, "%s = 0;\t\t/* default transaction handle */",
			   gpreGlob.transaction_name);
	else
		printa(column + INDENT, "%s;\t\t/* default transaction handle */",
			   gpreGlob.transaction_name);
	endif();