git.iko.soy/elk
on master help sign in
Add the `readInt` and `readFloat` functions.
dc0d9a2evancz
core-js/Prelude.js+38
compare with master
unifiedsplit
@@ -32,6 +32,42 @@ Elm.Prelude = function() {
32 };
32 };
33
33
34 var logBase=function(b){return function(x){return Math.log(x)/Math.log(b);};};
34 var logBase=function(b){return function(x){return Math.log(x)/Math.log(b);};};
35+
36+ function readInt(str) {
37+ var s = JavaScript.castStringToJSString(str);
38+ var len = s.length;
39+ if (len === 0) { return Nothing; }
40+ var start = 0;
41+ if (s[0] == '-') {
42+ if (len === 1) { return Nothing; }
43+ start = 1;
44+ }
45+ for (var i = start; i < len; ++i) {
46+ if (!Char.isDigit(s[i])) { return Nothing; }
47+ }
48+ return Just(parseInt(s));
49+ }
50+
51+ function readFloat(str) {
52+ var s = JavaScript.castStringToJSString(str);
53+ var len = s.length;
54+ if (len === 0) { return Nothing; }
55+ var start = 0;
56+ if (s[0] == '-') {
57+ if (len === 1) { return Nothing; }
58+ start = 1;
59+ }
60+ var dotCount = 0;
61+ for (var i = start; i < len; ++i) {
62+ if (Char.isDigit(s[i])) { continue; }
63+ if (s[i] === '.') {
64+ dotCount += 1;
65+ if (dotCount <= 1) { continue; }
66+ }
67+ return Nothing;
68+ }
69+ return Just(parseFloat(s));
70+ }
35
71
36 return {eq : Value.eq,
72 return {eq : Value.eq,
37 id : function(x) { return x; },
73 id : function(x) { return x; },
@@ -51,6 +87,8 @@ Elm.Prelude = function() {
51 floor : function(n) { return Math.floor(n); },
87 floor : function(n) { return Math.floor(n); },
52 ceiling : function(n) { return Math.ceil(n); },
88 ceiling : function(n) { return Math.ceil(n); },
53 truncate : function(n) { return ~~n; },
89 truncate : function(n) { return ~~n; },
90+ readInt : readInt,
91+ readFloat : readFloat,
54 sqrt : Math.sqrt,
92 sqrt : Math.sqrt,
55 abs : Math.abs,
93 abs : Math.abs,
56 pi : Math.PI,
94 pi : Math.PI,