Experimental.hs

{-# LANGUAGE ForeignFunctionInterface #-}

{- |
Module      : WasmEdge.Internal.FFI.Experimental
Description : Raw FFI for WasmEdge experimental hooks
Copyright   : (c) 2026 Tushar Adhatrao
License     : MIT
Stability   : internal

These are experimental features from @wasmedge_experimental.h@.
Use at your own risk; they may be removed in future WasmEdge versions.
-}
module WasmEdge.Internal.FFI.Experimental
  ( c_ExecutorRegisterPreHostFunction
  , c_ExecutorRegisterPostHostFunction
  , mkHookWrapper
  ) where

import Foreign.Ptr
import WasmEdge.Internal.Types

type RawHookT = Ptr () -> IO ()

foreign import ccall "wrapper"
  mkHookWrapper :: RawHookT -> IO (FunPtr RawHookT)

foreign import ccall safe "WasmEdge_ExecutorExperimentalRegisterPreHostFunction"
  c_ExecutorRegisterPreHostFunction ::
    Ptr ExecutorTag -> Ptr () -> FunPtr RawHookT -> IO ()

foreign import ccall safe "WasmEdge_ExecutorExperimentalRegisterPostHostFunction"
  c_ExecutorRegisterPostHostFunction ::
    Ptr ExecutorTag -> Ptr () -> FunPtr RawHookT -> IO ()