ImGuiMultiSelectIO.hsc

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

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

module DearImGui.Raw.ImGuiMultiSelectIO
  ( ImGuiMultiSelectIO (..)
  , destroy
  , init
  , withDefault
  ) where

import Control.Exception (bracket_)
import DearImGui.Raw (ImGuiSelectionUserData)
import DearImGui.Raw.ImGuiSelectionRequest (ImGuiSelectionRequest)
import DearImGui.Raw.ImVector (ImVector)
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.h"

-- structs (opaque)

data {-# CTYPE "dcimgui_nodefaultargfunctions.h" "ImGuiMultiSelectIO" #-} ImGuiMultiSelectIO = ImGuiMultiSelectIO
  { requests :: ImVector ImGuiSelectionRequest
  , rangeSrcItem :: ImGuiSelectionUserData
  , navIdItem :: ImGuiSelectionUserData
  , navIdSelected :: CBool
  , rangeSrcReset :: CBool
  , itemsCount :: CInt
  }
  deriving (Eq, Show)
instance Storable ImGuiMultiSelectIO where
  sizeOf _    = #{size ImGuiMultiSelectIO}
  alignment _ = #{alignment ImGuiMultiSelectIO}
  peek p = ImGuiMultiSelectIO <$> #{peek ImGuiMultiSelectIO, Requests} p <*> #{peek ImGuiMultiSelectIO, RangeSrcItem} p <*> #{peek ImGuiMultiSelectIO, NavIdItem} p <*> #{peek ImGuiMultiSelectIO, NavIdSelected} p <*> #{peek ImGuiMultiSelectIO, RangeSrcReset} p <*> #{peek ImGuiMultiSelectIO, ItemsCount} p
  poke p v = do
    #{poke ImGuiMultiSelectIO, Requests} p v.requests
    #{poke ImGuiMultiSelectIO, RangeSrcItem} p v.rangeSrcItem
    #{poke ImGuiMultiSelectIO, NavIdItem} p v.navIdItem
    #{poke ImGuiMultiSelectIO, NavIdSelected} p v.navIdSelected
    #{poke ImGuiMultiSelectIO, RangeSrcReset} p v.rangeSrcReset
    #{poke ImGuiMultiSelectIO, ItemsCount} p v.itemsCount

instance HasField "requests" (Ptr ImGuiMultiSelectIO) (Ptr (ImVector ImGuiSelectionRequest)) where
  getField = #{ptr ImGuiMultiSelectIO, Requests}

instance HasField "rangeSrcItem" (Ptr ImGuiMultiSelectIO) (Ptr ImGuiSelectionUserData) where
  getField = #{ptr ImGuiMultiSelectIO, RangeSrcItem}

instance HasField "navIdItem" (Ptr ImGuiMultiSelectIO) (Ptr ImGuiSelectionUserData) where
  getField = #{ptr ImGuiMultiSelectIO, NavIdItem}

instance HasField "navIdSelected" (Ptr ImGuiMultiSelectIO) (Ptr CBool) where
  getField = #{ptr ImGuiMultiSelectIO, NavIdSelected}

instance HasField "rangeSrcReset" (Ptr ImGuiMultiSelectIO) (Ptr CBool) where
  getField = #{ptr ImGuiMultiSelectIO, RangeSrcReset}

instance HasField "itemsCount" (Ptr ImGuiMultiSelectIO) (Ptr CInt) where
  getField = #{ptr ImGuiMultiSelectIO, ItemsCount}

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

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

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