{-# LANGUAGE GeneralizedNewtypeDeriving #-}
module Binaryen.Event where
import Binaryen.Type
import Foreign (Ptr, Storable)
import Foreign.C (CChar(..), CInt(..), CUIntPtr(..))
newtype Event = Event (Ptr Event)
deriving (Eq, Show, Storable)
foreign import ccall unsafe "BinaryenEventGetName"
getName ::
Event -> IO (Ptr CChar)
foreign import ccall unsafe "BinaryenEventGetAttribute"
getAttribute ::
Event -> IO CInt
foreign import ccall unsafe "BinaryenEventGetParams"
getParams ::
Event -> IO Type
foreign import ccall unsafe "BinaryenEventGetResults"
getResults ::
Event -> IO Type
foreign import ccall unsafe "BinaryenEventImportGetModule"
importGetModule ::
Event -> IO (Ptr CChar)
foreign import ccall unsafe "BinaryenEventImportGetBase"
eventImportGetBase ::
Event -> IO (Ptr CChar)