Changeset 5387 for src/Pugs/Prim/Numeric.hs

Timestamp:

07/11/05 04:12:53 (3 years ago)

Author:

putter

svk:copy_cache_prev:

7349

Message:

Finished haskell versions of floor,ceiling,round,truncate. mugwump++. Given the new r5385 Prelude.pm versions, I dropped them in Pugs::Internals. These two need to be syncronized with Emit/PIR.hs.

Files:

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

src/Pugs/Prim/Numeric.hs

@@ -3 +3 @@
 
 module Pugs.Prim.Numeric (
-    op2Numeric, op1Floating, op1Numeric,
+    op2Numeric, op1Floating, op1Round, op1Numeric,
     op2Exp, op2Divide, op2Modulus,
 ) where
@@ -36 +36 @@
     foo <- fromVal v
     return $ VNum $ f foo
+
+op1Round :: (Double -> Integer) -> Val -> Eval Val
+op1Round f v = do
+    return $ VInt $ case v of
+       VInt i -> i
+       VRat r -> f ((fromRational r)::Double)
+       VNum n -> f n
+       _      -> 0
 
 op1Numeric :: (forall a. (Num a) => a -> a) -> Val -> Eval Val