-- GENERATED by C->Haskell Compiler, version 0.16.5 Crystal Seed, 24 Jan 2009 (Haskell)
-- Edit the ORIGNAL .chs file instead!


{-# LINE 1 "./BioInf/ViennaRNA/Bindings/FFI/Fold.chs" #-}{-# LANGUAGE ForeignFunctionInterface #-}
{-# LANGUAGE CPP #-}

module BioInf.ViennaRNA.Bindings.FFI.Fold
  ( ffiFold
  , ffiEnergyOfStructure
  ) where

import Foreign.C.String
import Foreign.C.Types
import Foreign.Marshal.Alloc
import Foreign.Ptr
import GHC.Float
import Unsafe.Coerce

import BioInf.ViennaRNA.Bindings.FFI.Utils




ffiFold :: String -> IO (Double,String)
ffiFold inp = withCAString inp $ \cinp ->
              withCAString inp $ \struc -> do
  e <- fold cinp struc
  s <- peekCAString struc
  return (cf2d e, s)

ffiEnergyOfStructure :: String -> String -> Int -> IO Double
ffiEnergyOfStructure inp struc verb =
  withCAString inp   $ \i ->
  withCAString struc $ \s ->
    setCutPoint (-1)
    >>  energy_of_structure i s (fromIntegral verb :: CInt)
    >>= (return . cf2d)


foreign import ccall safe "BioInf/ViennaRNA/Bindings/FFI/Fold.chs.h fold"
  fold :: ((Ptr CChar) -> ((Ptr CChar) -> (IO CFloat)))

foreign import ccall safe "BioInf/ViennaRNA/Bindings/FFI/Fold.chs.h energy_of_structure"
  energy_of_structure :: ((Ptr CChar) -> ((Ptr CChar) -> (CInt -> (IO CFloat))))