Changeset 21699

Timestamp:

08/01/08 15:33:01 (4 months ago)

Author:

audreyt

Message:

* The logical consequence of r21698.

Location:

src

Files:

• Prereqs.hs (modified) (1 diff)
• Pugs.hs (modified) (2 diffs)
• Pugs/Embed.hs (modified) (2 diffs)
• Pugs/Prim.hs (modified) (3 diffs)
• Pugs/Prim/Match.hs (modified) (1 diff)

src/Prereqs.hs

@@ -10 +10 @@
 
 import Pugs.Compat ()
-import Pugs.Embed.Parrot ()
 import Pugs.Embed.Perl5 ()
 import Pugs.Meta ()

src/Pugs.hs

@@ -148 +148 @@
 mainWith run = do
     hSetBuffering stdout NoBuffering
-    when (isJust _DoCompile) $ do
-        writeIORef (fromJust _DoCompile) doCompile
+--    when (isJust _DoCompile) $ do
+--        writeIORef (fromJust _DoCompile) doCompile
     runWithArgs run
     globalFinalize
@@ -434 +434 @@
     pir <- doCompile "PIR" "-" prog
     writeFile "a.pir" pir
-    evalParrotFile "a.pir"
+    fail "evalParrotFile is bitrotten."
+    -- evalParrotFile "a.pir"
 
 {-

src/Pugs/Embed.hs

@@ -13 +13 @@
     module Pugs.Embed.Perl5,
     module Pugs.Embed.Haskell,
-    module Pugs.Embed.Parrot,
     module Pugs.Embed.Pugs,
     evalEmbedded
@@ -20 +19 @@
 import Pugs.Embed.Perl5
 import Pugs.Embed.Haskell
-import Pugs.Embed.Parrot
 import Pugs.Embed.Pugs
 
 evalEmbedded :: String -> String -> IO ()
-evalEmbedded "Pir" = evalParrot
-evalEmbedded "PIR" = evalParrot
-evalEmbedded "Parrot" = evalParrot
+-- evalEmbedded "Pir" = evalParrot
+-- evalEmbedded "PIR" = evalParrot
+-- evalEmbedded "Parrot" = evalParrot
 evalEmbedded "Pugs" = evalPugs
 {- evalEmbedded "Haskell" code = do

src/Pugs/Prim.hs

@@ -239 +239 @@
     return $ VBool True
 op1 "require_parrot" = \v -> do
-    name    <- fromVal v
-    io $ evalParrotFile name
+    -- name    <- fromVal v
+    fail "evalParrotFile has bitrotten." -- io $ evalParrotFile name
     return $ VBool True
 op1 "require_perl5" = \v -> do
@@ -259 +259 @@
     return val
 op1 "Pugs::Internals::eval_parrot" = \v -> do
-    code    <- fromVal v
+    -- code    <- fromVal v
+    fail "evalParrot has bitrotten." 
+    {-
     io . evalParrot $ case code of
         ('.':_) -> code
@@ -268 +270 @@
             , ".end"
             ]
+    -}
     return $ VBool True
 

src/Pugs/Prim/Match.hs

@@ -48 +48 @@
     text <- ruleWithAdverbs rule
     rv   <- io $ fmap (fmap (fmap toUpper)) (getEnv "PUGS_REGEX_ENGINE")
-    let ruleEngine | Just "PGE" <- rv   = evalPGE
+    let ruleEngine | Just "PGE" <- rv   = error "No PGE support for now" -- evalPGE
                    | otherwise          = evalPCR
     pge  <- io $ ruleEngine [pwd1, pwd2] cs text subrules