[htoolkit-cvs] HSQL/MSI/Database/HSQL MSI.hsc,1.4,1.5

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

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

Modified Files:
	MSI.hsc 
Log Message:
The type of execute function is changed. Now it returns the number of the rows affected.


Index: MSI.hsc
===================================================================
RCS file: /cvsroot/htoolkit/HSQL/MSI/Database/HSQL/MSI.hsc,v
retrieving revision 1.4
retrieving revision 1.5
diff -C2 -d -r1.4 -r1.5
*** MSI.hsc	12 Dec 2005 15:21:56 -0000	1.4
--- MSI.hsc	3 Jan 2006 22:59:46 -0000	1.5
***************
*** 57,61 ****
        msiCloseHandle hDatabase >>= checkResult
  
!     execute :: MSIHANDLE -> String -> IO ()
      execute hDatabase query =
        withCString query $ \cquery  ->
--- 57,61 ----
        msiCloseHandle hDatabase >>= checkResult
  
!     execute :: MSIHANDLE -> String -> IO Integer
      execute hDatabase query =
        withCString query $ \cquery  ->
***************
*** 65,68 ****
--- 65,69 ----
          msiViewExecute hView 0 >>= checkResult
          msiCloseHandle hView >>= checkResult
+         return (-1)
  
      col_buffer_size = 1024