Function gen_loop

src/gpre/languages/pas.cpp:2151–2187

//

static void gen_loop( const act* action, int column)
{
	gen_s_start(action, column);
	const gpre_req* request = action->act_request;
	gpre_port* port = request->req_primary;

	printa(column, "if SQLCODE = 0 then");
	column += INDENT;
	begin(column);

	gen_receive(action, column, port);

	endp(column);
	column -= INDENT;

	TEXT name[MAX_REF_SIZE];
	gen_name(name, port->por_references, true);
	printa(column, "if (SQLCODE = 0) and (%s = 0)", name);
	printa(column + INDENT, "then SQLCODE := 100;");

	if (request->req_flags & REQ_sql_returning)
	{
		printa(column, "if (SQLCODE = 0) and (%s <> 0)", name);
		column += INDENT;
		begin(column);

		gpre_nod* var_list = (gpre_nod*) action->act_object;
		for (int i = 0; var_list && i < var_list->nod_count; i++)
		{
			align(column);
			asgn_to(action, (ref*) (var_list->nod_arg[i]), column);
		}

		endp(column);
		column -= INDENT;
	}
}


//____________________________________________________________