{-# OPTIONS -fglasgow-exts -fffi #-}

module PluginEvalAux where

import Plugins.Make
import Plugins.Load
import Plugins.Utils

import Foreign.C
import Control.Exception        ( evaluate )
import System.IO
import System.Directory         ( renameFile, removeFile )

symbol = "resource"

evalWithStringResult :: FilePath -> String -> IO String
evalWithStringResult srcFile s = do
  (obj, _, err) <- make srcFile ["-Onot"]
  if not (null err)
    then do
      putStrLn "error occured"
      return (show err)
    else do
      (m, rsrc :: String -> IO String) <- load obj [] Nothing symbol
      v' <- rsrc s
      unload m
      mapM_ removeFile [ obj, replaceSuffix obj ".hi" ]
      return v'

foreign export ccall evalhaskell_CString :: CString -> CString -> IO CString

evalhaskell_CString :: CString -> CString -> IO CString
evalhaskell_CString filePathCS sCS = do
  s <- peekCString sCS
  filePath <- peekCString filePathCS
  retval <- evalWithStringResult filePath s
  newCString retval

-- vi:sw=2 sts=2