git.iko.soy/elk
on cfe1302 help sign in
elk/libraries/Native/String.js
217 lines 5.5 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 Tuple2 = Elm.Native.Utils.make(elm).Tuple2;
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 chr;
22 return (chr = str[0]) ? Maybe.Just(Tuple2(chr, 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 str.split(sep);
53 }
54 function join(sep, strs) {
55 return JS.fromList(strs).join(sep);
56 }
57 function repeat(n, chr) {
58 var result = '';
59 while (n > 0) {
60 if (n & 1) result += chr;
61 n >>= 1, chr += chr;
62 }
63 return result;
64 }
65 function pad(n,chr,str) {
66 var half = n - str.length / 2;
67 return repeat(Math.ceil(half),chr) + str + repeat(half|0,chr);
68 }
69 function padRight(n,chr,str) {
70 return str + repeat(n - str.length, chr);
71 }
72 function padLeft(n,chr,str) {
73 return repeat(n - str.length, chr) + str;
74 }
76 function trim(str) {
77 return str.trim();
78 }
79 function trimLeft(str) {
80 return str.trimLeft();
81 }
82 function trimRight(str) {
83 return str.trimRight();
84 }
86 function words(str) {
87 return JS.toList(str.split(/\s+/g));
88 }
89 function unwords(str) {
90 return JS.fromList(str).join(' ');
91 }
92 function lines(str) {
93 return JS.toList(str.split(/\r\n|\r|\n/g));
94 }
95 function unlines(str) {
96 return JS.fromList(str).join('\n');
97 }
99 function toUpper(str) {
100 return str.toUpperCase();
101 }
102 function toLower(str) {
103 return str.toLowerCase();
104 }
106 function any(pred, str) {
107 for (var i = str.length; i--; ) {
108 if (pred(str[i])) return true;
109 }
110 return false;
111 }
112 function all(pred, str) {
113 for (var i = str.length; i--; ) {
114 if (!pred(str[i])) return false;
115 }
116 return true;
117 }
119 function contains(sub, str) {
120 return str.indexOf(sub) > -1;
121 }
122 function startsWith(sub, str) {
123 return str.indexOf(sub) === 0;
124 }
125 function endsWith(sub, str) {
126 return str.lastIndexOf(sub) === str.length - sub.length;
127 }
128 function indexes(sub, str) {
129 var subLen = sub.length;
130 var i = 0;
131 var is = [];
132 while ((i = str.indexOf(sub, i)) > -1) {
133 is.push(i);
134 i = i + subLen;
135 }
136 return JS.toList(is);
137 }
139 function toInt(str) {
140 var s = JS.fromString(str);
141 var len = s.length;
142 if (len === 0) { return Maybe.Nothing; }
143 var start = 0;
144 if (s[0] == '-') {
145 if (len === 1) { return Maybe.Nothing; }
146 start = 1;
147 }
148 for (var i = start; i < len; ++i) {
149 if (!Char.isDigit(s[i])) { return Maybe.Nothing; }
150 }
151 return Maybe.Just(parseInt(s, 10));
152 }
154 function toFloat(str) {
155 var s = JS.fromString(str);
156 var len = s.length;
157 if (len === 0) { return Maybe.Nothing; }
158 var start = 0;
159 if (s[0] == '-') {
160 if (len === 1) { return Maybe.Nothing; }
161 start = 1;
162 }
163 var dotCount = 0;
164 for (var i = start; i < len; ++i) {
165 if (Char.isDigit(s[i])) { continue; }
166 if (s[i] === '.') {
167 dotCount += 1;
168 if (dotCount <= 1) { continue; }
169 }
170 return Maybe.Nothing;
171 }
172 return Maybe.Just(parseFloat(s));
173 }
175 return Elm.Native.String.values = {
176 isEmpty: isEmpty,
177 cons: F2(cons),
178 uncons: uncons,
179 length: length,
180 map: F2(map),
181 filter: F2(filter),
182 reverse: reverse,
183 foldl: F3(foldl),
184 foldr: F3(foldr),
186 split: F2(split),
187 join: F2(join),
188 repeat: F2(repeat),
190 pad: F3(pad),
191 padLeft: F3(padLeft),
192 padRight: F3(padRight),
194 trim: trim,
195 trimLeft: trimLeft,
196 trimRight: trimRight,
198 words: words,
199 unwords: unwords,
200 lines: lines,
201 unlines: unlines,
203 toUpper: toUpper,
204 toLower: toLower,
206 any: F2(any),
207 all: F2(all),
209 contains: F2(contains),
210 startsWith: F2(startsWith),
211 endsWith: F2(endsWith),
212 indexes: F2(indexes),
214 toInt: toInt,
215 toFloat: toFloat,
216 };
217};