[htoolkit-cvs] HSQL/SQLite3/Database/HSQL SQLite3.hsc,1.2,1.3

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

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

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


Index: SQLite3.hsc
===================================================================
RCS file: /cvsroot/htoolkit/HSQL/SQLite3/Database/HSQL/SQLite3.hsc,v
retrieving revision 1.2
retrieving revision 1.3
diff -C2 -d -r1.2 -r1.3
*** SQLite3.hsc	12 Dec 2005 15:21:56 -0000	1.2
--- SQLite3.hsc	3 Jan 2006 22:59:47 -0000	1.3
***************
*** 32,35 ****
--- 32,36 ----
  foreign import ccall sqlite3_close :: SQLite3 -> IO ()
  foreign import ccall sqlite3_exec :: SQLite3 -> CString -> FunPtr () -> Ptr () -> Ptr CString -> IO CInt
+ foreign import ccall sqlite3_changes :: SQLite3 -> IO CInt
  foreign import ccall sqlite3_get_table ::   SQLite3 -> CString -> Ptr (Ptr CString) -> Ptr CInt -> Ptr CInt -> Ptr CString -> IO CInt
  foreign import ccall sqlite3_free_table :: Ptr CString -> IO ()
***************
*** 89,93 ****
  	    	  AppendMode    -> (#const O_APPEND)
  
! 		execute :: SQLite3 -> String -> IO ()
  		execute sqlite query =
  			withCString query $ \pQuery -> do
--- 90,94 ----
  	    	  AppendMode    -> (#const O_APPEND)
  
! 		execute :: SQLite3 -> String -> IO Integer
  		execute sqlite query =
  			withCString query $ \pQuery -> do
***************
*** 95,98 ****
--- 96,100 ----
  				res <- sqlite3_exec sqlite pQuery nullFunPtr nullPtr ppMsg
  				handleSqlResult res ppMsg
+ 				sqlite3_changes sqlite
  
  		query :: Connection -> SQLite3 -> String -> IO Statement