ImGuiNextItemData.hsc

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

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

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

import Control.Exception (bracket_)
import DearImGui.Raw (ImGuiID, ImGuiKeyChord, ImGuiSelectionUserData, ImU32, ImU8)
import DearImGui.Raw.Enums.ImGuiInputFlags (ImGuiInputFlags)
import DearImGui.Raw.Enums.ImGuiItemFlags (ImGuiItemFlags)
import DearImGui.Raw.Internal.Enums.ImGuiNextItemDataFlags (ImGuiNextItemDataFlags)
import DearImGui.Raw.Internal.ImGuiDataTypeStorage (ImGuiDataTypeStorage)
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 ImGuiNextItemData
instance Storable ImGuiNextItemData where
  sizeOf _    = #{size ImGuiNextItemData}
  alignment _ = #{alignment ImGuiNextItemData}
  peek _ = error "ImGuiNextItemData: opaque struct, peek not supported in v0"
  poke _ _ = error "ImGuiNextItemData: opaque struct, poke not supported in v0"

instance HasField "hasFlags" (Ptr ImGuiNextItemData) (Ptr ImGuiNextItemDataFlags) where
  getField = #{ptr ImGuiNextItemData, HasFlags}

instance HasField "itemFlagsSet" (Ptr ImGuiNextItemData) (Ptr ImGuiItemFlags) where
  getField = #{ptr ImGuiNextItemData, ItemFlagsSet}

instance HasField "focusScopeId" (Ptr ImGuiNextItemData) (Ptr ImGuiID) where
  getField = #{ptr ImGuiNextItemData, FocusScopeId}

instance HasField "selectionUserData" (Ptr ImGuiNextItemData) (Ptr ImGuiSelectionUserData) where
  getField = #{ptr ImGuiNextItemData, SelectionUserData}

instance HasField "width" (Ptr ImGuiNextItemData) (Ptr Float) where
  getField = #{ptr ImGuiNextItemData, Width}

instance HasField "shortcut" (Ptr ImGuiNextItemData) (Ptr ImGuiKeyChord) where
  getField = #{ptr ImGuiNextItemData, Shortcut}

instance HasField "shortcutFlags" (Ptr ImGuiNextItemData) (Ptr ImGuiInputFlags) where
  getField = #{ptr ImGuiNextItemData, ShortcutFlags}

instance HasField "openVal" (Ptr ImGuiNextItemData) (Ptr CBool) where
  getField = #{ptr ImGuiNextItemData, OpenVal}

instance HasField "openCond" (Ptr ImGuiNextItemData) (Ptr ImU8) where
  getField = #{ptr ImGuiNextItemData, OpenCond}

instance HasField "refVal" (Ptr ImGuiNextItemData) (Ptr ImGuiDataTypeStorage) where
  getField = #{ptr ImGuiNextItemData, RefVal}

instance HasField "storageId" (Ptr ImGuiNextItemData) (Ptr ImGuiID) where
  getField = #{ptr ImGuiNextItemData, StorageId}

instance HasField "colorMarker" (Ptr ImGuiNextItemData) (Ptr ImU32) where
  getField = #{ptr ImGuiNextItemData, ColorMarker}

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

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

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

-- functions

-- C: void ClearFlags(ImGuiNextItemData* self)
foreign import capi unsafe "dcimgui_nodefaultargfunctions_internal.h ImGuiNextItemData_ClearFlags"
  clearFlags
    :: (Ptr ImGuiNextItemData) -- ^ self
    -> IO ()