{-# LINE 1 "src/Client/CApi/Types.hsc" #-}
{-# Language RecordWildCards #-}
module Client.CApi.Types
(
FgnExtension(..)
, StartExtension
, StopExtension
, ProcessMessage
, ProcessCommand
, FgnStringLen(..)
, FgnMsg(..)
, FgnCmd(..)
, FgnChat(..)
, Dynamic
, runStartExtension
, runStopExtension
, runProcessMessage
, runProcessCommand
, runProcessChat
, MessageCode(..), normalMessage, errorMessage
, MessageResult(..), passMessage, dropMessage
, withText0
, exportText
, poke'
) where
import Control.Monad
import Data.Text (Text)
import qualified Data.Text.Foreign as Text
import Foreign.C
import Foreign.Marshal.Array
import Foreign.Ptr
import Foreign.Storable
newtype MessageCode = MessageCode CInt deriving Eq
normalMessage :: MessageCode
normalMessage = MessageCode 0
errorMessage :: MessageCode
errorMessage = MessageCode 1
{-# LINE 70 "src/Client/CApi/Types.hsc" #-}
newtype MessageResult = MessageResult CInt deriving Eq
passMessage :: MessageResult
passMessage = MessageResult 0
dropMessage :: MessageResult
dropMessage = MessageResult 1
{-# LINE 77 "src/Client/CApi/Types.hsc" #-}
type StartExtension =
Ptr () ->
CString ->
IO (Ptr ())
type StopExtension =
Ptr () ->
Ptr () ->
IO ()
type ProcessMessage =
Ptr () ->
Ptr () ->
Ptr FgnMsg ->
IO MessageResult
type ProcessCommand =
Ptr () ->
Ptr () ->
Ptr FgnCmd ->
IO ()
type ProcessChat =
Ptr () ->
Ptr () ->
Ptr FgnChat ->
IO MessageResult
type Dynamic a = FunPtr a -> a
foreign import ccall "dynamic" runStartExtension :: Dynamic StartExtension
foreign import ccall "dynamic" runStopExtension :: Dynamic StopExtension
foreign import ccall "dynamic" runProcessMessage :: Dynamic ProcessMessage
foreign import ccall "dynamic" runProcessCommand :: Dynamic ProcessCommand
foreign import ccall "dynamic" runProcessChat :: Dynamic ProcessChat
data FgnExtension = FgnExtension
{ fgnStart :: FunPtr StartExtension
, fgnStop :: FunPtr StopExtension
, fgnMessage :: FunPtr ProcessMessage
, fgnChat :: FunPtr ProcessChat
, fgnCommand :: FunPtr ProcessCommand
, fgnName :: CString
, fgnMajorVersion, fgnMinorVersion :: CInt
}
instance Storable FgnExtension where
alignment _ = 8
{-# LINE 137 "src/Client/CApi/Types.hsc" #-}
sizeOf _ = (56)
{-# LINE 138 "src/Client/CApi/Types.hsc" #-}
peek p = FgnExtension
<$> ((\hsc_ptr -> peekByteOff hsc_ptr 16)) p
{-# LINE 140 "src/Client/CApi/Types.hsc" #-}
<*> ((\hsc_ptr -> peekByteOff hsc_ptr 24)) p
{-# LINE 141 "src/Client/CApi/Types.hsc" #-}
<*> ((\hsc_ptr -> peekByteOff hsc_ptr 32)) p
{-# LINE 142 "src/Client/CApi/Types.hsc" #-}
<*> ((\hsc_ptr -> peekByteOff hsc_ptr 48)) p
{-# LINE 143 "src/Client/CApi/Types.hsc" #-}
<*> ((\hsc_ptr -> peekByteOff hsc_ptr 40)) p
{-# LINE 144 "src/Client/CApi/Types.hsc" #-}
<*> ((\hsc_ptr -> peekByteOff hsc_ptr 0)) p
{-# LINE 145 "src/Client/CApi/Types.hsc" #-}
<*> ((\hsc_ptr -> peekByteOff hsc_ptr 8)) p
{-# LINE 146 "src/Client/CApi/Types.hsc" #-}
<*> ((\hsc_ptr -> peekByteOff hsc_ptr 12)) p
{-# LINE 147 "src/Client/CApi/Types.hsc" #-}
poke p FgnExtension{..} =
do ((\hsc_ptr -> pokeByteOff hsc_ptr 16)) p fgnStart
{-# LINE 149 "src/Client/CApi/Types.hsc" #-}
((\hsc_ptr -> pokeByteOff hsc_ptr 24)) p fgnStop
{-# LINE 150 "src/Client/CApi/Types.hsc" #-}
((\hsc_ptr -> pokeByteOff hsc_ptr 32)) p fgnMessage
{-# LINE 151 "src/Client/CApi/Types.hsc" #-}
((\hsc_ptr -> pokeByteOff hsc_ptr 48)) p fgnChat
{-# LINE 152 "src/Client/CApi/Types.hsc" #-}
((\hsc_ptr -> pokeByteOff hsc_ptr 40)) p fgnCommand
{-# LINE 153 "src/Client/CApi/Types.hsc" #-}
((\hsc_ptr -> pokeByteOff hsc_ptr 0)) p fgnName
{-# LINE 154 "src/Client/CApi/Types.hsc" #-}
((\hsc_ptr -> pokeByteOff hsc_ptr 8)) p fgnMajorVersion
{-# LINE 155 "src/Client/CApi/Types.hsc" #-}
((\hsc_ptr -> pokeByteOff hsc_ptr 12)) p fgnMinorVersion
{-# LINE 156 "src/Client/CApi/Types.hsc" #-}
data FgnMsg = FgnMsg
{ fmNetwork :: FgnStringLen
, fmPrefixNick :: FgnStringLen
, fmPrefixUser :: FgnStringLen
, fmPrefixHost :: FgnStringLen
, fmCommand :: FgnStringLen
, fmParams :: Ptr FgnStringLen
, fmParamN :: CSize
, fmTagKeys :: Ptr FgnStringLen
, fmTagVals :: Ptr FgnStringLen
, fmTagN :: CSize
}
instance Storable FgnMsg where
alignment _ = 8
{-# LINE 175 "src/Client/CApi/Types.hsc" #-}
sizeOf _ = (120)
{-# LINE 176 "src/Client/CApi/Types.hsc" #-}
peek p = FgnMsg
<$> ((\hsc_ptr -> peekByteOff hsc_ptr 0)) p
{-# LINE 178 "src/Client/CApi/Types.hsc" #-}
<*> ((\hsc_ptr -> peekByteOff hsc_ptr 16)) p
{-# LINE 179 "src/Client/CApi/Types.hsc" #-}
<*> ((\hsc_ptr -> peekByteOff hsc_ptr 32)) p
{-# LINE 180 "src/Client/CApi/Types.hsc" #-}
<*> ((\hsc_ptr -> peekByteOff hsc_ptr 48)) p
{-# LINE 181 "src/Client/CApi/Types.hsc" #-}
<*> ((\hsc_ptr -> peekByteOff hsc_ptr 64)) p
{-# LINE 182 "src/Client/CApi/Types.hsc" #-}
<*> ((\hsc_ptr -> peekByteOff hsc_ptr 80)) p
{-# LINE 183 "src/Client/CApi/Types.hsc" #-}
<*> ((\hsc_ptr -> peekByteOff hsc_ptr 88)) p
{-# LINE 184 "src/Client/CApi/Types.hsc" #-}
<*> ((\hsc_ptr -> peekByteOff hsc_ptr 96)) p
{-# LINE 185 "src/Client/CApi/Types.hsc" #-}
<*> ((\hsc_ptr -> peekByteOff hsc_ptr 104)) p
{-# LINE 186 "src/Client/CApi/Types.hsc" #-}
<*> ((\hsc_ptr -> peekByteOff hsc_ptr 112)) p
{-# LINE 187 "src/Client/CApi/Types.hsc" #-}
poke p FgnMsg{..} =
do ((\hsc_ptr -> pokeByteOff hsc_ptr 0)) p fmNetwork
{-# LINE 190 "src/Client/CApi/Types.hsc" #-}
((\hsc_ptr -> pokeByteOff hsc_ptr 16)) p fmPrefixNick
{-# LINE 191 "src/Client/CApi/Types.hsc" #-}
((\hsc_ptr -> pokeByteOff hsc_ptr 32)) p fmPrefixUser
{-# LINE 192 "src/Client/CApi/Types.hsc" #-}
((\hsc_ptr -> pokeByteOff hsc_ptr 48)) p fmPrefixHost
{-# LINE 193 "src/Client/CApi/Types.hsc" #-}
((\hsc_ptr -> pokeByteOff hsc_ptr 64)) p fmCommand
{-# LINE 194 "src/Client/CApi/Types.hsc" #-}
((\hsc_ptr -> pokeByteOff hsc_ptr 80)) p fmParams
{-# LINE 195 "src/Client/CApi/Types.hsc" #-}
((\hsc_ptr -> pokeByteOff hsc_ptr 88)) p fmParamN
{-# LINE 196 "src/Client/CApi/Types.hsc" #-}
((\hsc_ptr -> pokeByteOff hsc_ptr 96)) p fmTagKeys
{-# LINE 197 "src/Client/CApi/Types.hsc" #-}
((\hsc_ptr -> pokeByteOff hsc_ptr 104)) p fmTagVals
{-# LINE 198 "src/Client/CApi/Types.hsc" #-}
((\hsc_ptr -> pokeByteOff hsc_ptr 112)) p fmTagN
{-# LINE 199 "src/Client/CApi/Types.hsc" #-}
data FgnChat = FgnChat
{ fhNetwork :: FgnStringLen
, fhTarget :: FgnStringLen
, fhMessage :: FgnStringLen
}
instance Storable FgnChat where
alignment _ = 8
{-# LINE 211 "src/Client/CApi/Types.hsc" #-}
sizeOf _ = (48)
{-# LINE 212 "src/Client/CApi/Types.hsc" #-}
peek p = FgnChat
<$> ((\hsc_ptr -> peekByteOff hsc_ptr 0)) p
{-# LINE 214 "src/Client/CApi/Types.hsc" #-}
<*> ((\hsc_ptr -> peekByteOff hsc_ptr 16)) p
{-# LINE 215 "src/Client/CApi/Types.hsc" #-}
<*> ((\hsc_ptr -> peekByteOff hsc_ptr 32)) p
{-# LINE 216 "src/Client/CApi/Types.hsc" #-}
poke p FgnChat{..} =
do ((\hsc_ptr -> pokeByteOff hsc_ptr 0)) p fhNetwork
{-# LINE 219 "src/Client/CApi/Types.hsc" #-}
((\hsc_ptr -> pokeByteOff hsc_ptr 16)) p fhTarget
{-# LINE 220 "src/Client/CApi/Types.hsc" #-}
((\hsc_ptr -> pokeByteOff hsc_ptr 32)) p fhMessage
{-# LINE 221 "src/Client/CApi/Types.hsc" #-}
data FgnCmd = FgnCmd
{ fcCommand :: FgnStringLen
}
instance Storable FgnCmd where
alignment _ = 8
{-# LINE 231 "src/Client/CApi/Types.hsc" #-}
sizeOf _ = (16)
{-# LINE 232 "src/Client/CApi/Types.hsc" #-}
peek p = FgnCmd
<$> ((\hsc_ptr -> peekByteOff hsc_ptr 0)) p
{-# LINE 234 "src/Client/CApi/Types.hsc" #-}
poke p FgnCmd{..} = ((\hsc_ptr -> pokeByteOff hsc_ptr 0)) p fcCommand
{-# LINE 236 "src/Client/CApi/Types.hsc" #-}
data FgnStringLen = FgnStringLen !CString !CSize
instance Storable FgnStringLen where
alignment _ = 8
{-# LINE 244 "src/Client/CApi/Types.hsc" #-}
sizeOf _ = (16)
{-# LINE 245 "src/Client/CApi/Types.hsc" #-}
peek p = FgnStringLen
<$> ((\hsc_ptr -> peekByteOff hsc_ptr 0)) p
{-# LINE 247 "src/Client/CApi/Types.hsc" #-}
<*> ((\hsc_ptr -> peekByteOff hsc_ptr 8)) p
{-# LINE 248 "src/Client/CApi/Types.hsc" #-}
poke p (FgnStringLen x y) =
do ((\hsc_ptr -> pokeByteOff hsc_ptr 0)) p x
{-# LINE 250 "src/Client/CApi/Types.hsc" #-}
((\hsc_ptr -> pokeByteOff hsc_ptr 8)) p y
{-# LINE 251 "src/Client/CApi/Types.hsc" #-}
poke' :: Storable a => Ptr a -> a -> IO ()
poke' ptr x = unless (nullPtr == ptr) (poke ptr x)
exportText :: Ptr CString -> Ptr CSize -> Text -> IO ()
exportText dstP dstL txt =
Text.withCStringLen txt $ \(srcP, srcL) ->
do poke' dstL (fromIntegral srcL)
unless (dstP == nullPtr) $
do a <- mallocArray0 srcL
copyArray a srcP srcL
pokeElemOff a srcL 0
poke dstP a
withText0 :: Text -> (CStringLen -> IO a) -> IO a
withText0 txt k =
Text.withCStringLen txt $ \(p,l) ->
allocaArray0 l $ \p' ->
do copyArray p' p l
pokeElemOff p' l 0
k (p', l)