Changeset 14483 for src/Pugs/Eval.hs

Timestamp:

10/24/06 17:18:18 (2 years ago)

Author:

audreyt

Message:

* Interpolation of Capture objects via prefix:<|> implemented,

suggested by eviltwin_b++:

sub f ($x, $y) { ... }
my $capt = \(1,2);
f(|$capt); # now works

Previously only Array, Hash, Scalar and Pair were intepolated.

Files:

• src/Pugs/Eval.hs (modified) (1 diff)

src/Pugs/Eval.hs

@@ -1128 +1128 @@
     (k, v) <- pair_fetch pv
     return [ Syn "named" [Val k, Val v] ]
+interpolateVal (VV vv) | Just (CaptSub{ c_feeds = feeds } :: ValCapt) <- castVal vv = return $
+    [ Val (castV v) | v <- concatMap f_positionals feeds ]
+    ++ [ Syn "named" [Val (VStr $ cast k), Val (concatNamed v)] | (k, v) <- concatMap (Map.toList . f_nameds) feeds ]
+    where
+    concatNamed [x] = castV x
+    concatNamed xs  = VList (map castV xs)
 interpolateVal val = return [Val val]