git.iko.soy/elk
on 83406ff help sign in
elk/libraries/Native/String.js
232 lines 5.8 kB history raw
1Elm.Native.String = {};
2Elm.Native.String.make = function(elm) {
3 elm.Native = elm.Native || {};
4 elm.Native.String = elm.Native.String || {};
5 if (elm.Native.String.values) return elm.Native.String.values;
6 if ('values' in Elm.Native.String)
7 return elm.Native.String.values = Elm.Native.String.values;
9 var Char = Elm.Char.make(elm);
10 var Maybe = Elm.Maybe.make(elm);
11 var JS = Elm.JavaScript.make(elm);
12 var Utils = Elm.Native.Utils.make(elm);
14 function isEmpty(str) {
15 return str.length === 0;
16 }
17 function cons(chr,str) {
18 return chr + str;
19 }
20 function uncons(str) {
21 var hd;
22 return (hd = str[0]) ? Maybe.Just(Utils.Tuple2(Utils.chr(hd), str.slice(1)))
23 : Maybe.Nothing;
24 }
25 function length(str) {
26 return str.length;
27 }
28 function map(f,str) {
29 return str.split('').map(f).join('');
30 }
31 function filter(pred,str) {
32 return str.split('').filter(pred).join('');
33 }
34 function reverse(str) {
35 return str.split('').reverse().join('');
36 }
37 function foldl(f,b,str) {
38 var len = str.length;
39 for (var i = 0; i < len; ++i) {
40 b = A2(f, str[i], b);
41 }
42 return b;
43 }
44 function foldr(f,b,str) {
45 for (var i = str.length; i--; ) {
46 b = A2(f, str[i], b);
47 }
48 return b;
49 }
51 function split(sep, str) {
52 return JS.toList(str.split(sep));
53 }
54 function join(sep, strs) {
55 return JS.fromList(strs).join(sep);
56 }
57 function repeat(n, str) {
58 var result = '';
59 while (n > 0) {
60 if (n & 1) result += str;
61 n >>= 1, str += str;
62 }
63 return result;
64 }
66 function sub(start, end, str) {
67 return str.slice(start,end);
68 }
69 function left(n, str) {
70 return n < 1 ? "" : str.slice(0,n);
71 }
72 function right(n, str) {
73 return n < 1 ? "" : str.slice(-n);
74 }
75 function dropLeft(n, str) {
76 return n < 1 ? str : str.slice(n);
77 }
78 function dropRight(n, str) {
79 return n < 1 ? str : str.slice(0,-n);
80 }
82 function pad(n,chr,str) {
83 var half = (n - str.length) / 2;
84 return repeat(Math.ceil(half),chr) + str + repeat(half|0,chr);
85 }
86 function padRight(n,chr,str) {
87 return str + repeat(n - str.length, chr);
88 }
89 function padLeft(n,chr,str) {
90 return repeat(n - str.length, chr) + str;
91 }
93 function trim(str) {
94 return str.trim();
95 }
96 function trimLeft(str) {
97 return str.trimLeft();
98 }
99 function trimRight(str) {
100 return str.trimRight();
101 }
103 function words(str) {
104 return JS.toList(str.split(/\s+/g));
105 }
106 function lines(str) {
107 return JS.toList(str.split(/\r\n|\r|\n/g));
108 }
110 function toUpper(str) {
111 return str.toUpperCase();
112 }
113 function toLower(str) {
114 return str.toLowerCase();
115 }
117 function any(pred, str) {
118 for (var i = str.length; i--; ) {
119 if (pred(str[i])) return true;
120 }
121 return false;
122 }
123 function all(pred, str) {
124 for (var i = str.length; i--; ) {
125 if (!pred(str[i])) return false;
126 }
127 return true;
128 }
130 function contains(sub, str) {
131 return str.indexOf(sub) > -1;
132 }
133 function startsWith(sub, str) {
134 return str.indexOf(sub) === 0;
135 }
136 function endsWith(sub, str) {
137 return str.lastIndexOf(sub) === str.length - sub.length;
138 }
139 function indexes(sub, str) {
140 var subLen = sub.length;
141 var i = 0;
142 var is = [];
143 while ((i = str.indexOf(sub, i)) > -1) {
144 is.push(i);
145 i = i + subLen;
146 }
147 return JS.toList(is);
148 }
150 function toInt(str) {
151 var s = JS.fromString(str);
152 var len = s.length;
153 if (len === 0) { return Maybe.Nothing; }
154 var start = 0;
155 if (s[0] == '-') {
156 if (len === 1) { return Maybe.Nothing; }
157 start = 1;
158 }
159 for (var i = start; i < len; ++i) {
160 if (!Char.isDigit(s[i])) { return Maybe.Nothing; }
161 }
162 return Maybe.Just(parseInt(s, 10));
163 }
165 function toFloat(str) {
166 var s = JS.fromString(str);
167 var len = s.length;
168 if (len === 0) { return Maybe.Nothing; }
169 var start = 0;
170 if (s[0] == '-') {
171 if (len === 1) { return Maybe.Nothing; }
172 start = 1;
173 }
174 var dotCount = 0;
175 for (var i = start; i < len; ++i) {
176 if (Char.isDigit(s[i])) { continue; }
177 if (s[i] === '.') {
178 dotCount += 1;
179 if (dotCount <= 1) { continue; }
180 }
181 return Maybe.Nothing;
182 }
183 return Maybe.Just(parseFloat(s));
184 }
186 return Elm.Native.String.values = {
187 isEmpty: isEmpty,
188 cons: F2(cons),
189 uncons: uncons,
190 length: length,
191 map: F2(map),
192 filter: F2(filter),
193 reverse: reverse,
194 foldl: F3(foldl),
195 foldr: F3(foldr),
197 split: F2(split),
198 join: F2(join),
199 repeat: F2(repeat),
201 sub: F3(sub),
202 left: F2(left),
203 right: F2(right),
204 dropLeft: F2(dropLeft),
205 dropRight: F2(dropRight),
207 pad: F3(pad),
208 padLeft: F3(padLeft),
209 padRight: F3(padRight),
211 trim: trim,
212 trimLeft: trimLeft,
213 trimRight: trimRight,
215 words: words,
216 lines: lines,
218 toUpper: toUpper,
219 toLower: toLower,
221 any: F2(any),
222 all: F2(all),
224 contains: F2(contains),
225 startsWith: F2(startsWith),
226 endsWith: F2(endsWith),
227 indexes: F2(indexes),
229 toInt: toInt,
230 toFloat: toFloat,
231 };
232};