{-# LINE 1 "src/Database/SednaDB/Internal/SpDefs.hsc" #-}

{-# LINE 2 "src/Database/SednaDB/Internal/SpDefs.hsc" #-}

{-# LINE 3 "src/Database/SednaDB/Internal/SpDefs.hsc" #-}

--------------------------------------------------------------------------------

module Database.SednaDB.Internal.SpDefs where

--------------------------------------------------------------------------------

import Foreign
import Foreign.C.Types

--------------------------------------------------------------------------------

c'SEDNA_MAX_RESULT_SIZE = 5
c'SEDNA_MAX_RESULT_SIZE :: (Num a) => a

{-# LINE 16 "src/Database/SednaDB/Internal/SpDefs.hsc" #-}

--------------------------------------------------------------------------------

type C'se_debug_info_type = CUInt

{-# LINE 20 "src/Database/SednaDB/Internal/SpDefs.hsc" #-}
c'se_QueryTrace = 0
c'se_QueryTrace :: (Num a) => a

{-# LINE 21 "src/Database/SednaDB/Internal/SpDefs.hsc" #-}
c'se_QueryDebug = 1
c'se_QueryDebug :: (Num a) => a

{-# LINE 22 "src/Database/SednaDB/Internal/SpDefs.hsc" #-}

--------------------------------------------------------------------------------

type C'sp_int32 = CInt

{-# LINE 26 "src/Database/SednaDB/Internal/SpDefs.hsc" #-}

--------------------------------------------------------------------------------


{-# LINE 30 "src/Database/SednaDB/Internal/SpDefs.hsc" #-}

{-# LINE 31 "src/Database/SednaDB/Internal/SpDefs.hsc" #-}

{-# LINE 32 "src/Database/SednaDB/Internal/SpDefs.hsc" #-}

{-# LINE 33 "src/Database/SednaDB/Internal/SpDefs.hsc" #-}
data C'msg_struct = C'msg_struct{
  c'msg_struct'instruction :: C'sp_int32,
  c'msg_struct'length :: C'sp_int32,
  c'msg_struct'body :: [CChar]
} deriving (Eq,Show)
p'msg_struct'instruction p = plusPtr p 0
p'msg_struct'instruction :: Ptr (C'msg_struct) -> Ptr (C'sp_int32)
p'msg_struct'length p = plusPtr p 4
p'msg_struct'length :: Ptr (C'msg_struct) -> Ptr (C'sp_int32)
p'msg_struct'body p = plusPtr p 8
p'msg_struct'body :: Ptr (C'msg_struct) -> Ptr (CChar)
instance Storable C'msg_struct where
  sizeOf _ = 10248
  alignment = sizeOf
  peek p = do
    v0 <- peekByteOff p 0
    v1 <- peekByteOff p 4
    v2 <- peekArray 10240 (plusPtr p 8)
    return $ C'msg_struct v0 v1 v2
  poke p (C'msg_struct v0 v1 v2) = do
    pokeByteOff p 0 v0
    pokeByteOff p 4 v1
    pokeArray (plusPtr p 8) (take 10240 v2)
    return ()

{-# LINE 34 "src/Database/SednaDB/Internal/SpDefs.hsc" #-}