23

私はググって、Java と Haskell 間の通信は GCJNI (現在サイトはダウンしています) と LambdaVM によって行うことができるといういくつかの回答を得ました.. LambdaVM/GCJNI を使用するには、ビルド ツールをダウンロードする必要がありますか? オンラインであまりリソー​​スが見つからないので、どこでそれらについて詳しく知ることができますか?

Java と Haskell の間で通信するアプリケーションを開発したい (Java から入力を取得し、それを Haskell に渡し、そこで処理し、結果を Java に返す)。これが私がやりたいことです。私を助けてください...

4

4 に答える 4

40

CからHaskellを呼び出すのは非常に簡単なように見えるので、 JavaCPPを使用してJavaから簡単に呼び出すこともできます。たとえばfibonacci_hs()、サンプルコードから関数を呼び出すにはSafe.hs：

{-# LANGUAGE ForeignFunctionInterface #-}

module Safe where

import Foreign.C.Types

fibonacci :: Int -> Int
fibonacci n = fibs !! n
    where fibs = 0 : 1 : zipWith (+) fibs (tail fibs)

fibonacci_hs :: CInt -> CInt
fibonacci_hs = fromIntegral . fibonacci . fromIntegral

foreign export ccall fibonacci_hs :: CInt -> CInt

Javaから次のように実行できます。

import org.bytedeco.javacpp.*;
import org.bytedeco.javacpp.annotation.*;

@Platform(include={"<HsFFI.h>","Safe_stub.h"})
public class Safe {
    static { Loader.load(); }
    public static native void hs_init(int[] argc, @Cast("char***") @ByPtrPtr PointerPointer argv);
    public static native int fibonacci_hs(int i);
    public static void main(String[] args) {
        hs_init(null, null);
        int i = fibonacci_hs(42);
        System.out.println("Fibonacci: " + i);
    }
}

Linuxでは、コンパイル手順は次のようになります。

$ ghc -fPIC -dynamic -c -O Safe.hs
$ javac -cp javacpp.jar Safe.java
$ java -jar javacpp.jar -Dplatform.compiler=ghc -Dplatform.compiler.output="-optc-O3 -Wall Safe.o -dynamic -fPIC -shared -lstdc++ -lHSrts-ghc7.6.3 -o " -Dplatform.linkpath.prefix2="-optl -Wl,-rpath," Safe

そして、プログラムは通常のjavaコマンドで正常に実行されます。

$ java -cp javacpp.jar:. Safe
Fibonacci: 267914296

編集：私は自由に呼び出しオーバーヘッドのマイクロベンチマークを実行しました。次のCヘッダーファイルを使用しますSafe.h。

inline int fibonacci_c(int n) {
    return n < 2 ? n : fibonacci_c(n - 1) + fibonacci_c(n - 2);
}

次のJavaクラス：

import org.bytedeco.javacpp.*;
import org.bytedeco.javacpp.annotation.*;

@Platform(include={"<HsFFI.h>","Safe_stub.h", "Safe.h"})
public class Safe {
    static { Loader.load(); }
    public static native void hs_init(int[] argc, @Cast("char***") @ByPtrPtr PointerPointer argv);
    public static native int fibonacci_hs(int i);
    public static native int fibonacci_c(int n);
    public static int fibonacci(int n) {
        return n < 2 ? n : fibonacci(n - 1) + fibonacci(n - 2);
    }
    public static void main(String[] args) {
        hs_init(null, null);

        for (int i = 0; i < 1000000; i++) {
            fibonacci_hs(0);
            fibonacci_c(0);
            fibonacci(0);
        }
        long t1 = System.nanoTime();
        for (int i = 0; i < 1000000; i++) {
            fibonacci_hs(0);
        }
        long t2 = System.nanoTime();
        for (int i = 0; i < 1000000; i++) {
            fibonacci_c(0);
        }
        long t3 = System.nanoTime();
        for (int i = 0; i < 1000000; i++) {
            fibonacci(0);
        }
        long t4 = System.nanoTime();
        System.out.println("fibonacci_hs(0): " + (t2 - t1)/1000000 + " ns");
        System.out.println("fibonacci_c(0): "  + (t3 - t2)/1000000 + " ns");
        System.out.println("fibonacci(0): "    + (t4 - t3)/1000000 + " ns");
    }
}

これをIntelCorei7-3632QM CPU @ 2.20GHz、Fedora 20 x86_64、GCC 4.8.3、GHC 7.6.3、およびOpenJDK8で出力します。

fibonacci_hs(0): 200 ns
fibonacci_c(0): 9 ns
fibonacci(0): 2 ns

公平を期すために、JVMを呼び出すこともかなり費用がかかることを言及する必要があります...

更新：JavaCPPの最近の変更により、ユーザーはC / C ++から名前でコールバック関数（ポインター）にアクセスできるようになり、HaskellからJVMを簡単に呼び出すことができるようになりました。たとえば、HaskellのFFIに関するwikiページにある情報に基づいて、次のコードを配置しMain.hsます。

{-# LANGUAGE ForeignFunctionInterface #-}
module Main where

import Foreign.C -- get the C types
import Foreign.Ptr (Ptr,nullPtr)

-- impure function
foreign import ccall "JavaCPP_init" c_javacpp_init :: CInt -> Ptr (Ptr CString) -> IO ()
javacpp_init :: IO ()
javacpp_init = c_javacpp_init 0 nullPtr

-- pure function
foreign import ccall "fibonacci" c_fibonacci :: CInt -> CInt
fibonacci :: Int -> Int
fibonacci i = fromIntegral (c_fibonacci (fromIntegral i))

main = do
  javacpp_init
  print $ fibonacci 42

そして、fibonacciJavaで次のように定義された関数：

import org.bytedeco.javacpp.*;
import org.bytedeco.javacpp.annotation.*;

@Platform
public class Main {
    public static class Fibonacci extends FunctionPointer {
        public @Name("fibonacci") int call(int n) {
            return n < 2 ? n : call(n - 1) + call(n - 2);
        }
    }
}

Linuxx86_64で次のようにビルドできます。

$ javac -cp javacpp.jar Main.java
$ java -jar javacpp.jar Main -header
$ ghc --make Main.hs linux-x86_64/libjniMain.so

プログラムは正しく実行され、次の出力が得られます。

$ ./Main
267914296
于 2012-04-29T08:53:35.727 に答える
7

Haskell サーバー プロセス アプローチを選択した場合は、MessagePackシリアライゼーション/rpc ライブラリを使用できます。Java と Haskell の両方のバインディングがあり、Haskell バインディングは適切に維持されているようです。Hackageでmsgpackとmsgpack-rpcを探してください。

MessagePack を使用した Java/Haskell 相互作用の簡単な例を次に示します: Java サーバー、Haskell クライアント(リンクは GitHub に移動します)。ただし、コミュニケーションはあなたが望むものとは反対の方向です。

于 2012-04-29T15:33:40.783 に答える
4

どのようにコミュニケーションを取りたいかによります。Java と Haskell のコードを同じプロセスでネイティブに実行し、それぞれの FFI を介してメモリ内のデータを交換することは大きな問題です。特に、2 つの GC がデータをめぐって争っており、2 つのコンパイラが表現について独自のアイデアを持っているためです。さまざまなデータ型。同様に、JVM の下で Haskell をコンパイルすることも困難です。なぜなら、JVM には (現在) クロージャーの概念がないからです。

もちろん、これらのことは実行できますが、デモンストレーターから産業用ツールに移行するには多大な労力が必要です。私の理解では、あなたが言及したツールはデモンストレーター段階を通過したことはありません.

洗練されていない場合でも、より単純な解決策は、Java からソケットを介してデータを送信するサーバー プロセスとして Haskell プログラムを作成することです。パフォーマンスとボリュームが高すぎない場合、JSON でコーディングするのはおそらく簡単です。どちらの側にもそれをサポートするライブラリがあるからです。

于 2012-04-29T08:43:09.313 に答える