Changeset 5890

Timestamp:

07/29/05 17:19:17 (3 years ago)

Author:

bsmith

svk:copy_cache_prev:

7758

Message:

Added export lists to lots of haskell files.

Location:

src

Files:

• Emit/Common.hs (modified) (1 diff)
• Emit/PIR.hs (modified) (1 diff)
• Pugs/CodeGen/PIR.hs (modified) (2 diffs)
• Pugs/Compile.hs (modified) (1 diff)
• Pugs/Compile/Haskell.hs (modified) (1 diff)
• Pugs/Junc.hs (modified) (1 diff)
• Pugs/Monads.hs (modified) (1 diff)
• Pugs/Pretty.hs (modified) (3 diffs)
• Pugs/Prim/Code.hs (modified) (1 diff)
• Pugs/Shell.hs (modified) (1 diff)

src/Emit/Common.hs

@@ -1 +1 @@
 {-# OPTIONS_GHC -fglasgow-exts -fallow-overlapping-instances -fno-warn-orphans -cpp #-}
 
-module Emit.Common where
+module Emit.Common (
+    Emit(..),
+    nested, eqSep, commaSep,
+) where
 import Text.PrettyPrint
 

src/Emit/PIR.hs

@@ -1 +1 @@
 {-# OPTIONS_GHC -fglasgow-exts -fallow-overlapping-instances -fno-warn-orphans -funbox-strict-fields -cpp #-}
 
-module Emit.PIR where
+module Emit.PIR (
+    module Emit.PIR,
+    module Emit.Common,
+) where
 import Data.Char
 import Data.List

src/Pugs/CodeGen/PIR.hs

@@ -18 +18 @@
 import Pugs.AST
 import Pugs.AST.Internals
+import Pugs.Types
 import Pugs.Eval.Var
-import Emit.Common
 import Emit.PIR
 import Pugs.Pretty
@@ -29 +29 @@
 type CodeGen a = WriterT [Stmt] (ReaderT TEnv IO) a
 type CodeGenMonad = WriterT [Stmt] (ReaderT TEnv IO)
+
+ratToNum :: VRat -> VNum
+ratToNum x = (fromIntegral $ numerator x) / (fromIntegral $ denominator x)
 
 {-| Currently only 'PIL' → 'PIR' -}

src/Pugs/Compile.hs

@@ -11 +11 @@
 -}
 
-module Pugs.Compile where
+module Pugs.Compile (
+    PIL(..),
+    Compile(..),
+    TEnv(..), initTEnv,
+    TCxt(..), tcVoid, tcLValue,
+    TParam(..),
+    EnterClass(..),
+    die, varText,
+) where
 import Pugs.AST
 import Pugs.Internals

src/Pugs/Compile/Haskell.hs

@@ -1 +1 @@
 {-# OPTIONS_GHC -fglasgow-exts -fth -cpp #-}
 
-module Pugs.Compile.Haskell where
+module Pugs.Compile.Haskell (
+    genGHC,
+) where
 
 #undef PUGS_HAVE_TH

src/Pugs/Junc.hs

@@ -10 +10 @@
 -}
 
-module Pugs.Junc where
+module Pugs.Junc (
+    ApplyArg(..),
+    opJunc, opJuncNone, opJuncAll, opJuncAny, opJuncOne,
+    juncApply,
+) where
 import Pugs.Internals
 import Pugs.AST

src/Pugs/Monads.hs

@@ -13 +13 @@
 -}
 
-module Pugs.Monads where
+module Pugs.Monads (
+    enterLex, enterContext, enterEvalContext, enterPackage, enterCaller,
+    enterGiven, enterWhen, enterWhile, genSymPrim, genSymCC,
+    enterBlock, enterSub,
+    evalVal, tempVar,
+
+    module Control.Monad.RWS
+) where
 import Pugs.Internals
 import Pugs.AST
 import Pugs.Context
 import Pugs.Types
+import Control.Monad.RWS
 
 {-|

src/Pugs/Pretty.hs

@@ -13 +13 @@
 -}
 
-module Pugs.Pretty where
+module Pugs.Pretty (
+    Pretty, pretty,
+) where
 import Pugs.Internals
 import Pugs.Types
@@ -143 +145 @@
 quoted x = [x]
 
-ratToNum :: VRat -> VNum
-ratToNum x = (fromIntegral $ numerator x) / (fromIntegral $ denominator x)
-
 doubleBraces :: Doc -> Doc
 doubleBraces x = vcat [ (lbrace <> lbrace), nest defaultIndent x, rbrace <> rbrace]
@@ -152 +151 @@
 joinList x y = cat $ punctuate x y
 
-commasep :: [Doc] -> Doc
-commasep x = cat $ (punctuate (char ',')) x
-
 pretty :: Pretty a => a -> String
 pretty a = render $ format a 

src/Pugs/Prim/Code.hs

@@ -1 +1 @@
 {-# OPTIONS_GHC -fglasgow-exts #-}
-module Pugs.Prim.Code where
+module Pugs.Prim.Code (
+    op1CodeAssoc, op1CodeName, op1CodeArity, op1CodeBody, op1CodePos,
+) where
 import Pugs.AST
 import Pugs.Internals

src/Pugs/Shell.hs

@@ -11 +11 @@
 -}
 
-module Pugs.Shell where
+module Pugs.Shell (
+    Command(..),
+    RunOptions(..),
+    initializeShell,
+    getCommand,
+) where
 import Pugs.Internals