Author: byterock
Date: Thu Jul 9 07:16:34 2009
New Revision: 13022
Modified:
dbd-oracle/branches/rs_array/dbdimp.c
dbd-oracle/branches/rs_array/dbdimp.h
dbd-oracle/branches/rs_array/oci8.c
Log:
still working
Modified: dbd-oracle/branches/rs_array/dbdimp.c
==============================================================================
--- dbd-oracle/branches/rs_array/dbdimp.c (original)
+++ dbd-oracle/branches/rs_array/dbdimp.c Thu Jul 9 07:16:34 2009
@@ -2445,7 +2445,7 @@
/* force stmt_type since OCIAttrGet(OCI_ATTR_STMT_TYPE) doesn't work!
*/
imp_sth_csr->stmt_type = OCI_STMT_SELECT;
- imp_sth_csr->rs_array_on=1; /* turn on array fetch for ref
cursors */
+ /*imp_sth_csr->rs_array_on=1; /* turn on array fetch for ref
cursors */
DBIc_IMPSET_on(imp_sth_csr);
/* set ACTIVE so dbd_describe doesn't do explicit OCI describe */
Modified: dbd-oracle/branches/rs_array/dbdimp.h
==============================================================================
--- dbd-oracle/branches/rs_array/dbdimp.h (original)
+++ dbd-oracle/branches/rs_array/dbdimp.h Thu Jul 9 07:16:34 2009
@@ -112,9 +112,10 @@
int fetch_offset;
int fetch_position;
int prefetch_memory; /* OCI_PREFETCH_MEMORY*/
+ int prefetch_rows; /* OCI_PREFETCH_ROWS
*/
/* array fetch: state variables */
int row_cache_off;
- bool rs_array_on; /* if array to be
used */
+ /*bool rs_array_on; /* if array to be
used */
int rs_array_size; /* array size
*/
int rs_array_num_rows; /* num rows in
last fetch */
int rs_array_idx; /* index of
current row */
Modified: dbd-oracle/branches/rs_array/oci8.c
==============================================================================
--- dbd-oracle/branches/rs_array/oci8.c (original)
+++ dbd-oracle/branches/rs_array/oci8.c Thu Jul 9 07:16:34 2009
@@ -581,6 +581,7 @@
DBD_ATTRIB_GET_IV( attribs, "ora_check_sql", 13, svp,
ora_check_sql);
DBD_ATTRIB_GET_IV( attribs, "ora_exe_mode", 12, svp,
imp_sth->exe_mode);
DBD_ATTRIB_GET_IV( attribs, "ora_prefetch_memory", 19, svp,
imp_sth->prefetch_memory);
+ DBD_ATTRIB_GET_IV( attribs, "ora_prefetch_rows", 17, svp,
imp_sth->prefetch_rows);
DBD_ATTRIB_GET_IV( attribs, "ora_row_cache_off", 17, svp,
imp_sth->row_cache_off);
DBD_ATTRIB_GET_IV( attribs, "ora_verbose", 11, svp,
dbd_verbose);
DBD_ATTRIB_GET_IV( attribs, "ora_oci_success_warn", 20, svp,
oci_warn);
@@ -1026,7 +1027,7 @@
imp_sth_nested->stmhp = stmhp_nested;
imp_sth_nested->nested_cursor = 1;
- imp_sth_nested->rs_array_on = 1;
+ /* imp_sth_nested->rs_array_on = 1;*/
imp_sth_nested->stmt_type = OCI_STMT_SELECT;
DBIc_IMPSET_on(imp_sth_nested);
@@ -2278,7 +2279,7 @@
imp_sth->rs_array_idx=0;
imp_sth->rs_array_status=OCI_SUCCESS;
if (DBIS->debug >= 3 || dbd_verbose >= 3 )
- PerlIO_printf(DBILOGFP, " rs_array_init: rs_array_on=%d,
rs_array_size=%d\n",imp_sth->rs_array_on,imp_sth->rs_array_size);
+ PerlIO_printf(DBILOGFP, " rs_array_init:
row_cache_off=%d,
rs_array_size=%d\n",imp_sth->row_cache_off,imp_sth->rs_array_size);
}
