fficxx-0.1: lib/FFICXX/Generate/Code/Cabal.hs

-----------------------------------------------------------------------------
-- |
-- Module      : FFICXX.Generate.Code.Cabal
-- Copyright   : (c) 2011-2013 Ian-Woo Kim
--
-- License     : BSD3
-- Maintainer  : Ian-Woo Kim <ianwookim@gmail.com>
-- Stability   : experimental
-- Portability : GHC
--
-----------------------------------------------------------------------------

module FFICXX.Generate.Code.Cabal where

import FFICXX.Generate.Type.Class 

cabalIndentation :: String 
cabalIndentation = replicate 23 ' ' 


-- | generate exposed module list in cabal file 
genExposedModules :: String -> [ClassModule] -> String
genExposedModules summarymod cmods = 
    let indentspace = cabalIndentation
        summarystrs = indentspace ++ summarymod 
        cmodstrs = map ((\x->indentspace++x).cmModule) cmods 
        rawType = map ((\x->indentspace++x++".RawType").cmModule) cmods
        ffi = map ((\x->indentspace++x++".FFI").cmModule) cmods
        interface= map ((\x->indentspace++x++".Interface").cmModule) cmods
        cast = map ((\x->indentspace++x++".Cast").cmModule) cmods 
        implementation = map ((\x->indentspace++x++".Implementation").cmModule) cmods
    in  unlines ([summarystrs]++cmodstrs++rawType++ffi++interface++cast++implementation)

-- | generate other modules in cabal file 
genOtherModules :: [ClassModule] -> String 
genOtherModules _cmods = "" 
{-  let indentspace = cabalIndentation 
      rawType = map ((\x->indentspace++x++".RawType").cmModule) cmods
      ffi = map ((\x->indentspace++x++".FFI").cmModule) cmods
      interface= map ((\x->indentspace++x++".Interface").cmModule) cmods
      cast = map ((\x->indentspace++x++".Cast").cmModule) cmods 
      implementation = map ((\x->indentspace++x++".Implementation").cmModule) cmods
  in  unlines (rawType++ffi++interface++cast++implementation)
-}