Function t_start_auto

src/gpre/languages/pas.cpp:3433–3491

//

static void t_start_auto( const act* action, const gpre_req* request,
						 const TEXT* vector, int column)
{
	TEXT buffer[256];

	buffer[0] = 0;

	// find out whether we're using a status vector or not

	const bool stat = !strcmp(vector, "gds__status");

	// this is a default transaction, make sure all databases are ready

	begin(column);

	int count, and_count;
	const gpre_dbb* db;
	for (db = gpreGlob.isc_databases, count = and_count = 0; db; db = db->dbb_next)
	{
		if (gpreGlob.sw_auto)
		{
			const TEXT* filename = db->dbb_runtime;
			if (filename || !(db->dbb_flags & DBB_sqlca))
			{
				align(column);
				fprintf(gpreGlob.out_file, "if (%s = nil", db->dbb_name->sym_string);
				if (stat && buffer[0])
					fprintf(gpreGlob.out_file, ") and (%s[2] = 0", vector);
				fprintf(gpreGlob.out_file, ") then");
				make_ready(db, filename, vector, column + INDENT, 0);
				if (buffer[0])
					if (and_count % 4)
						strcat(buffer, ") and (");
					else
						strcat(buffer, ") and\n\t(");
				and_count++;
				TEXT temp[40];
				sprintf(temp, "%s <> nil", db->dbb_name->sym_string);
				strcat(buffer, temp);
				printa(column, "if (%s) then", buffer);
				align(column + INDENT);
			}
		}

		count++;
		printa(column, "gds__teb[%d].tpb_len:= 0;", count);
		printa(column, "gds__teb[%d].tpb_ptr := ADDR(gds__null);", count);
		printa(column, "gds__teb[%d].dbb_ptr := ADDR(%s);", count, db->dbb_name->sym_string);
	}

	printa(column, "GDS__START_MULTIPLE (%s, %s, %d, gds__teb);",
		   vector, request_trans(action, request), count);

	if (gpreGlob.sw_auto && request)
		column -= INDENT;

	set_sqlcode(action, column);
	ends(column);