simple ffi with rust and haskell

so far, only calling rust from haskell, not the other way round.

4 files changed, 51 insertions, 0 deletions

diff --git a/rusty-haskell/haskell/.gitignore b/rusty-haskell/haskell/.gitignore
new file mode 100644
index 0000000..b5e3679
--- /dev/null
+++ b/rusty-haskell/haskell/.gitignore
@@ -0,0 +1 @@
+dist-newstyle/*
diff --git a/rusty-haskell/haskell/rust-haskell-ffi.cabal b/rusty-haskell/haskell/rust-haskell-ffi.cabal
new file mode 100644
index 0000000..c540b57
--- /dev/null
+++ b/rusty-haskell/haskell/rust-haskell-ffi.cabal
@@ -0,0 +1,26 @@
+cabal-version:       >=1.10
+-- Initial package description 'rust-haskell-ffi.cabal' generated by 'cabal
+--  init'.  For further documentation, see
+-- http://haskell.org/cabal/users-guide/
+
+name:                rust-haskell-ffi
+version:             0.1.0.0
+-- synopsis:
+-- description:
+-- bug-reports:
+-- license:
+license-file:        LICENSE
+author:              stuebinm
+maintainer:          stuebinm@disroot.org
+-- copyright:
+-- category:
+build-type:          Simple
+extra-source-files:  CHANGELOG.md
+
+executable rust-haskell-ffi
+  main-is: src/Main.hs
+  other-extensions:    ForeignFunctionInterface
+  build-depends:       base >= 4.7 && < 5
+  default-language:    Haskell2010
+  extra-libraries:     rustlib, pthread
+  extra-lib-dirs:      ../rust/target/release
diff --git a/rusty-haskell/haskell/src/FLib.hs b/rusty-haskell/haskell/src/FLib.hs
new file mode 100644
index 0000000..7fc1d61
--- /dev/null
+++ b/rusty-haskell/haskell/src/FLib.hs
@@ -0,0 +1,8 @@
+module FLib where
+
+import Foreign.C.Types
+import Foreign.C.String
+
+foreign import ccall "double_input" doubleInput :: CInt -> CInt
+--foreign import ccall unsafe "print_string" printString :: CString -> IO ()
+foreign import ccall "print_hello" printHello :: IO ()
diff --git a/rusty-haskell/haskell/src/Main.hs b/rusty-haskell/haskell/src/Main.hs
new file mode 100644
index 0000000..2c6a7ae
--- /dev/null
+++ b/rusty-haskell/haskell/src/Main.hs
@@ -0,0 +1,16 @@
+module Main where
+
+
+import Foreign.C.Types
+import Foreign.C.String
+
+foreign import ccall "double_input" doubleInput :: CInt -> CInt
+--foreign import ccall unsafe "print_string" printString :: CString -> IO ()
+foreign import ccall "print_hello" printHello :: IO ()
+
+
+main :: IO ()
+main = do
+  let b = doubleInput 2
+  printHello
+  putStrLn $ show b