-- Automatically generated by HaskellDirect (ihc.exe), snapshot 150305 -- Created: 10:46 GMT Standard Time, Tuesday 29 March, 2005 -- Command line: ClassView.idl -s module VsClassViewProxy ( mkIVsLiteTreeList_vtbl , mkIVsLibrary_vtbl , mkIVsLibraryMgr_vtbl , mkIVsObjectList_vtbl , mkIVsObjectManager_vtbl ) where import Prelude (fromEnum, toEnum) import qualified Prelude import qualified Automation (IDispatch, VARIANT, marshallVARIANT) import qualified Com (writeIUnknown, readIUnknown, GUID, freeBSTR, writeBSTR, writeGUID, readBSTR, readGUID, IUnknown, returnHR, marshallIUnknown, unmarshallIUnknown, marshallBSTR, CLSID, writeCLSID, clsidToGUID, marshallGUID, unmarshallGUID) import ComPrim(primCopyGUID) import qualified ComServ (ComVTable, createComVTable, getObjState) import qualified Data.Bits ((.&.)) import qualified Data.Int (Int32) import qualified Data.Maybe (mapMaybe) import qualified Data.Word (Word32, Word16) import qualified Foreign.Ptr (Ptr, castPtr) import qualified Foreign.ForeignPtr (castForeignPtr) import qualified HDirect (writeWord32, addNCastPtr, readWord32, writeEnum32, readEnum32, Flags(..), pow2Series, orList, writeWord16, writePtr, readWord16, readPtr, writeInt32, writefptr, marshallEnum32, unmarshallEnum32, sizeofWord16, allocBytes, marshallunique, marshallref, unmarshalllist, writeunique, readunique, writeMaybe, readMaybe, sizeofForeignPtr, unmarshallWord32, writelist) import qualified VsProject (IVsHierarchy) import qualified VsTypes (VSITEMID, VSCOOKIE) import qualified WideString (writeWideString, readWideString, WideString, unmarshallWideString) import qualified Wtypes (DWORD, LPARAM, LCID, WORD, USHORT, HANDLE, ULONG, BOOL, WCHAR, LPCOLESTR, LPCWSTR, CLIPFORMAT, LONG, FORMATETC, STGMEDIUM, readFORMATETC, readSTGMEDIUM, REFGUID) import qualified DocObjProxy import VsClassView -- -------------------------------------------------- -- -- interface IVsLiteTreeList -- -- -------------------------------------------------- mkIVsLiteTreeList_vtbl :: (objState -> Prelude.IO VSTREEFLAGS) -> (objState -> Prelude.IO Wtypes.ULONG) -> (Wtypes.ULONG -> objState -> Prelude.IO (Wtypes.BOOL, IVsLiteTreeList ())) -> (IVsLiteTreeList a0 -> objState -> Prelude.IO Wtypes.ULONG) -> (objState -> Prelude.IO VSTREECLOSEACTIONS) -> (Wtypes.ULONG -> VSTREETEXTOPTIONS -> objState -> Prelude.IO WideString.WideString) -> (Wtypes.ULONG -> VSTREETOOLTIPTYPE -> objState -> Prelude.IO WideString.WideString) -> (Wtypes.ULONG -> objState -> Prelude.IO Wtypes.BOOL) -> (Wtypes.ULONG -> objState -> Prelude.IO VSTREEDISPLAYDATA) -> (objState -> Prelude.IO (Wtypes.ULONG, VSTREEITEMCHANGESMASK)) -> (Wtypes.ULONG -> objState -> Prelude.IO [VSTREELISTITEMCHANGE]) -> (Wtypes.ULONG -> objState -> Prelude.IO VSTREESTATECHANGEREFRESH) -> Prelude.IO (ComServ.ComVTable (IVsLiteTreeList ()) objState) mkIVsLiteTreeList_vtbl getFlags getItemCount getExpandedList locateExpandedList onClose getText getTipText getExpandable getDisplayData updateCounter getListChanges toggleState = do meth_arg0 <- export_getFlags (prim_getFlags getFlags) meth_arg1 <- export_getItemCount (prim_getItemCount getItemCount) meth_arg2 <- export_getExpandedList (prim_getExpandedList getExpandedList) meth_arg3 <- export_locateExpandedList (prim_locateExpandedList locateExpandedList) meth_arg4 <- export_onClose (prim_onClose onClose) meth_arg5 <- export_getText (prim_getText getText) meth_arg6 <- export_getText (prim_getTipText getTipText) meth_arg7 <- export_getExpandable (prim_getExpandable getExpandable) meth_arg8 <- export_getDisplayData (prim_getDisplayData getDisplayData) meth_arg9 <- export_updateCounter (prim_updateCounter updateCounter) meth_arg10 <- export_getListChanges (prim_getListChanges getListChanges) meth_arg11 <- export_toggleState (prim_toggleState toggleState) ComServ.createComVTable [ meth_arg0 , meth_arg1 , meth_arg2 , meth_arg3 , meth_arg4 , meth_arg5 , meth_arg6 , meth_arg7 , meth_arg8 , meth_arg9 , meth_arg10 , meth_arg11 ] foreign import stdcall "wrapper" export_getFlags :: (Foreign.Ptr.Ptr a -> Foreign.Ptr.Ptr Data.Int.Int32 -> Prelude.IO Data.Int.Int32) -> Prelude.IO (Foreign.Ptr.Ptr ()) foreign import stdcall "wrapper" export_getItemCount :: (Foreign.Ptr.Ptr a -> Foreign.Ptr.Ptr Data.Word.Word32 -> Prelude.IO Data.Int.Int32) -> Prelude.IO (Foreign.Ptr.Ptr ()) foreign import stdcall "wrapper" export_getExpandedList :: (Foreign.Ptr.Ptr a -> Data.Word.Word32 -> Foreign.Ptr.Ptr Data.Int.Int32 -> Foreign.Ptr.Ptr (Foreign.Ptr.Ptr (IVsLiteTreeList a0)) -> Prelude.IO Data.Int.Int32) -> Prelude.IO (Foreign.Ptr.Ptr ()) foreign import stdcall "wrapper" export_locateExpandedList :: (Foreign.Ptr.Ptr a -> Foreign.Ptr.Ptr (IVsLiteTreeList a0) -> Foreign.Ptr.Ptr Data.Word.Word32 -> Prelude.IO Data.Int.Int32) -> Prelude.IO (Foreign.Ptr.Ptr ()) foreign import stdcall "wrapper" export_onClose :: (Foreign.Ptr.Ptr a -> Foreign.Ptr.Ptr Data.Int.Int32 -> Prelude.IO Data.Int.Int32) -> Prelude.IO (Foreign.Ptr.Ptr ()) foreign import stdcall "wrapper" export_getText :: (Foreign.Ptr.Ptr a -> Data.Word.Word32 -> Data.Int.Int32 -> Foreign.Ptr.Ptr WideString.WideString -> Prelude.IO Data.Int.Int32) -> Prelude.IO (Foreign.Ptr.Ptr ()) foreign import stdcall "wrapper" export_getExpandable :: (Foreign.Ptr.Ptr a -> Data.Word.Word32 -> Foreign.Ptr.Ptr Data.Int.Int32 -> Prelude.IO Data.Int.Int32) -> Prelude.IO (Foreign.Ptr.Ptr ()) foreign import stdcall "wrapper" export_getDisplayData :: (Foreign.Ptr.Ptr a -> Data.Word.Word32 -> Foreign.Ptr.Ptr VSTREEDISPLAYDATA -> Prelude.IO Data.Int.Int32) -> Prelude.IO (Foreign.Ptr.Ptr ()) foreign import stdcall "wrapper" export_updateCounter :: (Foreign.Ptr.Ptr a -> Foreign.Ptr.Ptr Data.Word.Word32 -> Foreign.Ptr.Ptr Data.Word.Word32 -> Prelude.IO Data.Int.Int32) -> Prelude.IO (Foreign.Ptr.Ptr ()) foreign import stdcall "wrapper" export_getListChanges :: (Foreign.Ptr.Ptr a -> Foreign.Ptr.Ptr Data.Word.Word32 -> Foreign.Ptr.Ptr [VSTREELISTITEMCHANGE] -> Prelude.IO Data.Int.Int32) -> Prelude.IO (Foreign.Ptr.Ptr ()) foreign import stdcall "wrapper" export_toggleState :: (Foreign.Ptr.Ptr a -> Data.Word.Word32 -> Foreign.Ptr.Ptr Data.Int.Int32 -> Prelude.IO Data.Int.Int32) -> Prelude.IO (Foreign.Ptr.Ptr ()) prim_getFlags :: (objState -> Prelude.IO VSTREEFLAGS) -> Foreign.Ptr.Ptr (Com.IUnknown ()) -> Foreign.Ptr.Ptr Data.Int.Int32 -> Prelude.IO Data.Int.Int32 prim_getFlags getFlags_meth iptr out_pFlags = Com.returnHR (ComServ.getObjState iptr Prelude.>>= \ obj -> getFlags_meth obj Prelude.>>= \ res__pFlags -> HDirect.writeEnum32 out_pFlags res__pFlags) prim_getItemCount :: (objState -> Prelude.IO Wtypes.ULONG) -> Foreign.Ptr.Ptr (Com.IUnknown ()) -> Foreign.Ptr.Ptr Data.Word.Word32 -> Prelude.IO Data.Int.Int32 prim_getItemCount getItemCount_meth iptr out_pCount = Com.returnHR (ComServ.getObjState iptr Prelude.>>= \ obj -> getItemCount_meth obj Prelude.>>= \ res__pCount -> HDirect.writeWord32 out_pCount res__pCount) prim_getExpandedList :: (Wtypes.ULONG -> objState -> Prelude.IO (Wtypes.BOOL, IVsLiteTreeList ())) -> Foreign.Ptr.Ptr (Com.IUnknown ()) -> Data.Word.Word32 -> Foreign.Ptr.Ptr Data.Int.Int32 -> Foreign.Ptr.Ptr (Foreign.Ptr.Ptr (IVsLiteTreeList ())) -> Prelude.IO Data.Int.Int32 prim_getExpandedList getExpandedList_meth iptr index0 out_pfCanRecurse out_pptlNode = Com.returnHR (ComServ.getObjState iptr Prelude.>>= \ obj -> getExpandedList_meth index0 obj Prelude.>>= \ (res__pfCanRecurse, res__pptlNode) -> Com.marshallIUnknown res__pptlNode Prelude.>>= \ res__pptlNode -> HDirect.writeInt32 out_pfCanRecurse res__pfCanRecurse Prelude.>> HDirect.writePtr (Foreign.Ptr.castPtr out_pptlNode) res__pptlNode) prim_locateExpandedList :: (IVsLiteTreeList a0 -> objState -> Prelude.IO Wtypes.ULONG) -> Foreign.Ptr.Ptr (Com.IUnknown ()) -> Foreign.Ptr.Ptr (IVsLiteTreeList ()) -> Foreign.Ptr.Ptr Data.Word.Word32 -> Prelude.IO Data.Int.Int32 prim_locateExpandedList locateExpandedList_meth iptr expandedList out_iIndex = Com.returnHR (Com.unmarshallIUnknown Prelude.True expandedList Prelude.>>= \ expandedList -> ComServ.getObjState iptr Prelude.>>= \ obj -> locateExpandedList_meth expandedList obj Prelude.>>= \ res__iIndex -> HDirect.writeWord32 out_iIndex res__iIndex) prim_onClose :: (objState -> Prelude.IO VSTREECLOSEACTIONS) -> Foreign.Ptr.Ptr (Com.IUnknown ()) -> Foreign.Ptr.Ptr Data.Int.Int32 -> Prelude.IO Data.Int.Int32 prim_onClose onClose_meth iptr out_ptca = Com.returnHR (ComServ.getObjState iptr Prelude.>>= \ obj -> onClose_meth obj Prelude.>>= \ res__ptca -> HDirect.marshallEnum32 res__ptca Prelude.>>= \ res__ptca -> HDirect.writeInt32 out_ptca res__ptca) prim_getText :: (Wtypes.ULONG -> VSTREETEXTOPTIONS -> objState -> Prelude.IO WideString.WideString) -> Foreign.Ptr.Ptr (Com.IUnknown ()) -> Data.Word.Word32 -> Data.Int.Int32 -> Foreign.Ptr.Ptr WideString.WideString -> Prelude.IO Data.Int.Int32 prim_getText getText_meth iptr index0 tto out_ppszText = Com.returnHR (HDirect.unmarshallEnum32 tto Prelude.>>= \ tto -> ComServ.getObjState iptr Prelude.>>= \ obj -> getText_meth index0 tto obj Prelude.>>= \ res__ppszText -> WideString.writeWideString out_ppszText res__ppszText) prim_getTipText :: (Wtypes.ULONG -> VSTREETOOLTIPTYPE -> objState -> Prelude.IO WideString.WideString) -> Foreign.Ptr.Ptr (Com.IUnknown ()) -> Data.Word.Word32 -> Data.Int.Int32 -> Foreign.Ptr.Ptr WideString.WideString -> Prelude.IO Data.Int.Int32 prim_getTipText getTipText_meth iptr index0 eTipType out_ppszText = Com.returnHR (HDirect.unmarshallEnum32 eTipType Prelude.>>= \ eTipType -> ComServ.getObjState iptr Prelude.>>= \ obj -> getTipText_meth index0 eTipType obj Prelude.>>= \ res__ppszText -> WideString.writeWideString out_ppszText res__ppszText) prim_getExpandable :: (Wtypes.ULONG -> objState -> Prelude.IO Wtypes.BOOL) -> Foreign.Ptr.Ptr (Com.IUnknown ()) -> Data.Word.Word32 -> Foreign.Ptr.Ptr Data.Int.Int32 -> Prelude.IO Data.Int.Int32 prim_getExpandable getExpandable_meth iptr index0 out_pfExpandable = Com.returnHR (ComServ.getObjState iptr Prelude.>>= \ obj -> getExpandable_meth index0 obj Prelude.>>= \ res__pfExpandable -> HDirect.writeInt32 out_pfExpandable res__pfExpandable) prim_getDisplayData :: (Wtypes.ULONG -> objState -> Prelude.IO VSTREEDISPLAYDATA) -> Foreign.Ptr.Ptr (Com.IUnknown ()) -> Data.Word.Word32 -> Foreign.Ptr.Ptr VSTREEDISPLAYDATA -> Prelude.IO Data.Int.Int32 prim_getDisplayData getDisplayData_meth iptr index0 out_pData = Com.returnHR (ComServ.getObjState iptr Prelude.>>= \ obj -> getDisplayData_meth index0 obj Prelude.>>= \ res__pData -> writeVSTREEDISPLAYDATA out_pData res__pData) prim_updateCounter :: (objState -> Prelude.IO (Wtypes.ULONG, VSTREEITEMCHANGESMASK)) -> Foreign.Ptr.Ptr (Com.IUnknown ()) -> Foreign.Ptr.Ptr Data.Word.Word32 -> Foreign.Ptr.Ptr Data.Word.Word32 -> Prelude.IO Data.Int.Int32 prim_updateCounter updateCounter_meth iptr out_pCurUpdate out_pgrfChanges = Com.returnHR (ComServ.getObjState iptr Prelude.>>= \ obj -> updateCounter_meth obj Prelude.>>= \ (res__pCurUpdate, res__pgrfChanges) -> HDirect.writeWord32 out_pCurUpdate res__pCurUpdate Prelude.>> HDirect.writeEnum32 out_pgrfChanges res__pgrfChanges) prim_getListChanges :: (Wtypes.ULONG -> objState -> Prelude.IO [VSTREELISTITEMCHANGE]) -> Foreign.Ptr.Ptr (Com.IUnknown ()) -> Foreign.Ptr.Ptr Data.Word.Word32 -> Foreign.Ptr.Ptr [VSTREELISTITEMCHANGE] -> Prelude.IO Data.Int.Int32 prim_getListChanges getListChanges_meth iptr pcChanges out__prgListChanges = Com.returnHR (HDirect.readWord32 pcChanges Prelude.>>= \ in__pcChanges -> ComServ.getObjState iptr Prelude.>>= \ obj -> getListChanges_meth in__pcChanges obj Prelude.>>= \ res__prgListChanges -> HDirect.writelist Prelude.False sizeofVSTREELISTITEMCHANGE writeVSTREELISTITEMCHANGE out__prgListChanges res__prgListChanges Prelude.>> HDirect.writeWord32 pcChanges (Prelude.fromIntegral (Prelude.length res__prgListChanges))) prim_toggleState :: (Wtypes.ULONG -> objState -> Prelude.IO VSTREESTATECHANGEREFRESH) -> Foreign.Ptr.Ptr (Com.IUnknown ()) -> Data.Word.Word32 -> Foreign.Ptr.Ptr Data.Int.Int32 -> Prelude.IO Data.Int.Int32 prim_toggleState toggleState_meth iptr index0 out_ptscr = Com.returnHR (ComServ.getObjState iptr Prelude.>>= \ obj -> toggleState_meth index0 obj Prelude.>>= \ res__ptscr -> HDirect.writeEnum32 out_ptscr res__ptscr) -- -------------------------------------------------- -- -- interface IVsLibrary -- -- -------------------------------------------------- mkIVsLibrary_vtbl :: (LIB_CATEGORY -> objState -> Prelude.IO Wtypes.DWORD) -> (LIB_LISTTYPE -> LIB_LISTFLAGS -> Prelude.Maybe VSOBSEARCHCRITERIA -> objState -> Prelude.IO (IVsObjectList ())) -> (LIB_PERSISTTYPE -> objState -> Prelude.IO (IVsLiteTreeList ())) -> (objState -> Prelude.IO LIB_FLAGS) -> (objState -> Prelude.IO Wtypes.ULONG) -> (objState -> Prelude.IO Com.GUID) -> (Wtypes.LPCWSTR -> objState -> Prelude.IO ()) -> (Com.IUnknown a0 -> LIB_PERSISTTYPE -> objState -> Prelude.IO ()) -> (Com.IUnknown a0 -> LIB_PERSISTTYPE -> objState -> Prelude.IO ()) -> (VsProject.IVsHierarchy a0 -> [VSBROWSECONTAINER] -> objState -> Prelude.IO ([VSBROWSECONTAINER], Wtypes.ULONG)) -> (PVSCOMPONENTSELECTORDATA -> LIB_ADDREMOVEOPTIONS0 -> objState -> Prelude.IO (LIB_ADDREMOVEOPTIONS0, Prelude.String)) -> (Wtypes.DWORD -> Wtypes.LPCWSTR -> objState -> Prelude.IO ()) -> Prelude.IO (ComServ.ComVTable (IVsLibrary ()) objState) mkIVsLibrary_vtbl getSupportedCategoryFields getList getLibList getLibFlags updateCounter0 getGuid getSeparatorString loadState saveState getBrowseContainersForHierarchy addBrowseContainer removeBrowseContainer = do meth_arg0 <- export_getSupportedCategoryFields (prim_getSupportedCategoryFields getSupportedCategoryFields) meth_arg1 <- export_getList (prim_getList getList) meth_arg2 <- export_getLibList (prim_getLibList getLibList) meth_arg3 <- export_getFlags (prim_getLibFlags getLibFlags) meth_arg4 <- export_getItemCount (prim_updateCounter0 updateCounter0) meth_arg5 <- export_getGuid (prim_getGuid getGuid) meth_arg6 <- export_getSeparatorString (prim_getSeparatorString getSeparatorString) meth_arg7 <- export_loadState (prim_loadState loadState) meth_arg8 <- export_loadState (prim_saveState saveState) meth_arg9 <- export_getBrowseContainersForHierarchy (prim_getBrowseContainersForHierarchy getBrowseContainersForHierarchy) meth_arg10 <- export_addBrowseContainer (prim_addBrowseContainer addBrowseContainer) meth_arg11 <- export_removeBrowseContainer (prim_removeBrowseContainer removeBrowseContainer) ComServ.createComVTable [ meth_arg0 , meth_arg1 , meth_arg2 , meth_arg3 , meth_arg4 , meth_arg5 , meth_arg6 , meth_arg7 , meth_arg8 , meth_arg9 , meth_arg10 , meth_arg11 ] foreign import stdcall "wrapper" export_getSupportedCategoryFields :: (Foreign.Ptr.Ptr a -> Data.Int.Int32 -> Foreign.Ptr.Ptr Data.Word.Word32 -> Prelude.IO Data.Int.Int32) -> Prelude.IO (Foreign.Ptr.Ptr ()) foreign import stdcall "wrapper" export_getList :: (Foreign.Ptr.Ptr a -> Data.Int.Int32 -> Data.Int.Int32 -> Foreign.Ptr.Ptr VSOBSEARCHCRITERIA -> Foreign.Ptr.Ptr (Foreign.Ptr.Ptr (IVsObjectList a)) -> Prelude.IO Data.Int.Int32) -> Prelude.IO (Foreign.Ptr.Ptr ()) foreign import stdcall "wrapper" export_getLibList :: (Foreign.Ptr.Ptr a -> Data.Int.Int32 -> Foreign.Ptr.Ptr (Foreign.Ptr.Ptr (IVsLiteTreeList a0)) -> Prelude.IO Data.Int.Int32) -> Prelude.IO (Foreign.Ptr.Ptr ()) foreign import stdcall "wrapper" export_getGuid :: (Foreign.Ptr.Ptr a -> Foreign.Ptr.Ptr Com.GUID -> Prelude.IO Data.Int.Int32) -> Prelude.IO (Foreign.Ptr.Ptr ()) foreign import stdcall "wrapper" export_getSeparatorString :: (Foreign.Ptr.Ptr a -> Foreign.Ptr.Ptr WideString.WideString -> Prelude.IO Data.Int.Int32) -> Prelude.IO (Foreign.Ptr.Ptr ()) foreign import stdcall "wrapper" export_loadState :: (Foreign.Ptr.Ptr a -> Foreign.Ptr.Ptr (Com.IUnknown a0) -> Data.Int.Int32 -> Prelude.IO Data.Int.Int32) -> Prelude.IO (Foreign.Ptr.Ptr ()) foreign import stdcall "wrapper" export_getBrowseContainersForHierarchy :: (Foreign.Ptr.Ptr a -> Foreign.Ptr.Ptr (VsProject.IVsHierarchy a0) -> Data.Word.Word32 -> Foreign.Ptr.Ptr (Foreign.Ptr.Ptr VSBROWSECONTAINER) -> Foreign.Ptr.Ptr Data.Word.Word32 -> Prelude.IO Data.Int.Int32) -> Prelude.IO (Foreign.Ptr.Ptr ()) foreign import stdcall "wrapper" export_addBrowseContainer :: (Foreign.Ptr.Ptr a -> Foreign.Ptr.Ptr VSCOMPONENTSELECTORDATA -> Foreign.Ptr.Ptr Data.Word.Word32 -> Foreign.Ptr.Ptr Prelude.String -> Prelude.IO Data.Int.Int32) -> Prelude.IO (Foreign.Ptr.Ptr ()) foreign import stdcall "wrapper" export_removeBrowseContainer :: (Foreign.Ptr.Ptr a -> Data.Word.Word32 -> Foreign.Ptr.Ptr WideString.WideString -> Prelude.IO Data.Int.Int32) -> Prelude.IO (Foreign.Ptr.Ptr ()) prim_getSupportedCategoryFields :: (LIB_CATEGORY -> objState -> Prelude.IO Wtypes.DWORD) -> Foreign.Ptr.Ptr (Com.IUnknown ()) -> Data.Int.Int32 -> Foreign.Ptr.Ptr Data.Word.Word32 -> Prelude.IO Data.Int.Int32 prim_getSupportedCategoryFields getSupportedCategoryFields_meth iptr category out_pCatField = Com.returnHR (HDirect.unmarshallEnum32 category Prelude.>>= \ category -> ComServ.getObjState iptr Prelude.>>= \ obj -> getSupportedCategoryFields_meth category obj Prelude.>>= \ res__pCatField -> HDirect.writeWord32 out_pCatField res__pCatField) prim_getList :: (LIB_LISTTYPE -> LIB_LISTFLAGS -> Prelude.Maybe VSOBSEARCHCRITERIA -> objState -> Prelude.IO (IVsObjectList ())) -> Foreign.Ptr.Ptr (Com.IUnknown ()) -> Data.Int.Int32 -> Data.Int.Int32 -> Foreign.Ptr.Ptr VSOBSEARCHCRITERIA -> Foreign.Ptr.Ptr (Foreign.Ptr.Ptr (IVsObjectList a)) -> Prelude.IO Data.Int.Int32 prim_getList getList_meth iptr listType flags pobSrch out_ppList = Com.returnHR (HDirect.readMaybe readVSOBSEARCHCRITERIA pobSrch Prelude.>>= \ pobSrch -> ComServ.getObjState iptr Prelude.>>= \ obj -> HDirect.unmarshallEnum32 listType Prelude.>>= \ listType -> HDirect.unmarshallEnum32 flags Prelude.>>= \ flags -> getList_meth listType flags pobSrch obj Prelude.>>= \ res__ppList -> Com.marshallIUnknown res__ppList Prelude.>>= \ res__ppList -> HDirect.writePtr (Foreign.Ptr.castPtr out_ppList) res__ppList) prim_getLibList :: (LIB_PERSISTTYPE -> objState -> Prelude.IO (IVsLiteTreeList ())) -> Foreign.Ptr.Ptr (Com.IUnknown ()) -> Data.Int.Int32 -> Foreign.Ptr.Ptr (Foreign.Ptr.Ptr (IVsLiteTreeList ())) -> Prelude.IO Data.Int.Int32 prim_getLibList getLibList_meth iptr lptType out_ppList = Com.returnHR (HDirect.unmarshallEnum32 lptType Prelude.>>= \ lptType -> ComServ.getObjState iptr Prelude.>>= \ obj -> getLibList_meth lptType obj Prelude.>>= \ res__ppList -> Com.marshallIUnknown res__ppList Prelude.>>= \ res__ppList -> HDirect.writePtr (Foreign.Ptr.castPtr out_ppList) res__ppList) prim_getLibFlags :: (objState -> Prelude.IO LIB_FLAGS) -> Foreign.Ptr.Ptr (Com.IUnknown ()) -> Foreign.Ptr.Ptr Data.Int.Int32 -> Prelude.IO Data.Int.Int32 prim_getLibFlags getLibFlags_meth iptr out_pfFlags = Com.returnHR (ComServ.getObjState iptr Prelude.>>= \ obj -> getLibFlags_meth obj Prelude.>>= \ res__pfFlags -> HDirect.writeInt32 out_pfFlags (Prelude.toEnum (Prelude.fromEnum res__pfFlags))) prim_updateCounter0 :: (objState -> Prelude.IO Wtypes.ULONG) -> Foreign.Ptr.Ptr (Com.IUnknown ()) -> Foreign.Ptr.Ptr Data.Word.Word32 -> Prelude.IO Data.Int.Int32 prim_updateCounter0 updateCounter0_meth iptr out_pCurUpdate = Com.returnHR (ComServ.getObjState iptr Prelude.>>= \ obj -> updateCounter0_meth obj Prelude.>>= \ res__pCurUpdate -> HDirect.writeWord32 out_pCurUpdate res__pCurUpdate) prim_getGuid :: (objState -> Prelude.IO Com.GUID) -> Foreign.Ptr.Ptr (Com.IUnknown ()) -> Foreign.Ptr.Ptr Com.GUID -> Prelude.IO Data.Int.Int32 prim_getGuid getGuid_meth iptr ppguidLib = Com.returnHR (ComServ.getObjState iptr Prelude.>>= \ obj -> getGuid_meth obj Prelude.>>= \ guid -> Com.writeGUID ppguidLib guid) prim_getSeparatorString :: (Wtypes.LPCWSTR -> objState -> Prelude.IO ()) -> Foreign.Ptr.Ptr (Com.IUnknown ()) -> Foreign.Ptr.Ptr WideString.WideString -> Prelude.IO Data.Int.Int32 prim_getSeparatorString getSeparatorString_meth iptr pszSeparator = Com.returnHR (WideString.readWideString pszSeparator Prelude.>>= \ pszSeparator -> ComServ.getObjState iptr Prelude.>>= \ obj -> getSeparatorString_meth pszSeparator obj) prim_loadState :: (Com.IUnknown a0 -> LIB_PERSISTTYPE -> objState -> Prelude.IO ()) -> Foreign.Ptr.Ptr (Com.IUnknown ()) -> Foreign.Ptr.Ptr (Com.IUnknown ()) -> Data.Int.Int32 -> Prelude.IO Data.Int.Int32 prim_loadState loadState_meth iptr pIStream lptType = Com.returnHR (Com.unmarshallIUnknown Prelude.True pIStream Prelude.>>= \ pIStream -> HDirect.unmarshallEnum32 lptType Prelude.>>= \ lptType -> ComServ.getObjState iptr Prelude.>>= \ obj -> loadState_meth pIStream lptType obj) prim_saveState :: (Com.IUnknown a0 -> LIB_PERSISTTYPE -> objState -> Prelude.IO ()) -> Foreign.Ptr.Ptr (Com.IUnknown ()) -> Foreign.Ptr.Ptr (Com.IUnknown ()) -> Data.Int.Int32 -> Prelude.IO Data.Int.Int32 prim_saveState saveState_meth iptr pIStream lptType = Com.returnHR (Com.unmarshallIUnknown Prelude.True pIStream Prelude.>>= \ pIStream -> HDirect.unmarshallEnum32 lptType Prelude.>>= \ lptType -> ComServ.getObjState iptr Prelude.>>= \ obj -> saveState_meth pIStream lptType obj) prim_getBrowseContainersForHierarchy :: (VsProject.IVsHierarchy a0 -> [VSBROWSECONTAINER] -> objState -> Prelude.IO ([VSBROWSECONTAINER], Wtypes.ULONG)) -> Foreign.Ptr.Ptr (Com.IUnknown ()) -> Foreign.Ptr.Ptr (VsProject.IVsHierarchy ()) -> Data.Word.Word32 -> Foreign.Ptr.Ptr (Foreign.Ptr.Ptr VSBROWSECONTAINER) -> Foreign.Ptr.Ptr Data.Word.Word32 -> Prelude.IO Data.Int.Int32 prim_getBrowseContainersForHierarchy getBrowseContainersForHierarchy_meth iptr pHierarchy celt rgBrowseContainers out_pcActual = Com.returnHR (HDirect.unmarshallWord32 celt Prelude.>>= \ celt -> HDirect.unmarshalllist sizeofVSBROWSECONTAINER 0 celt (readVSBROWSECONTAINER Prelude.False) rgBrowseContainers Prelude.>>= \ in__rgBrowseContainers -> Com.unmarshallIUnknown Prelude.True pHierarchy Prelude.>>= \ pHierarchy -> ComServ.getObjState iptr Prelude.>>= \ obj -> getBrowseContainersForHierarchy_meth pHierarchy in__rgBrowseContainers obj Prelude.>>= \ (res__rgBrowseContainers, res__pcActual) -> HDirect.writeWord32 out_pcActual res__pcActual) prim_addBrowseContainer :: (PVSCOMPONENTSELECTORDATA -> LIB_ADDREMOVEOPTIONS0 -> objState -> Prelude.IO (LIB_ADDREMOVEOPTIONS0, Prelude.String)) -> Foreign.Ptr.Ptr (Com.IUnknown ()) -> Foreign.Ptr.Ptr VSCOMPONENTSELECTORDATA -> Foreign.Ptr.Ptr Data.Word.Word32 -> Foreign.Ptr.Ptr Prelude.String -> Prelude.IO Data.Int.Int32 prim_addBrowseContainer addBrowseContainer_meth iptr pcdComponent pgrfOptions out_pbstrComponentAdded = Com.returnHR (readVSCOMPONENTSELECTORDATA Prelude.True pcdComponent Prelude.>>= \ pcdComponent -> HDirect.readWord32 pgrfOptions Prelude.>>= \ in__pgrfOptions -> ComServ.getObjState iptr Prelude.>>= \ obj -> addBrowseContainer_meth pcdComponent in__pgrfOptions obj Prelude.>>= \ (res__pgrfOptions, res__pbstrComponentAdded) -> Com.marshallBSTR res__pbstrComponentAdded Prelude.>>= \ res__pbstrComponentAdded -> HDirect.writeWord32 pgrfOptions res__pgrfOptions Prelude.>> HDirect.writePtr (Foreign.Ptr.castPtr out_pbstrComponentAdded) res__pbstrComponentAdded) prim_removeBrowseContainer :: (Wtypes.DWORD -> Wtypes.LPCWSTR -> objState -> Prelude.IO ()) -> Foreign.Ptr.Ptr (Com.IUnknown ()) -> Data.Word.Word32 -> Foreign.Ptr.Ptr WideString.WideString -> Prelude.IO Data.Int.Int32 prim_removeBrowseContainer removeBrowseContainer_meth iptr dwReserved pszLibName1 = Com.returnHR (WideString.unmarshallWideString pszLibName1 Prelude.>>= \ pszLibName1 -> ComServ.getObjState iptr Prelude.>>= \ obj -> removeBrowseContainer_meth dwReserved pszLibName1 obj) -- -------------------------------------------------- -- -- interface IVsLibraryMgr -- -- -------------------------------------------------- mkIVsLibraryMgr_vtbl :: (objState -> Prelude.IO Wtypes.ULONG) -> (Wtypes.ULONG -> objState -> Prelude.IO (IVsLibrary ())) -> (Wtypes.ULONG -> objState -> Prelude.IO WideString.WideString) -> (Wtypes.ULONG -> objState -> Prelude.IO ()) -> (Wtypes.ULONG -> objState -> Prelude.IO LIB_CHECKSTATE) -> (LIB_PERSISTTYPE -> Wtypes.BOOL -> objState -> Prelude.IO ()) -> Prelude.IO (ComServ.ComVTable (IVsLibraryMgr ()) objState) mkIVsLibraryMgr_vtbl getCount getLibraryAt getNameAt toggleCheckAt getCheckAt setLibraryGroupEnabled = do meth_arg0 <- export_getItemCount (prim_getCount getCount) meth_arg1 <- export_getLibraryAt (prim_getLibraryAt getLibraryAt) meth_arg2 <- export_getNameAt (prim_getNameAt getNameAt) meth_arg3 <- export_toggleCheckAt (prim_toggleCheckAt toggleCheckAt) meth_arg4 <- export_getCheckAt (prim_getCheckAt getCheckAt) meth_arg5 <- export_setLibraryGroupEnabled (prim_setLibraryGroupEnabled setLibraryGroupEnabled) ComServ.createComVTable [ meth_arg0 , meth_arg1 , meth_arg2 , meth_arg3 , meth_arg4 , meth_arg5 ] foreign import stdcall "wrapper" export_getLibraryAt :: (Foreign.Ptr.Ptr a -> Data.Word.Word32 -> Foreign.Ptr.Ptr (Foreign.Ptr.Ptr (IVsLibrary a0)) -> Prelude.IO Data.Int.Int32) -> Prelude.IO (Foreign.Ptr.Ptr ()) foreign import stdcall "wrapper" export_getNameAt :: (Foreign.Ptr.Ptr a -> Data.Word.Word32 -> Foreign.Ptr.Ptr WideString.WideString -> Prelude.IO Data.Int.Int32) -> Prelude.IO (Foreign.Ptr.Ptr ()) foreign import stdcall "wrapper" export_toggleCheckAt :: (Foreign.Ptr.Ptr a -> Data.Word.Word32 -> Prelude.IO Data.Int.Int32) -> Prelude.IO (Foreign.Ptr.Ptr ()) foreign import stdcall "wrapper" export_getCheckAt :: (Foreign.Ptr.Ptr a -> Data.Word.Word32 -> Foreign.Ptr.Ptr Data.Int.Int32 -> Prelude.IO Data.Int.Int32) -> Prelude.IO (Foreign.Ptr.Ptr ()) foreign import stdcall "wrapper" export_setLibraryGroupEnabled :: (Foreign.Ptr.Ptr a -> Data.Int.Int32 -> Data.Int.Int32 -> Prelude.IO Data.Int.Int32) -> Prelude.IO (Foreign.Ptr.Ptr ()) prim_getCount :: (objState -> Prelude.IO Wtypes.ULONG) -> Foreign.Ptr.Ptr (Com.IUnknown ()) -> Foreign.Ptr.Ptr Data.Word.Word32 -> Prelude.IO Data.Int.Int32 prim_getCount getCount_meth iptr out_pnCount = Com.returnHR (ComServ.getObjState iptr Prelude.>>= \ obj -> getCount_meth obj Prelude.>>= \ res__pnCount -> HDirect.writeWord32 out_pnCount res__pnCount) prim_getLibraryAt :: (Wtypes.ULONG -> objState -> Prelude.IO (IVsLibrary ())) -> Foreign.Ptr.Ptr (Com.IUnknown ()) -> Data.Word.Word32 -> Foreign.Ptr.Ptr (Foreign.Ptr.Ptr (IVsLibrary ())) -> Prelude.IO Data.Int.Int32 prim_getLibraryAt getLibraryAt_meth iptr nLibIndex out_ppLibrary = Com.returnHR (ComServ.getObjState iptr Prelude.>>= \ obj -> getLibraryAt_meth nLibIndex obj Prelude.>>= \ res__ppLibrary -> Com.marshallIUnknown res__ppLibrary Prelude.>>= \ res__ppLibrary -> HDirect.writePtr (Foreign.Ptr.castPtr out_ppLibrary) res__ppLibrary) prim_getNameAt :: (Wtypes.ULONG -> objState -> Prelude.IO WideString.WideString) -> Foreign.Ptr.Ptr (Com.IUnknown ()) -> Data.Word.Word32 -> Foreign.Ptr.Ptr WideString.WideString -> Prelude.IO Data.Int.Int32 prim_getNameAt getNameAt_meth iptr nLibIndex out_pszName0 = Com.returnHR (ComServ.getObjState iptr Prelude.>>= \ obj -> getNameAt_meth nLibIndex obj Prelude.>>= \ res__pszName0 -> WideString.writeWideString out_pszName0 res__pszName0) prim_toggleCheckAt :: (Wtypes.ULONG -> objState -> Prelude.IO ()) -> Foreign.Ptr.Ptr (Com.IUnknown ()) -> Data.Word.Word32 -> Prelude.IO Data.Int.Int32 prim_toggleCheckAt toggleCheckAt_meth iptr nLibIndex = Com.returnHR (ComServ.getObjState iptr Prelude.>>= \ obj -> toggleCheckAt_meth nLibIndex obj) prim_getCheckAt :: (Wtypes.ULONG -> objState -> Prelude.IO LIB_CHECKSTATE) -> Foreign.Ptr.Ptr (Com.IUnknown ()) -> Data.Word.Word32 -> Foreign.Ptr.Ptr Data.Int.Int32 -> Prelude.IO Data.Int.Int32 prim_getCheckAt getCheckAt_meth iptr nLibIndex out_pstate = Com.returnHR (ComServ.getObjState iptr Prelude.>>= \ obj -> getCheckAt_meth nLibIndex obj Prelude.>>= \ res__pstate -> HDirect.marshallEnum32 res__pstate Prelude.>>= \ res__pstate -> HDirect.writeInt32 out_pstate res__pstate) prim_setLibraryGroupEnabled :: (LIB_PERSISTTYPE -> Wtypes.BOOL -> objState -> Prelude.IO ()) -> Foreign.Ptr.Ptr (Com.IUnknown ()) -> Data.Int.Int32 -> Data.Int.Int32 -> Prelude.IO Data.Int.Int32 prim_setLibraryGroupEnabled setLibraryGroupEnabled_meth iptr lpt fEnable = Com.returnHR (HDirect.unmarshallEnum32 lpt Prelude.>>= \ lpt -> ComServ.getObjState iptr Prelude.>>= \ obj -> setLibraryGroupEnabled_meth lpt fEnable obj) -- -------------------------------------------------- -- -- interface IVsObjectList -- -- -------------------------------------------------- mkIVsObjectList_vtbl :: (objState -> Prelude.IO VSTREEFLAGS) -> (objState -> Prelude.IO Wtypes.ULONG) -> (Wtypes.ULONG -> objState -> Prelude.IO (Wtypes.BOOL, IVsLiteTreeList ())) -> (IVsLiteTreeList a0 -> objState -> Prelude.IO Wtypes.ULONG) -> (objState -> Prelude.IO VSTREECLOSEACTIONS) -> (Wtypes.ULONG -> VSTREETEXTOPTIONS -> objState -> Prelude.IO WideString.WideString) -> (Wtypes.ULONG -> VSTREETOOLTIPTYPE -> objState -> Prelude.IO WideString.WideString) -> (Wtypes.ULONG -> objState -> Prelude.IO Wtypes.BOOL) -> (Wtypes.ULONG -> objState -> Prelude.IO VSTREEDISPLAYDATA) -> (objState -> Prelude.IO (Wtypes.ULONG, VSTREEITEMCHANGESMASK)) -> (Wtypes.ULONG -> objState -> Prelude.IO [VSTREELISTITEMCHANGE]) -> (Wtypes.ULONG -> objState -> Prelude.IO VSTREESTATECHANGEREFRESH) -> (objState -> Prelude.IO LIB_LISTCAPABILITIES0) -> (Wtypes.ULONG -> LIB_LISTTYPE -> LIB_LISTFLAGS -> Prelude.Maybe VSOBSEARCHCRITERIA -> objState -> Prelude.IO (IVsObjectList ())) -> (Wtypes.ULONG -> LIB_CATEGORY -> objState -> Prelude.IO Wtypes.DWORD) -> (Wtypes.ULONG -> LIB_LISTTYPE -> objState -> Prelude.IO Wtypes.BOOL) -> (Wtypes.ULONG -> VSOBNAVIGATIONINFO2 -> objState -> Prelude.IO VSOBNAVIGATIONINFO2) -> (VSOBNAVIGATIONINFO2 -> VSOBNAVNAMEINFONODE -> Wtypes.BOOL -> objState -> Prelude.IO (Wtypes.BOOL, Wtypes.ULONG)) -> (Wtypes.ULONG -> objState -> Prelude.IO (Automation.IDispatch ())) -> (Wtypes.ULONG -> objState -> Prelude.IO (Com.IUnknown ())) -> (Wtypes.ULONG -> objState -> Prelude.IO ()) -> (Wtypes.ULONG -> objState -> Prelude.IO (Prelude.Maybe Wtypes.WCHAR, Wtypes.ULONG)) -> (Wtypes.ULONG -> objState -> Prelude.IO (VsProject.IVsHierarchy (), VsTypes.VSITEMID, Wtypes.ULONG)) -> (Wtypes.ULONG -> VSGSIFLAGS0 -> Wtypes.ULONG -> objState -> Prelude.IO [VSITEMSELECTION]) -> (Wtypes.ULONG -> VSOBJGOTOSRCTYPE -> objState -> Prelude.IO Wtypes.BOOL) -> (Wtypes.ULONG -> VSOBJGOTOSRCTYPE -> objState -> Prelude.IO ()) -> (Wtypes.ULONG -> objState -> Prelude.IO (Com.CLSID, Wtypes.LONG, DocObjProxy.IOleCommandTarget ())) -> (Wtypes.ULONG -> Com.IUnknown a0 -> Wtypes.DWORD -> Wtypes.DWORD -> objState -> Prelude.IO Wtypes.DWORD) -> (Wtypes.ULONG -> Com.IUnknown a0 -> Wtypes.DWORD -> Wtypes.DWORD -> objState -> Prelude.IO Wtypes.DWORD) -> (Wtypes.ULONG -> Wtypes.LPCOLESTR -> objState -> Prelude.IO Wtypes.BOOL) -> (Wtypes.ULONG -> Wtypes.LPCOLESTR -> VSOBJOPFLAGS0 -> objState -> Prelude.IO ()) -> (Wtypes.ULONG -> objState -> Prelude.IO Wtypes.BOOL) -> (Wtypes.ULONG -> VSOBJOPFLAGS0 -> objState -> Prelude.IO ()) -> (Wtypes.ULONG -> VSOBJDESCOPTIONS0 -> Com.IUnknown a0 -> objState -> Prelude.IO ()) -> (Wtypes.ULONG -> VSOBJCFFLAGS0 -> [VSOBJCLIPFORMAT] -> objState -> Prelude.IO ([VSOBJCLIPFORMAT], Wtypes.ULONG)) -> (Wtypes.ULONG -> VSOBJCFFLAGS0 -> Wtypes.FORMATETC -> Wtypes.STGMEDIUM -> objState -> Prelude.IO ()) -> (Wtypes.ULONG -> VSOBJCFFLAGS0 -> VSOBJCLIPFORMAT -> objState -> Prelude.IO Automation.VARIANT) -> Prelude.IO (ComServ.ComVTable (IVsObjectList ()) objState) mkIVsObjectList_vtbl getFlags getItemCount getExpandedList locateExpandedList onClose getText getTipText getExpandable getDisplayData updateCounter getListChanges toggleState getCapabilities getList0 getCategoryField getExpandable2 getNavigationInfo locateNavigationInfo getBrowseObject getUserContext showHelp getSourceContext countSourceItems getMultipleSourceItems canGoToSource goToSource getContextMenu queryDragDrop doDragDrop canRename doRename canDelete doDelete fillDescription enumClipboardFormats getClipboardFormat getExtendedClipboardVariant = do meth_arg0 <- export_getFlags (prim_getFlags getFlags) meth_arg1 <- export_getItemCount (prim_getItemCount getItemCount) meth_arg2 <- export_getExpandedList (prim_getExpandedList getExpandedList) meth_arg3 <- export_locateExpandedList (prim_locateExpandedList locateExpandedList) meth_arg4 <- export_onClose (prim_onClose onClose) meth_arg5 <- export_getText (prim_getText getText) meth_arg6 <- export_getText (prim_getTipText getTipText) meth_arg7 <- export_getExpandable (prim_getExpandable getExpandable) meth_arg8 <- export_getDisplayData (prim_getDisplayData getDisplayData) meth_arg9 <- export_updateCounter (prim_updateCounter updateCounter) meth_arg10 <- export_getListChanges (prim_getListChanges getListChanges) meth_arg11 <- export_toggleState (prim_toggleState toggleState) meth_arg12 <- export_getItemCount (prim_getCapabilities getCapabilities) meth_arg13 <- export_getList0 (prim_getList0 getList0) meth_arg14 <- export_getCategoryField (prim_getCategoryField getCategoryField) meth_arg15 <- export_getExpandable2 (prim_getExpandable2 getExpandable2) meth_arg16 <- export_getNavigationInfo (prim_getNavigationInfo getNavigationInfo) meth_arg17 <- export_locateNavigationInfo (prim_locateNavigationInfo locateNavigationInfo) meth_arg18 <- export_getBrowseObject (prim_getBrowseObject getBrowseObject) meth_arg19 <- export_getUserContext (prim_getUserContext getUserContext) meth_arg20 <- export_toggleCheckAt (prim_showHelp showHelp) meth_arg21 <- export_getSourceContext (prim_getSourceContext getSourceContext) meth_arg22 <- export_countSourceItems (prim_countSourceItems countSourceItems) meth_arg23 <- export_getMultipleSourceItems (prim_getMultipleSourceItems getMultipleSourceItems) meth_arg24 <- export_canGoToSource (prim_canGoToSource canGoToSource) meth_arg25 <- export_goToSource (prim_goToSource goToSource) meth_arg26 <- export_getContextMenu (prim_getContextMenu getContextMenu) meth_arg27 <- export_queryDragDrop (prim_queryDragDrop queryDragDrop) meth_arg28 <- export_queryDragDrop (prim_doDragDrop doDragDrop) meth_arg29 <- export_canRename (prim_canRename canRename) meth_arg30 <- export_doRename (prim_doRename doRename) meth_arg31 <- export_getExpandable (prim_canDelete canDelete) meth_arg32 <- export_doDelete (prim_doDelete doDelete) meth_arg33 <- export_fillDescription (prim_fillDescription fillDescription) meth_arg34 <- export_enumClipboardFormats (prim_enumClipboardFormats enumClipboardFormats) meth_arg35 <- export_getClipboardFormat (prim_getClipboardFormat getClipboardFormat) meth_arg36 <- export_getExtendedClipboardVariant (prim_getExtendedClipboardVariant getExtendedClipboardVariant) ComServ.createComVTable [ meth_arg0 , meth_arg1 , meth_arg2 , meth_arg3 , meth_arg4 , meth_arg5 , meth_arg6 , meth_arg7 , meth_arg8 , meth_arg9 , meth_arg10 , meth_arg11 , meth_arg12 , meth_arg13 , meth_arg14 , meth_arg15 , meth_arg16 , meth_arg17 , meth_arg18 , meth_arg19 , meth_arg20 , meth_arg21 , meth_arg22 , meth_arg23 , meth_arg24 , meth_arg25 , meth_arg26 , meth_arg27 , meth_arg28 , meth_arg29 , meth_arg30 , meth_arg31 , meth_arg32 , meth_arg33 , meth_arg34 , meth_arg35 , meth_arg36 ] foreign import stdcall "wrapper" export_getList0 :: (Foreign.Ptr.Ptr a -> Data.Word.Word32 -> Data.Int.Int32 -> Data.Int.Int32 -> Foreign.Ptr.Ptr VSOBSEARCHCRITERIA -> Foreign.Ptr.Ptr (Foreign.Ptr.Ptr (IVsObjectList a0)) -> Prelude.IO Data.Int.Int32) -> Prelude.IO (Foreign.Ptr.Ptr ()) foreign import stdcall "wrapper" export_getCategoryField :: (Foreign.Ptr.Ptr a -> Data.Word.Word32 -> Data.Int.Int32 -> Foreign.Ptr.Ptr Data.Word.Word32 -> Prelude.IO Data.Int.Int32) -> Prelude.IO (Foreign.Ptr.Ptr ()) foreign import stdcall "wrapper" export_getExpandable2 :: (Foreign.Ptr.Ptr a -> Data.Word.Word32 -> Data.Int.Int32 -> Foreign.Ptr.Ptr Data.Int.Int32 -> Prelude.IO Data.Int.Int32) -> Prelude.IO (Foreign.Ptr.Ptr ()) foreign import stdcall "wrapper" export_getNavigationInfo :: (Foreign.Ptr.Ptr a -> Data.Word.Word32 -> Foreign.Ptr.Ptr VSOBNAVIGATIONINFO2 -> Prelude.IO Data.Int.Int32) -> Prelude.IO (Foreign.Ptr.Ptr ()) foreign import stdcall "wrapper" export_locateNavigationInfo :: (Foreign.Ptr.Ptr a -> Foreign.Ptr.Ptr VSOBNAVIGATIONINFO2 -> Foreign.Ptr.Ptr VSOBNAVNAMEINFONODE -> Data.Int.Int32 -> Foreign.Ptr.Ptr Data.Int.Int32 -> Foreign.Ptr.Ptr Data.Word.Word32 -> Prelude.IO Data.Int.Int32) -> Prelude.IO (Foreign.Ptr.Ptr ()) foreign import stdcall "wrapper" export_getBrowseObject :: (Foreign.Ptr.Ptr a -> Data.Word.Word32 -> Foreign.Ptr.Ptr (Foreign.Ptr.Ptr (Automation.IDispatch a0)) -> Prelude.IO Data.Int.Int32) -> Prelude.IO (Foreign.Ptr.Ptr ()) foreign import stdcall "wrapper" export_getUserContext :: (Foreign.Ptr.Ptr a -> Data.Word.Word32 -> Foreign.Ptr.Ptr (Foreign.Ptr.Ptr (Com.IUnknown a0)) -> Prelude.IO Data.Int.Int32) -> Prelude.IO (Foreign.Ptr.Ptr ()) foreign import stdcall "wrapper" export_getSourceContext :: (Foreign.Ptr.Ptr a -> Data.Word.Word32 -> Foreign.Ptr.Ptr (Foreign.Ptr.Ptr Data.Word.Word16) -> Foreign.Ptr.Ptr Data.Word.Word32 -> Prelude.IO Data.Int.Int32) -> Prelude.IO (Foreign.Ptr.Ptr ()) foreign import stdcall "wrapper" export_countSourceItems :: (Foreign.Ptr.Ptr a -> Data.Word.Word32 -> Foreign.Ptr.Ptr (Foreign.Ptr.Ptr (VsProject.IVsHierarchy a0)) -> Foreign.Ptr.Ptr Data.Word.Word32 -> Foreign.Ptr.Ptr Data.Word.Word32 -> Prelude.IO Data.Int.Int32) -> Prelude.IO (Foreign.Ptr.Ptr ()) foreign import stdcall "wrapper" export_getMultipleSourceItems :: (Foreign.Ptr.Ptr a -> Data.Word.Word32 -> Data.Word.Word32 -> Data.Word.Word32 -> Foreign.Ptr.Ptr [VSITEMSELECTION] -> Prelude.IO Data.Int.Int32) -> Prelude.IO (Foreign.Ptr.Ptr ()) foreign import stdcall "wrapper" export_canGoToSource :: (Foreign.Ptr.Ptr a -> Data.Word.Word32 -> Data.Int.Int32 -> Foreign.Ptr.Ptr Data.Int.Int32 -> Prelude.IO Data.Int.Int32) -> Prelude.IO (Foreign.Ptr.Ptr ()) foreign import stdcall "wrapper" export_goToSource :: (Foreign.Ptr.Ptr a -> Data.Word.Word32 -> Data.Int.Int32 -> Prelude.IO Data.Int.Int32) -> Prelude.IO (Foreign.Ptr.Ptr ()) foreign import stdcall "wrapper" export_getContextMenu :: (Foreign.Ptr.Ptr a -> Data.Word.Word32 -> Foreign.Ptr.Ptr Com.CLSID -> Foreign.Ptr.Ptr Data.Int.Int32 -> Foreign.Ptr.Ptr (Foreign.Ptr.Ptr (Com.IUnknown a0)) -> Prelude.IO Data.Int.Int32) -> Prelude.IO (Foreign.Ptr.Ptr ()) foreign import stdcall "wrapper" export_queryDragDrop :: (Foreign.Ptr.Ptr a -> Data.Word.Word32 -> Foreign.Ptr.Ptr (Com.IUnknown a0) -> Data.Word.Word32 -> Foreign.Ptr.Ptr Data.Word.Word32 -> Prelude.IO Data.Int.Int32) -> Prelude.IO (Foreign.Ptr.Ptr ()) foreign import stdcall "wrapper" export_canRename :: (Foreign.Ptr.Ptr a -> Data.Word.Word32 -> Foreign.Ptr.Ptr WideString.WideString -> Foreign.Ptr.Ptr Data.Int.Int32 -> Prelude.IO Data.Int.Int32) -> Prelude.IO (Foreign.Ptr.Ptr ()) foreign import stdcall "wrapper" export_doRename :: (Foreign.Ptr.Ptr a -> Data.Word.Word32 -> Foreign.Ptr.Ptr WideString.WideString -> Data.Word.Word32 -> Prelude.IO Data.Int.Int32) -> Prelude.IO (Foreign.Ptr.Ptr ()) foreign import stdcall "wrapper" export_doDelete :: (Foreign.Ptr.Ptr a -> Data.Word.Word32 -> Data.Word.Word32 -> Prelude.IO Data.Int.Int32) -> Prelude.IO (Foreign.Ptr.Ptr ()) foreign import stdcall "wrapper" export_fillDescription :: (Foreign.Ptr.Ptr a -> Data.Word.Word32 -> Data.Word.Word32 -> Foreign.Ptr.Ptr (Com.IUnknown a0) -> Prelude.IO Data.Int.Int32) -> Prelude.IO (Foreign.Ptr.Ptr ()) foreign import stdcall "wrapper" export_enumClipboardFormats :: (Foreign.Ptr.Ptr a -> Data.Word.Word32 -> Data.Word.Word32 -> Data.Word.Word32 -> Foreign.Ptr.Ptr (Foreign.Ptr.Ptr VSOBJCLIPFORMAT) -> Foreign.Ptr.Ptr Data.Word.Word32 -> Prelude.IO Data.Int.Int32) -> Prelude.IO (Foreign.Ptr.Ptr ()) foreign import stdcall "wrapper" export_getClipboardFormat :: (Foreign.Ptr.Ptr a -> Data.Word.Word32 -> Data.Word.Word32 -> Foreign.Ptr.Ptr Wtypes.FORMATETC -> Foreign.Ptr.Ptr Wtypes.STGMEDIUM -> Prelude.IO Data.Int.Int32) -> Prelude.IO (Foreign.Ptr.Ptr ()) foreign import stdcall "wrapper" export_getExtendedClipboardVariant :: (Foreign.Ptr.Ptr a -> Data.Word.Word32 -> Data.Word.Word32 -> Foreign.Ptr.Ptr VSOBJCLIPFORMAT -> Automation.VARIANT -> Prelude.IO Data.Int.Int32) -> Prelude.IO (Foreign.Ptr.Ptr ()) prim_getCapabilities :: (objState -> Prelude.IO LIB_LISTCAPABILITIES0) -> Foreign.Ptr.Ptr (Com.IUnknown ()) -> Foreign.Ptr.Ptr Data.Word.Word32 -> Prelude.IO Data.Int.Int32 prim_getCapabilities getCapabilities_meth iptr out_pCapabilities = Com.returnHR (ComServ.getObjState iptr Prelude.>>= \ obj -> getCapabilities_meth obj Prelude.>>= \ res__pCapabilities -> HDirect.writeWord32 out_pCapabilities res__pCapabilities) prim_getList0 :: (Wtypes.ULONG -> LIB_LISTTYPE -> LIB_LISTFLAGS -> Prelude.Maybe VSOBSEARCHCRITERIA -> objState -> Prelude.IO (IVsObjectList ())) -> Foreign.Ptr.Ptr (Com.IUnknown ()) -> Data.Word.Word32 -> Data.Int.Int32 -> Data.Int.Int32 -> Foreign.Ptr.Ptr VSOBSEARCHCRITERIA -> Foreign.Ptr.Ptr (Foreign.Ptr.Ptr (IVsObjectList ())) -> Prelude.IO Data.Int.Int32 prim_getList0 getList0_meth iptr index0 listType flags pobSrch out_ppList = Com.returnHR (HDirect.readunique readVSOBSEARCHCRITERIA pobSrch Prelude.>>= \ pobSrch -> ComServ.getObjState iptr Prelude.>>= \ obj -> HDirect.unmarshallEnum32 listType Prelude.>>= \ listType -> HDirect.unmarshallEnum32 flags Prelude.>>= \ flags -> getList0_meth index0 listType flags pobSrch obj Prelude.>>= \ res__ppList -> Com.marshallIUnknown res__ppList Prelude.>>= \ res__ppList -> HDirect.writePtr (Foreign.Ptr.castPtr out_ppList) res__ppList) prim_getCategoryField :: (Wtypes.ULONG -> LIB_CATEGORY -> objState -> Prelude.IO Wtypes.DWORD) -> Foreign.Ptr.Ptr (Com.IUnknown ()) -> Data.Word.Word32 -> Data.Int.Int32 -> Foreign.Ptr.Ptr Data.Word.Word32 -> Prelude.IO Data.Int.Int32 prim_getCategoryField getCategoryField_meth iptr index0 category out_pField = Com.returnHR (HDirect.unmarshallEnum32 category Prelude.>>= \ category -> ComServ.getObjState iptr Prelude.>>= \ obj -> getCategoryField_meth index0 category obj Prelude.>>= \ res__pField -> HDirect.writeWord32 out_pField res__pField) prim_getExpandable2 :: (Wtypes.ULONG -> LIB_LISTTYPE -> objState -> Prelude.IO Wtypes.BOOL) -> Foreign.Ptr.Ptr (Com.IUnknown ()) -> Data.Word.Word32 -> Data.Int.Int32 -> Foreign.Ptr.Ptr Data.Int.Int32 -> Prelude.IO Data.Int.Int32 prim_getExpandable2 getExpandable2_meth iptr index0 listTypeExcluded out_pfExpandable = Com.returnHR (ComServ.getObjState iptr Prelude.>>= \ obj -> HDirect.unmarshallEnum32 listTypeExcluded Prelude.>>= \ listTypeExcluded -> getExpandable2_meth index0 listTypeExcluded obj Prelude.>>= \ res__pfExpandable -> HDirect.writeInt32 out_pfExpandable res__pfExpandable) prim_getNavigationInfo :: (Wtypes.ULONG -> VSOBNAVIGATIONINFO2 -> objState -> Prelude.IO VSOBNAVIGATIONINFO2) -> Foreign.Ptr.Ptr (Com.IUnknown ()) -> Data.Word.Word32 -> Foreign.Ptr.Ptr VSOBNAVIGATIONINFO2 -> Prelude.IO Data.Int.Int32 prim_getNavigationInfo getNavigationInfo_meth iptr index0 pobNav = Com.returnHR (readVSOBNAVIGATIONINFO2 Prelude.False pobNav Prelude.>>= \ in__pobNav -> ComServ.getObjState iptr Prelude.>>= \ obj -> getNavigationInfo_meth index0 in__pobNav obj Prelude.>>= \ res__pobNav -> writeVSOBNAVIGATIONINFO2 pobNav res__pobNav) prim_locateNavigationInfo :: (VSOBNAVIGATIONINFO2 -> VSOBNAVNAMEINFONODE -> Wtypes.BOOL -> objState -> Prelude.IO (Wtypes.BOOL, Wtypes.ULONG)) -> Foreign.Ptr.Ptr (Com.IUnknown ()) -> Foreign.Ptr.Ptr VSOBNAVIGATIONINFO2 -> Foreign.Ptr.Ptr VSOBNAVNAMEINFONODE -> Data.Int.Int32 -> Foreign.Ptr.Ptr Data.Int.Int32 -> Foreign.Ptr.Ptr Data.Word.Word32 -> Prelude.IO Data.Int.Int32 prim_locateNavigationInfo locateNavigationInfo_meth iptr pobNav pobName fDontUpdate out_pfMatchedName out_pIndex = Com.returnHR (readVSOBNAVIGATIONINFO2 Prelude.False pobNav Prelude.>>= \ pobNav -> readVSOBNAVNAMEINFONODE pobName Prelude.>>= \ pobName -> ComServ.getObjState iptr Prelude.>>= \ obj -> locateNavigationInfo_meth pobNav pobName fDontUpdate obj Prelude.>>= \ (res__pfMatchedName, res__pIndex) -> HDirect.writeInt32 out_pfMatchedName res__pfMatchedName Prelude.>> HDirect.writeWord32 out_pIndex res__pIndex) prim_getBrowseObject :: (Wtypes.ULONG -> objState -> Prelude.IO (Automation.IDispatch ())) -> Foreign.Ptr.Ptr (Com.IUnknown ()) -> Data.Word.Word32 -> Foreign.Ptr.Ptr (Foreign.Ptr.Ptr (Automation.IDispatch ())) -> Prelude.IO Data.Int.Int32 prim_getBrowseObject getBrowseObject_meth iptr index0 out_ppdispBrowseObj = Com.returnHR (ComServ.getObjState iptr Prelude.>>= \ obj -> getBrowseObject_meth index0 obj Prelude.>>= \ res__ppdispBrowseObj -> Com.marshallIUnknown res__ppdispBrowseObj Prelude.>>= \ res__ppdispBrowseObj -> HDirect.writePtr (Foreign.Ptr.castPtr out_ppdispBrowseObj) res__ppdispBrowseObj) prim_getUserContext :: (Wtypes.ULONG -> objState -> Prelude.IO (Com.IUnknown ())) -> Foreign.Ptr.Ptr (Com.IUnknown ()) -> Data.Word.Word32 -> Foreign.Ptr.Ptr (Foreign.Ptr.Ptr (Com.IUnknown ())) -> Prelude.IO Data.Int.Int32 prim_getUserContext getUserContext_meth iptr index0 out_ppunkUserCtx = Com.returnHR (ComServ.getObjState iptr Prelude.>>= \ obj -> getUserContext_meth index0 obj Prelude.>>= \ res__ppunkUserCtx -> Com.marshallIUnknown res__ppunkUserCtx Prelude.>>= \ res__ppunkUserCtx -> HDirect.writePtr (Foreign.Ptr.castPtr out_ppunkUserCtx) res__ppunkUserCtx) prim_showHelp :: (Wtypes.ULONG -> objState -> Prelude.IO ()) -> Foreign.Ptr.Ptr (Com.IUnknown ()) -> Data.Word.Word32 -> Prelude.IO Data.Int.Int32 prim_showHelp showHelp_meth iptr index0 = Com.returnHR (ComServ.getObjState iptr Prelude.>>= \ obj -> showHelp_meth index0 obj) prim_getSourceContext :: (Wtypes.ULONG -> objState -> Prelude.IO (Prelude.Maybe Wtypes.WCHAR, Wtypes.ULONG)) -> Foreign.Ptr.Ptr (Com.IUnknown ()) -> Data.Word.Word32 -> Foreign.Ptr.Ptr (Foreign.Ptr.Ptr Data.Word.Word16) -> Foreign.Ptr.Ptr Data.Word.Word32 -> Prelude.IO Data.Int.Int32 prim_getSourceContext getSourceContext_meth iptr index0 out_pszFileName out_pulLineNum = Com.returnHR (ComServ.getObjState iptr Prelude.>>= \ obj -> getSourceContext_meth index0 obj Prelude.>>= \ (res__pszFileName, res__pulLineNum) -> HDirect.marshallunique (HDirect.allocBytes (Prelude.fromIntegral HDirect.sizeofWord16)) HDirect.writeWord16 res__pszFileName Prelude.>>= \ res__pszFileName -> HDirect.writePtr (Foreign.Ptr.castPtr out_pszFileName) res__pszFileName Prelude.>> HDirect.writeWord32 out_pulLineNum res__pulLineNum) prim_countSourceItems :: (Wtypes.ULONG -> objState -> Prelude.IO (VsProject.IVsHierarchy (), VsTypes.VSITEMID, Wtypes.ULONG)) -> Foreign.Ptr.Ptr (Com.IUnknown ()) -> Data.Word.Word32 -> Foreign.Ptr.Ptr (Foreign.Ptr.Ptr (VsProject.IVsHierarchy ())) -> Foreign.Ptr.Ptr Data.Word.Word32 -> Foreign.Ptr.Ptr Data.Word.Word32 -> Prelude.IO Data.Int.Int32 prim_countSourceItems countSourceItems_meth iptr index0 out_ppHier out_pitemid out_pcItems = Com.returnHR (ComServ.getObjState iptr Prelude.>>= \ obj -> countSourceItems_meth index0 obj Prelude.>>= \ (res__ppHier, res__pitemid, res__pcItems) -> Com.marshallIUnknown res__ppHier Prelude.>>= \ res__ppHier -> HDirect.writePtr (Foreign.Ptr.castPtr out_ppHier) res__ppHier Prelude.>> HDirect.writeWord32 out_pitemid res__pitemid Prelude.>> HDirect.writeWord32 out_pcItems res__pcItems) prim_getMultipleSourceItems :: (Wtypes.ULONG -> VSGSIFLAGS0 -> Wtypes.ULONG -> objState -> Prelude.IO [VSITEMSELECTION]) -> Foreign.Ptr.Ptr (Com.IUnknown ()) -> Data.Word.Word32 -> Data.Word.Word32 -> Data.Word.Word32 -> Foreign.Ptr.Ptr [VSITEMSELECTION] -> Prelude.IO Data.Int.Int32 prim_getMultipleSourceItems getMultipleSourceItems_meth iptr index0 grfGSI cItems out_rgItemSel = Com.returnHR (ComServ.getObjState iptr Prelude.>>= \ obj -> getMultipleSourceItems_meth index0 grfGSI cItems obj Prelude.>>= \ res__rgItemSel -> HDirect.writelist Prelude.False sizeofVSITEMSELECTION (writeVSITEMSELECTION Prelude.False) out_rgItemSel res__rgItemSel) prim_canGoToSource :: (Wtypes.ULONG -> VSOBJGOTOSRCTYPE -> objState -> Prelude.IO Wtypes.BOOL) -> Foreign.Ptr.Ptr (Com.IUnknown ()) -> Data.Word.Word32 -> Data.Int.Int32 -> Foreign.Ptr.Ptr Data.Int.Int32 -> Prelude.IO Data.Int.Int32 prim_canGoToSource canGoToSource_meth iptr index0 srcType out_pfOK = Com.returnHR (HDirect.unmarshallEnum32 srcType Prelude.>>= \ srcType -> ComServ.getObjState iptr Prelude.>>= \ obj -> canGoToSource_meth index0 srcType obj Prelude.>>= \ res__pfOK -> HDirect.writeInt32 out_pfOK res__pfOK) prim_goToSource :: (Wtypes.ULONG -> VSOBJGOTOSRCTYPE -> objState -> Prelude.IO ()) -> Foreign.Ptr.Ptr (Com.IUnknown ()) -> Data.Word.Word32 -> Data.Int.Int32 -> Prelude.IO Data.Int.Int32 prim_goToSource goToSource_meth iptr index0 srcType = Com.returnHR (HDirect.unmarshallEnum32 srcType Prelude.>>= \ srcType -> ComServ.getObjState iptr Prelude.>>= \ obj -> goToSource_meth index0 srcType obj) prim_getContextMenu :: (Wtypes.ULONG -> objState -> Prelude.IO (Com.CLSID, Wtypes.LONG, DocObjProxy.IOleCommandTarget ())) -> Foreign.Ptr.Ptr (Com.IUnknown ()) -> Data.Word.Word32 -> Foreign.Ptr.Ptr Com.CLSID -> Foreign.Ptr.Ptr Data.Int.Int32 -> Foreign.Ptr.Ptr (Foreign.Ptr.Ptr (Com.IUnknown ())) -> Prelude.IO Data.Int.Int32 prim_getContextMenu getContextMenu_meth iptr index0 out_pclsidActive out_pnMenuId out_ppCmdTrgtActive = Com.returnHR (ComServ.getObjState iptr Prelude.>>= \ obj -> getContextMenu_meth index0 obj Prelude.>>= \ (res__pclsidActive, res__pnMenuId, res__ppCmdTrgtActive) -> Com.marshallGUID (Com.clsidToGUID res__pclsidActive) Prelude.>>= \ res__pclsidActive -> ComPrim.primCopyGUID (Foreign.ForeignPtr.castForeignPtr res__pclsidActive) (Foreign.Ptr.castPtr out_pclsidActive) Prelude.>> HDirect.writeInt32 out_pnMenuId res__pnMenuId Prelude.>> Com.writeIUnknown Prelude.False out_ppCmdTrgtActive res__ppCmdTrgtActive) prim_queryDragDrop :: (Wtypes.ULONG -> Com.IUnknown a0 -> Wtypes.DWORD -> Wtypes.DWORD -> objState -> Prelude.IO Wtypes.DWORD) -> Foreign.Ptr.Ptr (Com.IUnknown ()) -> Data.Word.Word32 -> Foreign.Ptr.Ptr (Com.IUnknown ()) -> Data.Word.Word32 -> Foreign.Ptr.Ptr Data.Word.Word32 -> Prelude.IO Data.Int.Int32 prim_queryDragDrop queryDragDrop_meth iptr index0 pDataObject grfKeyState pdwEffect = Com.returnHR (Com.unmarshallIUnknown Prelude.True pDataObject Prelude.>>= \ pDataObject -> HDirect.readWord32 pdwEffect Prelude.>>= \ in__pdwEffect -> ComServ.getObjState iptr Prelude.>>= \ obj -> queryDragDrop_meth index0 pDataObject grfKeyState in__pdwEffect obj Prelude.>>= \ res__pdwEffect -> HDirect.writeWord32 pdwEffect res__pdwEffect) prim_doDragDrop :: (Wtypes.ULONG -> Com.IUnknown a0 -> Wtypes.DWORD -> Wtypes.DWORD -> objState -> Prelude.IO Wtypes.DWORD) -> Foreign.Ptr.Ptr (Com.IUnknown ()) -> Data.Word.Word32 -> Foreign.Ptr.Ptr (Com.IUnknown ()) -> Data.Word.Word32 -> Foreign.Ptr.Ptr Data.Word.Word32 -> Prelude.IO Data.Int.Int32 prim_doDragDrop doDragDrop_meth iptr index0 pDataObject grfKeyState pdwEffect = Com.returnHR (Com.unmarshallIUnknown Prelude.True pDataObject Prelude.>>= \ pDataObject -> HDirect.readWord32 pdwEffect Prelude.>>= \ in__pdwEffect -> ComServ.getObjState iptr Prelude.>>= \ obj -> doDragDrop_meth index0 pDataObject grfKeyState in__pdwEffect obj Prelude.>>= \ res__pdwEffect -> HDirect.writeWord32 pdwEffect res__pdwEffect) prim_canRename :: (Wtypes.ULONG -> Wtypes.LPCOLESTR -> objState -> Prelude.IO Wtypes.BOOL) -> Foreign.Ptr.Ptr (Com.IUnknown ()) -> Data.Word.Word32 -> Foreign.Ptr.Ptr WideString.WideString -> Foreign.Ptr.Ptr Data.Int.Int32 -> Prelude.IO Data.Int.Int32 prim_canRename canRename_meth iptr index0 pszNewName out_pfOK = Com.returnHR (WideString.unmarshallWideString pszNewName Prelude.>>= \ pszNewName -> ComServ.getObjState iptr Prelude.>>= \ obj -> canRename_meth index0 pszNewName obj Prelude.>>= \ res__pfOK -> HDirect.writeInt32 out_pfOK res__pfOK) prim_doRename :: (Wtypes.ULONG -> Wtypes.LPCOLESTR -> VSOBJOPFLAGS0 -> objState -> Prelude.IO ()) -> Foreign.Ptr.Ptr (Com.IUnknown ()) -> Data.Word.Word32 -> Foreign.Ptr.Ptr WideString.WideString -> Data.Word.Word32 -> Prelude.IO Data.Int.Int32 prim_doRename doRename_meth iptr index0 pszNewName grfFlags = Com.returnHR (WideString.unmarshallWideString pszNewName Prelude.>>= \ pszNewName -> ComServ.getObjState iptr Prelude.>>= \ obj -> doRename_meth index0 pszNewName grfFlags obj) prim_canDelete :: (Wtypes.ULONG -> objState -> Prelude.IO Wtypes.BOOL) -> Foreign.Ptr.Ptr (Com.IUnknown ()) -> Data.Word.Word32 -> Foreign.Ptr.Ptr Data.Int.Int32 -> Prelude.IO Data.Int.Int32 prim_canDelete canDelete_meth iptr index0 out_pfOK = Com.returnHR (ComServ.getObjState iptr Prelude.>>= \ obj -> canDelete_meth index0 obj Prelude.>>= \ res__pfOK -> HDirect.writeInt32 out_pfOK res__pfOK) prim_doDelete :: (Wtypes.ULONG -> VSOBJOPFLAGS0 -> objState -> Prelude.IO ()) -> Foreign.Ptr.Ptr (Com.IUnknown ()) -> Data.Word.Word32 -> Data.Word.Word32 -> Prelude.IO Data.Int.Int32 prim_doDelete doDelete_meth iptr index0 grfFlags = Com.returnHR (ComServ.getObjState iptr Prelude.>>= \ obj -> doDelete_meth index0 grfFlags obj) prim_fillDescription :: (Wtypes.ULONG -> VSOBJDESCOPTIONS0 -> Com.IUnknown a0 -> objState -> Prelude.IO ()) -> Foreign.Ptr.Ptr (Com.IUnknown ()) -> Data.Word.Word32 -> Data.Word.Word32 -> Foreign.Ptr.Ptr (Com.IUnknown ()) -> Prelude.IO Data.Int.Int32 prim_fillDescription fillDescription_meth iptr index0 grfOptions0 pobDesc = Com.returnHR (Com.unmarshallIUnknown Prelude.True pobDesc Prelude.>>= \ pobDesc -> ComServ.getObjState iptr Prelude.>>= \ obj -> fillDescription_meth index0 grfOptions0 pobDesc obj) prim_enumClipboardFormats :: (Wtypes.ULONG -> VSOBJCFFLAGS0 -> [VSOBJCLIPFORMAT] -> objState -> Prelude.IO ([VSOBJCLIPFORMAT], Wtypes.ULONG)) -> Foreign.Ptr.Ptr (Com.IUnknown ()) -> Data.Word.Word32 -> Data.Word.Word32 -> Data.Word.Word32 -> Foreign.Ptr.Ptr (Foreign.Ptr.Ptr VSOBJCLIPFORMAT) -> Foreign.Ptr.Ptr Data.Word.Word32 -> Prelude.IO Data.Int.Int32 prim_enumClipboardFormats enumClipboardFormats_meth iptr index0 grfFlags celt rgcfFormats out_pcActual = Com.returnHR (HDirect.unmarshallWord32 celt Prelude.>>= \ celt -> HDirect.unmarshalllist sizeofVSOBJCLIPFORMAT 0 celt readVSOBJCLIPFORMAT rgcfFormats Prelude.>>= \ in__rgcfFormats -> ComServ.getObjState iptr Prelude.>>= \ obj -> enumClipboardFormats_meth index0 grfFlags in__rgcfFormats obj Prelude.>>= \ (res__rgcfFormats, res__pcActual) -> HDirect.writeWord32 out_pcActual res__pcActual) prim_getClipboardFormat :: (Wtypes.ULONG -> VSOBJCFFLAGS0 -> Wtypes.FORMATETC -> Wtypes.STGMEDIUM -> objState -> Prelude.IO ()) -> Foreign.Ptr.Ptr (Com.IUnknown ()) -> Data.Word.Word32 -> Data.Word.Word32 -> Foreign.Ptr.Ptr Wtypes.FORMATETC -> Foreign.Ptr.Ptr Wtypes.STGMEDIUM -> Prelude.IO Data.Int.Int32 prim_getClipboardFormat getClipboardFormat_meth iptr index0 grfFlags pFormatetc pMedium = Com.returnHR (Wtypes.readFORMATETC pFormatetc Prelude.>>= \ pFormatetc -> Wtypes.readSTGMEDIUM pMedium Prelude.>>= \ pMedium -> ComServ.getObjState iptr Prelude.>>= \ obj -> getClipboardFormat_meth index0 grfFlags pFormatetc pMedium obj) prim_getExtendedClipboardVariant :: (Wtypes.ULONG -> VSOBJCFFLAGS0 -> VSOBJCLIPFORMAT -> objState -> Prelude.IO Automation.VARIANT) -> Foreign.Ptr.Ptr (Com.IUnknown ()) -> Data.Word.Word32 -> Data.Word.Word32 -> Foreign.Ptr.Ptr VSOBJCLIPFORMAT -> Automation.VARIANT -> Prelude.IO Data.Int.Int32 prim_getExtendedClipboardVariant getExtendedClipboardVariant_meth iptr index0 grfFlags pcfFormat out_pvarFormat = Com.returnHR (readVSOBJCLIPFORMAT pcfFormat Prelude.>>= \ pcfFormat -> ComServ.getObjState iptr Prelude.>>= \ obj -> getExtendedClipboardVariant_meth index0 grfFlags pcfFormat obj Prelude.>>= \ res__pvarFormat -> Automation.marshallVARIANT res__pvarFormat Prelude.>>= \ res__pvarFormat -> HDirect.writePtr (Foreign.Ptr.castPtr out_pvarFormat) res__pvarFormat) -- -------------------------------------------------- -- -- interface IVsObjectManager -- -- -------------------------------------------------- mkIVsObjectManager_vtbl :: (Wtypes.REFGUID -> IVsLibraryMgr a0 -> objState -> Prelude.IO VsTypes.VSCOOKIE) -> (VsTypes.VSCOOKIE -> objState -> Prelude.IO ()) -> (objState -> Prelude.IO (Wtypes.ULONG, IVsLibraryMgr ())) -> (objState -> Prelude.IO ()) -> (LIB_LISTTYPE -> LIB_LISTFLAGS -> IVsLibraryMgr a0 -> VSOBSEARCHCRITERIA -> objState -> Prelude.IO (IVsObjectList ())) -> Prelude.IO (ComServ.ComVTable (IVsObjectManager ()) objState) mkIVsObjectManager_vtbl registerLibMgr unregisterLibMgr enumLibMgrs refreshLists getList1 = do meth_arg0 <- export_registerLibMgr (prim_registerLibMgr registerLibMgr) meth_arg1 <- export_toggleCheckAt (prim_unregisterLibMgr unregisterLibMgr) meth_arg2 <- export_enumLibMgrs (prim_enumLibMgrs enumLibMgrs) meth_arg3 <- export_refreshLists (prim_refreshLists refreshLists) meth_arg4 <- export_getList1 (prim_getList1 getList1) ComServ.createComVTable [ meth_arg0 , meth_arg1 , meth_arg2 , meth_arg3 , meth_arg4 ] foreign import stdcall "wrapper" export_registerLibMgr :: (Foreign.Ptr.Ptr a -> Foreign.Ptr.Ptr Com.GUID -> Foreign.Ptr.Ptr (IVsLibraryMgr a0) -> Foreign.Ptr.Ptr Data.Word.Word32 -> Prelude.IO Data.Int.Int32) -> Prelude.IO (Foreign.Ptr.Ptr ()) foreign import stdcall "wrapper" export_enumLibMgrs :: (Foreign.Ptr.Ptr a -> Foreign.Ptr.Ptr Data.Word.Word32 -> Foreign.Ptr.Ptr (Foreign.Ptr.Ptr (IVsLibraryMgr a0)) -> Prelude.IO Data.Int.Int32) -> Prelude.IO (Foreign.Ptr.Ptr ()) foreign import stdcall "wrapper" export_refreshLists :: (Foreign.Ptr.Ptr a -> Prelude.IO Data.Int.Int32) -> Prelude.IO (Foreign.Ptr.Ptr ()) foreign import stdcall "wrapper" export_getList1 :: (Foreign.Ptr.Ptr a -> Data.Int.Int32 -> Data.Int.Int32 -> Foreign.Ptr.Ptr (IVsLibraryMgr a0) -> Foreign.Ptr.Ptr VSOBSEARCHCRITERIA -> Foreign.Ptr.Ptr (Foreign.Ptr.Ptr (IVsObjectList a1)) -> Prelude.IO Data.Int.Int32) -> Prelude.IO (Foreign.Ptr.Ptr ()) prim_registerLibMgr :: (Wtypes.REFGUID -> IVsLibraryMgr a0 -> objState -> Prelude.IO VsTypes.VSCOOKIE) -> Foreign.Ptr.Ptr (Com.IUnknown ()) -> Foreign.Ptr.Ptr Com.GUID -> Foreign.Ptr.Ptr (IVsLibraryMgr ()) -> Foreign.Ptr.Ptr Data.Word.Word32 -> Prelude.IO Data.Int.Int32 prim_registerLibMgr registerLibMgr_meth iptr rguidLibMgr pLibMgr out_pdwCookie = Com.returnHR (Com.unmarshallGUID Prelude.False rguidLibMgr Prelude.>>= \ rguidLibMgr -> Com.unmarshallIUnknown Prelude.True pLibMgr Prelude.>>= \ pLibMgr -> ComServ.getObjState iptr Prelude.>>= \ obj -> registerLibMgr_meth rguidLibMgr pLibMgr obj Prelude.>>= \ res__pdwCookie -> HDirect.writeWord32 out_pdwCookie res__pdwCookie) prim_unregisterLibMgr :: (VsTypes.VSCOOKIE -> objState -> Prelude.IO ()) -> Foreign.Ptr.Ptr (Com.IUnknown ()) -> Data.Word.Word32 -> Prelude.IO Data.Int.Int32 prim_unregisterLibMgr unregisterLibMgr_meth iptr dwCookie = Com.returnHR (ComServ.getObjState iptr Prelude.>>= \ obj -> unregisterLibMgr_meth dwCookie obj) prim_enumLibMgrs :: (objState -> Prelude.IO (Wtypes.ULONG, IVsLibraryMgr ())) -> Foreign.Ptr.Ptr (Com.IUnknown ()) -> Foreign.Ptr.Ptr Data.Word.Word32 -> Foreign.Ptr.Ptr (Foreign.Ptr.Ptr (IVsLibraryMgr ())) -> Prelude.IO Data.Int.Int32 prim_enumLibMgrs enumLibMgrs_meth iptr out_pCount out_rgpLibMgrs = Com.returnHR (ComServ.getObjState iptr Prelude.>>= \ obj -> enumLibMgrs_meth obj Prelude.>>= \ (res__pCount, res__rgpLibMgrs) -> Com.marshallIUnknown res__rgpLibMgrs Prelude.>>= \ res__rgpLibMgrs -> HDirect.writeWord32 out_pCount res__pCount Prelude.>> HDirect.writePtr (Foreign.Ptr.castPtr out_rgpLibMgrs) res__rgpLibMgrs) prim_refreshLists :: (objState -> Prelude.IO ()) -> Foreign.Ptr.Ptr (Com.IUnknown ()) -> Prelude.IO Data.Int.Int32 prim_refreshLists refreshLists_meth iptr = Com.returnHR (ComServ.getObjState iptr Prelude.>>= \ obj -> refreshLists_meth obj) prim_getList1 :: (LIB_LISTTYPE -> LIB_LISTFLAGS -> IVsLibraryMgr a0 -> VSOBSEARCHCRITERIA -> objState -> Prelude.IO (IVsObjectList ())) -> Foreign.Ptr.Ptr (Com.IUnknown ()) -> Data.Int.Int32 -> Data.Int.Int32 -> Foreign.Ptr.Ptr (IVsLibraryMgr ()) -> Foreign.Ptr.Ptr VSOBSEARCHCRITERIA -> Foreign.Ptr.Ptr (Foreign.Ptr.Ptr (IVsObjectList ())) -> Prelude.IO Data.Int.Int32 prim_getList1 getList1_meth iptr listType flags pLibMgr pobSrch out_ppList = Com.returnHR (Com.unmarshallIUnknown Prelude.True pLibMgr Prelude.>>= \ pLibMgr -> readVSOBSEARCHCRITERIA pobSrch Prelude.>>= \ pobSrch -> ComServ.getObjState iptr Prelude.>>= \ obj -> HDirect.unmarshallEnum32 listType Prelude.>>= \ listType -> HDirect.unmarshallEnum32 flags Prelude.>>= \ flags -> getList1_meth listType flags pLibMgr pobSrch obj Prelude.>>= \ res__ppList -> Com.marshallIUnknown res__ppList Prelude.>>= \ res__ppList -> HDirect.writePtr (Foreign.Ptr.castPtr out_ppList) res__ppList)