{-# 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" #-}