用GHC 64构建的简单Windows DLL

对于概念验证，我想将一些简单的Haskell代码链接到我的Visual C ++应用程序（使用Visual Studio 2013）。 用GHC 7.8.3的32位工程构建，但用GHC 7.8.4 64位构建不（注意GHC版本中的细微差异）。

有3个文件： Grep.hs和StartEnd.c是用GHC构建的一个DLL。 main.cpp是使用Visual Studio 2013构建的，并尝试链接到DLL库中。

我从这个建立DLL：

> ghc -shared -O -optc-O -o Grep.dll StartEnd.c Grep.hs

从Visual Studio中，我只需链接到Grep.dll.a并包含C:Program FilesMinGHC-7.8.4ghc-7.8.4libinclude ，但链接失败

1>main.obj : error LNK2001: unresolved external symbol _HsEnd
1>main.obj : error LNK2001: unresolved external symbol _freegrep
1>main.obj : error LNK2001: unresolved external symbol _grep
1>main.obj : error LNK2001: unresolved external symbol _HsStart
1>C:CodeGrepdistWin32ReleaseGrep.exe : fatal error LNK1120: 4 unresolved externals

当我使用32位而不是64位构建时，完全相同的过程起作用。 我可能做错了什么？ （当我尝试链接64位库时，我正在构建一个64位应用程序。）

源文件：

Grep.hs

{-# LANGUAGE ForeignFunctionInterface #-}

module Grep where

import Foreign
import Foreign.C.String
import Data.List (isInfixOf)

filterlines f = unlines . filter f . lines

grep :: CString -> CString -> IO CString
grep i s = do
    ii <- peekCString i
    ss <- peekCString s
    newCString $ (filterlines (isInfixOf ii)) ss

freegrep :: CString -> IO ()
freegrep s = free s

foreign export ccall grep :: CString -> CString -> IO CString
foreign export ccall freegrep :: CString -> IO ()

StartEnd.c

#include <Rts.h>

void HsStart()
{
   int argc = 1;
   char* argv[] = {"ghcDll", NULL}; // argv must end with NULL

   // Initialize Haskell runtime
   char** args = argv;
   hs_init(&argc, &args);
}

void HsEnd()
{
   hs_exit();
}

main.cpp中

#include <HsFFI.h>
#include <Grep_stub.h>
#include <iostream>

extern "C" {
    void HsStart();
    void HsEnd();
}

int main(int argc, char* argv[])
{
    HsStart();
    HsPtr str;

    str = grep("test", "This is a testnwith many linesnand it failednand the test passed");
    if (str)
    {
        std::cout << (char*) str;
        freegrep(str);
    }

    HsEnd();
    return 0;
}

---

感谢评论，我添加了实际的错误输出到帖子。 这让我注意到Visual Studio令人困惑的配置管理界面让我再次陷入困境。 即使我的配置设置为x64它仍然试图构建Win32版本。 长话短说，它的工作！

链接地址: http://www.djcxy.com/p/33329.html

上一篇: Trivial Windows DLL built with GHC 64

下一篇: Dynamic versions of 64 bit base libraries for GHC on Windows