{-# LANGUAGE EmptyDataDecls, FlexibleContexts, FlexibleInstances, ForeignFunctionInterface, IncoherentInstances, MultiParamTypeClasses, OverlappingInstances, TemplateHaskell, TypeFamilies, TypeSynonymInstances #-} module GDAL.GDALDataset.Implementation where import Data.Monoid import Data.Word import Data.Int import Foreign.C import Foreign.Ptr import Language.Haskell.TH import Language.Haskell.TH.Syntax import System.IO.Unsafe import FFICXX.Runtime.Cast import FFICXX.Runtime.CodeGen.Cxx import FFICXX.Runtime.TH import GDAL.GDALDataset.RawType import GDAL.GDALDataset.FFI import GDAL.GDALDataset.Interface import GDAL.GDALDataset.Cast import GDAL.GDALDataset.RawType import GDAL.GDALDataset.Cast import GDAL.GDALDataset.Interface import GDAL.OGRLayer.RawType import GDAL.OGRLayer.Cast import GDAL.OGRLayer.Interface import GDAL.GDALMajorObject.RawType import GDAL.GDALMajorObject.Cast import GDAL.GDALMajorObject.Interface import STD.Deletable.RawType import STD.Deletable.Cast import STD.Deletable.Interface instance () => IGDALDataset (GDALDataset) where getLayer :: GDALDataset -> CInt -> IO OGRLayer getLayer = (Ptr RawGDALDataset -> CInt -> IO (Ptr RawOGRLayer)) -> GDALDataset -> CInt -> IO OGRLayer forall a ca x1 cx1 y cy. (Castable a ca, Castable x1 cx1, Castable y cy) => (ca -> cx1 -> IO cy) -> a -> x1 -> IO y xform1 Ptr RawGDALDataset -> CInt -> IO (Ptr RawOGRLayer) c_gdaldataset_getlayer getLayerCount :: GDALDataset -> IO CInt getLayerCount = (Ptr RawGDALDataset -> IO CInt) -> GDALDataset -> IO CInt forall a ca y cy. (Castable a ca, Castable y cy) => (ca -> IO cy) -> a -> IO y xform0 Ptr RawGDALDataset -> IO CInt c_gdaldataset_getlayercount instance () => IGDALMajorObject (GDALDataset) where instance () => IDeletable (GDALDataset) where delete :: GDALDataset -> IO () delete = (Ptr RawGDALDataset -> IO ()) -> GDALDataset -> IO () forall a ca y cy. (Castable a ca, Castable y cy) => (ca -> IO cy) -> a -> IO y xform0 Ptr RawGDALDataset -> IO () c_gdaldataset_delete