我想从Haskell代码构建库,并在我的C ++项目中进一步使用这个库(共享库:dll左右)。
我找到了简单的教程:http://blogging.makesmeanerd.com/?p=367 并成功重复这个例子。
此外,我简化了这个示例,并获得下一个代码:
{-# LANGUAGE ForeignFunctionInterface #-}
module Grep where
import Foreign
import Foreign.C.String
import Data.Char
printCString :: CString -> IO ()
printCString s = do
ss <- peekCString s
putStrLn ss
getCStringFromKey :: IO CString
getCStringFromKey = do
guess <- getLine
newCString guess
foreign export ccall printCString :: CString -> IO ()
foreign export ccall getCStringFromKey :: IO CString
这是一个非常简单的程序。我输入了下一个命令:
>ghc -c -O grep.hs
>ghc -shared -o grep.dll grep.o
Creating library file: grep.dll.a
之后,我有几个文件:grep.dll,grep.dll.a和grep_stub.h(我的C ++项目的头文件)。 我成功地在C ++项目中使用了这个库。 C ++代码非常简单(我使用的是MS Visual Studio):
#include <iostream>
#include <string>
#include "grep_stub.h"
int main(int argc, char* argv[])
{
std::string testStr;
hs_init(&argc, &argv);
HsPtr str1 = getCStringFromKey();
std::cout << "We've get from Haskell: " << (char*)str1 << std::endl;
HsPtr ss = "Hello from C++!";
printCString(ss);
std::cout << "Test application" << std::endl;
std::cin.get();
hs_exit();
return 0;
}
编译后,此代码运行良好。
如果我使用Cabal构建系统构建相同的Haskell代码(grep.hs):
name: grep
version: 1.0
synopsis: example shared library for C use
build-type: Simple
cabal-version: >=1.10
library
default-language: Haskell2010
exposed-modules: Grep
extra-libraries: HSrts-ghc7.6.3
extensions: ForeignFunctionInterface
build-depends: base >= 4
运行Cabal构建系统:
>cabal configure --enable-shared
>cabal build
...
Creating library file: dist\build\libHSgrep-1.0-ghc7.6.3.dll.a
我有另一个dll(小尺寸),但我不能在MS VS中使用这个dll,因为我收到很多链接器错误(如果我从Haskell平台获得dll.a文件)。 / p>
主要问题:
答案 0 :(得分:1)
您可以通过向库设置添加ghc-options在cabal文件中设置其他选项。不确定你的情况需要什么,但我遇到了同样的问题(小的lib,链接器错误),对我来说,以下设置解决了它:
ghc-options: -staticlib
但我在Xcode的iOS项目中使用它。