[htoolkit-cvs] HSQL/Oracle/Database/HSQL Oracle.hsc,1.9,1.10

[<kr_...@us...>]

Update of /cvsroot/htoolkit/HSQL/Oracle/Database/HSQL
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv15259/Database/HSQL

Modified Files:
	Oracle.hsc 
Log Message:
return the number of affected rows from execute method.


Index: Oracle.hsc
===================================================================
RCS file: /cvsroot/htoolkit/HSQL/Oracle/Database/HSQL/Oracle.hsc,v
retrieving revision 1.9
retrieving revision 1.10
diff -C2 -d -r1.9 -r1.10
*** Oracle.hsc	3 Jan 2006 22:59:46 -0000	1.9
--- Oracle.hsc	4 Jan 2006 09:04:36 -0000	1.10
***************
*** 146,155 ****
        withCStringLen query $ \(query,query_len) ->
        alloca $ \pStmt -> do
          ociHandleAlloc env pStmt (#const OCI_HTYPE_STMT) 0 nullPtr >>= handleSqlResult err
          stmt <- peek pStmt
          ociStmtPrepare stmt err query (fromIntegral query_len) (#const OCI_NTV_SYNTAX) (#const OCI_DEFAULT) >>= handleSqlResult err
          ociStmtExecute svcCtx stmt err 1 0 nullPtr nullPtr (#const OCI_DEFAULT) >>= handleSqlResult err
          ociHandleFree stmt (#const OCI_HTYPE_STMT) >>= handleSqlResult err
!         return (-1)
  
      query connection envRef svcCtx err query = 
--- 146,158 ----
        withCStringLen query $ \(query,query_len) ->
        alloca $ \pStmt -> do
+       alloca $ \pCount -> do
          ociHandleAlloc env pStmt (#const OCI_HTYPE_STMT) 0 nullPtr >>= handleSqlResult err
          stmt <- peek pStmt
          ociStmtPrepare stmt err query (fromIntegral query_len) (#const OCI_NTV_SYNTAX) (#const OCI_DEFAULT) >>= handleSqlResult err
          ociStmtExecute svcCtx stmt err 1 0 nullPtr nullPtr (#const OCI_DEFAULT) >>= handleSqlResult err
+         ociAttrGet stmt (#const OCI_HTYPE_STMT) pCount nullPtr (#const OCI_ATTR_ROW_COUNT) err >>= handleSqlResult err
+         count <- peek (pCount :: Ptr (#type ub4))
          ociHandleFree stmt (#const OCI_HTYPE_STMT) >>= handleSqlResult err
!         return $! fromIntegral count
  
      query connection envRef svcCtx err query =