Changeset 21673 for src/Pugs.hs

Show
Ignore:
Timestamp:
08/01/08 13:56:05 (5 months ago)
Author:
audreyt
Message:

* Import Pugs 6.2.13.11 from Hackage into our source tree.
* Highlights:

  • Much faster startup time
  • Slightly faster compilation time (mostly due to refactored Pugs.AST.Internals)
  • Portable-to-Win32 readline thanks to Haskeline
Files:
1 modified

Legend:

Unmodified
Added
Removed

  • src/Pugs.hs

    r17058 r21673  
    124124 
    125125repLoop :: IO () 
    126 repLoop = do 
    127     initializeShell 
    128     tvEnv <- io . newTVarIO . noEnvDebug =<< tabulaRasa defaultProgramName 
     126repLoop = initializeShell $ do 
     127    tvEnv <- io . newTVarIO . noEnvDebug =<< io (tabulaRasa defaultProgramName) 
    129128    fix $ \loop -> do 
    130129        command <- getCommand 
    … …  
    135134                env <- fmap noEnvDebug (tabulaRasa defaultProgramName) 
    136135                stm (writeTVar tvEnv env) 
    137         case command of 
    138             CmdQuit           -> putStrLn "Leaving pugs." 
    139             CmdLoad fn        -> doLoad tvEnv fn >> loop 
    140             CmdRun opts prog  -> doRunSingle tvEnv opts prog >> loop 
    141             CmdParse prog     -> parseEnv pretty prog >> loop 
    142             CmdParseRaw prog  -> parseEnv show prog >> loop 
    143             CmdHelp           -> printInteractiveHelp >> loop 
    144             CmdReset          -> resetEnv >> loop 
     136        if command == CmdQuit then io $ putStrLn "Leaving pugs." else do 
     137            io $ case command of 
     138                CmdLoad fn        -> doLoad tvEnv fn 
     139                CmdRun opts prog  -> doRunSingle tvEnv opts prog 
     140                CmdParse prog     -> parseEnv pretty prog 
     141                CmdParseRaw prog  -> parseEnv show prog 
     142                CmdHelp           -> printInteractiveHelp 
     143                CmdReset          -> resetEnv 
     144                _                 -> return () 
     145            loop 
    145146 
    146147mainWith :: ([String] -> IO a) -> IO ()