Changeset 4974 for src/Pugs/CodeGen.hs

Timestamp:

06/26/05 09:45:07 (3 years ago)

Author:

autrijus

svk:copy_cache_prev:

6771

Message:

* finish s/trans/codegen/

Files:

• src/Pugs/CodeGen.hs (modified) (3 diffs)

src/Pugs/CodeGen.hs

@@ -15 +15 @@
 import qualified Data.Map as Map
 
-type Translator = Eval Val
+type Generator = Eval Val
 
-translators :: Map String Translator
-translators = Map.fromList $
+generators :: Map String Generator
+generators = Map.fromList $
     [ ("Ghc",         genGHC)
     , ("Parrot",      genPIR)
@@ -26 +26 @@
 
 backends :: [String]
-backends = Map.keys translators
+backends = Map.keys generators
 
 norm :: String -> String
@@ -33 +33 @@
           ucfirst [] = []
 
-doLookup :: String -> IO Translator
-doLookup s = Map.lookup (norm s) translators
+doLookup :: String -> IO Generator
+doLookup s = Map.lookup (norm s) generators
 
 translate :: String -> Env -> IO String