-- Automatically generated by HaskellDirect (ihc.exe), snapshot 150305 -- Created: 15:12 GMT Standard Time, Wednesday 23 March, 2005 -- Command line: HaskellProject.idl -s module HaskellProjectProxy ( libidHaskellProject , License(..) , IProjectGeneralSettings , IProjectGeneralSettings_ , iidIProjectGeneralSettings , mkIProjectGeneralSettings_vtbl , IProjectCCSettings , IProjectCCSettings_ , iidIProjectCCSettings , mkIProjectCCSettings_vtbl , IProjectHCSettings , IProjectHCSettings_ , iidIProjectHCSettings , mkIProjectHCSettings_vtbl , IProjectLDSettings , IProjectLDSettings_ , iidIProjectLDSettings , mkIProjectLDSettings_vtbl , IHaskellFileItem , IHaskellFileItem_ , iidIHaskellFileItem , mkIHaskellFileItem_vtbl , IHaskellFolderItem , IHaskellFolderItem_ , iidIHaskellFolderItem , mkIHaskellFolderItem_vtbl , YesNo(..) , IHaskellModuleItem , IHaskellModuleItem_ , iidIHaskellModuleItem , mkIHaskellModuleItem_vtbl , IHaskellPackageItem , IHaskellPackageItem_ , iidIHaskellPackageItem , mkIHaskellPackageItem_vtbl ) where import Prelude (fromEnum, toEnum) import qualified Prelude import qualified Automation (IDispatch) import qualified Com (LIBID, mkLIBID, IID, mkIID, IUnknown, marshallBSTR, returnHR, unmarshallBSTR) import qualified ComServ (ComVTable, createDualVTable, getObjState) import qualified Data.Bits ((.&.)) import qualified Data.Int (Int32) import qualified Data.Maybe (mapMaybe) import qualified Foreign.Ptr (Ptr, castPtr) import qualified HDirect (Flags(..), pow2Series, orList, writePtr, marshallEnum32, writeInt32, unmarshallEnum32) libidHaskellProject :: Com.LIBID libidHaskellProject = Com.mkLIBID "{A40C6F0F-FAE0-4042-B0AC-B53BB38228E1}" data License = GPL | LGPL | BSD3 | BSD4 | PublicDomain | AllRightsReserved | OtherLicense deriving (Prelude.Enum) -- -------------------------------------------------- -- -- interface IProjectGeneralSettings -- -- -------------------------------------------------- data IProjectGeneralSettings_ a = IProjectGeneralSettings__ type IProjectGeneralSettings a = Automation.IDispatch (IProjectGeneralSettings_ a) iidIProjectGeneralSettings :: Com.IID (IProjectGeneralSettings ()) iidIProjectGeneralSettings = Com.mkIID "{6F53E507-13B5-459c-8302-CCA1C2A32F16}" mkIProjectGeneralSettings_vtbl :: (objState -> Prelude.IO Prelude.String) -> (Prelude.String -> objState -> Prelude.IO ()) -> (objState -> Prelude.IO Prelude.String) -> (Prelude.String -> objState -> Prelude.IO ()) -> (objState -> Prelude.IO License) -> (License -> objState -> Prelude.IO ()) -> (objState -> Prelude.IO Prelude.String) -> (Prelude.String -> objState -> Prelude.IO ()) -> (objState -> Prelude.IO Prelude.String) -> (Prelude.String -> objState -> Prelude.IO ()) -> (objState -> Prelude.IO Prelude.String) -> (Prelude.String -> objState -> Prelude.IO ()) -> (objState -> Prelude.IO Prelude.String) -> (Prelude.String -> objState -> Prelude.IO ()) -> (objState -> Prelude.IO Prelude.String) -> (Prelude.String -> objState -> Prelude.IO ()) -> (objState -> Prelude.IO Prelude.String) -> (Prelude.String -> objState -> Prelude.IO ()) -> (objState -> Prelude.IO Prelude.String) -> (Prelude.String -> objState -> Prelude.IO ()) -> (objState -> Prelude.IO Prelude.String) -> (Prelude.String -> objState -> Prelude.IO ()) -> (objState -> Prelude.IO Prelude.String) -> (Prelude.String -> objState -> Prelude.IO ()) -> (objState -> Prelude.IO Prelude.String) -> (Prelude.String -> objState -> Prelude.IO ()) -> (objState -> Prelude.IO Prelude.String) -> Prelude.IO (ComServ.ComVTable (IProjectGeneralSettings ()) objState) mkIProjectGeneralSettings_vtbl getName setName getVersion setVersion getLicense setLicense getCopyright setCopyright getMaintainer setMaintainer getAuthor setAuthor getStability setStability getHomePage setHomePage getPackageUrl setPackageUrl getSynopsis setSynopsis getDescription setDescription getCategory setCategory getTestedWith setTestedWith getProjectPath = do meth_arg0 <- export_getName (prim_getName getName) meth_arg1 <- export_getName (prim_setName setName) meth_arg2 <- export_getName (prim_getVersion getVersion) meth_arg3 <- export_getName (prim_setVersion setVersion) meth_arg4 <- export_getLicense (prim_getLicense getLicense) meth_arg5 <- export_setLicense (prim_setLicense setLicense) meth_arg6 <- export_getName (prim_getCopyright getCopyright) meth_arg7 <- export_getName (prim_setCopyright setCopyright) meth_arg8 <- export_getName (prim_getMaintainer getMaintainer) meth_arg9 <- export_getName (prim_setMaintainer setMaintainer) meth_arg10 <- export_getName (prim_getAuthor getAuthor) meth_arg11 <- export_getName (prim_setAuthor setAuthor) meth_arg12 <- export_getName (prim_getStability getStability) meth_arg13 <- export_getName (prim_setStability setStability) meth_arg14 <- export_getName (prim_getHomePage getHomePage) meth_arg15 <- export_getName (prim_setHomePage setHomePage) meth_arg16 <- export_getName (prim_getPackageUrl getPackageUrl) meth_arg17 <- export_getName (prim_setPackageUrl setPackageUrl) meth_arg18 <- export_getName (prim_getSynopsis getSynopsis) meth_arg19 <- export_getName (prim_setSynopsis setSynopsis) meth_arg20 <- export_getName (prim_getDescription getDescription) meth_arg21 <- export_getName (prim_setDescription setDescription) meth_arg22 <- export_getName (prim_getCategory getCategory) meth_arg23 <- export_getName (prim_setCategory setCategory) meth_arg24 <- export_getName (prim_getTestedWith getTestedWith) meth_arg25 <- export_getName (prim_setTestedWith setTestedWith) meth_arg26 <- export_getName (prim_getProjectPath getProjectPath) ComServ.createDualVTable (Prelude.Left libidHaskellProject) iidIProjectGeneralSettings [ 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 ] foreign import stdcall "wrapper" export_getName :: (Foreign.Ptr.Ptr a -> Foreign.Ptr.Ptr Prelude.String -> Prelude.IO Data.Int.Int32) -> Prelude.IO (Foreign.Ptr.Ptr ()) foreign import stdcall "wrapper" export_getLicense :: (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_setLicense :: (Foreign.Ptr.Ptr a -> Data.Int.Int32 -> Prelude.IO Data.Int.Int32) -> Prelude.IO (Foreign.Ptr.Ptr ()) -- Specify the name of the Cabal file that contains the information for the selected project. prim_getProjectPath :: (objState -> Prelude.IO Prelude.String) -> Foreign.Ptr.Ptr (Com.IUnknown ()) -> Foreign.Ptr.Ptr Prelude.String -> Prelude.IO Data.Int.Int32 prim_getProjectPath getProjectPath_meth iptr out_pValue = Com.returnHR (ComServ.getObjState iptr Prelude.>>= \ obj -> getProjectPath_meth obj Prelude.>>= \ res__pValue -> Com.marshallBSTR res__pValue Prelude.>>= \ res__pValue -> HDirect.writePtr (Foreign.Ptr.castPtr out_pValue) res__pValue) -- Specify the name of the Cabal file that contains the information for the selected project. prim_setProjectPath :: (Prelude.String -> objState -> Prelude.IO ()) -> Foreign.Ptr.Ptr (Com.IUnknown ()) -> Foreign.Ptr.Ptr Prelude.String -> Prelude.IO Data.Int.Int32 prim_setProjectPath setProjectPath_meth iptr value = Com.returnHR (Com.unmarshallBSTR value Prelude.>>= \ value -> ComServ.getObjState iptr Prelude.>>= \ obj -> setProjectPath_meth value obj) -- Specifies the package name. prim_getName :: (objState -> Prelude.IO Prelude.String) -> Foreign.Ptr.Ptr (Com.IUnknown ()) -> Foreign.Ptr.Ptr Prelude.String -> Prelude.IO Data.Int.Int32 prim_getName getName_meth iptr out_pValue = Com.returnHR (ComServ.getObjState iptr Prelude.>>= \ obj -> getName_meth obj Prelude.>>= \ res__pValue -> Com.marshallBSTR res__pValue Prelude.>>= \ res__pValue -> HDirect.writePtr (Foreign.Ptr.castPtr out_pValue) res__pValue) -- Specifies the package name. prim_setName :: (Prelude.String -> objState -> Prelude.IO ()) -> Foreign.Ptr.Ptr (Com.IUnknown ()) -> Foreign.Ptr.Ptr Prelude.String -> Prelude.IO Data.Int.Int32 prim_setName setName_meth iptr value = Com.returnHR (Com.unmarshallBSTR value Prelude.>>= \ value -> ComServ.getObjState iptr Prelude.>>= \ obj -> setName_meth value obj) -- Specifies the package version. prim_getVersion :: (objState -> Prelude.IO Prelude.String) -> Foreign.Ptr.Ptr (Com.IUnknown ()) -> Foreign.Ptr.Ptr Prelude.String -> Prelude.IO Data.Int.Int32 prim_getVersion getVersion_meth iptr out_pValue = Com.returnHR (ComServ.getObjState iptr Prelude.>>= \ obj -> getVersion_meth obj Prelude.>>= \ res__pValue -> Com.marshallBSTR res__pValue Prelude.>>= \ res__pValue -> HDirect.writePtr (Foreign.Ptr.castPtr out_pValue) res__pValue) -- Specifies the package version. prim_setVersion :: (Prelude.String -> objState -> Prelude.IO ()) -> Foreign.Ptr.Ptr (Com.IUnknown ()) -> Foreign.Ptr.Ptr Prelude.String -> Prelude.IO Data.Int.Int32 prim_setVersion setVersion_meth iptr value = Com.returnHR (Com.unmarshallBSTR value Prelude.>>= \ value -> ComServ.getObjState iptr Prelude.>>= \ obj -> setVersion_meth value obj) -- The type of license under which this package is distributed. prim_getLicense :: (objState -> Prelude.IO License) -> Foreign.Ptr.Ptr (Com.IUnknown ()) -> Foreign.Ptr.Ptr Data.Int.Int32 -> Prelude.IO Data.Int.Int32 prim_getLicense getLicense_meth iptr out_pValue = Com.returnHR (ComServ.getObjState iptr Prelude.>>= \ obj -> getLicense_meth obj Prelude.>>= \ res__pValue -> HDirect.marshallEnum32 res__pValue Prelude.>>= \ res__pValue -> HDirect.writeInt32 out_pValue res__pValue) -- The type of license under which this package is distributed. prim_setLicense :: (License -> objState -> Prelude.IO ()) -> Foreign.Ptr.Ptr (Com.IUnknown ()) -> Data.Int.Int32 -> Prelude.IO Data.Int.Int32 prim_setLicense setLicense_meth iptr value = Com.returnHR (HDirect.unmarshallEnum32 value Prelude.>>= \ value -> ComServ.getObjState iptr Prelude.>>= \ obj -> setLicense_meth value obj) -- The content of a copyright notice, typically the name of the holder of the copyright on the package and the year(s) from which copyright is claimed. prim_getCopyright :: (objState -> Prelude.IO Prelude.String) -> Foreign.Ptr.Ptr (Com.IUnknown ()) -> Foreign.Ptr.Ptr Prelude.String -> Prelude.IO Data.Int.Int32 prim_getCopyright getCopyright_meth iptr out_pValue = Com.returnHR (ComServ.getObjState iptr Prelude.>>= \ obj -> getCopyright_meth obj Prelude.>>= \ res__pValue -> Com.marshallBSTR res__pValue Prelude.>>= \ res__pValue -> HDirect.writePtr (Foreign.Ptr.castPtr out_pValue) res__pValue) -- The content of a copyright notice, typically the name of the holder of the copyright on the package and the year(s) from which copyright is claimed. prim_setCopyright :: (Prelude.String -> objState -> Prelude.IO ()) -> Foreign.Ptr.Ptr (Com.IUnknown ()) -> Foreign.Ptr.Ptr Prelude.String -> Prelude.IO Data.Int.Int32 prim_setCopyright setCopyright_meth iptr value = Com.returnHR (Com.unmarshallBSTR value Prelude.>>= \ value -> ComServ.getObjState iptr Prelude.>>= \ obj -> setCopyright_meth value obj) -- The current maintainer or maintainers of the package. This is an e-mail address to which users should send bug reports, feature requests and patches. prim_getMaintainer :: (objState -> Prelude.IO Prelude.String) -> Foreign.Ptr.Ptr (Com.IUnknown ()) -> Foreign.Ptr.Ptr Prelude.String -> Prelude.IO Data.Int.Int32 prim_getMaintainer getMaintainer_meth iptr out_pValue = Com.returnHR (ComServ.getObjState iptr Prelude.>>= \ obj -> getMaintainer_meth obj Prelude.>>= \ res__pValue -> Com.marshallBSTR res__pValue Prelude.>>= \ res__pValue -> HDirect.writePtr (Foreign.Ptr.castPtr out_pValue) res__pValue) -- The current maintainer or maintainers of the package. This is an e-mail address to which users should send bug reports, feature requests and patches. prim_setMaintainer :: (Prelude.String -> objState -> Prelude.IO ()) -> Foreign.Ptr.Ptr (Com.IUnknown ()) -> Foreign.Ptr.Ptr Prelude.String -> Prelude.IO Data.Int.Int32 prim_setMaintainer setMaintainer_meth iptr value = Com.returnHR (Com.unmarshallBSTR value Prelude.>>= \ value -> ComServ.getObjState iptr Prelude.>>= \ obj -> setMaintainer_meth value obj) -- The original author of the package. prim_getAuthor :: (objState -> Prelude.IO Prelude.String) -> Foreign.Ptr.Ptr (Com.IUnknown ()) -> Foreign.Ptr.Ptr Prelude.String -> Prelude.IO Data.Int.Int32 prim_getAuthor getAuthor_meth iptr out_pValue = Com.returnHR (ComServ.getObjState iptr Prelude.>>= \ obj -> getAuthor_meth obj Prelude.>>= \ res__pValue -> Com.marshallBSTR res__pValue Prelude.>>= \ res__pValue -> HDirect.writePtr (Foreign.Ptr.castPtr out_pValue) res__pValue) -- The original author of the package. prim_setAuthor :: (Prelude.String -> objState -> Prelude.IO ()) -> Foreign.Ptr.Ptr (Com.IUnknown ()) -> Foreign.Ptr.Ptr Prelude.String -> Prelude.IO Data.Int.Int32 prim_setAuthor setAuthor_meth iptr value = Com.returnHR (Com.unmarshallBSTR value Prelude.>>= \ value -> ComServ.getObjState iptr Prelude.>>= \ obj -> setAuthor_meth value obj) -- The stability level of the package, e.g. alpha, experimental, provisional, stable. prim_getStability :: (objState -> Prelude.IO Prelude.String) -> Foreign.Ptr.Ptr (Com.IUnknown ()) -> Foreign.Ptr.Ptr Prelude.String -> Prelude.IO Data.Int.Int32 prim_getStability getStability_meth iptr out_pValue = Com.returnHR (ComServ.getObjState iptr Prelude.>>= \ obj -> getStability_meth obj Prelude.>>= \ res__pValue -> Com.marshallBSTR res__pValue Prelude.>>= \ res__pValue -> HDirect.writePtr (Foreign.Ptr.castPtr out_pValue) res__pValue) -- The stability level of the package, e.g. alpha, experimental, provisional, stable. prim_setStability :: (Prelude.String -> objState -> Prelude.IO ()) -> Foreign.Ptr.Ptr (Com.IUnknown ()) -> Foreign.Ptr.Ptr Prelude.String -> Prelude.IO Data.Int.Int32 prim_setStability setStability_meth iptr value = Com.returnHR (Com.unmarshallBSTR value Prelude.>>= \ value -> ComServ.getObjState iptr Prelude.>>= \ obj -> setStability_meth value obj) -- The package homepage. prim_getHomePage :: (objState -> Prelude.IO Prelude.String) -> Foreign.Ptr.Ptr (Com.IUnknown ()) -> Foreign.Ptr.Ptr Prelude.String -> Prelude.IO Data.Int.Int32 prim_getHomePage getHomePage_meth iptr out_pValue = Com.returnHR (ComServ.getObjState iptr Prelude.>>= \ obj -> getHomePage_meth obj Prelude.>>= \ res__pValue -> Com.marshallBSTR res__pValue Prelude.>>= \ res__pValue -> HDirect.writePtr (Foreign.Ptr.castPtr out_pValue) res__pValue) -- The package homepage. prim_setHomePage :: (Prelude.String -> objState -> Prelude.IO ()) -> Foreign.Ptr.Ptr (Com.IUnknown ()) -> Foreign.Ptr.Ptr Prelude.String -> Prelude.IO Data.Int.Int32 prim_setHomePage setHomePage_meth iptr value = Com.returnHR (Com.unmarshallBSTR value Prelude.>>= \ value -> ComServ.getObjState iptr Prelude.>>= \ obj -> setHomePage_meth value obj) -- The location of a source bundle for the package. The distribution should be a Cabal package. prim_getPackageUrl :: (objState -> Prelude.IO Prelude.String) -> Foreign.Ptr.Ptr (Com.IUnknown ()) -> Foreign.Ptr.Ptr Prelude.String -> Prelude.IO Data.Int.Int32 prim_getPackageUrl getPackageUrl_meth iptr out_pValue = Com.returnHR (ComServ.getObjState iptr Prelude.>>= \ obj -> getPackageUrl_meth obj Prelude.>>= \ res__pValue -> Com.marshallBSTR res__pValue Prelude.>>= \ res__pValue -> HDirect.writePtr (Foreign.Ptr.castPtr out_pValue) res__pValue) -- The location of a source bundle for the package. The distribution should be a Cabal package. prim_setPackageUrl :: (Prelude.String -> objState -> Prelude.IO ()) -> Foreign.Ptr.Ptr (Com.IUnknown ()) -> Foreign.Ptr.Ptr Prelude.String -> Prelude.IO Data.Int.Int32 prim_setPackageUrl setPackageUrl_meth iptr value = Com.returnHR (Com.unmarshallBSTR value Prelude.>>= \ value -> ComServ.getObjState iptr Prelude.>>= \ obj -> setPackageUrl_meth value obj) -- A very short description of the package, for use in a table of packages. prim_getSynopsis :: (objState -> Prelude.IO Prelude.String) -> Foreign.Ptr.Ptr (Com.IUnknown ()) -> Foreign.Ptr.Ptr Prelude.String -> Prelude.IO Data.Int.Int32 prim_getSynopsis getSynopsis_meth iptr out_pValue = Com.returnHR (ComServ.getObjState iptr Prelude.>>= \ obj -> getSynopsis_meth obj Prelude.>>= \ res__pValue -> Com.marshallBSTR res__pValue Prelude.>>= \ res__pValue -> HDirect.writePtr (Foreign.Ptr.castPtr out_pValue) res__pValue) -- A very short description of the package, for use in a table of packages. prim_setSynopsis :: (Prelude.String -> objState -> Prelude.IO ()) -> Foreign.Ptr.Ptr (Com.IUnknown ()) -> Foreign.Ptr.Ptr Prelude.String -> Prelude.IO Data.Int.Int32 prim_setSynopsis setSynopsis_meth iptr value = Com.returnHR (Com.unmarshallBSTR value Prelude.>>= \ value -> ComServ.getObjState iptr Prelude.>>= \ obj -> setSynopsis_meth value obj) -- Description of the package. prim_getDescription :: (objState -> Prelude.IO Prelude.String) -> Foreign.Ptr.Ptr (Com.IUnknown ()) -> Foreign.Ptr.Ptr Prelude.String -> Prelude.IO Data.Int.Int32 prim_getDescription getDescription_meth iptr out_pValue = Com.returnHR (ComServ.getObjState iptr Prelude.>>= \ obj -> getDescription_meth obj Prelude.>>= \ res__pValue -> Com.marshallBSTR res__pValue Prelude.>>= \ res__pValue -> HDirect.writePtr (Foreign.Ptr.castPtr out_pValue) res__pValue) -- Description of the package. prim_setDescription :: (Prelude.String -> objState -> Prelude.IO ()) -> Foreign.Ptr.Ptr (Com.IUnknown ()) -> Foreign.Ptr.Ptr Prelude.String -> Prelude.IO Data.Int.Int32 prim_setDescription setDescription_meth iptr value = Com.returnHR (Com.unmarshallBSTR value Prelude.>>= \ value -> ComServ.getObjState iptr Prelude.>>= \ obj -> setDescription_meth value obj) -- A classification category for future use by the package catalogue Hackage. prim_getCategory :: (objState -> Prelude.IO Prelude.String) -> Foreign.Ptr.Ptr (Com.IUnknown ()) -> Foreign.Ptr.Ptr Prelude.String -> Prelude.IO Data.Int.Int32 prim_getCategory getCategory_meth iptr out_pValue = Com.returnHR (ComServ.getObjState iptr Prelude.>>= \ obj -> getCategory_meth obj Prelude.>>= \ res__pValue -> Com.marshallBSTR res__pValue Prelude.>>= \ res__pValue -> HDirect.writePtr (Foreign.Ptr.castPtr out_pValue) res__pValue) -- A classification category for future use by the package catalogue Hackage. prim_setCategory :: (Prelude.String -> objState -> Prelude.IO ()) -> Foreign.Ptr.Ptr (Com.IUnknown ()) -> Foreign.Ptr.Ptr Prelude.String -> Prelude.IO Data.Int.Int32 prim_setCategory setCategory_meth iptr value = Com.returnHR (Com.unmarshallBSTR value Prelude.>>= \ value -> ComServ.getObjState iptr Prelude.>>= \ obj -> setCategory_meth value obj) -- A classification category for future use by the package catalogue Hackage. prim_getTestedWith :: (objState -> Prelude.IO Prelude.String) -> Foreign.Ptr.Ptr (Com.IUnknown ()) -> Foreign.Ptr.Ptr Prelude.String -> Prelude.IO Data.Int.Int32 prim_getTestedWith getTestedWith_meth iptr out_pValue = Com.returnHR (ComServ.getObjState iptr Prelude.>>= \ obj -> getTestedWith_meth obj Prelude.>>= \ res__pValue -> Com.marshallBSTR res__pValue Prelude.>>= \ res__pValue -> HDirect.writePtr (Foreign.Ptr.castPtr out_pValue) res__pValue) -- A classification category for future use by the package catalogue Hackage. prim_setTestedWith :: (Prelude.String -> objState -> Prelude.IO ()) -> Foreign.Ptr.Ptr (Com.IUnknown ()) -> Foreign.Ptr.Ptr Prelude.String -> Prelude.IO Data.Int.Int32 prim_setTestedWith setTestedWith_meth iptr value = Com.returnHR (Com.unmarshallBSTR value Prelude.>>= \ value -> ComServ.getObjState iptr Prelude.>>= \ obj -> setTestedWith_meth value obj) -- -------------------------------------------------- -- -- interface IProjectCCSettings -- -- -------------------------------------------------- data IProjectCCSettings_ a = IProjectCCSettings__ type IProjectCCSettings a = Automation.IDispatch (IProjectCCSettings_ a) iidIProjectCCSettings :: Com.IID (IProjectCCSettings ()) iidIProjectCCSettings = Com.mkIID "{69346B76-D125-4e24-BA34-9A54DBD40183}" mkIProjectCCSettings_vtbl :: (objState -> Prelude.IO Prelude.String) -> (Prelude.String -> objState -> Prelude.IO ()) -> (objState -> Prelude.IO Prelude.String) -> (Prelude.String -> objState -> Prelude.IO ()) -> (objState -> Prelude.IO Prelude.String) -> (Prelude.String -> objState -> Prelude.IO ()) -> Prelude.IO (ComServ.ComVTable (IProjectGeneralSettings ()) objState) mkIProjectCCSettings_vtbl getOptions setOptions getIncludeDirs setIncludeDirs getIncludes setIncludes = do meth_arg0 <- export_getName (prim_getOptions getOptions) meth_arg1 <- export_getName (prim_setOptions setOptions) meth_arg2 <- export_getName (prim_getIncludeDirs getIncludeDirs) meth_arg3 <- export_getName (prim_setIncludeDirs setIncludeDirs) meth_arg4 <- export_getName (prim_getIncludes getIncludes) meth_arg5 <- export_getName (prim_setIncludes setIncludes) ComServ.createDualVTable (Prelude.Left libidHaskellProject) iidIProjectCCSettings [ meth_arg0 , meth_arg1 , meth_arg2 , meth_arg3 , meth_arg4 , meth_arg5 ] -- Specify the name of the Cabal file that contains the information for the selected project. prim_getOptions :: (objState -> Prelude.IO Prelude.String) -> Foreign.Ptr.Ptr (Com.IUnknown ()) -> Foreign.Ptr.Ptr Prelude.String -> Prelude.IO Data.Int.Int32 prim_getOptions getOptions_meth iptr out_pValue = Com.returnHR (ComServ.getObjState iptr Prelude.>>= \ obj -> getOptions_meth obj Prelude.>>= \ res__pValue -> Com.marshallBSTR res__pValue Prelude.>>= \ res__pValue -> HDirect.writePtr (Foreign.Ptr.castPtr out_pValue) res__pValue) -- Specify the name of the Cabal file that contains the information for the selected project. prim_setOptions :: (Prelude.String -> objState -> Prelude.IO ()) -> Foreign.Ptr.Ptr (Com.IUnknown ()) -> Foreign.Ptr.Ptr Prelude.String -> Prelude.IO Data.Int.Int32 prim_setOptions setOptions_meth iptr value = Com.returnHR (Com.unmarshallBSTR value Prelude.>>= \ value -> ComServ.getObjState iptr Prelude.>>= \ obj -> setOptions_meth value obj) -- Specifies the package name. prim_getIncludeDirs :: (objState -> Prelude.IO Prelude.String) -> Foreign.Ptr.Ptr (Com.IUnknown ()) -> Foreign.Ptr.Ptr Prelude.String -> Prelude.IO Data.Int.Int32 prim_getIncludeDirs getIncludeDirs_meth iptr out_pValue = Com.returnHR (ComServ.getObjState iptr Prelude.>>= \ obj -> getIncludeDirs_meth obj Prelude.>>= \ res__pValue -> Com.marshallBSTR res__pValue Prelude.>>= \ res__pValue -> HDirect.writePtr (Foreign.Ptr.castPtr out_pValue) res__pValue) -- Specifies the package name. prim_setIncludeDirs :: (Prelude.String -> objState -> Prelude.IO ()) -> Foreign.Ptr.Ptr (Com.IUnknown ()) -> Foreign.Ptr.Ptr Prelude.String -> Prelude.IO Data.Int.Int32 prim_setIncludeDirs setIncludeDirs_meth iptr value = Com.returnHR (Com.unmarshallBSTR value Prelude.>>= \ value -> ComServ.getObjState iptr Prelude.>>= \ obj -> setIncludeDirs_meth value obj) -- Specifies the package version. prim_getIncludes :: (objState -> Prelude.IO Prelude.String) -> Foreign.Ptr.Ptr (Com.IUnknown ()) -> Foreign.Ptr.Ptr Prelude.String -> Prelude.IO Data.Int.Int32 prim_getIncludes getIncludes_meth iptr out_pValue = Com.returnHR (ComServ.getObjState iptr Prelude.>>= \ obj -> getIncludes_meth obj Prelude.>>= \ res__pValue -> Com.marshallBSTR res__pValue Prelude.>>= \ res__pValue -> HDirect.writePtr (Foreign.Ptr.castPtr out_pValue) res__pValue) -- Specifies the package version. prim_setIncludes :: (Prelude.String -> objState -> Prelude.IO ()) -> Foreign.Ptr.Ptr (Com.IUnknown ()) -> Foreign.Ptr.Ptr Prelude.String -> Prelude.IO Data.Int.Int32 prim_setIncludes setIncludes_meth iptr value = Com.returnHR (Com.unmarshallBSTR value Prelude.>>= \ value -> ComServ.getObjState iptr Prelude.>>= \ obj -> setIncludes_meth value obj) -- -------------------------------------------------- -- -- interface IProjectHCSettings -- -- -------------------------------------------------- data IProjectHCSettings_ a = IProjectHCSettings__ type IProjectHCSettings a = Automation.IDispatch (IProjectHCSettings_ a) iidIProjectHCSettings :: Com.IID (IProjectHCSettings ()) iidIProjectHCSettings = Com.mkIID "{E217C5D2-D114-4d59-9367-140F7233747C}" mkIProjectHCSettings_vtbl :: (objState -> Prelude.IO Prelude.String) -> (Prelude.String -> objState -> Prelude.IO ()) -> (objState -> Prelude.IO Prelude.String) -> (Prelude.String -> objState -> Prelude.IO ()) -> (objState -> Prelude.IO Prelude.String) -> (Prelude.String -> objState -> Prelude.IO ()) -> (objState -> Prelude.IO Prelude.String) -> (Prelude.String -> objState -> Prelude.IO ()) -> Prelude.IO (ComServ.ComVTable (IProjectGeneralSettings ()) objState) mkIProjectHCSettings_vtbl getGHCOptions setGHCOptions getHugsOptions setHugsOptions getNHCOptions setNHCOptions getExtensions setExtensions = do meth_arg0 <- export_getName (prim_getGHCOptions getGHCOptions) meth_arg1 <- export_getName (prim_setGHCOptions setGHCOptions) meth_arg2 <- export_getName (prim_getHugsOptions getHugsOptions) meth_arg3 <- export_getName (prim_setHugsOptions setHugsOptions) meth_arg4 <- export_getName (prim_getNHCOptions getNHCOptions) meth_arg5 <- export_getName (prim_setNHCOptions setNHCOptions) meth_arg6 <- export_getName (prim_getExtensions getExtensions) meth_arg7 <- export_getName (prim_setExtensions setExtensions) ComServ.createDualVTable (Prelude.Left libidHaskellProject) iidIProjectHCSettings [ meth_arg0 , meth_arg1 , meth_arg2 , meth_arg3 , meth_arg4 , meth_arg5 , meth_arg6 , meth_arg7 ] -- Specify the name of the Cabal file that contains the information for the selected project. prim_getGHCOptions :: (objState -> Prelude.IO Prelude.String) -> Foreign.Ptr.Ptr (Com.IUnknown ()) -> Foreign.Ptr.Ptr Prelude.String -> Prelude.IO Data.Int.Int32 prim_getGHCOptions getGHCOptions_meth iptr out_pValue = Com.returnHR (ComServ.getObjState iptr Prelude.>>= \ obj -> getGHCOptions_meth obj Prelude.>>= \ res__pValue -> Com.marshallBSTR res__pValue Prelude.>>= \ res__pValue -> HDirect.writePtr (Foreign.Ptr.castPtr out_pValue) res__pValue) -- Specify the name of the Cabal file that contains the information for the selected project. prim_setGHCOptions :: (Prelude.String -> objState -> Prelude.IO ()) -> Foreign.Ptr.Ptr (Com.IUnknown ()) -> Foreign.Ptr.Ptr Prelude.String -> Prelude.IO Data.Int.Int32 prim_setGHCOptions setGHCOptions_meth iptr value = Com.returnHR (Com.unmarshallBSTR value Prelude.>>= \ value -> ComServ.getObjState iptr Prelude.>>= \ obj -> setGHCOptions_meth value obj) -- Specifies the package name. prim_getHugsOptions :: (objState -> Prelude.IO Prelude.String) -> Foreign.Ptr.Ptr (Com.IUnknown ()) -> Foreign.Ptr.Ptr Prelude.String -> Prelude.IO Data.Int.Int32 prim_getHugsOptions getHugsOptions_meth iptr out_pValue = Com.returnHR (ComServ.getObjState iptr Prelude.>>= \ obj -> getHugsOptions_meth obj Prelude.>>= \ res__pValue -> Com.marshallBSTR res__pValue Prelude.>>= \ res__pValue -> HDirect.writePtr (Foreign.Ptr.castPtr out_pValue) res__pValue) -- Specifies the package name. prim_setHugsOptions :: (Prelude.String -> objState -> Prelude.IO ()) -> Foreign.Ptr.Ptr (Com.IUnknown ()) -> Foreign.Ptr.Ptr Prelude.String -> Prelude.IO Data.Int.Int32 prim_setHugsOptions setHugsOptions_meth iptr value = Com.returnHR (Com.unmarshallBSTR value Prelude.>>= \ value -> ComServ.getObjState iptr Prelude.>>= \ obj -> setHugsOptions_meth value obj) -- Specifies the package version. prim_getNHCOptions :: (objState -> Prelude.IO Prelude.String) -> Foreign.Ptr.Ptr (Com.IUnknown ()) -> Foreign.Ptr.Ptr Prelude.String -> Prelude.IO Data.Int.Int32 prim_getNHCOptions getNHCOptions_meth iptr out_pValue = Com.returnHR (ComServ.getObjState iptr Prelude.>>= \ obj -> getNHCOptions_meth obj Prelude.>>= \ res__pValue -> Com.marshallBSTR res__pValue Prelude.>>= \ res__pValue -> HDirect.writePtr (Foreign.Ptr.castPtr out_pValue) res__pValue) -- Specifies the package version. prim_setNHCOptions :: (Prelude.String -> objState -> Prelude.IO ()) -> Foreign.Ptr.Ptr (Com.IUnknown ()) -> Foreign.Ptr.Ptr Prelude.String -> Prelude.IO Data.Int.Int32 prim_setNHCOptions setNHCOptions_meth iptr value = Com.returnHR (Com.unmarshallBSTR value Prelude.>>= \ value -> ComServ.getObjState iptr Prelude.>>= \ obj -> setNHCOptions_meth value obj) -- Specifies the package version. prim_getExtensions :: (objState -> Prelude.IO Prelude.String) -> Foreign.Ptr.Ptr (Com.IUnknown ()) -> Foreign.Ptr.Ptr Prelude.String -> Prelude.IO Data.Int.Int32 prim_getExtensions getExtensions_meth iptr out_pValue = Com.returnHR (ComServ.getObjState iptr Prelude.>>= \ obj -> getExtensions_meth obj Prelude.>>= \ res__pValue -> Com.marshallBSTR res__pValue Prelude.>>= \ res__pValue -> HDirect.writePtr (Foreign.Ptr.castPtr out_pValue) res__pValue) -- Specifies the package version. prim_setExtensions :: (Prelude.String -> objState -> Prelude.IO ()) -> Foreign.Ptr.Ptr (Com.IUnknown ()) -> Foreign.Ptr.Ptr Prelude.String -> Prelude.IO Data.Int.Int32 prim_setExtensions setExtensions_meth iptr value = Com.returnHR (Com.unmarshallBSTR value Prelude.>>= \ value -> ComServ.getObjState iptr Prelude.>>= \ obj -> setExtensions_meth value obj) -- -------------------------------------------------- -- -- interface IProjectLDSettings -- -- -------------------------------------------------- data IProjectLDSettings_ a = IProjectLDSettings__ type IProjectLDSettings a = Automation.IDispatch (IProjectLDSettings_ a) iidIProjectLDSettings :: Com.IID (IProjectLDSettings ()) iidIProjectLDSettings = Com.mkIID "{C2A446B7-6FAC-4d8c-B7B6-5A48299B9A67}" mkIProjectLDSettings_vtbl :: (objState -> Prelude.IO Prelude.String) -> (Prelude.String -> objState -> Prelude.IO ()) -> (objState -> Prelude.IO Prelude.String) -> (Prelude.String -> objState -> Prelude.IO ()) -> (objState -> Prelude.IO Prelude.String) -> (Prelude.String -> objState -> Prelude.IO ()) -> Prelude.IO (ComServ.ComVTable (IProjectGeneralSettings ()) objState) mkIProjectLDSettings_vtbl getOptions setOptions getLibraries setLibraries getLibraryDirectories setLibraryDirectories = do meth_arg0 <- export_getName (prim_getOptions getOptions) meth_arg1 <- export_getName (prim_setOptions setOptions) meth_arg2 <- export_getName (prim_getLibraries getLibraries) meth_arg3 <- export_getName (prim_setLibraries setLibraries) meth_arg4 <- export_getName (prim_getLibraryDirectories getLibraryDirectories) meth_arg5 <- export_getName (prim_setLibraryDirectories setLibraryDirectories) ComServ.createDualVTable (Prelude.Left libidHaskellProject) iidIProjectLDSettings [ meth_arg0 , meth_arg1 , meth_arg2 , meth_arg3 , meth_arg4 , meth_arg5 ] -- Specifies the package name. prim_getLibraries :: (objState -> Prelude.IO Prelude.String) -> Foreign.Ptr.Ptr (Com.IUnknown ()) -> Foreign.Ptr.Ptr Prelude.String -> Prelude.IO Data.Int.Int32 prim_getLibraries getLibraries_meth iptr out_pValue = Com.returnHR (ComServ.getObjState iptr Prelude.>>= \ obj -> getLibraries_meth obj Prelude.>>= \ res__pValue -> Com.marshallBSTR res__pValue Prelude.>>= \ res__pValue -> HDirect.writePtr (Foreign.Ptr.castPtr out_pValue) res__pValue) -- Specifies the package name. prim_setLibraries :: (Prelude.String -> objState -> Prelude.IO ()) -> Foreign.Ptr.Ptr (Com.IUnknown ()) -> Foreign.Ptr.Ptr Prelude.String -> Prelude.IO Data.Int.Int32 prim_setLibraries setLibraries_meth iptr value = Com.returnHR (Com.unmarshallBSTR value Prelude.>>= \ value -> ComServ.getObjState iptr Prelude.>>= \ obj -> setLibraries_meth value obj) -- Specifies the package version. prim_getLibraryDirectories :: (objState -> Prelude.IO Prelude.String) -> Foreign.Ptr.Ptr (Com.IUnknown ()) -> Foreign.Ptr.Ptr Prelude.String -> Prelude.IO Data.Int.Int32 prim_getLibraryDirectories getLibraryDirectories_meth iptr out_pValue = Com.returnHR (ComServ.getObjState iptr Prelude.>>= \ obj -> getLibraryDirectories_meth obj Prelude.>>= \ res__pValue -> Com.marshallBSTR res__pValue Prelude.>>= \ res__pValue -> HDirect.writePtr (Foreign.Ptr.castPtr out_pValue) res__pValue) -- Specifies the package version. prim_setLibraryDirectories :: (Prelude.String -> objState -> Prelude.IO ()) -> Foreign.Ptr.Ptr (Com.IUnknown ()) -> Foreign.Ptr.Ptr Prelude.String -> Prelude.IO Data.Int.Int32 prim_setLibraryDirectories setLibraryDirectories_meth iptr value = Com.returnHR (Com.unmarshallBSTR value Prelude.>>= \ value -> ComServ.getObjState iptr Prelude.>>= \ obj -> setLibraryDirectories_meth value obj) -- -------------------------------------------------- -- -- interface IHaskellFileItem -- -- -------------------------------------------------- data IHaskellFileItem_ a = IHaskellFileItem__ type IHaskellFileItem a = Automation.IDispatch (IHaskellFileItem_ a) iidIHaskellFileItem :: Com.IID (IHaskellFileItem ()) iidIHaskellFileItem = Com.mkIID "{A1DA9B0F-1AFF-48d7-AADA-0A9504BDBA07}" mkIHaskellFileItem_vtbl :: (objState -> Prelude.IO Prelude.String) -> (Prelude.String -> objState -> Prelude.IO ()) -> (objState -> Prelude.IO Prelude.String) -> Prelude.IO (ComServ.ComVTable (IHaskellFileItem ()) objState) mkIHaskellFileItem_vtbl getName setName getFilePath1 = do meth_arg0 <- export_getName (prim_getName0 getName) meth_arg1 <- export_getName (prim_setName0 setName) meth_arg2 <- export_getName (prim_getFilePath1 getFilePath1) ComServ.createDualVTable (Prelude.Left libidHaskellProject) iidIHaskellFileItem [ meth_arg0 , meth_arg1 , meth_arg2 ] -- Name of the file or folder. prim_getName0 :: (objState -> Prelude.IO Prelude.String) -> Foreign.Ptr.Ptr (Com.IUnknown ()) -> Foreign.Ptr.Ptr Prelude.String -> Prelude.IO Data.Int.Int32 prim_getName0 getName0_meth iptr out_pValue = Com.returnHR (ComServ.getObjState iptr Prelude.>>= \ obj -> getName0_meth obj Prelude.>>= \ res__pValue -> Com.marshallBSTR res__pValue Prelude.>>= \ res__pValue -> HDirect.writePtr (Foreign.Ptr.castPtr out_pValue) res__pValue) -- Name of the file or folder. prim_setName0 :: (Prelude.String -> objState -> Prelude.IO ()) -> Foreign.Ptr.Ptr (Com.IUnknown ()) -> Foreign.Ptr.Ptr Prelude.String -> Prelude.IO Data.Int.Int32 prim_setName0 setName0_meth iptr value = Com.returnHR (Com.unmarshallBSTR value Prelude.>>= \ value -> ComServ.getObjState iptr Prelude.>>= \ obj -> setName0_meth value obj) -- Location of the file. prim_getFilePath1 :: (objState -> Prelude.IO Prelude.String) -> Foreign.Ptr.Ptr (Com.IUnknown ()) -> Foreign.Ptr.Ptr Prelude.String -> Prelude.IO Data.Int.Int32 prim_getFilePath1 getFilePath1_meth iptr out_pValue = Com.returnHR (ComServ.getObjState iptr Prelude.>>= \ obj -> getFilePath1_meth obj Prelude.>>= \ res__pValue -> Com.marshallBSTR res__pValue Prelude.>>= \ res__pValue -> HDirect.writePtr (Foreign.Ptr.castPtr out_pValue) res__pValue) -- -------------------------------------------------- -- -- interface IHaskellFileItem -- -- -------------------------------------------------- data IHaskellFolderItem_ a = IHaskellFolderItem__ type IHaskellFolderItem a = Automation.IDispatch (IHaskellFolderItem_ a) iidIHaskellFolderItem :: Com.IID (IHaskellFolderItem ()) iidIHaskellFolderItem = Com.mkIID "{DBA4A5EB-F98E-4f37-AC47-FF7AB15F561B}" mkIHaskellFolderItem_vtbl :: (objState -> Prelude.IO Prelude.String) -> (Prelude.String -> objState -> Prelude.IO ()) -> (objState -> Prelude.IO YesNo) -> (YesNo -> objState -> Prelude.IO ()) -> (objState -> Prelude.IO Prelude.String) -> Prelude.IO (ComServ.ComVTable (IHaskellFolderItem ()) objState) mkIHaskellFolderItem_vtbl getName setName getSourceDirectory setSourceDirectory getFilePath1 = do meth_arg0 <- export_getName (prim_getName1 getName) meth_arg1 <- export_getName (prim_setName1 setName) meth_arg2 <- export_getSourceDirectory (prim_getSourceDirectory getSourceDirectory) meth_arg3 <- export_setLicense (prim_setSourceDirectory setSourceDirectory) meth_arg4 <- export_getName (prim_getFilePath2 getFilePath1) ComServ.createDualVTable (Prelude.Left libidHaskellProject) iidIHaskellFolderItem [ meth_arg0 , meth_arg1 , meth_arg2 , meth_arg3 , meth_arg4 ] -- Name of the file or folder. prim_getName1 :: (objState -> Prelude.IO Prelude.String) -> Foreign.Ptr.Ptr (Com.IUnknown ()) -> Foreign.Ptr.Ptr Prelude.String -> Prelude.IO Data.Int.Int32 prim_getName1 getName0_meth iptr out_pValue = Com.returnHR (ComServ.getObjState iptr Prelude.>>= \ obj -> getName0_meth obj Prelude.>>= \ res__pValue -> Com.marshallBSTR res__pValue Prelude.>>= \ res__pValue -> HDirect.writePtr (Foreign.Ptr.castPtr out_pValue) res__pValue) -- Name of the file or folder. prim_setName1 :: (Prelude.String -> objState -> Prelude.IO ()) -> Foreign.Ptr.Ptr (Com.IUnknown ()) -> Foreign.Ptr.Ptr Prelude.String -> Prelude.IO Data.Int.Int32 prim_setName1 setName0_meth iptr value = Com.returnHR (Com.unmarshallBSTR value Prelude.>>= \ value -> ComServ.getObjState iptr Prelude.>>= \ obj -> setName0_meth value obj) -- Determines whether the module is exposed from the package. prim_getSourceDirectory :: (objState -> Prelude.IO YesNo) -> Foreign.Ptr.Ptr (Com.IUnknown ()) -> Foreign.Ptr.Ptr Data.Int.Int32 -> Prelude.IO Data.Int.Int32 prim_getSourceDirectory getSourceDirectory_meth iptr out_pValue = Com.returnHR (ComServ.getObjState iptr Prelude.>>= \ obj -> getSourceDirectory_meth obj Prelude.>>= \ res__pValue -> HDirect.marshallEnum32 res__pValue Prelude.>>= \ res__pValue -> HDirect.writeInt32 out_pValue res__pValue) -- Determines whether the module is exposed from the package. prim_setSourceDirectory :: (YesNo -> objState -> Prelude.IO ()) -> Foreign.Ptr.Ptr (Com.IUnknown ()) -> Data.Int.Int32 -> Prelude.IO Data.Int.Int32 prim_setSourceDirectory setSourceDirectory_meth iptr value = Com.returnHR (HDirect.unmarshallEnum32 value Prelude.>>= \ value -> ComServ.getObjState iptr Prelude.>>= \ obj -> setSourceDirectory_meth value obj) -- Location of the file. prim_getFilePath2 :: (objState -> Prelude.IO Prelude.String) -> Foreign.Ptr.Ptr (Com.IUnknown ()) -> Foreign.Ptr.Ptr Prelude.String -> Prelude.IO Data.Int.Int32 prim_getFilePath2 getFilePath1_meth iptr out_pValue = Com.returnHR (ComServ.getObjState iptr Prelude.>>= \ obj -> getFilePath1_meth obj Prelude.>>= \ res__pValue -> Com.marshallBSTR res__pValue Prelude.>>= \ res__pValue -> HDirect.writePtr (Foreign.Ptr.castPtr out_pValue) res__pValue) foreign import stdcall "wrapper" export_getSourceDirectory :: (Foreign.Ptr.Ptr a -> Foreign.Ptr.Ptr Data.Int.Int32 -> Prelude.IO Data.Int.Int32) -> Prelude.IO (Foreign.Ptr.Ptr ()) data YesNo = Yes | No instance Prelude.Enum YesNo where fromEnum v = case v of Yes -> 0 No -> 1 toEnum v = case v of 0 -> Yes 1 -> No _ -> Prelude.error "unmarshallExposedState: illegal enum value " -- -------------------------------------------------- -- -- interface IHaskellModuleItem -- -- -------------------------------------------------- data IHaskellModuleItem_ a = IHaskellModuleItem__ type IHaskellModuleItem a = Automation.IDispatch (IHaskellModuleItem_ a) iidIHaskellModuleItem :: Com.IID (IHaskellModuleItem ()) iidIHaskellModuleItem = Com.mkIID "{DE823321-4BD4-4171-9738-8DC4F6268E20}" mkIHaskellModuleItem_vtbl :: (objState -> Prelude.IO Prelude.String) -> (Prelude.String -> objState -> Prelude.IO ()) -> (objState -> Prelude.IO Prelude.String) -> (objState -> Prelude.IO YesNo) -> (YesNo -> objState -> Prelude.IO ()) -> (objState -> Prelude.IO Prelude.String) -> Prelude.IO (ComServ.ComVTable (IHaskellFileItem ()) objState) mkIHaskellModuleItem_vtbl getName setName getModuleName getExposed setExposed getFilePath = do meth_arg0 <- export_getName (prim_getName2 getName) meth_arg1 <- export_getName (prim_setName2 setName) meth_arg2 <- export_getName (prim_getModuleName getModuleName) meth_arg3 <- export_getExposed (prim_getExposed getExposed) meth_arg4 <- export_setLicense (prim_setExposed setExposed) meth_arg5 <- export_getName (prim_getFilePath getFilePath) ComServ.createDualVTable (Prelude.Left libidHaskellProject) iidIHaskellModuleItem [ meth_arg0 , meth_arg1 , meth_arg2 , meth_arg3 , meth_arg4 , meth_arg5 ] foreign import stdcall "wrapper" export_getExposed :: (Foreign.Ptr.Ptr a -> Foreign.Ptr.Ptr Data.Int.Int32 -> Prelude.IO Data.Int.Int32) -> Prelude.IO (Foreign.Ptr.Ptr ()) prim_getModuleName :: (objState -> Prelude.IO Prelude.String) -> Foreign.Ptr.Ptr (Com.IUnknown ()) -> Foreign.Ptr.Ptr Prelude.String -> Prelude.IO Data.Int.Int32 prim_getModuleName getModuleName_meth iptr out_pValue = Com.returnHR (ComServ.getObjState iptr Prelude.>>= \ obj -> getModuleName_meth obj Prelude.>>= \ res__pValue -> Com.marshallBSTR res__pValue Prelude.>>= \ res__pValue -> HDirect.writePtr (Foreign.Ptr.castPtr out_pValue) res__pValue) -- Name of the file or folder. prim_getName2 :: (objState -> Prelude.IO Prelude.String) -> Foreign.Ptr.Ptr (Com.IUnknown ()) -> Foreign.Ptr.Ptr Prelude.String -> Prelude.IO Data.Int.Int32 prim_getName2 getName1_meth iptr out_pValue = Com.returnHR (ComServ.getObjState iptr Prelude.>>= \ obj -> getName1_meth obj Prelude.>>= \ res__pValue -> Com.marshallBSTR res__pValue Prelude.>>= \ res__pValue -> HDirect.writePtr (Foreign.Ptr.castPtr out_pValue) res__pValue) -- Name of the file or folder. prim_setName2 :: (Prelude.String -> objState -> Prelude.IO ()) -> Foreign.Ptr.Ptr (Com.IUnknown ()) -> Foreign.Ptr.Ptr Prelude.String -> Prelude.IO Data.Int.Int32 prim_setName2 setName1_meth iptr value = Com.returnHR (Com.unmarshallBSTR value Prelude.>>= \ value -> ComServ.getObjState iptr Prelude.>>= \ obj -> setName1_meth value obj) -- Determines whether the module is exposed from the package. prim_getExposed :: (objState -> Prelude.IO YesNo) -> Foreign.Ptr.Ptr (Com.IUnknown ()) -> Foreign.Ptr.Ptr Data.Int.Int32 -> Prelude.IO Data.Int.Int32 prim_getExposed getExposed_meth iptr out_pValue = Com.returnHR (ComServ.getObjState iptr Prelude.>>= \ obj -> getExposed_meth obj Prelude.>>= \ res__pValue -> HDirect.marshallEnum32 res__pValue Prelude.>>= \ res__pValue -> HDirect.writeInt32 out_pValue res__pValue) -- Determines whether the module is exposed from the package. prim_setExposed :: (YesNo -> objState -> Prelude.IO ()) -> Foreign.Ptr.Ptr (Com.IUnknown ()) -> Data.Int.Int32 -> Prelude.IO Data.Int.Int32 prim_setExposed setExposed_meth iptr value = Com.returnHR (HDirect.unmarshallEnum32 value Prelude.>>= \ value -> ComServ.getObjState iptr Prelude.>>= \ obj -> setExposed_meth value obj) -- Location of the file. prim_getFilePath :: (objState -> Prelude.IO Prelude.String) -> Foreign.Ptr.Ptr (Com.IUnknown ()) -> Foreign.Ptr.Ptr Prelude.String -> Prelude.IO Data.Int.Int32 prim_getFilePath getFilePath_meth iptr out_pValue = Com.returnHR (ComServ.getObjState iptr Prelude.>>= \ obj -> getFilePath_meth obj Prelude.>>= \ res__pValue -> Com.marshallBSTR res__pValue Prelude.>>= \ res__pValue -> HDirect.writePtr (Foreign.Ptr.castPtr out_pValue) res__pValue) -- -------------------------------------------------- -- -- interface IHaskellPackageItem -- -- -------------------------------------------------- data IHaskellPackageItem_ a = IHaskellPackageItem__ type IHaskellPackageItem a = Automation.IDispatch (IHaskellPackageItem_ a) iidIHaskellPackageItem :: Com.IID (IHaskellPackageItem ()) iidIHaskellPackageItem = Com.mkIID "{DDEB8335-EF48-4a5a-8B6D-2A7BD68CD420}" mkIHaskellPackageItem_vtbl :: (objState -> Prelude.IO Prelude.String) -> (objState -> Prelude.IO Prelude.String) -> (Prelude.String -> objState -> Prelude.IO ()) -> Prelude.IO (ComServ.ComVTable (IHaskellPackageItem ()) objState) mkIHaskellPackageItem_vtbl getName3 getVersionRange setVersionRange = do meth_arg0 <- export_getName (prim_getName2 getName3) meth_arg1 <- export_getName (prim_getVersionRange getVersionRange) meth_arg2 <- export_getName (prim_setVersionRange setVersionRange) ComServ.createDualVTable (Prelude.Left libidHaskellProject) iidIHaskellPackageItem [ meth_arg0 , meth_arg1 , meth_arg2 ] -- Package name. prim_getName3 :: (objState -> Prelude.IO Prelude.String) -> Foreign.Ptr.Ptr (Com.IUnknown ()) -> Foreign.Ptr.Ptr Prelude.String -> Prelude.IO Data.Int.Int32 prim_getName3 getName1_meth iptr out_pValue = Com.returnHR (ComServ.getObjState iptr Prelude.>>= \ obj -> getName1_meth obj Prelude.>>= \ res__pValue -> Com.marshallBSTR res__pValue Prelude.>>= \ res__pValue -> HDirect.writePtr (Foreign.Ptr.castPtr out_pValue) res__pValue) -- Version range. prim_getVersionRange :: (objState -> Prelude.IO Prelude.String) -> Foreign.Ptr.Ptr (Com.IUnknown ()) -> Foreign.Ptr.Ptr Prelude.String -> Prelude.IO Data.Int.Int32 prim_getVersionRange getVersionRange_meth iptr out_pValue = Com.returnHR (ComServ.getObjState iptr Prelude.>>= \ obj -> getVersionRange_meth obj Prelude.>>= \ res__pValue -> Com.marshallBSTR res__pValue Prelude.>>= \ res__pValue -> HDirect.writePtr (Foreign.Ptr.castPtr out_pValue) res__pValue) -- Version range. prim_setVersionRange :: (Prelude.String -> objState -> Prelude.IO ()) -> Foreign.Ptr.Ptr (Com.IUnknown ()) -> Foreign.Ptr.Ptr Prelude.String -> Prelude.IO Data.Int.Int32 prim_setVersionRange setVersionRange_meth iptr value = Com.returnHR (Com.unmarshallBSTR value Prelude.>>= \ value -> ComServ.getObjState iptr Prelude.>>= \ obj -> setVersionRange_meth value obj)