2013-03-12 07:48:11 +00:00
|
|
|
|
2013-07-25 21:52:39 +00:00
|
|
|
Elm.Native.Basics = function(elm) {
|
2013-03-16 09:02:16 +00:00
|
|
|
'use strict';
|
2013-07-25 21:52:39 +00:00
|
|
|
if (elm.Native.Basics) return elm.Native.Basics;
|
2013-03-12 07:48:11 +00:00
|
|
|
|
2013-07-29 21:23:04 +00:00
|
|
|
var JS = Elm.Native.JavaScript(elm);
|
|
|
|
// var Maybe = Elm.Maybe(elm);
|
2013-03-16 09:02:16 +00:00
|
|
|
var Utils = Elm.Native.Utils(elm);
|
2013-07-29 21:23:04 +00:00
|
|
|
//var Char = Elm.Char(elm);
|
2013-03-16 09:02:16 +00:00
|
|
|
|
2013-05-11 20:42:45 +00:00
|
|
|
function div(a,b) { return (a/b)|0; }
|
|
|
|
function rem(a,b) { return a % b; }
|
2013-05-17 20:46:08 +00:00
|
|
|
var mod = Utils.mod;
|
2013-05-11 20:42:45 +00:00
|
|
|
function abs(x) { return x < 0 ? -x : x; }
|
|
|
|
function logBase(base,n) { return Math.log(n) / Math.log(base); }
|
2013-07-25 21:52:39 +00:00
|
|
|
function min(a,b) { return Utils.cmp(a,b) < 0 ? a : b; }
|
|
|
|
function max(a,b) { return Utils.cmp(a,b) > 0 ? a : b; }
|
|
|
|
function clamp(lo,hi,n) {
|
|
|
|
return Utils.cmp(n,lo) < 0 ? lo : Utils.cmp(n,hi) > 0 ? hi : n; }
|
2013-05-11 20:42:45 +00:00
|
|
|
function xor(a,b) { return a !== b; }
|
|
|
|
function not(b) { return !b; }
|
|
|
|
|
|
|
|
function truncate(n) { return n|0; }
|
|
|
|
|
|
|
|
function curry(f,a,b) { return f(Utils.Tuple2(a,b)); }
|
|
|
|
function uncurry(f,v) { return A2(f,v._0,v._1); }
|
|
|
|
function fst(t) { return t._0; }
|
|
|
|
function snd(t) { return t._1; }
|
2013-07-29 21:23:04 +00:00
|
|
|
/*
|
2013-03-16 09:02:16 +00:00
|
|
|
function readInt(str) {
|
|
|
|
var s = JS.fromString(str);
|
|
|
|
var len = s.length;
|
2013-05-11 20:42:45 +00:00
|
|
|
if (len === 0) { return Maybe.Nothing; }
|
2013-03-16 09:02:16 +00:00
|
|
|
var start = 0;
|
|
|
|
if (s[0] == '-') {
|
2013-05-11 20:42:45 +00:00
|
|
|
if (len === 1) { return Maybe.Nothing; }
|
|
|
|
start = 1;
|
2013-03-16 09:02:16 +00:00
|
|
|
}
|
|
|
|
for (var i = start; i < len; ++i) {
|
2013-05-11 20:42:45 +00:00
|
|
|
if (!Char.isDigit(s[i])) { return Maybe.Nothing; }
|
2013-03-16 09:02:16 +00:00
|
|
|
}
|
2013-05-11 20:42:45 +00:00
|
|
|
return Maybe.Just(parseInt(s, 10));
|
2013-03-16 09:02:16 +00:00
|
|
|
}
|
2013-05-11 20:42:45 +00:00
|
|
|
|
2013-03-16 09:02:16 +00:00
|
|
|
function readFloat(str) {
|
|
|
|
var s = JS.fromString(str);
|
|
|
|
var len = s.length;
|
|
|
|
if (len === 0) { return Maybe.Nothing; }
|
|
|
|
var start = 0;
|
|
|
|
if (s[0] == '-') {
|
2013-05-11 20:42:45 +00:00
|
|
|
if (len === 1) { return Maybe.Nothing; }
|
|
|
|
start = 1;
|
2013-03-16 09:02:16 +00:00
|
|
|
}
|
|
|
|
var dotCount = 0;
|
|
|
|
for (var i = start; i < len; ++i) {
|
2013-05-11 20:42:45 +00:00
|
|
|
if (Char.isDigit(s[i])) { continue; }
|
|
|
|
if (s[i] === '.') {
|
|
|
|
dotCount += 1;
|
|
|
|
if (dotCount <= 1) { continue; }
|
|
|
|
}
|
|
|
|
return Maybe.Nothing;
|
2013-03-16 09:02:16 +00:00
|
|
|
}
|
|
|
|
return Maybe.Just(parseFloat(s));
|
|
|
|
}
|
2013-07-29 21:23:04 +00:00
|
|
|
*/
|
2013-07-25 21:52:39 +00:00
|
|
|
var basics = {
|
2013-03-16 09:02:16 +00:00
|
|
|
div:F2(div),
|
|
|
|
rem:F2(rem),
|
2013-05-21 08:03:51 +00:00
|
|
|
mod:mod,
|
2013-03-16 09:02:16 +00:00
|
|
|
|
2013-03-23 20:20:30 +00:00
|
|
|
pi:Math.PI,
|
2013-03-16 09:02:16 +00:00
|
|
|
e:Math.e,
|
|
|
|
cos:Math.cos,
|
|
|
|
sin:Math.sin,
|
|
|
|
tan:Math.tan,
|
|
|
|
acos:Math.acos,
|
|
|
|
asin:Math.asin,
|
|
|
|
atan:Math.atan,
|
|
|
|
atan2:F2(Math.atan2),
|
|
|
|
|
|
|
|
sqrt:Math.sqrt,
|
|
|
|
abs:abs,
|
|
|
|
logBase:F2(logBase),
|
|
|
|
min:F2(min),
|
|
|
|
max:F2(max),
|
|
|
|
clamp:F3(clamp),
|
2013-04-10 05:15:06 +00:00
|
|
|
compare:Utils.compare,
|
2013-03-16 09:02:16 +00:00
|
|
|
|
|
|
|
xor:F2(xor),
|
|
|
|
not:not,
|
|
|
|
|
|
|
|
truncate:truncate,
|
|
|
|
ceiling:Math.ceil,
|
|
|
|
floor:Math.floor,
|
|
|
|
round:Math.round,
|
2013-07-25 21:52:39 +00:00
|
|
|
toFloat:function(x) { return x; },
|
2013-03-16 09:02:16 +00:00
|
|
|
|
2013-07-29 21:23:04 +00:00
|
|
|
//readInt:readInt,
|
|
|
|
//readFloat:readFloat,
|
2013-03-16 09:02:16 +00:00
|
|
|
|
2013-05-06 00:48:20 +00:00
|
|
|
curry:F3(curry),
|
|
|
|
uncurry:F2(uncurry),
|
2013-03-16 09:02:16 +00:00
|
|
|
fst:fst,
|
|
|
|
snd:snd
|
|
|
|
};
|
2013-03-16 19:04:05 +00:00
|
|
|
|
2013-07-25 21:52:39 +00:00
|
|
|
return elm.Native.Basics = basics;
|
2013-05-11 20:42:45 +00:00
|
|
|
};
|