Changeset 7866 for src/Pugs/CodeGen.hs

Timestamp:

11/06/05 01:28:07 (3 years ago)

Author:

autrijus

Message:

* New compiler backend targets around PIL2:

./pugs -C PIL2-Perl5
./pugs -C PIL2-JSON
./pugs -C PIL2-Binary

The dash is optional (all nonalphanum is dropped), and
it's case insensitive. Eventually these will replace
the PIL1 variants when our p5/js codegens finishes the
migration.

Files:

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

src/Pugs/CodeGen.hs

@@ -14 +14 @@
 import Pugs.Internals
 import Pugs.CodeGen.PIL1 (genPIL1)
-import Pugs.CodeGen.PIL2 (genPIL2)
+import Pugs.CodeGen.PIL2 (genPIL2, genPIL2Perl5, genPIL2Binary, genPIL2JSON)
 import Pugs.CodeGen.PIR (genPIR)
 import Pugs.CodeGen.Perl5 (genPerl5)
@@ -33 +33 @@
     , ("PIL1",        genPIL1)
     , ("PIL2",        genPIL2)
+    , ("PIL2-Perl5",  genPIL2Perl5)
+    , ("PIL2-JSON",   genPIL2JSON)
+    , ("PIL2-Binary", genPIL2Binary)
     , ("Perl5",       genPerl5)
     , ("Pugs",        genPugs)
@@ -44 +47 @@
 
 norm :: String -> String
-norm = norm' . map toLower
+norm = norm' . map toLower . filter isAlphaNum
     where
     norm' "ghc"    = "GHC"
@@ -53 +56 @@
     norm' "pil2"   = "PIL2"
     norm' "perl5"  = "Perl5"
+    norm' "pil2perl5"  = "PIL2-Perl5"
+    norm' "pil2json"   = "PIL2-JSON"
+    norm' "pil2binary" = "PIL2-Binary"
     norm' "pugs"   = "Pugs"
     norm' "binary" = "Binary"