System.Win32.Com.Server.StdDispatch

Implementation of IDispatch in Haskell; pretty useful when creating/registering dynamic, on-the-fly event sinks.

Documentation

createStdDispatchVTBL :: (String -> Maybe DISPID) -> (DISPID -> MethodKind -> [VARIANT] -> objState -> IO (Maybe VARIANT)) -> IO (ComVTable (IDispatch iid) objState)

createStdDispatchVTBL2 :: [DispMethod objState] -> IO (ComVTable (IDispatch iid) objState)

createStdDispatch :: objState -> IO () -> [DispMethod objState] -> IID (IUnknown iid) -> IO (IUnknown iid)

data DispMethod objState

Constructors

DispMethod

Fields

• disp_method_name :: String
• disp_method_id :: DISPID
• disp_method_kind :: MethodKind
• disp_method_act :: [VARIANT] -> objState -> IO (Maybe VARIANT)

inArg :: Variant a => (a -> [VARIANT] -> objState -> IO b) -> [VARIANT] -> objState -> IO b

inIUnknownArg :: (IUnknown a -> [VARIANT] -> objState -> IO b) -> [VARIANT] -> objState -> IO b

inoutArg :: (Variant a, Variant b) => (a -> (b -> IO ()) -> [VARIANT] -> objState -> IO c) -> [VARIANT] -> objState -> IO c

outArg :: Variant a => ((a -> IO ()) -> [VARIANT] -> objState -> IO b) -> [VARIANT] -> objState -> IO b

retVal :: Variant a => ((a -> IO ()) -> [VARIANT] -> objState -> IO (Maybe VARIANT)) -> [VARIANT] -> objState -> IO (Maybe VARIANT)

apply_0 :: (objState -> IO ()) -> [VARIANT] -> objState -> IO (Maybe VARIANT)

apply_1 :: Variant a => (objState -> IO a) -> (a -> IO ()) -> [VARIANT] -> objState -> IO (Maybe VARIANT)

apply_2 :: (Variant a0, Variant a1) => (objState -> IO (a0, a1)) -> (a0 -> IO ()) -> (a1 -> IO ()) -> [VARIANT] -> objState -> IO (Maybe VARIANT)

apply_3 :: (Variant a0, Variant a1, Variant a2) => (objState -> IO (a0, a1, a2)) -> (a0 -> IO ()) -> (a1 -> IO ()) -> (a2 -> IO ()) -> [VARIANT] -> objState -> IO (Maybe VARIANT)

apply_4 :: (Variant a0, Variant a1, Variant a2, Variant a3) => (objState -> IO (a0, a1, a2, a3)) -> (a0 -> IO ()) -> (a1 -> IO ()) -> (a2 -> IO ()) -> (a3 -> IO ()) -> [VARIANT] -> objState -> IO (Maybe VARIANT)

apply_5 :: (Variant a0, Variant a1, Variant a2, Variant a3, Variant a4) => (objState -> IO (a0, a1, a2, a3, a4)) -> (a0 -> IO ()) -> (a1 -> IO ()) -> (a2 -> IO ()) -> (a3 -> IO ()) -> (a4 -> IO ()) -> [VARIANT] -> objState -> IO (Maybe VARIANT)

apply_6 :: (Variant a0, Variant a1, Variant a2, Variant a3, Variant a4, Variant a5) => (objState -> IO (a0, a1, a2, a3, a4, a5)) -> (a0 -> IO ()) -> (a1 -> IO ()) -> (a2 -> IO ()) -> (a3 -> IO ()) -> (a4 -> IO ()) -> (a5 -> IO ()) -> [VARIANT] -> objState -> IO (Maybe VARIANT)

apply_7 :: (Variant a0, Variant a1, Variant a2, Variant a3, Variant a4, Variant a5, Variant a6) => (objState -> IO (a0, a1, a2, a3, a4, a5, a6)) -> (a0 -> IO ()) -> (a1 -> IO ()) -> (a2 -> IO ()) -> (a3 -> IO ()) -> (a4 -> IO ()) -> (a5 -> IO ()) -> (a6 -> IO ()) -> [VARIANT] -> objState -> IO (Maybe VARIANT)

mkDispMethod :: String -> DISPID -> ([VARIANT] -> objState -> IO (Maybe VARIANT)) -> DispMethod objState

dispmethod_0_0 :: String -> DISPID -> (objState -> IO ()) -> DispMethod objState

dispmethod_1_0 :: Variant t => String -> DISPID -> (t -> objState -> IO ()) -> DispMethod objState

dispmethod_2_0 :: (Variant t, Variant t1) => String -> DISPID -> (t1 -> t -> objState -> IO ()) -> DispMethod objState

dispmethod_3_0 :: (Variant t, Variant t1, Variant t2) => String -> DISPID -> (t2 -> t1 -> t -> objState -> IO ()) -> DispMethod objState

dispmethod_0_1 :: Variant a => String -> DISPID -> (objState -> IO a) -> DispMethod objState

dispmethod_0_2 :: (Variant a, Variant a1) => String -> DISPID -> (objState -> IO (a1, a)) -> DispMethod objState