經(jīng)過實際驗證的C#調(diào)用Haskell的方法

2019-11-17 03:26:07

字體：大中小

供稿：網(wǎng)友

系統(tǒng)環(huán)境】

Windows Server 2008 R2，Haskell Platform 2013.2.0.0，ghc 7.6.3，cabal 1.16.0

【操作步驟】

1. 安裝Windows版Haskell Platform（不支持Windows Server 2012），Haskell Platform集成了cabal(相當于.NET中的msbuild+nuget), ghc(Glasgow Haskell Compiler，Haskell編譯器)

2. 編寫Haskell代碼保存于.hs文件中，代碼中加上foreign export ccall，示例代碼如下：

Haskell代碼

3. 編寫C代碼保存于.c文件中，代碼如下：

#include <windows.h>#include <Rts.h>extern void __stginit_LibPandoc(void);BOOL STDCALL DllMain(HANDLE hModule, DWord reason, void* reserved){  static char* args[] = {"libpandoc", NULL};  if (reason == DLL_PROCESS_ATTACH) {    startupHaskell(1, args, __stginit_LibPandoc);  }  return TRUE;}

4. 編寫cabal配置文件保存于.cabal文件中，比如：

Name:                   libpandocVersion:                0.5Cabal-Version:          >= 1.2Build-Type:             SimpleExecutable libpandoc.dll  If os(windows)    CPP-Options:        -DWIN32  Extensions:           ForeignFunctionInterface           Hs-Source-Dirs:       src  Include-Dirs:         src  C-Sources:            src/pandoc.c  Install-Includes:     pandoc.h  Main-Is:              LibPandoc.hs  Ghc-Options:          -no-hs-main -optl-shared -optl-s

5. 在Haskell項目所在的文件夾運行命令cabal build進行編譯，編譯成功后會生成頭文件，比如build/libpandoc.dll/libpandoc.dll-tmp/LibPandoc_stub.h

#include "HsFFI.h"#ifdef __cplusplusextern "C" {#endifextern HsPtr markdownToHtml(HsPtr a1);#ifdef __cplusplus}#endif

6. 創(chuàng)建用于調(diào)用Haskell的C#項目

7. 將編譯出來的dll文件（比如libpandoc.dll）復(fù)制到C#項目的bin文件夾中

8. 在C#中通過DllImport引用Haskell編譯出來的dll文件

class Native{    [DllImport("libpandoc", CallingConvention = CallingConvention.Cdecl, CharSet = CharSet.Unicode)]    public static extern IntPtr markdownToHtml(byte[] markdown);}

9. 在C#中調(diào)用Haskell通過foreign export ccall暴露出來的函數(shù)，示例代碼如下：

public class Processor {     public string Process(string text)    {        var intPtr = Native.markdownToHtml(Encoding.UTF8.GetBytes(text));        var html = Marshal.PtrToStringAnsi(intPtr);        return html;    } }