Added private statement functions ora_stmt_type_name and ora_stmt_ty…

…pe from John Scoles

 

git-svn-id: http://svn.perl.org/modules/dbd-oracle/trunk@12057 50811bd7-b8ce-0310-adc1-d9db26280581

Changes

@@ -1,4 +1,5 @@
 =head1 Changes in DBD-Oracle 1.23(svn rev #####)
+  Added private statement functions ora_stmt_type_name and ora_stmt_type from John Scoles
   Update to POD from Chris Underhill
   Added README.win64.txt with content from Alex Buttery
   Fix for rt.cpan.org Ticket #=21920 Bug with Oracle DBD for Mac OS X Instant Client From boingolover

Oracle.pm

@@ -78,8 +78,10 @@ my $ORACLE_ENV  = ($^O eq 'VMS') ? 'ORA_ROOT' : 'ORACLE_HOME';
  	DBD::Oracle::st->install_method("ora_fetch_scroll");
  	DBD::Oracle::st->install_method("ora_scroll_position");
  	DBD::Oracle::st->install_method("ora_ping");
+ 	DBD::Oracle::st->install_method("ora_stmt_type_name");
+ 	DBD::Oracle::st->install_method("ora_stmt_type");
 
-	$drh;
+ 	$drh;
     }
 
 
@@ -2514,8 +2516,9 @@ returns a null value rather than an exception.
 
 =head1 Private database handle functions
 
-These functions are called through the method func()
-which is described in the DBI documentation.
+Some of these functions are called through the method func()
+which is described in the DBI documentation. Any function that begins with ora_
+can be called directly.
 
 =head2 plsql_errstr
 
@@ -2586,7 +2589,6 @@ Example 2:
   # retrieve the string
   $date_string = $dbh->func( 'dbms_output_get' );
 
-
 =over 4
 
 =item dbms_output_enable ( [ buffer_size ] )
@@ -2652,6 +2654,16 @@ $refresh parameter to it.
 
 3 = Both character sets are Unicode encodings.
 
+=head1 Private statment handle functions
+
+=item ora_stmt_type
+
+Returns the OCI Statement Type number for the SQL of a statement handle.
+
+=item ora_stmt_type_name
+
+Returns the OCI Statement Type name for the SQL of a statement handle.
+
 =back
 
 =head1 Prepare postponed till execute

Oracle.xs

@@ -96,6 +96,26 @@ INCLUDE: Oracle.xsi
 
 MODULE = DBD::Oracle    PACKAGE = DBD::Oracle::st
 
+void ora_stmt_type(sth)
+ SV *	sth
+    PREINIT:
+    D_imp_sth(sth);
+   CODE:
+    {
+   	XSRETURN_IV( imp_sth->stmt_type);
+}
+
+void
+ora_stmt_type_name(sth)
+    SV *	sth
+    PREINIT:
+    D_imp_sth(sth);
+	CODE:
+	char *p = oci_stmt_type_name(imp_sth->stmt_type);
+	SV *sv = sv_newmortal();
+	if (p)
+	  sv_setpv(sv, p);
+    ST(0) = sv;
 
 void
 ora_scroll_position(sth)