| 2451 | // |
| 2452 | |
| 2453 | static void gen_request( const gpre_req* request, int column) |
| 2454 | { |
| 2455 | // generate request handle, blob handles, and ports |
| 2456 | |
| 2457 | const TEXT* sw_volatile = FB_DP_VOLATILE; |
| 2458 | printa(column, " "); |
| 2459 | |
| 2460 | if (!(request->req_flags & (REQ_exp_hand | REQ_sql_blob_open | REQ_sql_blob_create)) && |
| 2461 | request->req_type != REQ_slice && request->req_type != REQ_procedure) |
| 2462 | { |
| 2463 | printa(column, "%s\t: %s gds__handle := nil;\t\t(* request handle *)", |
| 2464 | request->req_handle, sw_volatile); |
| 2465 | } |
| 2466 | |
| 2467 | if (request->req_flags & (REQ_sql_blob_open | REQ_sql_blob_create)) |
| 2468 | printa(column, "gds__%ds\t: %s gds__handle := nil;\t\t(* SQL statement handle *)", |
| 2469 | request->req_ident, sw_volatile); |
| 2470 | |
| 2471 | // generate actual BLR string |
| 2472 | |
| 2473 | if (request->req_length) |
| 2474 | { |
| 2475 | printa(column, " "); |
| 2476 | if (request->req_flags & REQ_sql_cursor) |
| 2477 | printa(column, "gds__%ds\t: %s gds__handle := nil;\t\t(* SQL statement handle *)", |
| 2478 | request->req_ident, sw_volatile); |
| 2479 | printa(column, "gds__%dl\t: %s := %d;\t\t(* request length *)", |
| 2480 | request->req_ident, SHORT_DCL, request->req_length); |
| 2481 | printa(column, "gds__%d\t: %s [1..%d] of char := %s", |
| 2482 | request->req_ident, PACKED_ARRAY, request->req_length, OPEN_BRACKET); |
| 2483 | const TEXT* string_type = "BLR"; |
| 2484 | if (gpreGlob.sw_raw) |
| 2485 | { |
| 2486 | gen_raw(request->req_blr, request->req_length); //, column); |
| 2487 | switch (request->req_type) |
| 2488 | { |
| 2489 | case REQ_create_database: |
| 2490 | case REQ_ready: |
| 2491 | string_type = "DPB"; |
| 2492 | break; |
| 2493 | |
| 2494 | case REQ_ddl: |
| 2495 | string_type = "DYN"; |
| 2496 | break; |
| 2497 | case REQ_slice: |
| 2498 | string_type = "SDL"; |
| 2499 | break; |
| 2500 | |
| 2501 | default: |
| 2502 | string_type = "BLR"; |
| 2503 | break; |
| 2504 | } |
| 2505 | } |
| 2506 | else |
| 2507 | switch (request->req_type) |
| 2508 | { |
| 2509 | case REQ_create_database: |
| 2510 | case REQ_ready: |
no test coverage detected