Add export lists.

diff --git a/OFC/Common.hs b/OFC/Common.hs
index c10c03dfa6bb817ac3ec4f4d5063e61c4cf3b52a..e234719338720f272c9cd0ce532143bf7e6fcec7 100644 (file)
--- a/OFC/Common.hs
+++ b/OFC/Common.hs
@@ -1,4 +1,8 @@
-module OFC.Common where
+module OFC.Common 
+  ( IndexType(..)
+  , PrettyPrintable(..)
+  ) where
+
 import Text.PrettyPrint (Doc, renderStyle, Style(..), Mode(..))
 
 data IndexType = 

diff --git a/OFC/SecondLevel.hs b/OFC/SecondLevel.hs
index e0dd068d99e6bbb4f6ffb1470fc4c4477748d7f7..2b646ae7bd341b2ab875dc7bdc9a8c46e0506212 100644 (file)
--- a/OFC/SecondLevel.hs
+++ b/OFC/SecondLevel.hs
@@ -1,4 +1,15 @@
-module OFC.SecondLevel where
+module OFC.SecondLevel 
+  ( SymbolTable
+  , Quantification(..)
+  , ValueType(..)
+  , Expression(..) 
+  , Assignment(..)
+  , DiagonalOperator(..)
+  , OperatorExpr(..)
+  , OFL2
+  , buildSecondLevel
+  ) where
+
 import OFC.Common
 import OFC.TargetMapping (MappingTable, FortranFunction)
 import qualified OFC.TargetMapping as TM

diff --git a/OFC/TargetMapping.hs b/OFC/TargetMapping.hs
index feea412896b1f7084d0bbac73b5433af000c19e9..f447c6703dce0b7227af01c1c0c27c6cd615d75b 100644 (file)
--- a/OFC/TargetMapping.hs
+++ b/OFC/TargetMapping.hs
@@ -1,4 +1,17 @@
-module OFC.TargetMapping where
+module OFC.TargetMapping
+  ( MappingTable
+  , TargetType(..)
+  , FortranType(..)
+  , ArrayIndex(..)
+  , SpaceInfo(..)
+  , FortranParamProperty(..)
+  , PPDFunctionSetProperty(..)
+  , FortranFunction(..)
+  , FortranFunctionProperty(..)
+  , findSpace
+  , findParamType
+  ) where
+
 import Data.Map (Map)
 import Data.Maybe (catMaybes)
 
@@ -60,7 +73,6 @@ findParamType properties = getProperty toFortranType properties
   toFortranType (ParamType t) = Just t
   toFortranType _ = Nothing
 
-
 getProperty :: (Show a) => (FortranParamProperty -> Maybe a) -> [FortranParamProperty] -> Maybe a
 getProperty getter properties = case catMaybes $ map getter properties of
   [] -> Nothing

diff --git a/OFC/TopLevel.hs b/OFC/TopLevel.hs
index 68c76e94fed90e1cf3a97b69b8bc87e09c729f6b..f9374d8d488f3dcf2a38ecb802dd7bcfa9601986 100644 (file)
--- a/OFC/TopLevel.hs
+++ b/OFC/TopLevel.hs
@@ -1,4 +1,36 @@
-module OFC.TopLevel where
+module OFC.TopLevel 
+  ( BaseType(..)
+  , Expression(..)
+  , Assignment(..)
+  , SymbolTable
+  , OFL
+  , OFLKeyword(..)
+  , addIndexDeclaration
+  , addInternalIndexDeclaration
+  , addValueDeclaration
+  , addAssignment
+  , addTargetMapping
+  , getSymbols
+  , getIndexSymbols
+  , getValueSymbols
+  , getTargetMappings
+  , getTargetType
+  , getOutputFunction
+  , findUniqueName
+  , setOutputFunction
+  , getIndices
+  , getIndexType
+  , getValueType
+  , hasIndex
+  , hasTargetMapping
+  , hasSymbol
+  , hasValue
+  , isInternalSymbol
+  , promoteType
+  , getType
+  , emptyOFL
+  ) where
+
 import OFC.TargetMapping
 import OFC.Common
 import Text.PrettyPrint

diff --git a/src/Main.hs b/src/Main.hs
index 1b7afd1d2bc0cf40764a95d5803c6b1623ea78ae..261c3e21901af63bf7def24928eb9d95b90db67e 100644 (file)
--- a/src/Main.hs
+++ b/src/Main.hs
@@ -1,6 +1,6 @@
 module Main (main) where
 import System.Environment (getArgs)
-import OFC.Common
+import OFC.Common (prettyPrint)
 import OFC.Parser (runOFLParser)
 import OFC.TopLevel (OFL)
 import OFC.SecondLevel (buildSecondLevel)