Changeset 3724 for src/Pugs/Run.hs
- Timestamp:
- 05/23/05 13:09:12 (4 years ago)
- svk:copy_cache_prev:
- 5313
- Files:
-
- 1 modified
-
src/Pugs/Run.hs (modified) (5 diffs)
Legend:
- Unmodified
- Added
- Removed
-
src/Pugs/Run.hs
r3663 r3724 21 21 import qualified Data.Map as Map 22 22 23 -- |Run 'Main.run' with command line args. 24 -- See 'Main.main' and 'Pugs.Run.Args.canonicalArgs' 23 {-| 24 Run 'Main.run' with command line args. 25 26 See 'Main.main' and 'Pugs.Run.Args.canonicalArgs' 27 -} 25 28 runWithArgs :: ([String] -> IO t) -> IO t 26 29 runWithArgs f = do … … 38 41 runEnv env = runEvalMain env $ evaluateMain (envBody env) 39 42 40 -- | Run for 'Pugs.Compile.Pugs' backend43 -- | Run for 'Pugs.Compile.Pugs' backend 41 44 runAST :: Pad -> Exp -> IO Val 42 45 runAST glob ast = do … … 50 53 runEnv env{ envBody = ast, envGlobal = globRef, envDebug = Nothing } 51 54 52 -- | Run for 'Pugs.Compile.Haskell' backend55 -- | Run for 'Pugs.Compile.Haskell' backend 53 56 runComp :: Eval Val -> IO Val 54 57 runComp comp = do … … 59 62 runEvalMain env{ envDebug = Nothing } comp 60 63 61 -- | Initialize globals and install primitives in an 'Env'64 -- | Initialize globals and install primitives in an 'Env' 62 65 prepareEnv :: VStr -> [VStr] -> IO Env 63 66 prepareEnv name args = do … … 133 136 ] 134 137 135 -- |Combine @%*ENV\<PERL6LIB\>@, -I, 'Pugs.Config.config' values and \".\" into 136 -- the @\@*INC@ list for 'Main.printConfigInfo' 138 {-| 139 Combine @%*ENV\<PERL6LIB\>@, -I, 'Pugs.Config.config' values and \".\" into 140 the @\@*INC@ list for 'Main.printConfigInfo' 141 -} 137 142 getLibs :: IO [String] 138 143 getLibs = do
