标签：des style blog class code java
【系统环境】
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，示例代码如下：
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: libpandoc Version: 0.5 Cabal-Version: >= 1.2 Build-Type: Simple Executable 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 __cplusplus extern "C" { #endif extern HsPtr markdownToHtml(HsPtr a1); #ifdef __cplusplus } #endif
6. 创建用于调用Haskell的C#项目
7. 将编译出来的dll文件（比如libpandoc.dll）复制到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#中调用Haskell通过foreign export ccall暴露出来的函数，示例代码如下：
public class Processor { public string Process(string text) { var intPtr = Native.markdownToHtml(Encoding.UTF8.GetBytes(text)); var html = Marshal.PtrToStringAnsi(intPtr); return html; } }
【参考资料】
Call a Haskell function in .NET
经过实际验证的C#调用Haskell的方法,布布扣,bubuko.com
标签：des style blog class code java
原文地址：http://www.cnblogs.com/dudu/p/csharp-call-haskell.html
