Changeset 7127 for src/Pugs/CodeGen.hs

Timestamp:

09/24/05 15:28:50 (3 years ago)

Author:

iblech

Message:

* Usual svn props.
* PIL2JS: runjs.pl: Added --compile-only option, needed for new -CJS.
* Main: Added support for -CJS and unbroke -CPIR.
* Pugs.CodeGen?: Better normalization so -h looks prettier (it's "PIL", not

"Pil", for example).

* Pugs.Help: Add JS to the list of backends supported.
* pugs::hack: Accomodate for the above changes.

Files:

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

src/Pugs/CodeGen.hs

@@ -28 +28 @@
 generators :: Map String Generator
 generators = Map.fromList $
-    [ ("Ghc",         genGHC)
+    [ ("GHC",         genGHC)
     , ("Parrot",      genPIR)
-    , ("Pir",         genPIR)
-    , ("Pil",         genPIL)
---  , ("Pil2",        genPIL2)
+    , ("PIR",         genPIR)
+    , ("PIL",         genPIL)
+--  , ("PIL2",        genPIL2)
     , ("Perl5",       genPerl5)
     , ("Pugs",        genPugs)
     , ("Binary",      genBinary)
-    , ("Json",        genJSON)
---  , ("Xml",         genXML)
+    , ("JSON",        genJSON)
+--  , ("XML",         genXML)
     ]
 
@@ -44 +44 @@
 
 norm :: String -> String
-norm "" = ""
-norm (x:xs) = toUpper x : map toLower xs
+norm = norm' . map toLower
+    where
+    norm' "ghc"    = "GHC"
+    norm' "parrot" = "Parrot"
+    norm' "pir"    = "PIR"
+    norm' "pil"    = "PIL"
+    -- norm' "pil2"   = "PIL2"
+    norm' "perl5"  = "Perl5"
+    norm' "pugs"   = "Pugs"
+    norm' "binary" = "Binary"
+    norm' "json"   = "JSON"
+    -- norm' "xml"    = "XML"
+    norm' x        = x
 
 doLookup :: String -> IO Generator