-- Automatically generated by HaskellDirect (ihc.exe), snapshot 030605
-- Created: 21:35 FLE Daylight Time, Saturday 03 September, 2005
-- Command line: vs_haskell_dlg.idl

module VsHaskellDlg
       ( libidVsHaskellDlg
       , commit
       , IPropertyContainer
       , IPropertyContainer_
       , iidIPropertyContainer
       , clsidCCPropertyPage
       , clsidHCPropertyPage
       , clsidLDPropertyPage
       , openDialog
       , addPackage
       , getPackage
       , IAddReferenceDialog
       , IAddReferenceDialog_
       , iidIAddReferenceDialog
       , clsidAddReferenceDialog
       ) where
       
import Prelude (fromEnum, toEnum)
import qualified Prelude
import qualified Automation (IDispatch)
import qualified Com (LIBID, mkLIBID, IUnknown, IID, mkIID, 
                      invokeAndCheck, CLSID, mkCLSID, marshallIUnknown)
import qualified Data.Int (Int32)
import qualified Foreign.Ptr (Ptr)
import qualified Foreign.Marshal.Alloc(alloca)
import qualified Foreign.Storable(peek, poke)
import qualified Foreign.C.String (CString, withCString, peekCString)
import qualified HDirect (allocBytes, marshallref, free)
import qualified ServProv (IServiceProvider)

libidVsHaskellDlg :: Com.LIBID
libidVsHaskellDlg =
  Com.mkLIBID "{96E24FFE-8C98-492A-94DF-15D88E56A45C}"

-- --------------------------------------------------
-- 
-- interface IPropertyContainer
-- 
-- --------------------------------------------------
data IPropertyContainer_ a = IPropertyContainer__
                               
type IPropertyContainer a = Com.IUnknown (IPropertyContainer_ a)
iidIPropertyContainer :: Com.IID (IPropertyContainer ())
iidIPropertyContainer =
  Com.mkIID "{D80C7181-5DA8-4f77-91D4-EA71384B516E}"

commit :: IPropertyContainer a0
       -> Prelude.IO ()
commit iptr =
  Com.invokeAndCheck (\ methPtr iptr -> prim_Vs_haskell_dlg_commit methPtr iptr)
                     3
                     iptr

foreign import stdcall "dynamic" prim_Vs_haskell_dlg_commit :: Foreign.Ptr.Ptr () -> Foreign.Ptr.Ptr () -> Prelude.IO Data.Int.Int32
-- --------------------------------------------------
-- 
-- coclass CCPropertyPage
-- 
--   implements: IUnknown , IPropertyPage
-- --------------------------------------------------
clsidCCPropertyPage :: Com.CLSID
clsidCCPropertyPage =
  Com.mkCLSID "{1CC6EA13-3D1C-43b2-ABC2-ECF2A8B95C1E}"

-- --------------------------------------------------
-- 
-- coclass HCPropertyPage
-- 
--   implements: IUnknown , IPropertyPage
-- --------------------------------------------------
clsidHCPropertyPage :: Com.CLSID
clsidHCPropertyPage =
  Com.mkCLSID "{ACF763B9-52C8-499f-B2EA-1D590593621F}"

-- --------------------------------------------------
-- 
-- coclass LDPropertyPage
-- 
--   implements: IUnknown , IPropertyPage
-- --------------------------------------------------
clsidLDPropertyPage :: Com.CLSID
clsidLDPropertyPage =
  Com.mkCLSID "{BC4C26BA-9E25-410e-8028-180D941446C0}"

-- --------------------------------------------------
-- 
-- interface IAddReferenceDialog
-- 
-- --------------------------------------------------
data IAddReferenceDialog_ a = IAddReferenceDialog__
                                 
type IAddReferenceDialog a = Automation.IDispatch (IAddReferenceDialog_ a)
iidIAddReferenceDialog :: Com.IID (IAddReferenceDialog ())
iidIAddReferenceDialog =
  Com.mkIID "{CAD50FD3-7FB7-44AF-8B24-BF4B6C5E0235}"

-- method OpenDialog
openDialog :: ServProv.IServiceProvider a0
           -> IAddReferenceDialog a1
           -> Prelude.IO ()
openDialog provider iptr =
  do
    provider <- Com.marshallIUnknown provider
    Com.invokeAndCheck (\ methPtr iptr -> prim_Vs_haskell_dlg_openDialog methPtr iptr provider) 7 iptr

foreign import stdcall "dynamic" prim_Vs_haskell_dlg_openDialog :: Foreign.Ptr.Ptr () -> Foreign.Ptr.Ptr () -> Foreign.Ptr.Ptr () -> Prelude.IO Data.Int.Int32

-- method AddPackage
addPackage :: Prelude.String
           -> IAddReferenceDialog a1
           -> Prelude.IO ()
addPackage name iptr =
    Com.invokeAndCheck (\ methPtr iptr -> Foreign.C.String.withCString name (\name -> prim_Vs_haskell_dlg_addPackage methPtr iptr name)) 8 iptr

foreign import stdcall "dynamic" prim_Vs_haskell_dlg_addPackage :: Foreign.Ptr.Ptr () -> Foreign.Ptr.Ptr () -> Foreign.C.String.CString -> Prelude.IO Data.Int.Int32

-- method AddPackage
getPackage :: Foreign.Ptr.Ptr ()
           -> IAddReferenceDialog a1
           -> Prelude.IO (Foreign.Ptr.Ptr (), Prelude.String)
getPackage pos iptr =
    Foreign.Marshal.Alloc.alloca (\ppos ->
    Foreign.Marshal.Alloc.alloca (\ppname -> do
      Foreign.Storable.poke ppos pos
      Com.invokeAndCheck (\ methPtr iptr -> prim_Vs_haskell_dlg_getPackage methPtr iptr ppos ppname) 9 iptr
      pos  <- Foreign.Storable.peek ppos
      name <- Foreign.Storable.peek ppname Prelude.>>= Foreign.C.String.peekCString
      Prelude.return (pos, name)))

foreign import stdcall "dynamic" prim_Vs_haskell_dlg_getPackage :: Foreign.Ptr.Ptr () -> Foreign.Ptr.Ptr () -> Foreign.Ptr.Ptr (Foreign.Ptr.Ptr ()) -> Foreign.Ptr.Ptr (Foreign.C.String.CString) -> Prelude.IO Data.Int.Int32

-- --------------------------------------------------
-- 
-- coclass AddReferenceDialog
-- 
--   implements: IAddReferenceDialog
-- --------------------------------------------------
clsidAddReferenceDialog :: Com.CLSID
clsidAddReferenceDialog =
  Com.mkCLSID "{FBE9B3FE-2469-4E1C-AB36-C361D9ACD98E}"