Changeset 4871 for src/Pugs/Compile.hs

Show
Ignore:
Timestamp:
06/20/05 16:11:39 (3 years ago)
Author:
autrijus
svk:copy_cache_prev:
6641
Message:

* repair pugs -C tests.
* Pugs.Compile.Parrot is now gone; -CParrot etc becomes an

alias to -CPIR etc.

Files:
1 modified

Legend:

Unmodified
Added
Removed

  • src/Pugs/Compile.hs

    r4655 r4871  
    1313import Pugs.AST 
    1414import Pugs.Internals 
     15import Pugs.Compile.PIR (genPIR) 
    1516import Pugs.Compile.Pugs (genPugs) 
    16 import Pugs.Compile.Pugs2 (genPugs2) 
    17 import Pugs.Compile.Parrot (genPIR) 
    18 import Pugs.Compile.PIR (genPIR') 
    1917import Pugs.Compile.Haskell (genGHC) 
    2018 
    2119compile :: String -> Env -> IO String 
     20compile "GHC"     env = fmap vCast $ runEvalIO env genGHC 
     21compile "Ghc"     env = fmap vCast $ runEvalIO env genGHC 
    2222compile "Haskell" env = fmap vCast $ runEvalIO env genGHC 
     23compile "Parrot"  env = fmap vCast $ runEvalIO env genPIR 
     24compile "Pir"     env = fmap vCast $ runEvalIO env genPIR 
     25compile "PIR"     env = fmap vCast $ runEvalIO env genPIR 
    2326compile "Pugs"    env = fmap vCast $ runEvalIO env genPugs 
    24 compile "Pugs2"   env = fmap vCast $ runEvalIO env genPugs2 
    25 compile "Parrot"  env = fmap vCast $ runEvalIO env genPIR 
    26 compile "Pir"     env = fmap vCast $ runEvalIO env genPIR' 
    27 compile "PIR"     env = fmap vCast $ runEvalIO env genPIR' 
    2827compile s _ = fail $ "Cannot compile to " ++ s 
    2928