Changeset 5393 for src/Pugs/CodeGen.hs

Timestamp:

07/11/05 07:19:48 (3 years ago)

Author:

autrijus

svk:copy_cache_prev:

7349

Message:

* rename "translate" to "codegen"

Files:

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

src/Pugs/CodeGen.hs

@@ -10 +10 @@
 -}
 
-module Pugs.CodeGen (translate, backends) where
+module Pugs.CodeGen (codeGen, backends) where
 import Pugs.AST
 import Pugs.Internals
@@ -34 +34 @@
 
 norm :: String -> String
-norm s = ucfirst $ map toLower s
-    where ucfirst (x:xs) = toUpper x : xs
-          ucfirst [] = []
+norm "" = ""
+norm (x:xs) = toUpper x : map toLower xs
 
 doLookup :: String -> IO Generator
 doLookup s = Map.lookup (norm s) generators
 
-translate :: String -> Env -> IO String
-translate s env = do
+codeGen :: String -> Env -> IO String
+codeGen s env = do
     gen <- catch (doLookup s) $ \_ -> do
-        fail $ "Cannot compile to " ++ s
+        fail $ "Cannot generate code for " ++ s
     rv <- runEvalIO env gen
     case rv of