Ticket #1181: APILoad.hs

module Main where

import GHC
import DynFlags(defaultDynFlags)
import System.Environment

ghcLibDir = "/usr/local/lib/ghc-6.7.20070215"

main = defaultErrorHandler defaultDynFlags $ do
    (session,modules) <- initSessionFromArgs
    targets <- mapM (flip guessTarget Nothing) modules
    setTargets session targets
    loadSessionTargets session
    

initSessionFromArgs :: IO (Session, [String])
initSessionFromArgs = do
    session <- newSession Interactive (Just ghcLibDir)
    f0 <- getSessionDynFlags session
    cmdLineArgs <- getArgs 
    (f1,modules) <- parseDynamicFlags f0 cmdLineArgs
    setSessionDynFlags session f1{hscTarget=HscInterpreted}
    return (session,modules)
    
loadSessionTargets :: Session -> IO ()
loadSessionTargets session = do
    f <- getSessionDynFlags session
    sf <- defaultCleanupHandler f $ do
        putStrLn "Loading..."
        res <- load session LoadAllTargets
        putStrLn "Done loading."
        return res
    case sf of
        Succeeded -> return ()
        Failed -> error "Failed to load modules!"