Changeset 3629 for src/Main.hs

Timestamp:

05/22/05 08:08:51 (4 years ago)

Author:

knew

svk:copy_cache_prev:

5201

Message:

* Made backend selection case-insensitive
* And updated t/pugsrun/09-dash-uppercase-c.t to test it

Files:

• src/Main.hs (modified) (1 diff)

src/Main.hs

@@ -159 +159 @@
 doCompileDump :: String -> FilePath -> String -> IO ()
 doCompileDump backend file prog = do
-    str <- doCompile backend file prog
+    str <- doCompile backend' file prog
     writeFile "dump.ast" str
+    where
+    backend' = capitalizeWord backend
+    capitalizeWord []     = []
+    capitalizeWord (c:cs) = toUpper c:(map toLower cs)
 
 doCompileRun :: String -> FilePath -> String -> IO ()
 doCompileRun backend file prog = do
-    str <- doCompile backend file prog
-    evalEmbedded backend str
+    str <- doCompile backend' file prog
+    evalEmbedded backend' str
+    where
+    backend' = capitalizeWord backend
+    capitalizeWord []     = []
+    capitalizeWord (c:cs) = toUpper c:(map toLower cs)
 
 doParseWith :: (Env -> FilePath -> IO a) -> FilePath -> String -> IO a