hs-bindgen-1.0.0.0: test-artefacts/fixtures/edge-cases/adios/Example/FunPtr.hs

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

module Example.FunPtr
    ( Example.FunPtr.adio'0301s_fun
    , Example.FunPtr.cϒ
    , Example.FunPtr.拜拜
    , Example.FunPtr.say拜拜
    )
  where

import qualified HsBindgen.Runtime.Support as BG
import qualified HsBindgen.Runtime.Support.CAPI
import Prelude (IO, fmap)

$(HsBindgen.Runtime.Support.CAPI.addCSource (HsBindgen.Runtime.Support.CAPI.unlines
  [ "#include <edge-cases/adios.h>"
  , "/* test_edgecasesadios_Example_get_adio\769s_fun */"
  , "__attribute__ ((const))"
  , "signed int (*hs_bindgen_4ac23afef85d3af0 (void)) (void)"
  , "{"
  , "  return &adio\769s_fun;"
  , "}"
  , "/* test_edgecasesadios_Example_get_\978 */"
  , "__attribute__ ((const))"
  , "void (*hs_bindgen_0b1168f405aafe83 (void)) (void)"
  , "{"
  , "  return &\978;"
  , "}"
  , "/* test_edgecasesadios_Example_get_\25308\25308 */"
  , "__attribute__ ((const))"
  , "void (*hs_bindgen_0a95358747546f1b (void)) (void)"
  , "{"
  , "  return &\25308\25308;"
  , "}"
  , "/* test_edgecasesadios_Example_get_Say\25308\25308 */"
  , "__attribute__ ((const))"
  , "void (*hs_bindgen_a01e420336bfa879 (void)) (void)"
  , "{"
  , "  return &Say\25308\25308;"
  , "}"
  ]))

-- __unique:__ @test_edgecasesadios_Example_get_adiós_fun@
foreign import ccall unsafe "hs_bindgen_4ac23afef85d3af0" hs_bindgen_4ac23afef85d3af0_base ::
     IO (BG.FunPtr BG.Void)

-- __unique:__ @test_edgecasesadios_Example_get_adiós_fun@
hs_bindgen_4ac23afef85d3af0 :: IO (BG.FunPtr (IO BG.CInt))
hs_bindgen_4ac23afef85d3af0 =
  fmap BG.fromFFIType hs_bindgen_4ac23afef85d3af0_base

{-# NOINLINE adio'0301s_fun #-}
{-| __C declaration:__ @adiós_fun@

    __defined at:__ @edge-cases\/adios.h 12:5@

    __exported by:__ @edge-cases\/adios.h@
-}
adio'0301s_fun :: BG.FunPtr (IO BG.CInt)
adio'0301s_fun =
  BG.unsafePerformIO hs_bindgen_4ac23afef85d3af0

-- __unique:__ @test_edgecasesadios_Example_get_ϒ@
foreign import ccall unsafe "hs_bindgen_0b1168f405aafe83" hs_bindgen_0b1168f405aafe83_base ::
     IO (BG.FunPtr BG.Void)

-- __unique:__ @test_edgecasesadios_Example_get_ϒ@
hs_bindgen_0b1168f405aafe83 :: IO (BG.FunPtr (IO ()))
hs_bindgen_0b1168f405aafe83 =
  fmap BG.fromFFIType hs_bindgen_0b1168f405aafe83_base

{-# NOINLINE cϒ #-}
{-| __C declaration:__ @ϒ@

    __defined at:__ @edge-cases\/adios.h 23:6@

    __exported by:__ @edge-cases\/adios.h@
-}
cϒ :: BG.FunPtr (IO ())
cϒ = BG.unsafePerformIO hs_bindgen_0b1168f405aafe83

-- __unique:__ @test_edgecasesadios_Example_get_拜拜@
foreign import ccall unsafe "hs_bindgen_0a95358747546f1b" hs_bindgen_0a95358747546f1b_base ::
     IO (BG.FunPtr BG.Void)

-- __unique:__ @test_edgecasesadios_Example_get_拜拜@
hs_bindgen_0a95358747546f1b :: IO (BG.FunPtr (IO ()))
hs_bindgen_0a95358747546f1b =
  fmap BG.fromFFIType hs_bindgen_0a95358747546f1b_base

{-# NOINLINE 拜拜 #-}
{-| __C declaration:__ @拜拜@

    __defined at:__ @edge-cases\/adios.h 32:6@

    __exported by:__ @edge-cases\/adios.h@
-}
拜拜 :: BG.FunPtr (IO ())
拜拜 = BG.unsafePerformIO hs_bindgen_0a95358747546f1b

-- __unique:__ @test_edgecasesadios_Example_get_Say拜拜@
foreign import ccall unsafe "hs_bindgen_a01e420336bfa879" hs_bindgen_a01e420336bfa879_base ::
     IO (BG.FunPtr BG.Void)

-- __unique:__ @test_edgecasesadios_Example_get_Say拜拜@
hs_bindgen_a01e420336bfa879 :: IO (BG.FunPtr (IO ()))
hs_bindgen_a01e420336bfa879 =
  fmap BG.fromFFIType hs_bindgen_a01e420336bfa879_base

{-# NOINLINE say拜拜 #-}
{-| __C declaration:__ @Say拜拜@

    __defined at:__ @edge-cases\/adios.h 36:6@

    __exported by:__ @edge-cases\/adios.h@
-}
say拜拜 :: BG.FunPtr (IO ())
say拜拜 =
  BG.unsafePerformIO hs_bindgen_a01e420336bfa879