mirror of
https://github.com/FirebirdSQL/firebird.git
synced 2025-01-23 19:23:03 +01:00
Move the new EXEC STMT functionality to a separate function.
This commit is contained in:
robocop
parent
63803f6f8e
commit
30b5480c66
193
src/dsql/gen.cpp
193
src/dsql/gen.cpp
@ -67,6 +67,7 @@ static void gen_constant(CompiledStatement*, const dsc*, bool);
|
|||||||
static void gen_constant(CompiledStatement*, dsql_nod*, bool);
|
static void gen_constant(CompiledStatement*, dsql_nod*, bool);
|
||||||
static void gen_descriptor(CompiledStatement*, const dsc*, bool);
|
static void gen_descriptor(CompiledStatement*, const dsc*, bool);
|
||||||
static void gen_error_condition(CompiledStatement*, const dsql_nod*);
|
static void gen_error_condition(CompiledStatement*, const dsql_nod*);
|
||||||
|
static void gen_exec_stmt(CompiledStatement* statement, const dsql_nod* node);
|
||||||
static void gen_field(CompiledStatement*, const dsql_ctx*, const dsql_fld*, dsql_nod*);
|
static void gen_field(CompiledStatement*, const dsql_ctx*, const dsql_fld*, dsql_nod*);
|
||||||
static void gen_for_select(CompiledStatement*, const dsql_nod*);
|
static void gen_for_select(CompiledStatement*, const dsql_nod*);
|
||||||
static void gen_gen_id(CompiledStatement*, const dsql_nod*);
|
static void gen_gen_id(CompiledStatement*, const dsql_nod*);
|
||||||
@ -1100,94 +1101,7 @@ void GEN_statement( CompiledStatement* statement, dsql_nod* node)
|
|||||||
return;
|
return;
|
||||||
|
|
||||||
case nod_exec_stmt:
|
case nod_exec_stmt:
|
||||||
{ // scope
|
gen_exec_stmt(statement, node);
|
||||||
|
|
||||||
if (node->nod_arg[e_exec_stmt_proc_block])
|
|
||||||
{
|
|
||||||
stuff(statement, blr_label);
|
|
||||||
stuff(statement, (int)(IPTR) node->nod_arg[e_exec_stmt_label]->nod_arg[e_label_number]);
|
|
||||||
}
|
|
||||||
|
|
||||||
stuff(statement, blr_exec_stmt);
|
|
||||||
|
|
||||||
// counts of input and output parameters
|
|
||||||
temp = node->nod_arg[e_exec_stmt_inputs];
|
|
||||||
if (temp)
|
|
||||||
{
|
|
||||||
stuff(statement, blr_exec_stmt_inputs);
|
|
||||||
stuff_word(statement, temp->nod_count);
|
|
||||||
}
|
|
||||||
|
|
||||||
temp = node->nod_arg[e_exec_stmt_outputs];
|
|
||||||
if (temp)
|
|
||||||
{
|
|
||||||
stuff(statement, blr_exec_stmt_outputs);
|
|
||||||
stuff_word(statement, temp->nod_count);
|
|
||||||
}
|
|
||||||
|
|
||||||
// query expression
|
|
||||||
stuff(statement, blr_exec_stmt_sql);
|
|
||||||
GEN_expr(statement, node->nod_arg[e_exec_stmt_sql]);
|
|
||||||
|
|
||||||
// proc block body
|
|
||||||
temp = node->nod_arg[e_exec_stmt_proc_block];
|
|
||||||
if (temp)
|
|
||||||
{
|
|
||||||
stuff(statement, blr_exec_stmt_proc_block);
|
|
||||||
GEN_statement(statement, temp);
|
|
||||||
}
|
|
||||||
|
|
||||||
// external data source, user and password
|
|
||||||
gen_optional_expr(statement, blr_exec_stmt_data_src, node->nod_arg[e_exec_stmt_data_src]);
|
|
||||||
gen_optional_expr(statement, blr_exec_stmt_user, node->nod_arg[e_exec_stmt_user]);
|
|
||||||
gen_optional_expr(statement, blr_exec_stmt_pwd, node->nod_arg[e_exec_stmt_pwd]);
|
|
||||||
|
|
||||||
// statement's transaction behavior
|
|
||||||
temp = node->nod_arg[e_exec_stmt_tran];
|
|
||||||
if (temp)
|
|
||||||
{
|
|
||||||
stuff(statement, blr_exec_stmt_tran_clone); // transaction parameters equal to current transaction
|
|
||||||
stuff(statement, (UCHAR)(IPTR) (temp->nod_flags));
|
|
||||||
}
|
|
||||||
|
|
||||||
// inherit caller's privileges ?
|
|
||||||
if (node->nod_arg[e_exec_stmt_privs]) {
|
|
||||||
stuff(statement, blr_exec_stmt_privs);
|
|
||||||
}
|
|
||||||
|
|
||||||
// inputs
|
|
||||||
temp = node->nod_arg[e_exec_stmt_inputs];
|
|
||||||
if (temp)
|
|
||||||
{
|
|
||||||
ptr = temp->nod_arg;
|
|
||||||
const bool haveNames = ((*ptr)->nod_arg[e_named_param_name] != 0);
|
|
||||||
if (haveNames)
|
|
||||||
stuff(statement, blr_exec_stmt_in_params2);
|
|
||||||
else
|
|
||||||
stuff(statement, blr_exec_stmt_in_params);
|
|
||||||
|
|
||||||
for (end = ptr + temp->nod_count; ptr < end; ptr++)
|
|
||||||
{
|
|
||||||
if (haveNames)
|
|
||||||
{
|
|
||||||
dsql_str* name = (dsql_str*) (*ptr)->nod_arg[e_named_param_name];
|
|
||||||
stuff_cstring(statement, name->str_data);
|
|
||||||
}
|
|
||||||
GEN_expr(statement, (*ptr)->nod_arg[e_named_param_expr]);
|
|
||||||
}
|
|
||||||
}
|
|
||||||
|
|
||||||
// outputs
|
|
||||||
temp = node->nod_arg[e_exec_stmt_outputs];
|
|
||||||
if (temp)
|
|
||||||
{
|
|
||||||
stuff(statement, blr_exec_stmt_out_params);
|
|
||||||
for (ptr = temp->nod_arg, end = ptr + temp->nod_count; ptr < end; ptr++) {
|
|
||||||
GEN_expr(statement, *ptr);
|
|
||||||
}
|
|
||||||
}
|
|
||||||
stuff(statement, blr_end);
|
|
||||||
} // scope of case nod_exec_stmt
|
|
||||||
return;
|
return;
|
||||||
|
|
||||||
case nod_return:
|
case nod_return:
|
||||||
@ -1798,6 +1712,109 @@ static void gen_error_condition( CompiledStatement* statement, const dsql_nod* n
|
|||||||
}
|
}
|
||||||
|
|
||||||
|
|
||||||
|
/**
|
||||||
|
|
||||||
|
gen_exec_stmt
|
||||||
|
|
||||||
|
@brief Generate blr for the EXECUTE STATEMENT clause
|
||||||
|
|
||||||
|
|
||||||
|
@param statement
|
||||||
|
@param node
|
||||||
|
|
||||||
|
**/
|
||||||
|
static void gen_exec_stmt(CompiledStatement* statement, const dsql_nod* node)
|
||||||
|
{
|
||||||
|
const dsql_nod* temp;
|
||||||
|
|
||||||
|
if (node->nod_arg[e_exec_stmt_proc_block])
|
||||||
|
{
|
||||||
|
stuff(statement, blr_label);
|
||||||
|
stuff(statement, (int)(IPTR) node->nod_arg[e_exec_stmt_label]->nod_arg[e_label_number]);
|
||||||
|
}
|
||||||
|
|
||||||
|
stuff(statement, blr_exec_stmt);
|
||||||
|
|
||||||
|
// counts of input and output parameters
|
||||||
|
temp = node->nod_arg[e_exec_stmt_inputs];
|
||||||
|
if (temp)
|
||||||
|
{
|
||||||
|
stuff(statement, blr_exec_stmt_inputs);
|
||||||
|
stuff_word(statement, temp->nod_count);
|
||||||
|
}
|
||||||
|
|
||||||
|
temp = node->nod_arg[e_exec_stmt_outputs];
|
||||||
|
if (temp)
|
||||||
|
{
|
||||||
|
stuff(statement, blr_exec_stmt_outputs);
|
||||||
|
stuff_word(statement, temp->nod_count);
|
||||||
|
}
|
||||||
|
|
||||||
|
// query expression
|
||||||
|
stuff(statement, blr_exec_stmt_sql);
|
||||||
|
GEN_expr(statement, node->nod_arg[e_exec_stmt_sql]);
|
||||||
|
|
||||||
|
// proc block body
|
||||||
|
dsql_nod* temp2 = node->nod_arg[e_exec_stmt_proc_block];
|
||||||
|
if (temp2)
|
||||||
|
{
|
||||||
|
stuff(statement, blr_exec_stmt_proc_block);
|
||||||
|
GEN_statement(statement, temp2);
|
||||||
|
}
|
||||||
|
|
||||||
|
// external data source, user and password
|
||||||
|
gen_optional_expr(statement, blr_exec_stmt_data_src, node->nod_arg[e_exec_stmt_data_src]);
|
||||||
|
gen_optional_expr(statement, blr_exec_stmt_user, node->nod_arg[e_exec_stmt_user]);
|
||||||
|
gen_optional_expr(statement, blr_exec_stmt_pwd, node->nod_arg[e_exec_stmt_pwd]);
|
||||||
|
|
||||||
|
// statement's transaction behavior
|
||||||
|
temp = node->nod_arg[e_exec_stmt_tran];
|
||||||
|
if (temp)
|
||||||
|
{
|
||||||
|
stuff(statement, blr_exec_stmt_tran_clone); // transaction parameters equal to current transaction
|
||||||
|
stuff(statement, (UCHAR)(IPTR) temp->nod_flags);
|
||||||
|
}
|
||||||
|
|
||||||
|
// inherit caller's privileges ?
|
||||||
|
if (node->nod_arg[e_exec_stmt_privs]) {
|
||||||
|
stuff(statement, blr_exec_stmt_privs);
|
||||||
|
}
|
||||||
|
|
||||||
|
// inputs
|
||||||
|
temp = node->nod_arg[e_exec_stmt_inputs];
|
||||||
|
if (temp)
|
||||||
|
{
|
||||||
|
const dsql_nod* const* ptr = temp->nod_arg;
|
||||||
|
const bool haveNames = ((*ptr)->nod_arg[e_named_param_name] != 0);
|
||||||
|
if (haveNames)
|
||||||
|
stuff(statement, blr_exec_stmt_in_params2);
|
||||||
|
else
|
||||||
|
stuff(statement, blr_exec_stmt_in_params);
|
||||||
|
|
||||||
|
for (const dsql_nod* const* end = ptr + temp->nod_count; ptr < end; ptr++)
|
||||||
|
{
|
||||||
|
if (haveNames)
|
||||||
|
{
|
||||||
|
const dsql_str* name = (dsql_str*) (*ptr)->nod_arg[e_named_param_name];
|
||||||
|
stuff_cstring(statement, name->str_data);
|
||||||
|
}
|
||||||
|
GEN_expr(statement, (*ptr)->nod_arg[e_named_param_expr]);
|
||||||
|
}
|
||||||
|
}
|
||||||
|
|
||||||
|
// outputs
|
||||||
|
temp = node->nod_arg[e_exec_stmt_outputs];
|
||||||
|
if (temp)
|
||||||
|
{
|
||||||
|
stuff(statement, blr_exec_stmt_out_params);
|
||||||
|
for (size_t i = 0; i < temp->nod_count; ++i) {
|
||||||
|
GEN_expr(statement, temp->nod_arg[i]);
|
||||||
|
}
|
||||||
|
}
|
||||||
|
stuff(statement, blr_end);
|
||||||
|
}
|
||||||
|
|
||||||
|
|
||||||
/**
|
/**
|
||||||
|
|
||||||
gen_field
|
gen_field
|
||||||
|
|||||||
Loading…
Reference in New Issue
Block a user