{-# LANGUAGE ForeignFunctionInterface #-}
{-# LANGUAGE TemplateHaskell #-}
{-# LANGUAGE NoFieldSelectors #-}
{-# LANGUAGE NoImplicitPrelude #-}
{-# OPTIONS_HADDOCK prune #-}

module SDL3.Sys.Bindgen.Locale.FunPtr (
  SDL3.Sys.Bindgen.Locale.FunPtr.sDL_GetPreferredLocales,
)
where

import Prelude (IO, fmap)

import HsBindgen.Runtime.Support qualified as BG
import HsBindgen.Runtime.Support.CAPI qualified
import SDL3.Sys.Bindgen.Locale

$( HsBindgen.Runtime.Support.CAPI.addCSource
     ( HsBindgen.Runtime.Support.CAPI.unlines
         [ "#define SDL_MAIN_HANDLED"
         , "#define SDL_SLOW_MEMCPY"
         , "#define SDL_SLOW_MEMMOVE"
         , "#define SDL_SLOW_MEMSET"
         , "#include <SDL3/SDL_locale.h>"
         , "/* sdl3bindgensys_SDL3.Sys.Bindgen.Locale_get_SDL_GetPreferredLocales */"
         , "__attribute__ ((const))"
         , "SDL_Locale **(*hs_bindgen_85c70d4968252352 (void)) ("
         , "  signed int *arg1"
         , ")"
         , "{"
         , "  return &SDL_GetPreferredLocales;"
         , "}"
         ]
     )
 )

-- __unique:__ @sdl3bindgensys_SDL3.Sys.Bindgen.Locale_get_SDL_GetPreferredLocales@
foreign import ccall unsafe "hs_bindgen_85c70d4968252352"
  hs_bindgen_85c70d4968252352_base
    :: IO (BG.FunPtr BG.Void)

-- __unique:__ @sdl3bindgensys_SDL3.Sys.Bindgen.Locale_get_SDL_GetPreferredLocales@
hs_bindgen_85c70d4968252352 :: IO (BG.FunPtr (BG.Ptr BG.CInt -> IO (BG.Ptr (BG.Ptr SDL_Locale))))
hs_bindgen_85c70d4968252352 :: IO (FunPtr (Ptr CInt -> IO (Ptr (Ptr SDL_Locale))))
hs_bindgen_85c70d4968252352 =
  (FunPtr Void -> FunPtr (Ptr CInt -> IO (Ptr (Ptr SDL_Locale))))
-> IO (FunPtr Void)
-> IO (FunPtr (Ptr CInt -> IO (Ptr (Ptr SDL_Locale))))
forall a b. (a -> b) -> IO a -> IO b
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
fmap FunPtr Void -> FunPtr (Ptr CInt -> IO (Ptr (Ptr SDL_Locale)))
FFIType (FunPtr (Ptr CInt -> IO (Ptr (Ptr SDL_Locale))))
-> FunPtr (Ptr CInt -> IO (Ptr (Ptr SDL_Locale)))
forall a. HasFFIType a => FFIType a -> a
BG.fromFFIType IO (FunPtr Void)
hs_bindgen_85c70d4968252352_base

{-# NOINLINE sDL_GetPreferredLocales #-}

-- | Report the user\'s preferred locale.
--
--     Returned language strings are in the format xx, where \'xx\' is an ISO-639 language specifier (such as \"en\" for English, \"de\" for German, etc). Country strings are in the format YY, where \"YY\" is an ISO-3166 country code (such as \"US\" for the United States, \"CA\" for Canada, etc). Country might be NULL if there\'s no specific guidance on them (so you might get { \"en\", \"US\" } for American English, but { \"en\", NULL } means \"English language, generically\"). Language strings are never NULL, except to terminate the array.
--
--     Please note that not all of these strings are 2 characters; some are three or more.
--
--     The returned list of locales are in the order of the user\'s preference. For example, a German citizen that is fluent in US English and knows enough Japanese to navigate around Tokyo might have a list like: { \"de\", \"en_US\", \"jp\", NULL }. Someone from England might prefer British English (where \"color\" is spelled \"colour\", etc), but will settle for anything like it: { \"en_GB\", \"en\", NULL }.
--
--     This function returns NULL on error, including when the platform does not supply this information at all.
--
--     This might be a \"slow\" call that has to query the operating system. It\'s best to ask for this once and save the results. However, this list can change, usually because the user has changed a system preference outside of your program; SDL will send an SDL_EVENT_LOCALE_CHANGED event in this case, if possible, and you can call this function again to get an updated copy of preferred locales.
--
--     [@count@]: a pointer filled in with the number of locales returned, may be NULL.
--
--     [Returns]: a NULL terminated array of locale pointers, or NULL on failure; call SDL_GetError() for more information. This is a single allocation that should be freed with SDL_free() when it is no longer needed.
--
--     [Thread safety]: This function is not thread safe.
--
--     @since 3.2.0
--
--     [C declaration]: @SDL_GetPreferredLocales@, defined at @SDL3\/SDL_locale.h 109:43@
sDL_GetPreferredLocales :: BG.FunPtr (BG.Ptr BG.CInt -> IO (BG.Ptr (BG.Ptr SDL_Locale)))
sDL_GetPreferredLocales :: FunPtr (Ptr CInt -> IO (Ptr (Ptr SDL_Locale)))
sDL_GetPreferredLocales =
  IO (FunPtr (Ptr CInt -> IO (Ptr (Ptr SDL_Locale))))
-> FunPtr (Ptr CInt -> IO (Ptr (Ptr SDL_Locale)))
forall a. IO a -> a
BG.unsafePerformIO IO (FunPtr (Ptr CInt -> IO (Ptr (Ptr SDL_Locale))))
hs_bindgen_85c70d4968252352