Permalink
Find file
Fetching contributors…
Cannot retrieve contributors at this time
20 lines (15 sloc) 532 Bytes
module Experiment.C2HSBinding.HsLTIHighlevel where
-- {- Unmanaged Version -}
-- import Experiment.C2HSBinding.Foreign.HsLTI
-- {- Managed Version -}
-- (PLEASE CHANGE c2hs-experiments.cabal accordingly)
import Experiment.C2HSBinding.Foreign.HsLTIManaged
ltiEnum :: Int -> [Int]
ltiEnum n =
let ltiData = ltiNewData n
count = ltiElementCount ltiData
elems = [0..(count-1)]
ltiElems = map (ltiGetElement ltiData) elems
in ltiElems
ltiVersion :: String -> String
ltiVersion = ltiVersionInformation