Updates for 0.7

Author: paf31

src/Math.js

@@ -0,0 +1,70 @@
+/* global exports */
+"use strict";
+
+// module Math
+
+exports.abs = Math.abs;
+
+exports.acos = Math.acos;
+
+exports.asin = Math.asin;
+
+exports.atan = Math.atan;
+
+exports.atan2 = function(y){
+  return function (x) {
+    return Math.atan2(y, x);
+  };
+};
+  
+exports.ceil = Math.ceil;
+
+exports.cos = Math.cos;
+
+exports.exp = Math.exp;
+
+exports.floor = Math.floor;
+
+exports.log = Math.log;
+
+exports.max = function(n1){
+  return function(n2) {
+    return Math.max(n1, n2);
+  };
+};
+
+exports.min = function(n1){
+  return function(n2) {
+    return Math.min(n1, n2);
+  };
+};
+
+exports.pow = function(n){
+  return function(p) {
+    return Math.pow(n, p);
+  };
+};
+
+exports.round = Math.round;
+
+exports.sin = Math.sin;
+
+exports.sqrt = Math.sqrt;
+
+exports.tan = Math.tan;
+
+exports.e = Math.E;
+
+exports.ln2 = Math.LN2;
+
+exports.ln10 = Math.LN10;
+
+exports.log2e = Math.LOG2E;
+
+exports.log10e = Math.LOG10E;
+
+exports.pi = Math.PI;
+
+exports.sqrt1_2 = Math.SQRT1_2;
+
+exports.sqrt2 = Math.SQRT2;

src/Math.purs

@@ -2,112 +2,86 @@
 -- | See [Math Reference at MDN](https://developer.mozilla.org/en-US/docs/Web/JavaScript/Reference/Global_Objects/Math).
 module Math where
 
+import Prelude
+
 -- | An alias to make types in this module more explicit.
 type Radians = Number
 
 -- | Returns the absolute value of the argument.
-foreign import abs "var abs = Math.abs;" :: Number -> Number
+foreign import abs :: Number -> Number
 
 -- | Returns the inverse cosine of the argument.
-foreign import acos "var acos = Math.acos;" :: Number -> Radians
+foreign import acos :: Number -> Radians
 
 -- | Returns the inverse sine of the argument.
-foreign import asin "var asin = Math.asin;" :: Number -> Radians
+foreign import asin :: Number -> Radians
 
 -- | Returns the inverse tangent of the argument.
-foreign import atan "var atan = Math.atan;" :: Number -> Radians
+foreign import atan :: Number -> Radians
 
 -- | Four-quadrant tangent inverse. Given the arguments `y` and `x`, returns
 -- | the inverse tangent of `y / x`, where the signs of both arguments are used
 -- | to determine the sign of the result.
 -- | If the first argument is negative, the result will be negative.
 -- | The result is the angle between the positive x axis and  a point `(x, y)`.
-foreign import atan2
-  """
-  function atan2(y){
-    return function (x) {
-      return Math.atan2(y, x);
-    };
-  }
-  """ :: Number -> Number -> Radians
+foreign import atan2 :: Number -> Number -> Radians
 
 -- | Returns the smallest integer not smaller than the argument.
-foreign import ceil "var ceil = Math.ceil;" :: Number -> Number
+foreign import ceil :: Number -> Number
 
 -- | Returns the cosine of the argument.
-foreign import cos "var cos = Math.cos;" :: Radians -> Number
+foreign import cos :: Radians -> Number
 
 -- | Returns `e` exponentiated to the power of the argument.
-foreign import exp "var exp = Math.exp;" :: Number -> Number
+foreign import exp :: Number -> Number
 
 -- | Returns the largest integer not larger than the argument.
-foreign import floor "var floor = Math.floor;" :: Number -> Number
+foreign import floor :: Number -> Number
 
 -- | Returns the natural logarithm of a number.
-foreign import log "var log = Math.log;" :: Number -> Number
+foreign import log :: Number -> Number
 
 -- | Returns the largest of two numbers.
-foreign import max
-  """
-  function max(n1){
-    return function(n2) {
-      return Math.max(n1, n2);
-    };
-  }
-  """ :: Number -> Number -> Number
+foreign import max :: Number -> Number -> Number
 
 -- | Returns the smallest of two numbers.
-foreign import min
-  """
-  function min(n1){
-    return function(n2) {
-      return Math.min(n1, n2);
-    };
-  }
-  """ :: Number -> Number -> Number
+foreign import min :: Number -> Number -> Number
 
 -- | Return  the first argument exponentiated to the power of the second argument.
-foreign import pow
-  """
-  function pow(n){
-    return function(p) {
-      return Math.pow(n, p);
-    };
-  }
-  """ :: Number -> Number -> Number
+foreign import pow :: Number -> Number -> Number
 
 -- | Returns the integer closest to the argument.
-foreign import round "var round = Math.round;" :: Number -> Number
+foreign import round :: Number -> Number
 
 -- | Returns the sine of the argument.
-foreign import sin "var sin = Math.sin;" :: Radians -> Number
+foreign import sin :: Radians -> Number
 
 -- | Returns the square root of the argument.
-foreign import sqrt "var sqrt = Math.sqrt;" :: Number -> Number
+foreign import sqrt :: Number -> Number
 
 -- | Returns the tangent of the argument.
-foreign import tan "var tan = Math.tan;" :: Radians -> Number
+foreign import tan :: Radians -> Number
 
 -- | The base of natural logarithms, *e*, around 2.71828.
-foreign import e "var e = Math.E;" :: Number
+foreign import e :: Number
 
 -- | The natural logarithm of 2, around 0.6931.
-foreign import ln2 "var ln2 = Math.LN2;" :: Number
+foreign import ln2 :: Number
 
 -- | The natural logarithm of 10, around 2.3025.
-foreign import ln10 "var ln10 = Math.LN10;" :: Number
+foreign import ln10 :: Number
 
 -- | The base 2 logarithm of `e`, around 1.4426.
-foreign import log2e "var log2e = Math.LOG2E;" :: Number
+foreign import log2e :: Number
 
 -- | Base 10 logarithm of `e`, around 0.43429.
-foreign import log10e "var log10e = Math.LOG10E;" :: Number
+foreign import log10e :: Number
 
 -- | The ratio of the circumference of a circle to its diameter, around 3.14159.
-foreign import pi "var pi = Math.PI;" :: Number
+foreign import pi :: Number
 
 -- | The Square root of one half, around 0.707107.
-foreign import sqrt1_2 "var sqrt1_2 = Math.SQRT1_2;" :: Number
+foreign import sqrt1_2 :: Number
 
 -- | The square root of two, around 1.41421.
-foreign import sqrt2 "var sqrt2 = Math.SQRT2;" :: Number
+foreign import sqrt2 :: Number