Changeset 32 for src/Prim.hs

Timestamp:

02/16/05 18:48:28 (4 years ago)

Author:

autrijus

svk:copy_cache_prev:

1041

Message:

* Code literals -- "sub", "pointy" and "bare" variants all works
* Lexical subroutine declarations via "my sub"
* Global subroutine and variables work again, via the envGlobal pad
* The "say", "exit", "die" primitives
* Bool.perl now prints correct literals (lwall)
* Blocks under void contexts now evaluates automatically
* The "..." (dotdotdot) literal

Files:

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

src/Prim.hs

@@ -58 +58 @@
     liftIO . putStr . concatMap vCast . vCast $ v
     return $ VUndef
+op1 "say" = \v -> do
+    liftIO . putStrLn . concatMap vCast . vCast $ v
+    return $ VUndef
+op1 "die" = \v -> do
+    return $ VError (concatMap vCast . vCast $ v) (Val v)
+op1 "exit" = \v -> do
+    if vCast v
+        then liftIO $ exitWith (ExitFailure $ vCast v)
+        else liftIO $ exitWith ExitSuccess
 
 op1 s      = return . (\x -> VError ("unimplemented unaryOp: " ++ s) (Val x))
@@ -260 +269 @@
 \\n   Num       pre     rand    (?Num=1)\
 \\n   Action    pre     print   (List)\
+\\n   Action    pre     say     (List)\
+\\n   Action    pre     die     (List)\
+\\n   Any       pre     do      (Str)\
 \\n   Any       pre     return  (Any)\
 \\n   Junction  pre     any     (List)\