5907a064a7
Even though `Int` and `isize` should be the same in practice, we can't cleanly convert, as the type information isn't quite there. And anyway, strictly speaking per the report, `Int` is only guaranteed to hold 30 bits. Note that this is essentially unchanged even if we specify `usize_is_size_t = true` for `cbindgen`.
46 lines
1.2 KiB
Haskell
46 lines
1.2 KiB
Haskell
-- TODO automate this sort of high level wrapper boilerplate
|
|
-- or look at upstream plans: https://github.com/well-typed/hs-bindgen/issues?q=state%3Aopen%20label%3A%22highlevel%22
|
|
module GarnetRs.Wrapped (
|
|
T (..),
|
|
Shape (..),
|
|
hello,
|
|
helloStruct,
|
|
helloShape,
|
|
add,
|
|
) where
|
|
|
|
import Data.ByteString
|
|
import Data.Word
|
|
import Foreign
|
|
import Foreign.C
|
|
import GarnetRs qualified as Raw
|
|
import GarnetRs.Safe qualified as Raw
|
|
import HsBindgen.Runtime.PtrConst
|
|
|
|
data T = T
|
|
{ a :: Bool
|
|
, b :: Word8
|
|
}
|
|
convertT :: T -> Raw.T
|
|
convertT T{a, b} = Raw.T{a = CBool $ fromBool a, b}
|
|
|
|
data Shape
|
|
= Circle CDouble
|
|
| Rectangle CDouble CDouble
|
|
convertShape :: Shape -> Raw.Shape
|
|
convertShape = \case
|
|
Circle r -> Raw.Shape (Raw.Shape_Tag 0) $ Raw.set_shape_body_circle $ Raw.Circle_Body r
|
|
Rectangle w h -> Raw.Shape (Raw.Shape_Tag 1) $ Raw.set_shape_body_rectangle $ Raw.Rectangle_Body w h
|
|
|
|
hello :: ByteString -> IO ()
|
|
hello s = useAsCString s $ Raw.hello . unsafeFromPtr
|
|
|
|
helloStruct :: T -> IO ()
|
|
helloStruct = Raw.hello_struct . convertT
|
|
|
|
helloShape :: Shape -> IO ()
|
|
helloShape = Raw.hello_shape . convertShape
|
|
|
|
add :: Int64 -> Int64 -> IO Int64
|
|
add = Raw.add
|