System.Win32.Com.Server

Support code for writing Haskell COM components (yay!)

The library code for Haskell COM components (aka. servers), support the wrapping up of a bunch of Haskell function values into the binary representation that the COM spec mandates.

The library has two classes of users:

• HaskellDirect generated stubs for interfaces representing Haskell COM components.
• on-the-fly generation of COM interface pointers by a Haskell application.

i.e., in short, we care about having a simple, programmer-useable, API :-)

Documentation

createComInstance :: String -> objState -> IO () -> [ComInterface objState] -> IID (IUnknown iid) -> IO (IUnknown iid)

createInstance :: objState -> VTable (IUnknown iid) objState -> IO (IUnknown iid)

createVTable :: [Ptr ()] -> IO (VTable iid objState)

createComVTable :: [Ptr ()] -> IO (ComVTable iid objState)

createIPointer :: StablePtr a -> VTBL -> IO (IUnknown b)

cloneIPointer :: IUnknown iid_old -> VTable (IUnknown iid_new) objState -> IO (IUnknown iid_new)

cloneIPointer_prim :: Ptr (IUnknown a) -> VTable (IUnknown iid_new) objState -> IO (IUnknown iid_new)

getObjState :: Ptr (IUnknown a) -> IO b

getRealObjState :: Ptr (IUnknown a) -> IO b

createDualInterface :: StablePtr objState -> ComVTable (IUnknown iid) objState -> Either LIBID String -> IID (IUnknown iid) -> IO (IUnknown iid)

createDispInterface :: IUnknown iid -> Either LIBID String -> IID (IUnknown iid) -> IO (IUnknown iid)

type VTable iid objState = VTBL

type ComVTable iid objState = VTable iid (objState, IUnkState)

type PrimIP iid = Ptr (Ptr ())

data ComInterface objState

mkIface :: IID iid -> VTable iid objState -> ComInterface objState

mkDispIface :: Maybe LIBID -> IID iid -> VTable iid objState -> ComInterface objState

mkDualIface :: Maybe LIBID -> IID iid -> VTable iid objState -> ComInterface objState

export_getTypeInfoCount :: (Ptr () -> Ptr Word32 -> IO HRESULT) -> IO (Ptr (Ptr () -> Ptr Word32 -> IO HRESULT))

export_getTypeInfo :: (Ptr (IDispatch ()) -> Word32 -> LCID -> Ptr () -> IO HRESULT) -> IO (Ptr (Ptr (IDispatch ()) -> Word32 -> LCID -> Ptr () -> IO HRESULT))

export_getIDsOfNames :: (Ptr (IDispatch ()) -> Ptr (IID ()) -> Ptr WideString -> Word32 -> LCID -> Ptr DISPID -> IO HRESULT) -> IO (Ptr (Ptr (IDispatch ()) -> Ptr (IID ()) -> Ptr WideString -> Word32 -> LCID -> Ptr DISPID -> IO HRESULT))

export_invoke :: (Ptr (IDispatch ()) -> DISPID -> Ptr (IID a) -> LCID -> Word32 -> Ptr DISPPARAMS -> Ptr VARIANT -> Ptr EXCEPINFO -> Ptr Word32 -> IO HRESULT) -> IO (Ptr (Ptr (IDispatch ()) -> DISPID -> Ptr (IID a) -> LCID -> Word32 -> Ptr DISPPARAMS -> Ptr VARIANT -> Ptr EXCEPINFO -> Ptr Word32 -> IO HRESULT))