Permalink
Find file
Fetching contributors…
Cannot retrieve contributors at this time
21 lines (12 sloc) 553 Bytes
{-# LANGUAGE ForeignFunctionInterface #-}
module Experiment.C2HSBinding.Foreign.HsLTI where
import Foreign.Ptr
import Foreign.C.Types
import Foreign.C.String
import System.IO.Unsafe
#include "lib_to_interface.h"
{#pointer LTIData as LTIDataHs newtype #}
{#fun pure unsafe lti_element_count as ^ { id `LTIDataHs' } -> `Int' #}
{#fun pure unsafe lti_get_element as ^ { id `LTIDataHs', `Int' } -> `Int' #}
{#fun pure unsafe lti_new_data as ^ { `Int' } -> `LTIDataHs' id #}
{#fun pure unsafe lti_version_information as ^ { `String' } -> `String' #}