{-
-- The main program for cpphs, a simple C pre-processor written in Haskell.

-- Copyright (c) 2004 Malcolm Wallace
-- This file is GPL, although the libraries it uses are either standard
-- Haskell'98 or distributed under the LGPL.
-}
module Language.Preprocessor.Cpphs.RunCpphs ( runCpphs ) where

import Language.Preprocessor.Cpphs.CppIfdef (cppIfdef)
import Language.Preprocessor.Cpphs.MacroPass(macroPass)
import Language.Preprocessor.Cpphs.Options(CpphsOption(..), parseOption)


runCpphs :: [CpphsOption] -> FilePath -> String -> IO String
runCpphs opts filename input = do
  let ds = [x | CpphsMacro x <- opts]
      is = [x | CpphsPath x <- opts]
      macro = not (CpphsNoMacro `elem` opts)
      locat = not (CpphsNoLine `elem` opts)
      lang  = not (CpphsText `elem` opts)
      strip =      CpphsStrip `elem` opts
      ansi  =      CpphsAnsi `elem` opts
      layout=      CpphsLayout `elem` opts

  let pass1 = cppIfdef filename ds is macro locat input
      pass2 = macroPass ds strip ansi layout lang pass1
      result = if not macro then unlines (map snd pass1) else pass2

  return result