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

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

Revision: 352
          http://pure-lang.svn.sourceforge.net/pure-lang/?rev=352&view=rev
Author:   agraef
Date:     2008-07-01 06:43:30 -0700 (Tue, 01 Jul 2008)

Log Message:
-----------
Add more rounding functions.

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

Modified: pure/trunk/lib/math.pure
===================================================================
--- pure/trunk/lib/math.pure	2008-07-01 13:31:51 UTC (rev 351)
+++ pure/trunk/lib/math.pure	2008-07-01 13:43:30 UTC (rev 352)
@@ -39,13 +39,19 @@
 succ x		= x+1;
 pred x		= x-1;
 
-/* Floor and ceil functions. */
+/* 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;


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