static void gen_request( const gpre_req* request)
{
if (!(request->req_flags & REQ_exp_hand))
fprintf(gpreGlob.out_file, "static void\t*%s;\t// request handle \n", request->req_handle);
fprintf(gpreGlob.out_file, "static const UCHAR\tjrd_%"ULONGFORMAT" [%d] =",
request->req_ident, request->req_length);
align(INDENT);
fprintf(gpreGlob.out_file, "{\t// blr string \n");
if (gpreGlob.sw_raw)
gen_raw(request);
else
fb_print_blr(request->req_blr, request->req_length, gen_blr, 0, 0);
printa(INDENT, "};\t// end of blr string \n");
}
static void gen_compile( qli_req* request)
{
/**************************************
*
* g e n _ c o m p i l e
*
**************************************
*
* Functional description
* Finish off BLR generation for a request, and get it compiled.
*
**************************************/
qli_rlb* rlb = CHECK_RLB(request->req_blr);
STUFF(blr_end);
STUFF(blr_eoc);
const USHORT length = rlb->rlb_data - rlb->rlb_base;
if (QLI_blr)
fb_print_blr(rlb->rlb_base, length, 0, 0, 0);
qli_dbb* dbb = request->req_database;
ISC_STATUS_ARRAY status_vector;
if (isc_compile_request(status_vector, &dbb->dbb_handle, &request->req_handle, length,
(const char*) rlb->rlb_base))
{
GEN_rlb_release (rlb);
ERRQ_database_error(dbb, status_vector);
}
#ifdef DEV_BUILD
SCHAR explain_buffer[512];
if (QLI_explain &&
!isc_request_info(status_vector, &request->req_handle, 0,
sizeof(explain_info), explain_info,
sizeof(explain_buffer), explain_buffer))
{
explain(dbb, (UCHAR*) explain_buffer);
}
#endif
GEN_rlb_release (rlb);
}
static int print_dyn_verb( ctl* control, SSHORT level)
{
const SSHORT offset = control->ctl_blr - control->ctl_blr_start;
const UCHAR dyn_operator = BLR_BYTE;
const char* p;
const int size = FB_NELEM(dyn_table);
if (dyn_operator > size || dyn_operator <= 0 || !(p = dyn_table[dyn_operator])) {
return error(control, offset, "*** dyn operator %d is undefined ***\n", (int) dyn_operator);
}
indent(control, level);
blr_format(control, p);
PUT_BYTE(',');
PUT_BYTE(' ');
++level;
int length;
switch (dyn_operator)
{
case isc_dyn_drop_difference:
case isc_dyn_begin_backup:
case isc_dyn_end_backup:
return 0;
case isc_dyn_begin:
case isc_dyn_mod_database:
print_line(control, offset);
while (NEXT_BYTE != isc_dyn_end)
PRINT_DYN_VERB;
PRINT_DYN_VERB;
return 0;
case isc_dyn_view_blr:
case isc_dyn_fld_validation_blr:
case isc_dyn_fld_computed_blr:
case isc_dyn_trg_blr:
case isc_dyn_fld_missing_value:
case isc_dyn_prc_blr:
case isc_dyn_fld_default_value:
length = print_word(control);
print_line(control, offset);
if (length)
{
control->ctl_level = level;
fb_print_blr(control->ctl_blr, length, print_blr_line, control, control->ctl_language);
control->ctl_blr += length;
}
return 0;
case isc_dyn_scl_acl:
// case isc_dyn_log_check_point_length:
// case isc_dyn_log_num_of_buffers:
// case isc_dyn_log_buffer_size:
// case isc_dyn_log_group_commit_wait:
case isc_dyn_idx_inactive:
length = print_word(control);
while (length--)
print_byte(control);
print_line(control, offset);
return 0;
case isc_dyn_view_source:
case isc_dyn_fld_validation_source:
case isc_dyn_fld_computed_source:
case isc_dyn_description:
case isc_dyn_prc_source:
case isc_dyn_fld_default_source:
length = print_word(control);
while (length--)
print_char(control, offset);
print_line(control, offset);
return 0;
case isc_dyn_del_exception:
if (length = print_word(control))
do {
print_char(control, offset);
} while (--length);
return 0;
case isc_dyn_fld_not_null:
case isc_dyn_sql_object:
// case isc_dyn_drop_log:
// case isc_dyn_drop_cache:
// case isc_dyn_def_default_log:
// case isc_dyn_log_file_serial:
// case isc_dyn_log_file_raw:
// case isc_dyn_log_file_overflow:
case isc_dyn_single_validation:
case isc_dyn_del_computed:
case isc_dyn_del_default:
case isc_dyn_del_validation:
case isc_dyn_idx_statistic:
case isc_dyn_foreign_key_delete:
case isc_dyn_foreign_key_update:
case isc_dyn_foreign_key_cascade:
case isc_dyn_foreign_key_default:
case isc_dyn_foreign_key_null:
case isc_dyn_foreign_key_none:
print_line(control, offset);
return 0;
case isc_dyn_end:
print_line(control, offset);
return 0;
}
if (length = print_word(control))
do {
print_char(control, offset);
} while (--length);
print_line(control, offset);
switch (dyn_operator)
{
case isc_dyn_def_database:
case isc_dyn_def_dimension:
case isc_dyn_def_exception:
case isc_dyn_def_file:
// case isc_dyn_def_log_file:
// case isc_dyn_def_cache_file:
case isc_dyn_def_filter:
case isc_dyn_def_function:
case isc_dyn_def_function_arg:
case isc_dyn_def_generator:
case isc_dyn_def_global_fld:
case isc_dyn_def_idx:
case isc_dyn_def_local_fld:
case isc_dyn_def_rel:
case isc_dyn_def_procedure:
case isc_dyn_def_parameter:
case isc_dyn_def_security_class:
case isc_dyn_def_shadow:
case isc_dyn_def_sql_fld:
case isc_dyn_def_trigger:
case isc_dyn_def_trigger_msg:
case isc_dyn_def_view:
case isc_dyn_delete_database:
case isc_dyn_delete_dimensions:
case isc_dyn_delete_filter:
case isc_dyn_delete_function:
case isc_dyn_delete_global_fld:
case isc_dyn_delete_idx:
case isc_dyn_delete_local_fld:
case isc_dyn_delete_rel:
case isc_dyn_delete_procedure:
case isc_dyn_delete_parameter:
case isc_dyn_delete_security_class:
case isc_dyn_delete_trigger:
case isc_dyn_delete_trigger_msg:
case isc_dyn_delete_shadow:
case isc_dyn_mod_exception:
case isc_dyn_mod_global_fld:
case isc_dyn_mod_idx:
case isc_dyn_mod_local_fld:
case isc_dyn_mod_procedure:
case isc_dyn_mod_rel:
case isc_dyn_mod_security_class:
case isc_dyn_mod_trigger:
case isc_dyn_mod_trigger_msg:
case isc_dyn_rel_constraint:
case isc_dyn_mod_view:
case isc_dyn_grant:
case isc_dyn_revoke:
case isc_dyn_view_relation:
case isc_dyn_def_sql_role:
while (NEXT_BYTE != isc_dyn_end)
PRINT_DYN_VERB;
PRINT_DYN_VERB;
return 0;
}
return 0;
}
