SednaCBindings.hsc

#include <bindings.dsl.h>
#include <libsedna.h>

--------------------------------------------------------------------------------
module Database.Internal.SednaCBindings where

--------------------------------------------------------------------------------
import Foreign
import Foreign.C.Types
import Foreign.C.String

import Database.Internal.SpDefs

--------------------------------------------------------------------------------
#num QUERY_EXECUTION_TIME                      
#num BULK_LOAD_PORTION

--------------------------------------------------------------------------------                         
#starttype struct conn_bulk_load
#field       bulk_load_started , CChar    
#array_field doc_name          , CChar
#array_field col_name          , CChar
#stoptype

--------------------------------------------------------------------------------
#callback debug_handler_t, FunPtr (<se_debug_info_type> -> CString -> IO ())

--------------------------------------------------------------------------------
#starttype struct SednaConnection
#array_field  url                    , CChar
#array_field  db_name                , CChar
#array_field  login                  , CChar
#array_field  password               , CChar
#array_field  session_directory      , CChar
#field        socket                 , CInt

#field       last_error              , CInt
#array_field last_error_msg          , CChar
#array_field query_time              , CChar

#field       socket_keeps_data       , CChar
#field       first_next              , CChar
#field       result_end              , CChar
#field       in_query                , CChar        
#field       cbl                     , <conn_bulk_load>

#field       isInTransaction         , CInt
#field       isConnectionOk          , CInt

#field       autocommit              , CInt

#field       local_data_length       , CInt 
#field       local_data_offset       , CInt 
#array_field local_data_buf          , CChar

#field       msg                     , <msg_struct>
        
#field       debug_handler           , <debug_handler_t>
        
#field       boundary_space_preserve , CChar
#field       query_timeout           , CInt 
#field       max_result_size         , CInt
#stoptype

--------------------------------------------------------------------------------
#ccall SEconnect,  Ptr <SednaConnection> -> CString -> CString -> CString -> CString -> IO CInt
#ccall SEclose,    Ptr <SednaConnection> -> IO CInt

--------------------------------------------------------------------------------
#ccall SEbegin,    Ptr <SednaConnection> -> IO CInt
#ccall SErollback, Ptr <SednaConnection> -> IO CInt
#ccall SEcommit,   Ptr <SednaConnection> -> IO CInt

--------------------------------------------------------------------------------
#ccall SEexecuteLong, Ptr <SednaConnection> -> CString -> IO CInt
#ccall SEexecute,     Ptr <SednaConnection> -> CString -> IO CInt

--------------------------------------------------------------------------------
#ccall SEgetData,     Ptr <SednaConnection> -> CString -> CInt -> IO CInt
#ccall SEloadData,    Ptr <SednaConnection> -> CString -> CInt ->  CString -> CString -> IO CInt
#ccall SEendLoadData, Ptr <SednaConnection>  -> IO CInt

--------------------------------------------------------------------------------
#ccall SEnext, Ptr <SednaConnection>  -> IO CInt

--------------------------------------------------------------------------------
#ccall SEgetLastErrorCode, Ptr <SednaConnection> -> IO CInt
#ccall SEgetLastErrorMsg,   Ptr <SednaConnection> -> IO CString

--------------------------------------------------------------------------------
#ccall SEconnectionStatus,  Ptr <SednaConnection>  -> IO CInt
#ccall SEtransactionStatus, Ptr <SednaConnection>  -> IO CInt

--------------------------------------------------------------------------------
#ccall SEshowTime , Ptr <SednaConnection>  -> IO CString

--------------------------------------------------------------------------------
#ccall SEsetConnectionAttr, Ptr <SednaConnection> -> CUInt -> Ptr () -> CInt -> IO CInt 
#ccall SEgetConnectionAttr, Ptr <SednaConnection> -> CUInt -> Ptr () -> Ptr CInt -> IO CInt 

--------------------------------------------------------------------------------
#ccall SEresetAllConnectionAttr, Ptr <SednaConnection>  -> IO CInt

--------------------------------------------------------------------------------
#ccall SEsetDebugHandler, Ptr <SednaConnection>  -> <debug_handler_t> -> Ptr ()