Changeset 16526 for src/Pugs/Prim.hs

Timestamp:

05/25/07 23:12:48 (18 months ago)

Author:

moritz

Message:

patch and test cases for zero or negative argument to 'x' and 'xx' operator
postet ond p6l by chas_owens++

Files:

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

src/Pugs/Prim.hs

@@ -924 +924 @@
     | otherwise         = VStr str
 
+perlReplicate :: VInt -> a -> [a]
+perlReplicate i a = if i < 0 
+    then genericReplicate 0 a 
+    else genericReplicate i a
+
 -- |Implementation of 2-arity primitive operators and functions
 op2 :: String -> Val -> Val -> Eval Val
@@ -932 +937 @@
 op2 "/"  = op2Divide
 op2 "%"  = op2Modulus
-op2 "x"  = op2Cast (\x y -> VStr . concat $ (y :: VInt) `genericReplicate` x)
-op2 "xx" = op2Cast (\x y -> VList . concat $ (y :: VInt) `genericReplicate` x)
+op2 "x"  = op2Cast (\x y -> VStr . concat $ (y :: VInt) `perlReplicate` x)
+op2 "xx" = op2Cast (\x y -> VList . concat $ (y :: VInt) `perlReplicate` x)
 op2 "+&" = op2Int (.&.)
 op2 "+<" = op2Int shiftL