Destructors.hs

{-# LANGUAGE CApiFFI #-}
module OpenCascade.NCollection.Internal.Destructors
( deletePntArray
, deleteListOfShape
, deleteListOfShapeIterator
, deleteAsciiStringMap
, deleteIndexedDataMapOfShapeListOfShape
, deleteVec3Float
) where

import OpenCascade.NCollection.Types
import OpenCascade.GP.Types
import qualified OpenCascade.TopoDS.Types as TopoDS
import qualified OpenCascade.TCollection.Types as TCollection
import Foreign.Ptr

foreign import capi unsafe "hs_NCollection_Array1.h hs_delete_NCollection_Array1_gp_Pnt" deletePntArray :: Ptr (Array1 Pnt) -> IO ()

foreign import capi unsafe "hs_NCollection_List.h hs_delete_NCollection_List_TopoDS_Shape" deleteListOfShape :: Ptr (List TopoDS.Shape) -> IO ()

foreign import capi unsafe "hs_NCollection_IndexedDataMap.h hs_delete_NCollection_IndexedDataMap_TCollection_AsciiString_TCollection_AsciiString" deleteAsciiStringMap :: Ptr (IndexedDataMap TCollection.AsciiString TCollection.AsciiString) -> IO ()

foreign import capi unsafe "hs_NCollection_IndexedDataMap.h hs_delete_NCollection_IndexedDataMap_TopoDS_Shape_NCollection_List_TopoDS_Shape" deleteIndexedDataMapOfShapeListOfShape :: Ptr (IndexedDataMap TopoDS.Shape (List TopoDS.Shape)) -> IO ()

foreign import capi unsafe "hs_NCollection_Vec3.h hs_delete_NCollection_Vec3_float" deleteVec3Float :: Ptr (Vec3 Float) -> IO ()

foreign import capi unsafe "hs_NCollection_List.h hs_delete_NCollection_List_TopoDS_Shape_Iterator" deleteListOfShapeIterator :: Ptr (ListIterator TopoDS.Shape) -> IO ()