module TerraHS.TerraLib.TeLayer
(
TeLayer (..),
TeLayerPtr,
Layers (..)
)
where
import Foreign.C.String
import qualified Foreign.Ptr (Ptr)
import TerraHS.Misc.Object
import TerraHS.TerraLib.TeGeometry
import TerraHS.TerraLib.TePoint
import TerraHS.TerraLib.TeLine2D
import TerraHS.TerraLib.TePolygon
import TerraHS.TerraLib.TeCell
import TerraHS.TerraLib.TeTable
import TerraHS.TerraLib.TeRaster
import TerraHS.TerraLib.TeDatabase (TeDatabasePtr)
class Layers l where
name :: (Foreign.Ptr.Ptr l) -> Prelude.IO String
getRaster :: (Foreign.Ptr.Ptr l) -> Prelude.IO TeRasterPtr
saveTable :: (Foreign.Ptr.Ptr l) -> TeTable -> Prelude.IO Bool
addPoints :: (Foreign.Ptr.Ptr l) -> TePointSet -> Prelude.IO Bool
addLines :: (Foreign.Ptr.Ptr l) -> TeLineSet -> Prelude.IO Bool
addCells :: (Foreign.Ptr.Ptr l) -> TeCellSet -> Prelude.IO Bool
addPolygons :: (Foreign.Ptr.Ptr l) -> TePolygonSet -> Prelude.IO Bool
data TeLayer = TeLayer String | TeLayerDb String TeDatabasePtr deriving (Show)
type TeLayerPtr = Foreign.Ptr.Ptr TeLayer
instance Layers TeLayer where
name ptr = telayer_name ptr >>= peekCString >>= return
getRaster l = telayer_raster l
saveTable layer (TeTable name attrs values) = do
table <- TerraHS.Misc.Object.new (TeTable name attrs values)
st <- createAttributeTable layer table
addValues values table
st1 <- telayer_saveattributetable layer table
return (st && st1)
addPoints layer ps = TerraHS.Misc.Object.new ps >>= telayer_addpoints layer
addLines layer ls = TerraHS.Misc.Object.new ls >>= telayer_addlines layer
addCells layer cs = TerraHS.Misc.Object.new cs >>= telayer_addcells layer
addPolygons layer ps = TerraHS.Misc.Object.new ps >>= telayer_addpolygons layer
--instanciação-----------------------------------------------------------
instance Pointer TeLayer where
new (TeLayerDb ln db) = (newCString ln) >>= (tedatabase_newLayer db ) >>= return
new (TeLayer ln) = (newCString ln) >>= h_telayer_new >>= return
delete l = error "not implemented"
foreign import stdcall unsafe "c_telayer_gettepoints" h_telayer_gettepoints :: TeLayerPtr-> TePointSetPtr-> Prelude.IO ()
foreign import stdcall unsafe "c_telayer_name" telayer_name :: TeLayerPtr -> Prelude.IO CString
foreign import stdcall unsafe "c_telayer_raster" telayer_raster :: TeLayerPtr -> Prelude.IO TeRasterPtr
foreign import stdcall unsafe "c_telayer_new" h_telayer_new :: CString -> Prelude.IO TeLayerPtr
foreign import stdcall unsafe "c_telayer_addcolumn" telayer_addcolumn :: TeLayerPtr -> CString -> Prelude.IO ()
foreign import stdcall unsafe "c_telayer_insertvalue" telayer_insertvalue :: TeLayerPtr -> CString -> CString -> CString -> Prelude.IO ()
foreign import stdcall unsafe "c_createAttributeTable" createAttributeTable :: TeLayerPtr -> TeTablePtr -> Prelude.IO Bool
foreign import stdcall unsafe "c_telayer_saveattributetable" telayer_saveattributetable :: TeLayerPtr -> TeTablePtr -> Prelude.IO Bool
foreign import stdcall unsafe "c_tedatabase_newLayer" tedatabase_newLayer :: TeDatabasePtr -> CString -> Prelude.IO TeLayerPtr
foreign import stdcall unsafe "c_telayer_addpoints" telayer_addpoints :: TeLayerPtr -> TePointSetPtr -> Prelude.IO Bool
foreign import stdcall unsafe "c_telayer_addlines" telayer_addlines :: TeLayerPtr -> TeLineSetPtr -> Prelude.IO Bool
foreign import stdcall unsafe "c_telayer_addcells" telayer_addcells :: TeLayerPtr -> TeCellSetPtr -> Prelude.IO Bool
foreign import stdcall unsafe "c_telayer_addpolygons" telayer_addpolygons :: TeLayerPtr -> TePolygonSetPtr -> Prelude.IO Bool