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

Timestamp:

05/27/05 22:49:53 (4 years ago)

Author:

iblech

svk:copy_cache_prev:

5515

Message:

* Implement evalfile()
* Added a test for evalfile (t/builtins/evalfile.t).
* Test for nothing() added, too (already in the previous commit, sorry)

(t/builtins/nothing.t).

Files:

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

src/Pugs/Prim/Eval.hs

@@ -2 +2 @@
     -- used by Pugs.Prim
     op1EvalHaskell,
-    opEval,
+    opEval, opEvalfile,
     opRequire,
     -- used by Pugs.Eval -- needs factored somewhere bettwen
@@ -28 +28 @@
                 str <- liftIO $ readFile pathName
                 opEval (Just dumpEnv) pathName (decodeUTF8 str)
+
+opEvalfile :: String -> Eval Val
+opEvalfile filename = do
+    ok <- liftIO $ doesFileExist filename
+    if (not ok)
+        then fail $ "Can't locate " ++ filename ++ "."
+        else do
+            contents <- liftIO $ readFile filename
+            opEval Nothing filename $ decodeUTF8 contents
 
 op1EvalHaskell :: Val -> Eval Val