[pure-lang-svn] SF.net SVN: pure-lang:[500] pure/trunk/lib

[<ag...@us...>]

Revision: 500
          http://pure-lang.svn.sourceforge.net/pure-lang/?rev=500&view=rev
Author:   agraef
Date:     2008-08-14 23:10:55 +0000 (Thu, 14 Aug 2008)

Log Message:
-----------
Move basic rounding functions from math.pure to primitives.pure.

Modified Paths:
--------------
    pure/trunk/lib/math.pure
    pure/trunk/lib/primitives.pure

Modified: pure/trunk/lib/math.pure
===================================================================
--- pure/trunk/lib/math.pure	2008-08-14 22:13:28 UTC (rev 499)
+++ pure/trunk/lib/math.pure	2008-08-14 23:10:55 UTC (rev 500)
@@ -28,19 +28,6 @@
 
 extern int pure_random() = random, void pure_srandom(int) = srandom;
 
-/* Rounding functions. */
-
-extern double floor(double), double ceil(double);
-extern double round(double), double trunc(double);
-
-floor x::int | floor x::bigint = x;
-ceil x::int | ceil x::bigint = x;
-round x::int | round x::bigint = x;
-trunc x::int | trunc x::bigint = x;
-
-// Fractional part of x.
-frac x::int | frac x::bigint | frac x::double = x-trunc x;
-
 /* The sqrt function. */
 
 extern double sqrt(double) = c_sqrt;

Modified: pure/trunk/lib/primitives.pure
===================================================================
--- pure/trunk/lib/primitives.pure	2008-08-14 22:13:28 UTC (rev 499)
+++ pure/trunk/lib/primitives.pure	2008-08-14 23:10:55 UTC (rev 500)
@@ -105,6 +105,19 @@
 uint x::int		= if x>=0 then bigint x else x+0x100000000L;
 ulong x::bigint		= if x>=0 then x else x+0x10000000000000000L;
 
+/* Rounding functions. */
+
+extern double floor(double), double ceil(double);
+extern double round(double), double trunc(double);
+
+floor x::int | floor x::bigint = x;
+ceil x::int | ceil x::bigint = x;
+round x::int | round x::bigint = x;
+trunc x::int | trunc x::bigint = x;
+
+// Fractional part of x.
+frac x::int | frac x::bigint | frac x::double = x-trunc x;
+
 /* Absolute value and sign of a number. */
 
 abs x::int | abs x::bigint | abs x::double


This was sent by the SourceForge.net collaborative development platform, the world's largest Open Source development site.