Function gen_compile

src/gpre/obj_cxx.cpp:1202–1238

//

static void gen_compile( const act* action, int column)
{
	PAT args;
	const TEXT* pattern1 =
		"%RH = %DH->compileRequest(%V1, sizeof(%RI), %RI);";
	const TEXT* pattern2 = "if (!%RH%IF && %S1%EN && %DH)";

	const gpre_req* request = action->act_request;
	args.pat_request = request;
	const gpre_dbb* db = request->req_database;
	args.pat_database = db;
	args.pat_vector1 = status_vector(action);
	args.pat_string1 = request_trans(action, request);
	args.pat_condition = (gpreGlob.sw_auto && (action->act_error || (action->act_flags & ACT_sql)));

	if (gpreGlob.sw_auto)
		t_start_auto(action, request, status_vector(action), column, true);

	PATTERN_expand((USHORT) column, pattern2, &args);

	args.pat_condition = !(request->req_flags & REQ_exp_hand);
	args.pat_value1 = request->req_length;
	PATTERN_expand((USHORT) (column + INDENT), pattern1, &args);

	// If blobs are present, zero out all of the blob handles.  After this
	// point, the handles are the user's responsibility

	const blb* blob = request->req_blobs;
	if (blob)
	{
		fprintf(gpreGlob.out_file, "\n");
		align(column - INDENT);
		for (; blob; blob = blob->blb_next)
			fprintf(gpreGlob.out_file, "fb_%d = ", blob->blb_ident);
		fprintf(gpreGlob.out_file, "0;");
	}
}


//____________________________________________________________