[svn:dbd-oracle] r13022 - dbd-oracle/branches/rs_array

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);
 }