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
|
