ImGuiTableInstanceData.hsc

{-# LANGUAGE CApiFFI #-}
{-# LANGUAGE PatternSynonyms #-}

-- This file was generated by dear-bindings-ffi. Do not edit by hand.

module DearImGui.Raw.Internal.ImGuiTableInstanceData
  ( ImGuiTableInstanceData (..)
  , destroy
  , init
  , withDefault
  ) where

import Control.Exception (bracket_)
import DearImGui.Raw (ImGuiID)
import Foreign.C.Types
import Foreign.Marshal.Alloc (alloca)
import Foreign.Ptr (Ptr, plusPtr)
import Foreign.Storable (Storable (..))
import GHC.Records (HasField (..))
import Prelude hiding (init)

#include "dcimgui_nodefaultargfunctions_internal.h"

-- structs (opaque)

data {-# CTYPE "dcimgui_nodefaultargfunctions_internal.h" "ImGuiTableInstanceData" #-} ImGuiTableInstanceData = ImGuiTableInstanceData
  { tableInstanceID :: ImGuiID
  , lastOuterHeight :: Float
  , lastTopHeadersRowHeight :: Float
  , lastFrozenHeight :: Float
  , hoveredRowLast :: CInt
  , hoveredRowNext :: CInt
  }
  deriving (Eq, Show)
instance Storable ImGuiTableInstanceData where
  sizeOf _    = #{size ImGuiTableInstanceData}
  alignment _ = #{alignment ImGuiTableInstanceData}
  peek p = ImGuiTableInstanceData <$> #{peek ImGuiTableInstanceData, TableInstanceID} p <*> #{peek ImGuiTableInstanceData, LastOuterHeight} p <*> #{peek ImGuiTableInstanceData, LastTopHeadersRowHeight} p <*> #{peek ImGuiTableInstanceData, LastFrozenHeight} p <*> #{peek ImGuiTableInstanceData, HoveredRowLast} p <*> #{peek ImGuiTableInstanceData, HoveredRowNext} p
  poke p v = do
    #{poke ImGuiTableInstanceData, TableInstanceID} p v.tableInstanceID
    #{poke ImGuiTableInstanceData, LastOuterHeight} p v.lastOuterHeight
    #{poke ImGuiTableInstanceData, LastTopHeadersRowHeight} p v.lastTopHeadersRowHeight
    #{poke ImGuiTableInstanceData, LastFrozenHeight} p v.lastFrozenHeight
    #{poke ImGuiTableInstanceData, HoveredRowLast} p v.hoveredRowLast
    #{poke ImGuiTableInstanceData, HoveredRowNext} p v.hoveredRowNext

instance HasField "tableInstanceID" (Ptr ImGuiTableInstanceData) (Ptr ImGuiID) where
  getField = #{ptr ImGuiTableInstanceData, TableInstanceID}

instance HasField "lastOuterHeight" (Ptr ImGuiTableInstanceData) (Ptr Float) where
  getField = #{ptr ImGuiTableInstanceData, LastOuterHeight}

instance HasField "lastTopHeadersRowHeight" (Ptr ImGuiTableInstanceData) (Ptr Float) where
  getField = #{ptr ImGuiTableInstanceData, LastTopHeadersRowHeight}

instance HasField "lastFrozenHeight" (Ptr ImGuiTableInstanceData) (Ptr Float) where
  getField = #{ptr ImGuiTableInstanceData, LastFrozenHeight}

instance HasField "hoveredRowLast" (Ptr ImGuiTableInstanceData) (Ptr CInt) where
  getField = #{ptr ImGuiTableInstanceData, HoveredRowLast}

instance HasField "hoveredRowNext" (Ptr ImGuiTableInstanceData) (Ptr CInt) where
  getField = #{ptr ImGuiTableInstanceData, HoveredRowNext}

foreign import capi unsafe "DearImGuiWrappers.h ImGuiTableInstanceData_Init_wrap"
  init
    :: Ptr ImGuiTableInstanceData
    -> IO ()

foreign import capi unsafe "DearImGuiWrappers.h ImGuiTableInstanceData_Destroy_wrap"
  destroy
    :: Ptr ImGuiTableInstanceData
    -> IO ()

withDefault :: (Ptr ImGuiTableInstanceData -> IO a) -> IO a
withDefault k = alloca $ \p -> bracket_ (init p) (destroy p) (k p)