Changeset 10059 for src/Pugs/CodeGen

Timestamp:

04/23/06 14:04:21 (3 years ago)

Author:

audreyt

Message:

* Third-party cleanup #1:

• Remove most of Parsec from our source tree;

the remaining Expr.hs and Token.hs will be reimplemented
to support true dynamic Perl 6 operator precedence parsing
with "is looser", "is parsed" and friends.

• Remove Dimitry Golubovsky's UnicodeC.c from our tree. (This touches pretty most of the .hs file.)

* Update dependency to GHC 6.4.1, because UnicodeC.c and the

Unicode-aware Parsec was not there in 6.4.0.

Location:

src/Pugs/CodeGen

Files:

• Binary.hs (modified) (1 diff)
• JSON.hs (modified) (1 diff)
• PIL1.hs (modified) (1 diff)
• PIL2.hs (modified) (1 diff)
• PIR.hs (modified) (2 diffs)
• Perl5.hs (modified) (1 diff)
• XML.hs (modified) (1 diff)
• YAML.hs (modified) (1 diff)

src/Pugs/CodeGen/Binary.hs

@@ -1 +1 @@
 {-# OPTIONS_GHC -fglasgow-exts #-}
-{-# OPTIONS_GHC -#include "../../UnicodeC.h" #-}
 
 module Pugs.CodeGen.Binary (genBinary) where

src/Pugs/CodeGen/JSON.hs

@@ -1 +1 @@
 {-# OPTIONS_GHC -fglasgow-exts -fallow-undecidable-instances -fno-warn-orphans -funbox-strict-fields -cpp #-}
-{-# OPTIONS_GHC -#include "../../UnicodeC.h" #-}
 
 module Pugs.CodeGen.JSON (genJSON) where

src/Pugs/CodeGen/PIL1.hs

@@ -1 +1 @@
 {-# OPTIONS_GHC -fglasgow-exts -fallow-undecidable-instances -fno-warn-orphans -funbox-strict-fields -cpp #-}
-{-# OPTIONS_GHC -#include "../../UnicodeC.h" #-}
 
 module Pugs.CodeGen.PIL1 (genPIL1) where

src/Pugs/CodeGen/PIL2.hs

@@ -1 +1 @@
 {-# OPTIONS_GHC -fglasgow-exts -fallow-undecidable-instances -fno-warn-orphans -funbox-strict-fields -cpp #-}
-{-# OPTIONS_GHC -#include "../../UnicodeC.h" #-}
 
 module Pugs.CodeGen.PIL2 (

src/Pugs/CodeGen/PIR.hs

@@ -1 +1 @@
 {-# OPTIONS_GHC -fglasgow-exts -fallow-undecidable-instances -fno-warn-orphans -funbox-strict-fields -cpp #-}
-{-# OPTIONS_GHC -#include "../../UnicodeC.h" #-}
 
 {-|
@@ -150 +149 @@
     trans (PVal (VRat rat)) = return $ ExpLit (LitNum (ratToNum rat))
     -- trans (PVal (VList [])) = return $ LitInt 0 -- XXX Wrong
+    trans (PVal (VCode code))
+        | MkCode{ subBody = Syn "block" [ Ann _ exp ] } <- code
+        , App (Var var) Nothing [] <- exp
+        = fmap ExpLV (trans (PVar var))
     trans (PVal (VList vs)) = do
         pmc <- genArray "vlist"

src/Pugs/CodeGen/Perl5.hs

@@ -1 +1 @@
 {-# OPTIONS_GHC -fglasgow-exts -fallow-undecidable-instances -fno-warn-orphans -funbox-strict-fields -cpp #-}
-{-# OPTIONS_GHC -#include "../../UnicodeC.h" #-}
 
 module Pugs.CodeGen.Perl5 (genPerl5) where

src/Pugs/CodeGen/XML.hs

@@ -1 +1 @@
 {-# OPTIONS_GHC -fglasgow-exts #-}
-{-# OPTIONS_GHC -#include "UnicodeC.h" #-}
 
 module Pugs.CodeGen.XML (genXML) where

src/Pugs/CodeGen/YAML.hs

@@ -1 +1 @@
 {-# OPTIONS_GHC -fglasgow-exts -fallow-undecidable-instances -fno-warn-orphans -funbox-strict-fields -cpp #-}
-{-# OPTIONS_GHC -#include "../../UnicodeC.h" #-}
 
 module Pugs.CodeGen.YAML (genYAML, genParseYAML, genParseHsYAML) where