1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
|
{-# LANGUAGE ForeignFunctionInterface #-}
{-# LANGUAGE TemplateHaskell #-}
{-# OPTIONS_GHC -optc-DA_MACRO=1 #-}
import Language.Haskell.TH.Syntax
import System.IO (hFlush, stdout)
foreign import ccall fc :: Int -> IO Int
do addForeignFile LangC $ unlines
[ "#include <stdio.h>"
, "int fc(int x) {"
, " printf(\"calling f(%d)\\n\",x);"
, " fflush(stdout);"
, " return A_MACRO + x;"
, "}"
]
return []
foreign import ccall fcxx :: Int -> IO Int
do addForeignFile LangCxx $ unlines
[ "#include <iostream>"
, "extern \"C\" {"
, " int fcxx(int x) {"
, " std::cout << \"calling fcxx(\" << x << \")\" << std::endl;"
, " std::cout.flush();"
, " return A_MACRO + x;"
, " }"
, "}"
]
return []
main :: IO ()
main = do
fc 2 >>= print
hFlush stdout
fcxx 5 >>= print
hFlush stdout
|
