<gh_stars>1-10
import struct
from contextlib import contextmanager
from ctypes import CDLL, POINTER, LibraryLoader, c_char

import msgpack


class HaDLL(CDLL):

    exportPattern = "{name}_export"

    def __init__(self, *args, **kwargs):
        return super(HaDLL, self).__init__(*args, **kwargs)

    def wrap_into_msgpack(self, fun):
        fun.restype = POINTER(c_char)

        def wrapped_fun(*args):
            packed = msgpack.packb(args)
            length_64bits = struct.pack(">q", len(packed))  # native-endian
            ptr = fun(length_64bits + packed)
            data_length = struct.unpack(">q", ptr[:8])[0]
            res = msgpack.unpackb(ptr[8:8 + data_length])
            self.free(ptr)
            return res

        return wrapped_fun

    def __getattr__(self, name):
        try:
            return super(HaDLL, self).__getattr__(name)
        except AttributeError as e:
            expName = self.exportPattern.format(name=name)
            try:
                fun = super(HaDLL, self).__getattr__(expName)
                return self.wrap_into_msgpack(fun)
            except AttributeError:
                raise e


@contextmanager
def Haskell(library, exportPattern="{name}_export"):
    hadll = LibraryLoader(HaDLL)
    hadll.exportPattern = exportPattern

    lib = hadll.LoadLibrary(library)
    lib.hs_init(0, 0)
    yield lib
    lib.hs_exit()

import struct
from contextlib import contextmanager
from ctypes import CDLL, POINTER, LibraryLoader, c_char

import msgpack


class HaDLL(CDLL):

    exportPattern = "{name}_export"

    def __init__(self, *args, **kwargs):
        return super(HaDLL, self).__init__(*args, **kwargs)

    def wrap_into_msgpack(self, fun):
        fun.restype = POINTER(c_char)

        def wrapped_fun(*args):
            packed = msgpack.packb(args)
            length_64bits = struct.pack(">q", len(packed))  # native-endian
            ptr = fun(length_64bits + packed)
            data_length = struct.unpack(">q", ptr[:8])[0]
            res = msgpack.unpackb(ptr[8:8 + data_length])
            self.free(ptr)
            return res

        return wrapped_fun

    def __getattr__(self, name):
        try:
            return super(HaDLL, self).__getattr__(name)
        except AttributeError as e:
            expName = self.exportPattern.format(name=name)
            try:
                fun = super(HaDLL, self).__getattr__(expName)
                return self.wrap_into_msgpack(fun)
            except AttributeError:
                raise e


@contextmanager
def Haskell(library, exportPattern="{name}_export"):
    hadll = LibraryLoader(HaDLL)
    hadll.exportPattern = exportPattern

    lib = hadll.LoadLibrary(library)
    lib.hs_init(0, 0)
    yield lib
    lib.hs_exit()
# native-endian