Changeset 12207 for src/Pugs/Eval

Timestamp:

08/14/06 09:34:33 (2 years ago)

Author:

audreyt

Message:

* Slurpyness evaluation now uses array_fetchSize, so this is

now constant time:

my @x[9999999] = 1; @x.elems

note that we still doesn't support (1..Inf).elems.

Files:

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

src/Pugs/Eval/Var.hs

@@ -344 +344 @@
         doFindSub (sum lens) subSyms
     argSlurpLen :: Exp -> Eval Int
-    argSlurpLen (Val listMVal) = do
-        listVal  <- fromVal listMVal
-        fmap length (fromVal listVal :: Eval [Val])
+    argSlurpLen (Val val) = join $ doArray val array_fetchSize
     argSlurpLen (Var name) = do
-        listMVal <- evalExp (Var name)
-        listVal  <- fromVal listMVal
-        fmap length (fromVal listVal :: Eval [Val])
+        val <- evalExp (Var name)
+        join $ doArray val array_fetchSize
     argSlurpLen (Syn "," list) =  return $ length list
     argSlurpLen _ = return 1 -- XXX