Changeset 9052 for src/Pugs/Prim/Eval.hs

Timestamp:

02/18/06 17:56:59 (3 years ago)

Author:

gaal

Message:

* Pugs.Prim - add Pugs::Internals::eval_p6y, a conjectural and

probably bogosous prim to load precompiled Perl 6 files.

Files:

• src/Pugs/Prim/Eval.hs (modified) (3 diffs)

src/Pugs/Prim/Eval.hs

@@ +1 @@
+{-# OPTIONS_GHC -fglasgow-exts #-}
 module Pugs.Prim.Eval (
     -- used by Pugs.Prim
-    op1EvalHaskell,
+    op1EvalHaskell, op1EvalP6Y,
     opEval, opEvalFile,
     opRequire, requireInc,
@@ -15 +16 @@
 import Pugs.Pretty
 import Pugs.Prim.Keyed
+import qualified Data.FastPackedString as Str
+import DrIFT.YAML
+import Data.Yaml.Syck
+
+type Str = Str.FastString
+
 
 data EvalError = EvalErrorFatal
@@ -88 +95 @@
                        , evalResult=EvalResultLastValue}
 
+op1EvalP6Y :: Val -> Eval Val
+op1EvalP6Y f = do
+    fn <- fromVal f
+    str <- liftIO $ Str.readFile fn
+    yml <- liftIO $ parseYamlFS str
+    case yml of
+        Right (Just yml') -> do
+            (glob, ast) <- liftIO $ fromYAML yml'
+            env <- ask
+            -- xxx high bogosity warning
+            globRef <- liftSTM $ do
+                glob' <- readTVar $ envGlobal env
+                newTVar (glob `unionPads` glob')
+            --runEnv env{ envBody = ast, envGlobal = globRef, envDebug = Nothing }
+            (envEval env) ast
+        _ -> fail "failed"
+
 opEval :: EvalStyle -> FilePath -> String -> Eval Val
 opEval style path str = enterCaller $ do